C64S tape image fileEXP CALENDAR I 5K CALENDAR  5K CALENDAR ?A36879:F((0)22)12:Z$(F):Z1:Z$"A13,(A13)12822:A,109:"VIC CALENDARMENU"LOADSTOREEDIT""CALENDARQUIT"""FZ1"LEFT"Z$"PICK:";62:L15:("LSECQ",L,1)A$:7HOP0:M0:L9,15,16,28:A,27:"";::2 "REWIND THE DATA TAPE. HIT A KEY. F1=MENU";:62:A$""2 "SEARCHING 1,1,OP,"CAL DATA":OP11,Z:L0Z:1,Z$(L)::1:2 1,Y:D20:L0Y:1,B$:59:Z$(L)B$:YL"":LFLY& :ZY:1:ZFZF-29OP1:9p"DITYPE: ATE: EXT: ";"MOUNT: DD,ELETE,DIT,AST, ";"EXT, F1 TO STOP THIS IS #"M1"OF"Z1:T149MZ22HL13:""(Z$,(T2)L35)6)(Z$(M),L3(L3),LL6(L3)):n(Z$,17T2)8)(Z$(M),21):T50"";:62:L16:("NLDAE",L,1)A$:22L13((Z1)(L4))24,25,26,47,61,22:" ":2MM(MZ):16MM(M0):16 Z$"SURE?";:62:A$"Y"16IZ$(M)Z$(Z):Z$(Z)"":ZZ(Z1):16w"MONTH#";:D2:S1:66:S0:B$""2M(B$):M0M12M(M)63999"YEAR? (2 DIGITS)";:S1:66:S0:Y(B$):B$""28YY(M0)(M13):MM12(M13)12(M0)::L112:A$:LME$A$U :A13,(A13)12821:D1:" "E$" 19"((Y),2)!21)"S M T W T F S ";:L13:I14:"    ";:"L3I14:"    ";::#L1M:B::C:LTCB:M2Y4(Y4)LT29>$46:W0:FI256(648)63:L1LT:TE(L10)%NULTE10:WW(R7):RR7(R7):LOFIR3W84(W5)20:LO,NU176&TE0LO,TE176:LO1,NU176'RR1::L0Z:((Z$(L),2,2))M43 (I0:K15:II(K1)((Z$(L))(("BHAIE",K,1))):3)D((Z$(L),4,2)):46:W((D5R)7)*LOFI1R3W8421(I1)(I3)(I2)((I2)239)(W5)85:LO,(Z$(L))64+,I0:62:L13:IIL(A$("LN",L,1))::I044-MMI2:I31,2,31.R(D365.25YB.01M.02):RR(R7)7:/Z1FMZ1:T1:16>0"NO ROOM!":62:T0:16_1Z$(M)" "2N13:(Z$,53N)6);:DNN6(N3):S(N2):663B$""N3::T0:S0:164B$""B$(Z$(M),N3(N3),NN6(N3)):""6)B$-559:Z$(M)(Z$(M),N13(N3))B$(Z$(M),N152411(N1)):J6D(Z$(M)):D69D7357[7T1ZM:47c8169S1:D10:Z$8);:66:S0:B$""B$(Z$(M),21):59:Z$(M)(Z$(M),20)B$:55;(B$)DB$B$" ":59<=T2:16>B0:C146?A$:BB1:B15B0:C164C+@(C)" ";:A$""631A?BL0:B$""pC62:(A$)20L0LL1:B$(B$,L):A$;:67DA$(13)" ":EA$""B$A$:FLD67GS0A$" "A$""A$(34)67HS(A$"0"A$"9")A$"."67 I""A$;:LL1::B$B$A$:67_JJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBERKDECEMBER,0,31,59,90,120,151,181,212,243,273,304,334,365?A36879:F((0)22)12:Z$(F):Z1:Z$"A13,(A13)12822:A,109:"VIC CALENDARMENU"LOADSTOREEDIT""CALENDARQUIT"""FZ1"LEFT"Z$"PICK:";62:L15:("LSECQ",L,1)A$:7HOP0:M0:L9,15,16,28:A,27:"";::2 "REWIND THE DATA TAPE. HIT A KEY. F1=MENU";:62:A$""2 "SEARCHING 1,1,OP,"CAL DATA":OP11,Z:L0Z:1,Z$(L)::1:2 1,Y:D20:L0Y:1,B$:59:Z$(L)B$:YL"":LFLY& :ZY:1:ZFZF-29OP1:9p"DITYPE: ATE: EXT: ";"MOUNT: DD,ELETE,DIT,AST, ";"EXT, F1 TO STOP THIS IS #"M1"OF"Z1:T149MZ22HL13:""(Z$,(T2)L35)6)(Z$(M),L3(L3),LL6(L3)):n(Z$,17T2)8)(Z$(M),21):T50"";:62:L16:("NLDAE",L,1)A$:22L13((Z1)(L4))24,25,26,47,61,22:" ":2MM(MZ):16MM(M0):16 Z$"SURE?";:62:A$"Y"16IZ$(M)Z$(Z):Z$(Z)"":ZZ(Z1):16w"MONTH#";:D2:S1:66:S0:B$""2M(B$):M0M12M(M)63999"YEAR? (2 DIGITS)";:S1:66:S0:Y(B$):B$""28YY(M0)(M13):MM12(M13)12(M0)::L112:A$:LME$A$U :A13,(A13)12821:D1:" "E$" 19"((Y),2)!21)"S M T W T F S ";:L13:I14:"    ";:"L3I14:"    ";::#L1M:B::C:LTCB:M2Y4(Y4)LT29>$46:W0:FI256(648)63:L1LT:TE(L10)%NULTE10:WW(R7):RR7(R7):LOFIR3W84(W5)20:LO,NU176&TE0LO,TE176:LO1,NU176'RR1::L0Z:((Z$(L),2,2))M43 (I0:K15:II(K1)((Z$(L))(("BHAIE",K,1))):3)D((Z$(L),4,2)):46:W((D5R)7)*LOFI1R3W8421(I1)(I3)(I2)((I2)239)(W5)85:LO,(Z$(L))64+,I0:62:L13:IIL(A$("LN",L,1))::I044-MMI2:I31,2,31.R(D365.25YB.01M.02):RR(R7)7:/Z1FMZ1:T1:16>0"NO ROOM!":62:T0:16_1Z$(M)" "2N13:(Z$,53N)6);:DNN6(N3):S(N2):663B$""N3::T0:S0:164B$""B$(Z$(M),N3(N3),NN6(N3)):""6)B$-559:Z$(M)(Z$(M),N13(N3))B$(Z$(M),N152411(N1)):J6D(Z$(M)):D69D7357[7T1ZM:47c8169S1:D10:Z$8);:66:S0:B$""B$(Z$(M),21):59:Z$(M)(Z$(M),20)B$:55;(B$)DB$B$" ":59<=T2:16>B0:C146?A$:BB1:B15B0:C164C+@(C)" ";:A$""631A?BL0:B$""pC62:(A$)20L0LL1:B$(B$,L):A$;:67DA$(13)" ":EA$""B$A$:FLD67GS0A$" "A$""A$(34)67HS(A$"0"A$"9")A$"."67 I""A$;:LL1::B$B$A$:67_JJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBERKDECEMBER,0,31,59,90,120,151,181,212,243,273,304,334,365