C A1000:20: KLIMAATGRAFIEK  INITIALISATIE **************** MA$(12),NS(12),TE(12) M1 12 MA$(M) M $$!. UITLEG ***********************.!822604!BY!L PLAATS INVOEREN **************q!V100:HO9:VE0:110!`SR$"KLIMAGRAFIK":150!jHO0:VE2:110!t"Ort ";PL$!~HO0:VE4:110!SR$"Correct (J/N)":150!250:210!IN78 1130"IN74 1170";" NEERSLAG/TEMP INVOEREN *******H"X1 12`"100:HO9:VE0:110{"SR$"KLIMAGRAFIK":150"HO0:VE2:110"MA$(X):S1 (MA$(X)):"-";:S"HO0:VE4:110""Niederschlag (cm) ";NS(X)# NS(X)40 NS(X)40#NS(X)0 12700#"Temperatur (C) ";TE(X)H#(TE(X)40 TE(X)40N#2s#< CONTROLE *********************#FSR$"Correct (J/N)":150#P210#ZIN74 1400#dIN78 1270#n250:1360#xX## OVERZICHT ********************$100:HO9:VE0:110/$SR$"KLIMAGRAFIK":150B$HO0:VE2:110h$"Monat Niederschlag Temperatur"$"----- ------------ ----------"$X1 12$MA$(X);$12);NS(X);$23);TE(X)$X$$ CONTROLE *********************%HO0:VE17:110,%SR$"Correct (J/N)":150:%"250:210K%,IN74 1800]%6IN78 1570c%@w%JHO0:VE17:110%TSR$"Monat (1-12)":150%^MA%h(MA1)(MA12)1610%rHO0:VE17:110%|MA$(MA);%" "&X1 (MA$(MA))&"-";&X*&HO0:VE19:110L&"Niederschlag (cm) ";NS(MA)f&NS(MA)40 NS(MA)40z&NS(MA)0 1710&"Temperatur (C)";TE(MA)&TE(MA)40 TE(MA)40&1430&& GRAFIEK TEKENEN **************&CN0:600 'HO0:VE0:SR$PL$'650'&SR$""/'0X1 (PL$)?':SR$SR$"-"F'DX['NHO0:VE.03:650a'Xv'bHO.2:VE.2:620'lVE.8:630'vHO.8:630'VE.2:630''X0 30 10'HO.13:VE.8X.02'SRX:300:650'HO.82:VE.8X.02(650:X ((X1 122(HO.17.05X:VE.85F(SR$(MA$(X),1)O(650V(X\(i( X1 12(HO.15.05X:VE.8:620( VE.8NS(X)50:630(*HOHO.05:VE.8NS(X)50(4630(>VE.8:630(HX(R(\HO.2:VE.8TE(12)50:620 )fX1 12,)pHO.175X.05:VE.8TE(X)505)z630<)XZ)HO.8:VE.8TE(1)50:630c)210w)IN80 20030)IN83 950)1430)) UITLEG ***********************)100:HO9:VE0:110)SR$"KLIMAGRAFIK":150*HO0:VE2:110+*"Mit dem Programm koennen Sie fuer"Q*"einen Ort eine Klimauebersicht"}* "erstellen. Dazu sind fuer die zwoelf"* "Monate die mittlere Niederschlagsmenge"* "und Temperatur einzugeben."*$ "Danach erfolgt eien Tabellenuebersicht"'+. "und eine Grafik kann erzeugt werden."U+8 "An dieser Stelle kann das Programm mit"+B " (S) - abgebrochen oder die Grafik mit"+L " (P) - ausgedruckt werden."+V +` "Die Druckroutine muss aber von Ihnen",j "selbst geschrieben werden (ab Z. 20000)" ,t &,~ SR$"Taste":150:210,, :, N PRINTENV,*N PROGRAMMEER HIER ZELFs,4N EEN SCREENDUMP ROUTINEy,>N,HN,a"Januar","Februar","Maerz",a"April","Mai","Juni",a"Juli","August","September",a"Oktober","November","Dezember""-0u ****************************E-:u * KLIMAATGRAFIEK *h-Du * (c) JBSoft, Alkmaar *-Nu ****************************-Xu-} Gemaakt door:- } Jan Benjamin-} Stationstraat 26-} 1815 TC ALKMAAR-(} (072-123809).2} Op een:*.<} Philips VG8020 MSX-1 ComputerM.F} ****************************S.P}n.Z} TROS-RADIO dd 891220t.d}.n} Erstausstrahlung: Deutschlandsender Kultur.x}-spezial 910206***************S.P}n.Z} TROS-RADIO dd 891220t.d}.n