C64S tape image fileEXP CALC II $8K CALENDAR $58K CALENDAR E A36879:F((0)22)22:Z$(F),Y$(4):Z1:Z$"Y$(0)"APPOINTMENTS":Y$(1)"BIRTHDAYS":Y$(2)"HOLIDAYS":Y$(3)"EXPENSE":Y$(4)"INCOMEA13,(A13)12822 A,109:"VIC PERSONAL CALENDAR MENU OF CHOICES: P"LOAD CALENDARSTORE CALENDAREDIT & DISPLAY DATA""CALENDAR DISPLAYFINANCIAL ANALYSISQUIT"A$((FZ),2):" "A$" ENTRIES LEFT ";(" ",3(A$))" "Z$"PICK ONE: ";&1000:L17:("LSECFPQ",L,1)A$:250EM0:L300,400,500,600,700"ARE YOU SURE YOU WANT TO QUIT? ";:1000:A$"Y"200A,27:"";::200,OP0:Z1"APPEND OR REPLACE";:1000:A$""200-A$"A"AP1 ."TAPE OR DISK? ";:1000:""A$:A$""2009/A$"T"A$"D"302Z0DV1:A$"D"DV8:Q$"":3131"PLACE THE CALENDAR TAPE IN THE RECORDER AND REWIND.6"PRESS ANY KEY WHEN READY (OR HIT FUNCTION1 TO RETURN TO MENU): ";:10007A$""200 8" ":32079"FILE NAME? ";:D9:1100:B$""301[:Q$B$",S,"("RW",OP1,1):330|@" LOOKING FOR CALENDAR."J1,DV,OP,"CAL DATA"Q$:DV1336K15,8,15:15,A$,C$,D$,E$:C$"OK"336L"DISK ERROR!"A$" "C$,D$E$:1:15&MOP0"HIT ANY KEY TO GO ON";:1000::200TN"OVER-WRITE?";:1000:""A$:A$"Y"200uO1,8,1,"@0:CAL DATA"Q$:350POP1350T1,Y:L0Y:1,Z$(L(Z1)AP):YL"":L(Z1)APFLYY:Z(Z1)APY:1:15:ZFZFZ200^1,Z:L0Z:1,Z$(L):ZL""::1:15:200(OP1:3010M0y"DIT AND ISPLAY ATA YPE: ATE: EXT: ";"MOUNT: DD,ELETE,DIT,RINT,";""AST, EXT, F1 TO STPO";+"HERE ARE"Z1"ENTRIESTHIS IS ENTRY: "M1:T18108MZ540}L13:""(Z$,L35(T2))6)(Z$(M),L3(L3),LL6(L3)):(Z$,17T2)8);(Z$(M),21):T820A$:A$""540!L17:("NLDAEP",L,1)A$:540!"L14((L4)(Z1))560,570,580,800,900,590,500:" ":2000&" ":200E0MM1(MZ):500Z:MM1(M0):500DZ$"WANT TO DELETE? ";:1000:A$"Y"500IZ$(M)Z$(Z):Z$(Z)"":ZZ1(Z1):500NX1:1200:500X601:1(B$"")610,200Y"MONTH? (1-12) ";:D2:S1:1100:S0:B$""AZM(B$):M0M12M(M)601G[b"YEAR? (LAST 2 DIGITS) ";:S1:1100:S0:Y(B$):B$""600lYY(M0)(M13):MM12(M13)12(M0)::L112:A$:LME$A$ v:A13,(A13)12821:D1:" "E$" 19"((Y),2)K" S M T W T F S ";:L13:I14s"    ";:L3I14:"    ";::L1M:B::C:LTCBM2Y4(Y4)LT29699:W0:FI256(648)63:L1LT:TE(L10)VNULTE10:WW(R7):RR7(R7):LOFIR3W84(W5)20:LO,NU176xTE0LO,TE176:LO1,NU176RR1::L0Z:((Z$(L),2,2))M694I0:K15:II(K1)((Z$(L))(("BHAIE",K,1))):D((Z$(L),4,2)):699:W((D5R)7)ULOFI1R3W8421(I1)(I3)(I2)((I2)239)(W5)85:LO,(Z$(L))64[I0:1000:L14:IIL(A$("LNP",L,1))::I0695MMI2:I620,200,620X2:1200:695R(D365.25YB.01M.02):RR(R7)7: 601:B$""Z0200OD0:L0Z:B(Z$(L)):B69B73DD((B69).5)((Z$(L),21)):"CASH FLOW FOR MONTH:"("- +",(D)2,1)((D100)100)"HIT A KEY";:1000:200 Z1FMZ1:T1:500%"NO ROOM LEFT!":1000:T0:500 *Z$(M)" "L 4N13:(Z$,53N)6);:DNN6(N3):S(N2):1100k 9B$""N3::T0:S0:500 :B$""B$(Z$(M),N3(N3),NN6(N3)):""6)B$ >(B$)DB$B$" ":830 HZ$(M)(Z$(M),N13(N3))B$(Z$(M),N152411(N1)):!RD(Z$(M)):D69D73860,!WT1ZM:8005!X500j!\S1:D10:Z$8);:1100:S0:B$""B$(Z$(M),21)!f(B$)DB$B$" ":870!pZ$(M)(Z$(M),20)B$:855!T2:500!B0:C146!A$:BB1:B15B0:C164C!(C)" ";:A$""1010""LL0:B$""C"V1000:(A$)20L0LL1:B$(B$,L):A$;:1110Y"`A$(13)" ":m"jA$""B$A$:{"oLD1110"tS0A$" "A$""A$(34)1110"uS(A$"0"A$"9")A$"."1110"~""A$;:LL1::B$B$A$:1110 #1,3:4,4,147X:"";:D0:C378884((36866)128)Y#S4((36866)128)64((36869)112):X1"";#LL12311(X1):MM123X:#1,A$:A$(13)A$((SD)64)#(A$)96A$" "#B(CD)15:B3X24,"";#B(CD)15:B3X24,"";%$DD1:4,A$;::4,(8)(13)(15);::1:4:w$(#JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER$2#DECEMBER,0,31,59,90,120,151,181,212,243,273,304,334,365E A36879:F((0)22)22:Z$(F),Y$(4):Z1:Z$"Y$(0)"APPOINTMENTS":Y$(1)"BIRTHDAYS":Y$(2)"HOLIDAYS":Y$(3)"EXPENSE":Y$(4)"INCOMEA13,(A13)12822 A,109:"VIC PERSONAL CALENDAR MENU OF CHOICES: P"LOAD CALENDARSTORE CALENDAREDIT & DISPLAY DATA""CALENDAR DISPLAYFINANCIAL ANALYSISQUIT"A$((FZ),2):" "A$" ENTRIES LEFT ";(" ",3(A$))" "Z$"PICK ONE: ";&1000:L17:("LSECFPQ",L,1)A$:250EM0:L300,400,500,600,700"ARE YOU SURE YOU WANT TO QUIT? ";:1000:A$"Y"200A,27:"";::200,OP0:Z1"APPEND OR REPLACE";:1000:A$""200-A$"A"AP1 ."TAPE OR DISK? ";:1000:""A$:A$""2009/A$"T"A$"D"302Z0DV1:A$"D"DV8:Q$"":3131"PLACE THE CALENDAR TAPE IN THE RECORDER AND REWIND.6"PRESS ANY KEY WHEN READY (OR HIT FUNCTION1 TO RETURN TO MENU): ";:10007A$""200 8" ":32079"FILE NAME? ";:D9:1100:B$""301[:Q$B$",S,"("RW",OP1,1):330|@" LOOKING FOR CALENDAR."J1,DV,OP,"CAL DATA"Q$:DV1336K15,8,15:15,A$,C$,D$,E$:C$"OK"336L"DISK ERROR!"A$" "C$,D$E$:1:15&MOP0"HIT ANY KEY TO GO ON";:1000::200TN"OVER-WRITE?";:1000:""A$:A$"Y"200uO1,8,1,"@0:CAL DATA"Q$:350POP1350T1,Y:L0Y:1,Z$(L(Z1)AP):YL"":L(Z1)APFLYY:Z(Z1)APY:1:15:ZFZFZ200^1,Z:L0Z:1,Z$(L):ZL""::1:15:200(OP1:3010M0y"DIT AND ISPLAY ATA YPE: ATE: EXT: ";"MOUNT: DD,ELETE,DIT,RINT,";""AST, EXT, F1 TO STPO";+"HERE ARE"Z1"ENTRIESTHIS IS ENTRY: "M1:T18108MZ540}L13:""(Z$,L35(T2))6)(Z$(M),L3(L3),LL6(L3)):(Z$,17T2)8);(Z$(M),21):T820A$:A$""540!L17:("NLDAEP",L,1)A$:540!"L14((L4)(Z1))560,570,580,800,900,590,500:" ":2000&" ":200E0MM1(MZ):500Z:MM1(M0):500DZ$"WANT TO DELETE? ";:1000:A$"Y"500IZ$(M)Z$(Z):Z$(Z)"":ZZ1(Z1):500NX1:1200:500X601:1(B$"")610,200Y"MONTH? (1-12) ";:D2:S1:1100:S0:B$""AZM(B$):M0M12M(M)601G[b"YEAR? (LAST 2 DIGITS) ";:S1:1100:S0:Y(B$):B$""600lYY(M0)(M13):MM12(M13)12(M0)::L112:A$:LME$A$ v:A13,(A13)12821:D1:" "E$" 19"((Y),2)K" S M T W T F S ";:L13:I14s"    ";:L3I14:"    ";::L1M:B::C:LTCBM2Y4(Y4)LT29699:W0:FI256(648)63:L1LT:TE(L10)VNULTE10:WW(R7):RR7(R7):LOFIR3W84(W5)20:LO,NU176xTE0LO,TE176:LO1,NU176RR1::L0Z:((Z$(L),2,2))M694I0:K15:II(K1)((Z$(L))(("BHAIE",K,1))):D((Z$(L),4,2)):699:W((D5R)7)ULOFI1R3W8421(I1)(I3)(I2)((I2)239)(W5)85:LO,(Z$(L))64[I0:1000:L14:IIL(A$("LNP",L,1))::I0695MMI2:I620,200,620X2:1200:695R(D365.25YB.01M.02):RR(R7)7: 601:B$""Z0200OD0:L0Z:B(Z$(L)):B69B73DD((B69).5)((Z$(L),21)):"CASH FLOW FOR MONTH:"("- +",(D)2,1)((D100)100)"HIT A KEY";:1000:200 Z1FMZ1:T1:500%"NO ROOM LEFT!":1000:T0:500 *Z$(M)" "L 4N13:(Z$,53N)6);:DNN6(N3):S(N2):1100k 9B$""N3::T0:S0:500 :B$""B$(Z$(M),N3(N3),NN6(N3)):""6)B$ >(B$)DB$B$" ":830 HZ$(M)(Z$(M),N13(N3))B$(Z$(M),N152411(N1)):!RD(Z$(M)):D69D73860,!WT1ZM:8005!X500j!\S1:D10:Z$8);:1100:S0:B$""B$(Z$(M),21)!f(B$)DB$B$" ":870!pZ$(M)(Z$(M),20)B$:855!T2:500!B0:C146!A$:BB1:B15B0:C164C!(C)" ";:A$""1010""LL0:B$""C"V1000:(A$)20L0LL1:B$(B$,L):A$;:1110Y"`A$(13)" ":m"jA$""B$A$:{"oLD1110"tS0A$" "A$""A$(34)1110"uS(A$"0"A$"9")A$"."1110"~""A$;:LL1::B$B$A$:1110 #1,3:4,4,147X:"";:D0:C378884((36866)128)Y#S4((36866)128)64((36869)112):X1"";#LL12311(X1):MM123X:#1,A$:A$(13)A$((SD)64)#(A$)96A$" "#B(CD)15:B3X24,"";#B(CD)15:B3X24,"";%$DD1:4,A$;::4,(8)(13)(15);::1:4:w$(#JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER$2#DECEMBER,0,31,59,90,120,151,181,212,243,273,304,334,365