C64S tape image fileEXP CALC II ¶$€8K CALENDAR ¶$58K CALENDAR E A²36879:F²µ(¸(0)­22)«22:†Z$(F),Y$(4):Z²«1:Z$²"ŸY$(0)²"APPOINTMENTS":Y$(1)²"BIRTHDAYS":Y$(2)²"HOLIDAYS":Y$(3)²"EXPENSE":Y$(4)²"INCOME¸È—A«13,Â(A«13)¯128°22 É—A,109:™"“VIC PERSONAL CALENDAR ’MENU OF CHOICES: £££££££££££££££PÒ™"L’OAD CALENDAR�S’TORE CALENDAR�E’DIT & DISPLAY DATA"�Ü™"C’ALENDAR DISPLAY�F’INANCIAL ANALYSISQ’UIT"ÆæA$²Ê(Ä(F«Z),2):™" "A$" ENTRIES LEFT ";øð™È(" ",3«Ã(A$))"�” "Z$"’PICK ONE: ";&ú�1000:�L²1¤7:‹Ê("LSECFPQ",L,1)³±A$§‚:‰250EM²0:‘L‰300,400,500,600,700ƒ™"“’ARE YOU SURE YOU WANT TO QUIT? ";:�1000:‹A$³±"Y"§200œ—A,27:™"“’";:€:‰200Ø,OP²0:‹Z±«1§™"“A’PPEND OR R’EPLACE";:�1000:‹A$²"…"§200é-‹A$²"A"§AP²1 .™"“’T’APE OR D’ISK? ";:�1000:™"’"A$:‹A$²"…"§2009/‹A$³±"T"¯A$³±"D"§302Z0DV²1:‹A$²"D"§DV²8:Q$²"":‰313�1™"“’PLACE THE CALENDAR TAPE IN THE RECORDER AND REWIND.î6™"PRESS ANY KEY WHEN READY (OR HIT FUNCTION1 TO RETURN TO MENU): ";:�1000þ7‹A$²"…"§200 8™" ":‰32079™"�FILE NAME? ";:D²9:�1100:‹B$²"…"§301[:Q$²B$ª",S,"ªÊ("RW",OPª1,1):‰330|@™" �LOOKING FOR CALENDAR."¡JŸ1,DV,OP,"CAL DATA"ªQ$:‹DV²1§336ËKŸ15,8,15:„15,A$,C$,D$,E$:‹C$²"OK"§336öL™"“DISK ERROR!�"A$" "C$,D$E$: 1: 15&M‹OP²0§™"HIT ANY KEY TO GO ON";:�1000:™:‰200TN™"OVER-WRITE?";:�1000:™"’"A$:‹A$³±"Y"§200uOŸ1,8,1,"@0:CAL DATA"ªQ$:‰350ƒP‹OP²1§350¿T„1,Y:�L²0¤Y:„1,Z$(Lª(Zª1)¬AP):™Y«L"‘":‹Lª(Zª1)¬AP²F§L²YâY‚:Z²(Zª1)¬APªY: 1: 15:‹Z±F§Z²FëZ‰200^˜1,Z:�L²0¤Z:˜1,Z$(L):™Z«L"‘":‚: 1: 15:‰200(�OP²1:‰3010óM²0yô™"“ÅDIT AND ÄISPLAY ÄATA ’ÔYPE: £�ÄATE: ££££�ÔEXT: ";Ãþ™"£££££££££££££££�ÁMOUNT: ££££££££££�ÁDD,ÄELETE,ÅDIT,ÐRINT,";Í�"�‘î™"ÌAST, ÎEXT, F1 TO STP�”O";+™"’ÔHERE ARE"Zª1"ENTRIES�THIS IS ENTRY: "Mª1:‹T²1§8108‹M±Z§540}�L²1¤3:™"’"È(Z$,L¬3ª5ª(T²2))¦6)Ê(Z$(M),L«3¬(L²3),L¬L«6¬(L²3)):‚¥™È(Z$,17«T­2)¦8);Ê(Z$(M),21):‹T§820¸¡A$:‹A$²""§540à!�L²1¤7:‹Ê("…NLDAEP",L,1)³±A$§‚:‰540!"‘L«1«4¬((L²4)¯(Z²«1))‰560,570,580,800,900,590,500:™"Ž ":‰2000&™"Ž ":‰200E0M²Mª1ª(M±Z):‰500Z:M²M«1«(M²0):‰500‹D™Z$"’WANT TO DELETE? ";:�1000:‹A$³±"Y"§500¶IZ$(M)²Z$(Z):Z$(Z)²"":Z²Z«1«(Z²«1):‰500ÉNX²1:�1200:‰500æX�601:‘1«(B$²"…")‰610,200Y™"“’MONTH? (1-12) ";:D²2:S²1:�1100:S²0:‹B$²"…"§ŽAZM²Å(B$):‹M²0°M±12°M³±µ(M)§601G[މb™"�YEAR? (LAST 2 DIGITS) ";:S²1:�1100:S²0:Y²Å(B$):‹B$²""§600ÎlY²Yª(M²0)«(M²13):M²Mª12¬(M²13)«12¬(M²0):Œ:�L²1¤12:‡A$:‹L²M§E$²A$ v‚:—A«13,Â(A«13)¯128°21:D²1:™"“’ž "E$" 19"É(Ä(Y),2)K€™" S M T W T F S ";:�L²1¤3:�I²1¤4sŠ™"Ÿ  Ÿ  Ÿ  Ÿ ";:‚¨”‹L³3§�I²1¤4:™" Ÿ  Ÿ  Ÿ  ";:‚:‚ž�L²1¤M:‡B:‚:‡C:LT²C«BÝ£‹M²2§‹Y­4²µ(Y­4)§LT²29¨�699:W²0:FI²256¬Â(648)ª63:�L²1¤LT:TE²µ(L­10)V­NU²L«TE¬10:W²W«(R²7):R²Rª7¬(R²7):LO²FIªR¬3ªW¬84ª(W²5)¬20:—LO,NUª176x¯‹TE±0§—LO,TEª176:—LOª1,NUª176£²R²Rª1:‚:�L²0¤Z:‹Å(Ê(Z$(L),2,2))³±M§694Û³I²0:�K²1¤5:I²I«(K«1)¬(Æ(Z$(L))²Æ(Ê("BHAIE",K,1))):‚´D²Å(Ê(Z$(L),4,2)):�699:W²µ((Dª5«R)­7)UµLO²FIª1ªR¬3ªW¬84«21¬(Iª1)¬(I³3)«(I±2)¬((I«2)¬2ª39)ª(W²5)¬85:—LO,Æ(Z$(L))«64[¶‚”·I²0:�1000:�L²1¤4:I²I«L¬(A$²Ê("L…NP",L,1)):‚:‹I²0§695¯¸M²MªI«2:‘I‰620,200,620¹X²2:�1200:‰695ñ»R²µ(Dª365.25¬YªBª.01¬M«.02):R²R«µ(R­7)¬7:Ž ¼�601:‹B$²"…"°Z³0§200OÆD²0:�L²0¤Z:B²Æ(Z$(L)):‹B²69°B²73§D²Dª´((B²69)ª.5)¬Å(Ê(Z$(L),21))�Ђ:™"CASH FLOW FOR MONTH:�"Ê("- +",´(D)ª2,1)¶(µ(D¬100)­100)¯Ú™"HIT A KEY";:�1000:‰200É ‹Zª1³F§M²Zª1:T²1:‰500ò%™"ŸNO ROOM LEFT!":�1000:T²0:‰500 *Z$(M)²" "L 4�N²1¤3:™È(Z$,5ª3¬N)¦6);:D²N¬N«6¬(N²3):S²«(N²2):�1100k 9‹B$²"…"§N²3:‚:T²0:S²0:‰500¢ :‹B$²""§B$²Ê(Z$(M),N«3¬(N²3),N¬N«6¬(N²3)):™"‘"¦6)B$¾ >‹Ã(B$)³D§B$²B$ª" ":‰830ü HZ$(M)²È(Z$(M),N«1«3¬(N²3))ªB$ªÊ(Z$(M),N¬15«24«11¬(N²1)):‚!RD²Æ(Z$(M)):‹D²69°D²73§860,!W‹T²1§Z²M:‰8005!X‰500j!\S²1:D²10:™Z$¦8);:�1100:S²0:‹B$²""§B$²Ê(Z$(M),21)†!f‹Ã(B$)³D§B$²B$ª" ":‰870¤!pZ$(M)²È(Z$(M),20)ªB$:‰855±!„T²2:‰500¿!èB²0:C²146ß!ò¡A$:B²Bª1:‹B²15§B²0:C²164«Cú!ü™Ç(C)" �";:‹A$²""§1010"Ž"LL²0:B$²""C"V�1000:‹Æ(A$)²20§‹L±0§L²L«1:B$²È(B$,L):™A$;:‰1110Y"`‹A$²Ç(13)§™"’ ":Žm"j‹A$²"…"§B$²A$:Ž{"o‹L²D§1110¡"t‹S²0§‹A$³" "°A$±"ß"°A$²Ç(34)§1110Æ"u‹S§‹(A$³"0"°A$±"9")¯A$³±"."§1110è"~™"’"A$;:L²Lª1::B$²B$ªA$:‰1110 #°Ÿ1,3:Ÿ4,4,14«7¬X:™"";:D²0:C²37888ª4¬(Â(36866)¯128)Y#±S²4¬(Â(36866)¯128)ª64¬(Â(36869)¯112):‹X²1§™"";›#µ�LL²1¤23ª11¬(X²1):�MM²1¤23«X:¡#1,A$:‹A$²Ç(13)§A$²Ç(Â(SªD)ª64)°#¶‹Æ(A$)²96§A$²" "Ò#·B²Â(CªD)¯15:‹B²3§‹X²2§˜4,"";õ#¸B²Â(CªD)¯15:‹B³±3§‹X²2§˜4,"’";%$ºD²Dª1:˜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 A²36879:F²µ(¸(0)­22)«22:†Z$(F),Y$(4):Z²«1:Z$²"ŸY$(0)²"APPOINTMENTS":Y$(1)²"BIRTHDAYS":Y$(2)²"HOLIDAYS":Y$(3)²"EXPENSE":Y$(4)²"INCOME¸È—A«13,Â(A«13)¯128°22 É—A,109:™"“VIC PERSONAL CALENDAR ’MENU OF CHOICES: £££££££££££££££PÒ™"L’OAD CALENDAR�S’TORE CALENDAR�E’DIT & DISPLAY DATA"�Ü™"C’ALENDAR DISPLAY�F’INANCIAL ANALYSISQ’UIT"ÆæA$²Ê(Ä(F«Z),2):™" "A$" ENTRIES LEFT ";øð™È(" ",3«Ã(A$))"�” "Z$"’PICK ONE: ";&ú�1000:�L²1¤7:‹Ê("LSECFPQ",L,1)³±A$§‚:‰250EM²0:‘L‰300,400,500,600,700ƒ™"“’ARE YOU SURE YOU WANT TO QUIT? ";:�1000:‹A$³±"Y"§200œ—A,27:™"“’";:€:‰200Ø,OP²0:‹Z±«1§™"“A’PPEND OR R’EPLACE";:�1000:‹A$²"…"§200é-‹A$²"A"§AP²1 .™"“’T’APE OR D’ISK? ";:�1000:™"’"A$:‹A$²"…"§2009/‹A$³±"T"¯A$³±"D"§302Z0DV²1:‹A$²"D"§DV²8:Q$²"":‰313�1™"“’PLACE THE CALENDAR TAPE IN THE RECORDER AND REWIND.î6™"PRESS ANY KEY WHEN READY (OR HIT FUNCTION1 TO RETURN TO MENU): ";:�1000þ7‹A$²"…"§200 8™" ":‰32079™"�FILE NAME? ";:D²9:�1100:‹B$²"…"§301[:Q$²B$ª",S,"ªÊ("RW",OPª1,1):‰330|@™" �LOOKING FOR CALENDAR."¡JŸ1,DV,OP,"CAL DATA"ªQ$:‹DV²1§336ËKŸ15,8,15:„15,A$,C$,D$,E$:‹C$²"OK"§336öL™"“DISK ERROR!�"A$" "C$,D$E$: 1: 15&M‹OP²0§™"HIT ANY KEY TO GO ON";:�1000:™:‰200TN™"OVER-WRITE?";:�1000:™"’"A$:‹A$³±"Y"§200uOŸ1,8,1,"@0:CAL DATA"ªQ$:‰350ƒP‹OP²1§350¿T„1,Y:�L²0¤Y:„1,Z$(Lª(Zª1)¬AP):™Y«L"‘":‹Lª(Zª1)¬AP²F§L²YâY‚:Z²(Zª1)¬APªY: 1: 15:‹Z±F§Z²FëZ‰200^˜1,Z:�L²0¤Z:˜1,Z$(L):™Z«L"‘":‚: 1: 15:‰200(�OP²1:‰3010óM²0yô™"“ÅDIT AND ÄISPLAY ÄATA ’ÔYPE: £�ÄATE: ££££�ÔEXT: ";Ãþ™"£££££££££££££££�ÁMOUNT: ££££££££££�ÁDD,ÄELETE,ÅDIT,ÐRINT,";Í�"�‘î™"ÌAST, ÎEXT, F1 TO STP�”O";+™"’ÔHERE ARE"Zª1"ENTRIES�THIS IS ENTRY: "Mª1:‹T²1§8108‹M±Z§540}�L²1¤3:™"’"È(Z$,L¬3ª5ª(T²2))¦6)Ê(Z$(M),L«3¬(L²3),L¬L«6¬(L²3)):‚¥™È(Z$,17«T­2)¦8);Ê(Z$(M),21):‹T§820¸¡A$:‹A$²""§540à!�L²1¤7:‹Ê("…NLDAEP",L,1)³±A$§‚:‰540!"‘L«1«4¬((L²4)¯(Z²«1))‰560,570,580,800,900,590,500:™"Ž ":‰2000&™"Ž ":‰200E0M²Mª1ª(M±Z):‰500Z:M²M«1«(M²0):‰500‹D™Z$"’WANT TO DELETE? ";:�1000:‹A$³±"Y"§500¶IZ$(M)²Z$(Z):Z$(Z)²"":Z²Z«1«(Z²«1):‰500ÉNX²1:�1200:‰500æX�601:‘1«(B$²"…")‰610,200Y™"“’MONTH? (1-12) ";:D²2:S²1:�1100:S²0:‹B$²"…"§ŽAZM²Å(B$):‹M²0°M±12°M³±µ(M)§601G[މb™"�YEAR? (LAST 2 DIGITS) ";:S²1:�1100:S²0:Y²Å(B$):‹B$²""§600ÎlY²Yª(M²0)«(M²13):M²Mª12¬(M²13)«12¬(M²0):Œ:�L²1¤12:‡A$:‹L²M§E$²A$ v‚:—A«13,Â(A«13)¯128°21:D²1:™"“’ž "E$" 19"É(Ä(Y),2)K€™" S M T W T F S ";:�L²1¤3:�I²1¤4sŠ™"Ÿ  Ÿ  Ÿ  Ÿ ";:‚¨”‹L³3§�I²1¤4:™" Ÿ  Ÿ  Ÿ  ";:‚:‚ž�L²1¤M:‡B:‚:‡C:LT²C«BÝ£‹M²2§‹Y­4²µ(Y­4)§LT²29¨�699:W²0:FI²256¬Â(648)ª63:�L²1¤LT:TE²µ(L­10)V­NU²L«TE¬10:W²W«(R²7):R²Rª7¬(R²7):LO²FIªR¬3ªW¬84ª(W²5)¬20:—LO,NUª176x¯‹TE±0§—LO,TEª176:—LOª1,NUª176£²R²Rª1:‚:�L²0¤Z:‹Å(Ê(Z$(L),2,2))³±M§694Û³I²0:�K²1¤5:I²I«(K«1)¬(Æ(Z$(L))²Æ(Ê("BHAIE",K,1))):‚´D²Å(Ê(Z$(L),4,2)):�699:W²µ((Dª5«R)­7)UµLO²FIª1ªR¬3ªW¬84«21¬(Iª1)¬(I³3)«(I±2)¬((I«2)¬2ª39)ª(W²5)¬85:—LO,Æ(Z$(L))«64[¶‚”·I²0:�1000:�L²1¤4:I²I«L¬(A$²Ê("L…NP",L,1)):‚:‹I²0§695¯¸M²MªI«2:‘I‰620,200,620¹X²2:�1200:‰695ñ»R²µ(Dª365.25¬YªBª.01¬M«.02):R²R«µ(R­7)¬7:Ž ¼�601:‹B$²"…"°Z³0§200OÆD²0:�L²0¤Z:B²Æ(Z$(L)):‹B²69°B²73§D²Dª´((B²69)ª.5)¬Å(Ê(Z$(L),21))�Ђ:™"CASH FLOW FOR MONTH:�"Ê("- +",´(D)ª2,1)¶(µ(D¬100)­100)¯Ú™"HIT A KEY";:�1000:‰200É ‹Zª1³F§M²Zª1:T²1:‰500ò%™"ŸNO ROOM LEFT!":�1000:T²0:‰500 *Z$(M)²" "L 4�N²1¤3:™È(Z$,5ª3¬N)¦6);:D²N¬N«6¬(N²3):S²«(N²2):�1100k 9‹B$²"…"§N²3:‚:T²0:S²0:‰500¢ :‹B$²""§B$²Ê(Z$(M),N«3¬(N²3),N¬N«6¬(N²3)):™"‘"¦6)B$¾ >‹Ã(B$)³D§B$²B$ª" ":‰830ü HZ$(M)²È(Z$(M),N«1«3¬(N²3))ªB$ªÊ(Z$(M),N¬15«24«11¬(N²1)):‚!RD²Æ(Z$(M)):‹D²69°D²73§860,!W‹T²1§Z²M:‰8005!X‰500j!\S²1:D²10:™Z$¦8);:�1100:S²0:‹B$²""§B$²Ê(Z$(M),21)†!f‹Ã(B$)³D§B$²B$ª" ":‰870¤!pZ$(M)²È(Z$(M),20)ªB$:‰855±!„T²2:‰500¿!èB²0:C²146ß!ò¡A$:B²Bª1:‹B²15§B²0:C²164«Cú!ü™Ç(C)" �";:‹A$²""§1010"Ž"LL²0:B$²""C"V�1000:‹Æ(A$)²20§‹L±0§L²L«1:B$²È(B$,L):™A$;:‰1110Y"`‹A$²Ç(13)§™"’ ":Žm"j‹A$²"…"§B$²A$:Ž{"o‹L²D§1110¡"t‹S²0§‹A$³" "°A$±"ß"°A$²Ç(34)§1110Æ"u‹S§‹(A$³"0"°A$±"9")¯A$³±"."§1110è"~™"’"A$;:L²Lª1::B$²B$ªA$:‰1110 #°Ÿ1,3:Ÿ4,4,14«7¬X:™"";:D²0:C²37888ª4¬(Â(36866)¯128)Y#±S²4¬(Â(36866)¯128)ª64¬(Â(36869)¯112):‹X²1§™"";›#µ�LL²1¤23ª11¬(X²1):�MM²1¤23«X:¡#1,A$:‹A$²Ç(13)§A$²Ç(Â(SªD)ª64)°#¶‹Æ(A$)²96§A$²" "Ò#·B²Â(CªD)¯15:‹B²3§‹X²2§˜4,"";õ#¸B²Â(CªD)¯15:‹B³±3§‹X²2§˜4,"’";%$ºD²Dª1:˜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