99 REM"0 SYS64738
100 [143]"               LENALENDAR-64
104 REM"
105 [143]"        @ 1986,87 (null)ARKKU LEFT$EISKARI
110 REM"
120 [143]"               VERSION 3.0
130 REM"
140 [143]"                 050187
150 REM"
165 [143]"GOSUBKIRJOITA: RUN <RETURN>"[204]
170 [143] A(365,0)=DATE ,1=RECNO ,2=NO OF RCDS
200 [134]A(365,2),KK$(12),AP$(20):[153][199](14)
210 KK$( 1)[178]"(null)AMMIKUUTA"
220 KK$( 2)[178]"LEFT$ELMIKUUTA"
225 KK$( 3)[178]"(null)AALISKUUTA"
230 KK$( 4)[178]"LEFT$UHTIKUUTA"
240 KK$( 5)[178]"(null)OUKOKUUTA"
250 KK$( 6)[178]"(null)ES[KUUTA"
260 KK$( 7)[178]"LEFT$EIN[KUUTA"
270 KK$( 8)[178]"VALLOKUUTA"
280 KK$( 9)[178]"(null)YYSKUUTA"
290 KK$(10)[178]"(null)OKAKUUTA"
300 KK$(11)[178]"(null)ARRASKUUTA"
310 KK$(12)[178]"MID$OULUKUUTA"
320 SP$[178]"                                        ":MH%[178]0
399 [159]15,8,15
400 [137]700:[143] MAIN PROGRAM
410 [132]15,A1,A2$,A3,A4:[139]A1[178]50[176]A1[178]0[167][142]
420 [153]"(null) E V Y V I R H E:WAIT"A1
430 [153]A2$,A3,A4
490 [142]
495 [132]15,A1,A2$,A3,A4:[142]
500 HI[178][181](RE[173]256):LO[178]RE[171]HI[172]256
510 [152]15,"P"[199](3[170]96)[199](LO)[199](HI)[199](1)
511 [152]15,"P"[199](3[170]96)[199](LO)[199](HI)[199](1)
520 [152]2,[200](A$[170]SP$,36)
521 [152]15,"P"[199](3[170]96)[199](LO)[199](HI)[199](1)
530 [142]
550 HI[178][181](RE[173]256):LO[178]RE[171]HI[172]256
560 [152]15,"P"[199](3[170]96)[199](LO)[199](HI)[199](1)
561 [152]15,"P"[199](3[170]96)[199](LO)[199](HI)[199](1)
570 [132]2,A$
571 [152]15,"P"[199](3[170]96)[199](LO)[199](HI)[199](1)
580 [142]
600 A$[178]""
610 [153]"TOCMD";:[129]DL[178]0[164]50:[161]B$:[139]B$[179][177]""[167]DL[178]51:[130]:[137]640
620 [130]:[153]" CMD";:[129]DL[178]0[164]50:[161]B$:[139]B$[179][177]""[167]DL[178]51:[130]:[137]640
630 [130]:[137]610
640 [139]B$[178][199](20)[175][195](A$)[177]0[167]680
645 [139]B$[178][199](20)[137]610
649 [139]B$[178][199](13)[175]A$[178]""[167]A$[178]"-"
650 [139]B$[178][199](13)[167][153]" ":[142]
655 [139]B$[178]":"[167]B$[178]"["
656 [139]B$[178]";"[167]B$[178]"]"
657 [139]B$[178]","[167]610
660 [139][198](B$)[179]32[167]610
661 [139][198](B$)[178]34[167]610
665 [139][198](B$)[177]93[175][198](B$)[179]193[167]610
670 [139][198](B$)[177]221[167]610
672 [139][195](A$)[178][177]ML[167]610
675 [153]B$;:A$[178]A$[170]B$:[137]610
680 [153]" CMDCMD CMD";:A$[178][200](A$,[195](A$)[171]1):[137]610
700 [159]2,8,2,"MAKEDATA,S,R":[141]495
710 [139]A1[179][177]0[167][153]"(null)[[R[ LEVYKE!":[160]15:[153]"SYS49152ONONON":[162]
720 [132]2,MX:[132]2,VP:[129]I[178]1[164]MX
730 [129]J[178]0[164]2
740 [132]2,A(I,J):[130]J,I:[160]2
742 [159]2,8,2,"BREAK,S,R":[141]495
743 [139]A1[178]0[167][141]2800
744 [160]2:[152]15,"S0:BREAK":[159]2,8,2,"BREAK,S,W"
745 [152]2,"(null)ALENTERI KESKEYTETTY":[160]2
750 [159]2,8,3,"MAKESOFT":[141]495
760 [139]A1[179][177]0[167][153]"(null)[[R[ LEVYKE!":[160]15:[153]"SYS49152ONONON":[162]
1000 [153]"LOADOPEN            (null)CLOSEATNCLOSE(null)CLOSEVALCLOSE(null)CLOSE(null)CLOSEVALCLOSE(null)CLOSERIGHT$           WAIT":[160]4
1001 [151]53280,6:[151]53281,9
1010 [153]"<ASC1> (null)ALENTERIIN KIRJOITTAMINEN"
1020 [153]"<ASC3> (null)ALENTERIN SELAAMINEN"
1030 [153]"<ASC5> (null)ALENTERIN KORJAAMINEN"
1040 [153]"<ASC7> (null)OISTA JNKN P[IV[N TEKSTIT"
1090 [153]"<ASC8> (null)OPETUS (TALLETUS)"
1095 [153]"SYS"VP[171]1"RIVI[ TEKSTI[ KIRJOITETTU"
1096 [153]"         @ 1987, (null)ARKKU LEFT$EISKARI"
1097 [153]"     MID$ULKAISIJA: ASCLOPPY (null)AGAZINE"
1099 [151]198,0:[146]198,1:[161]A$
1100 [139]A$[178]"INPUT"[137]1200:[143] KIRJOITT.
1110 [139]A$[178]"DIM"[137]1400:[143] SELAAMINEN
1120 [139]A$[178]"READ"[137]1800:[143] EDIT
1130 [139]A$[178]"LET"[137]2500:[143] DELETE
1198 [139]A$[178]"RESTORE"[137]1600:[143] EXIT
1199 [137]1099
1200 [153]"LOAD(null)CLOSECLOSERIGHT$CLOSECLOSE(null)CLOSECLOSEMID$CLOSECLOSE(null)CLOSECLOSERIGHT$CLOSECLOSE(null)CLOSECLOSE(null)CLOSECLOSEATNCLOSECLOSE(null)CLOSECLOSERIGHT$CLOSECLOSE(null)CLOSECLOSEVALCLOSECLOSE(null)WAIT"
1210 [153]"(null)[IV[M[[R[:";:ML[178]6:[141]600:[139][195](A$)[179][177]6[137]1000
1220 C$[178][201](A$,2)[170][202](A$,3,2)[170][200](A$,2):PV[178][197](C$)
1225 CV[178]PV:D1[178][181](CV[173]10000):D2[178][181](CV[173]100)[171]100[172]D1:D3[178]CV[171]100[172][181](CV[173]100)
1226 [153]"LOAD         "D3"CMD. "KK$(D2)"   "D1"CMDCMDCMDCMDCMD19WAIT"
1230 [129]I[178]1[164]MX
1240 [139]A(I,0)[178]PV[167][141]1350
1250 [130]:[129]I[178]1[164]20:AP$(I)[178]"":[130]:I[178]0:[153]"* RIVIN ALKUUN KUN LOPPU"
1260 [153]">";:ML[178]36:[141]600:[139][200](A$,1)[178]"*"[137]1280
1270 I[178]I[170]1:AP$(I)[178]A$:[139]I[179]20[137]1260
1280 [139]I[178]0[167]1000
1285 [153]"(null)IRJOITAN LEVYLLE...":MH%[178]1
1290 V%[178]VP:[129]J[178]1[164]I
1300 RE[178]VP:VP[178]VP[170]1:A$[178]AP$(J):[141]500
1310 [130]
1320 [137]1500
1350 F%[178]1:[129]J[178]1[164]A(I,2)
1360 RE[178]A(I,1)[170]J[171]1:[141]550:[153]A$:[130]
1370 [142]
1400 [153]"LOAD      (null)CLOSECLOSEVALCLOSECLOSE(null)CLOSECLOSEATNCLOSECLOSEATNCLOSECLOSE(null)CLOSECLOSERIGHT$CLOSECLOSE(null)CLOSECLOSEVALCLOSECLOSE(null)      WAIT":PR%[178]0:CT%[178]0
1405 [153]"(null)APERILLE / (null)UUDULLE (P/R):";:ML[178]1:[141]600:[139]A$[178]"P"[176]A$[178]"(null)"[167][141]2200
1410 [153]"(null)[IV[M[[R[:";:ML[178]6:[141]600:[139]A$[178]"-"[137]1000
1420 [139][195](A$)[179][177]6[137]1400
1430 C$[178][201](A$,2)[170][202](A$,3,2)[170][200](A$,2):PV[178][197](C$)
1440 F%[178]0:[129]I[178]1[164]MX
1450 [139]A(I,0)[178][177]PV[167][141]1700:[143] PRINT IT, WAIT IT
1455 [139]A$[178]"_"[167]I[178]MX:F%[178]1:[143] END LOOP
1460 [130]:[139]F%[178]0[167][153]"VALI MERKINT\J[ SEN J[LKEEN":[151]198,0:[146]198,1:[137]1000
1465 [137]1000
1470 [153]"(null)AINA <(null)VAL(null)(null)(null)(null)>":[151]198,0:[146]198,1:[161]A$:[142]
1500 [143] A(MX,0)=PV A(MX,1)=V% A(MX,2)=I
1510 [139]MX[178]0[167]K[178]0:V%[178]1:[137]1571
1520 K[178]MX
1530 [139]A(K,0)[177]PV[175]K[177]1[167]K[178]K[171]1:[137]1530
1540 [139]A(K,0)[177]PV[167]K[178]0:[143] EKAKSI
1541 [143] MOVE IT
1550 [129]L[178]MX[164]K[170]1[169][171]1
1560 A(L[170]1,0)[178]A(L,0):A(L[170]1,1)[178]A(L,1):A(L[170]1,2)[178]A(L,2):[130]
1570 [143] LOCATE TO K+1
1571 A(K[170]1,0)[178]PV:A(K[170]1,1)[178]V%:A(K[170]1,2)[178]I
1580 MX[178]MX[170]1
1590 [137]1000
1600 [153]"LOADLENALENDAR (null)ERMINATED"
1610 [139]MH%[178]0[167][160]2:[137]2900
1620 [160]2:[159]2,8,2,"@0:MAKEDATA,S,W"
1630 [152]2,MX:[152]2,VP
1640 [129]I[178]1[164]MX
1650 [129]J[178]0[164]2
1660 [152]2,A(I,J):[130]J,I:[160]2:[137]2900
1700 CV[178]A(I,0):D1[178][181](CV[173]10000):D2[178][181](CV[173]100)[171]100[172]D1:D3[178]CV[171]100[172][181](CV[173]100)
1702 [139]PR%[178]1[137]2300
1710 [153]"LOAD         "D3"CMD. "KK$(D2)"   "D1"CMDCMDCMDCMDCMD19WAIT"
1720 [141]1350:[139]A(I,2)[178]1[175][195](A$)[178]0[167][142]
1730 [141]1470:[142]
1800 [143] EDIT IT
1805 [153]"LOADCLOSE CLOSECLOSE(null)CLOSECLOSE(null)CLOSECLOSE(null)CLOSECLOSEMID$CLOSECLOSEATNCLOSECLOSEATNCLOSECLOSE(null)CLOSECLOSERIGHT$CLOSECLOSE(null)CLOSECLOSEVALCLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSEWAIT"
1810 [153]"(null)[IV[M[[R[:";:ML[178]6:[141]600:[139]A$[178]"-"[137]1000
1820 [139][195](A$)[179][177]6[137]1800
1830 C$[178][201](A$,2)[170][202](A$,3,2)[170][200](A$,2):PV[178][197](C$):KR[178]0
1840 F%[178]0:[129]I[178]1[164]MX
1850 [139]A(I,0)[178]PV[167][141]1870
1860 [130]:[139]F%[178]0[167][153]"VALI MERKINT\J[ SILLE P[IV[LLE":[151]198,0:[146]198,1:[137]1000
1865 [137]1900
1870 [129]J[178]1[164]A(I,2):RE[178]A(I,1)[170]J[171]1:[141]550
1880 F%[178]F%[170]1:[139]A$[179][177]""[167][153]F%;A$
1885 [130]:[142]
1900 [153]"(null)IT[ RIVI[ KORJAAT:";:ML[178]2:[141]600
1910 [139]A$[178]"-"[137]1000
1920 LN[178][197](A$):[139]LN[178]0[137]1000
1930 F%[178]0:[129]I[178]1[164]MX
1940 [139]A(I,0)[178]PV[167][141]1960
1950 [130]:[137]2000
1960 [129]J[178]1[164]A(I,2):RE[178]A(I,1)[170]J[171]1:F%[178]F%[170]1
1970 [139]F%[178]LN[167]KR[178]RE
1980 [130]:[142]
2000 [139]KR[178]0[137]1000
2010 RE[178]KR:[141]550:[139]A$[178]""[137]1000
2020 [153]"LOAD"A$"";:[159]1,0:[132]1,A$:[160]1:[153]:MH%[178]1
2030 [141]500:[137]1000
2200 PR%[178]1
2210 [153]"(null)IVUN PITUUS (66 TMS) :";:ML[178]2:[141]600
2220 SP[178][197](A$):[139]SP[178]0[167]SP[178]71
2230 [139]SP[179]30[167][153]"(null)IIAN PIENI!":[137]2210
2240 [159]4,4,7:[142]
2300 [139]CT%[170]A(I,2)[170]3[177]SP[167][141]2400:CT%[178]0
2305 A$[178]""[170][196](D3)[170]". "[170][199](16)[170]"05"
2306 A$[178]A$[170]KK$(D2)[170][199](16)[170]"17 19"[170][201]([196](D1),2)[170][199](15)[170]"WAIT"
2307 [152]4,A$:CT%[178]CT%[170]1
2310 F%[178]1:[129]J[178]1[164]A(I,2)
2320 RE[178]A(I,1)[170]J[171]1:[141]550:[152]4,A$:CT%[178]CT%[170]1:[130]
2330 [152]4:[152]4:CT%[178]CT%[170]2:[161]A$:[139]A$[178]"_"[167]I[178]MX:F%[178]1:[160]4
2340 [142]
2400 [143] FORM FEED
2410 [129]Z[178]CT%[164]SP[170]5:[152]4:[130]:[142]
2500 [153]"LOAD    (null)(null)RIGHT$(null)(null)VAL(null)ATNATN(null)CLOSEMID$(null)(null)(null)RIGHT$(null)CLOSE(null)(null)RIGHT$(null)(null)(null)CLOSE(null)VAL(null)(null)(null)RIGHT$(null)    WAIT"
2510 [153]"P[IV[M[[R[:";:ML[178]6:[141]600:[139]A$[178]"-"[137]1000
2520 [139][195](A$)[179][177]6[137]2500
2525 C$[178][201](A$,2)[170][202](A$,3,2)[170][200](A$,2):PV[178][197](C$)
2530 F%[178]0:[129]I[178]1[164]MX
2540 [139]A(I,0)[178]PV[167][153]"----":[141]1350:[143] PRINT IT
2550 [130]:[139]F%[178]0[167][153]"VALI TEKSTI[ P[IV[M[[R[LLE":[151]198,0:[146]198,1:[137]1000
2560 [153]"(null)UHOTAANKO ? (K/E) :";:ML[178]1:[141]600:[139]A$[179][177]"K"[137]1000
2565 [151]53265,[194](53265)[175]239:[151]788,52:[151]56334,0
2570 [129]I[178]1[164]MX:[139]A(I,0)[178]PV[167]A(I,0)[178]0:A(I,1)[178]0:A(I,2)[178]0
2580 [130]:MH%[178]1
2600 [143] TIIVIST[
2610 A[178]1
2620 [139]A(A,0)[178]0[167]2650
2630 A[178]A[170]1:[139]A[179]MX[137]2620
2640 [137]2700
2650 B[178]A[170]1
2660 [139]A(B,0)[179][177]0[167]2690
2670 B[178]B[170]1:[139]B[179]MX[137]2660
2680 [137]2700
2690 [129]K[178]0[164]2
2691 A(A,K)[178]A(B,K):A(B,K)[178]0
2692 [130]:A[178]A[170]1
2695 [137]2620
2700 [143] LASK. TOD. MX
2710 AX[178]0
2720 [129]I[178]1[164]MX:[139]A(I,0)[179][177]0[167]AX[178]AX[170]1
2730 [130]:MX[178]AX
2740 [151]53265,[194](53265)[176]16:[151]788,49:[151]56334,1:[137]1000
2800 [153]"LOAD(null)CLOSEATN (null) VAL (null) (null) VAL (null) RIGHT$CLOSECLOSE(null) VAL (null)CLOSE(null) VAL (null)CLOSE(null) VAL (null) (null) (null)WAIT"
2810 [153]"STOP(null)HJELMAN SUORITUS PYS[HTYNYT EDELLISELL[";
2820 [153]"KERRALLA JOSTAIN SYYST[ V[[R[SS[ KOHDAS-";
2830 [153]"SA. (null)IETOJA MAHDOLLISESTI MENNYT HUKKAAN"
2840 [153]"SYS(null)HJELMA T[YTYY ATNRIGHT$(null)ATN LOPETTAA <ASC8>:LLA"
2850 [153]"P[[VALINTALISTAN KAUTTA !!!"
2860 [153]"(null)AINA <(null)VAL(null)(null)(null)(null)>, KUN OLET LUKENUT T[M[N":[151]198,0:[146]198,1
2870 [161]A$:[142]
2900 [152]15,"S0:BREAK":[160]15:[153]"SYS49152ONONON":[162]