> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 64 00 86 54 24 28 31 30 30 29 2C 4D |....d..T$(100),M|
00000010: 28 31 30 30 29 2C 53 28 31 30 30 29 00 53 08 69 |(100),S(100).S.i|
00000020: 00 4E B2 31 3A 4E 31 B2 31 3A 44 B2 30 3A 52 B2 |.N.1:N1.1:D.0:R.|
00000030: 30 3A 53 31 B2 30 3A 4D 31 B2 30 3A 97 35 33 32 |0:S1.0:M1.0:.532|
00000040: 38 30 2C 38 3A 97 35 33 32 38 31 2C 30 3A 99 22 |80,8:.53281,0:."|
00000050: 93 22 3B 00 86 08 6E 00 43 52 24 B2 22 1D 1D 1D |.";...n.CR$."...|
00000060: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000070: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000080: 1D 1D 1D 1D 1D 22 00 AB 08 73 00 43 44 24 B2 22 |....."...s.CD$."|
00000090: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000A0: 11 11 11 11 11 11 11 11 11 11 22 00 B9 08 78 00 |.........."...x.|
000000B0: 8B 52 31 B2 31 A7 32 30 30 00 C2 08 7D 00 8D 33 |.R1.1.200...}..3|
000000C0: 33 35 00 EE 08 82 00 99 22 11 11 11 11 11 1D 1D |35......".......|
000000D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 9E B0 C0 C0 C0 C0 C0 |................|
000000E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 16 |............."..|
000000F0: 09 87 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00000100: 7D 1D 9B 43 41 53 53 45 54 54 45 1D 1D 45 44 49 |}..CASSETTE..EDI|
00000110: 54 4F 52 9E 7D 22 00 3C 09 8C 00 99 22 1D 1D 1D |TOR.}".<...."...|
00000120: 1D 1D 1D 1D 1D 1D 1D 1D 7D 1D 1D 1D 1D 1D 1D 1D |........}.......|
00000130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 7D 22 00 62 09 91 |..........}".b..|
00000140: 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 7D 1D |.."...........}.|
00000150: 1D 75 60 69 1D B0 60 60 60 AE 1D 75 60 69 1D 1D |.u`i..```..u`i..|
00000160: 7D 22 00 8A 09 96 00 99 22 1D 1D 1D 1D 1D 1D 1D |}"......".......|
00000170: 1D 1D 1D 1D 7D A0 1D 7D 1D 7D 1D 7D 9B 42 1D 59 |....}..}.}.}.B.Y|
00000180: 9E 7D A0 7D 1D 7D 1D A0 7D 22 00 B0 09 9B 00 99 |.}.}.}..}"......|
00000190: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 7D A0 1D 6A |"...........}..j|
000001A0: 60 6B 1D AD 60 60 60 BD 1D 6A 60 6B A0 1D 7D 22 |`k..```..j`k..}"|
000001B0: 00 D8 09 A0 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |......".........|
000001C0: 1D 1D 7D A0 1D 1D 1D 1D 9B 42 4F 42 1D 4C 4F 4E |..}......BOB.LON|
000001D0: 47 1D 1D 1D 1D 9E 7D 22 00 FE 09 A5 00 99 22 1D |G.....}"......".|
000001E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 7D 1D 1D 1D 1D A4 |..........}.....|
000001F0: A4 A4 A4 A4 A4 A4 A4 A4 1D 1D 1D 1D 7D 22 00 24 |............}".$|
00000200: 0A AA 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00000210: 7D 1D 1D 1D 6E 1D 1D 1D 1D 1D 1D 1D 1D 1D 6D 1D |}...n.........m.|
00000220: 1D 1D 7D 22 00 4A 0A AF 00 99 22 1D 1D 1D 1D 1D |..}".J....".....|
00000230: 1D 1D 1D 1D 1D 1D AD 60 60 60 60 60 60 60 60 60 |.......`````````|
00000240: 60 60 60 60 60 60 60 60 BD 22 00 5B 0A B4 00 54 |````````.".[...T|
00000250: 49 24 B2 22 30 30 30 30 30 30 22 00 72 0A B9 00 |I$."000000".r...|
00000260: 8B 54 49 24 B2 B1 22 30 30 30 30 30 35 22 A7 34 |.TI$.."000005".4|
00000270: 39 30 00 86 0A BE 00 A1 41 24 3A 8B 41 24 B3 B1 |90......A$:.A$..|
00000280: 22 22 A7 34 39 30 00 8F 0A C3 00 89 31 38 35 00 |"".490......185.|
00000290: B0 0A C8 00 8F 20 20 20 20 20 20 2A 20 20 20 45 |..... * E|
000002A0: 4E 54 52 59 20 52 4F 55 54 49 4E 45 20 20 20 2A |NTRY ROUTINE *|
000002B0: 00 DC 0A CD 00 99 22 93 11 1D 1D 1D 1D 1D 1D 1D |......".........|
000002C0: 1D 1D 9E 2A 1D 1D 05 43 41 53 53 45 54 54 45 1D |...*...CASSETTE.|
000002D0: 1D 45 44 49 54 4F 52 1D 1D 9E 2A 22 00 02 0B D2 |.EDITOR...*"....|
000002E0: 00 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000002F0: 54 4F 54 41 4C 20 20 05 22 4D 31 22 9E 3A 05 22 |TOTAL ."M1".:."|
00000300: 53 31 00 2F 0B D7 00 99 22 1D 1D 1D 1D 1D 54 49 |S1./....".....TI|
00000310: 54 4C 45 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |TLE.............|
00000320: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 54 49 4D 45 22 00 |..........TIME".|
00000330: 57 0B DC 00 52 B2 31 3A 44 B2 4E 31 AA 35 3A 8D |W...R.1:D.N1.5:.|
00000340: 33 32 30 3A 99 22 9E 9D 22 4E 3B 3A 85 22 05 9D |320:.".."N;:."..|
00000350: 22 3B 54 24 28 4E 29 00 87 0B E1 00 8B 54 24 28 |";T$(N)......T$(|
00000360: 4E 29 B2 22 4F 4F 50 53 22 B0 54 24 28 4E 29 B2 |N)."OOPS".T$(N).|
00000370: 22 B9 22 A7 54 24 28 4E 29 B2 22 20 22 3A 8D 33 |".".T$(N)." ":.3|
00000380: 39 30 3A 89 32 36 35 00 BE 0B E6 00 8B 54 24 28 |90:.265......T$(|
00000390: 4E 29 B2 22 50 52 49 4E 54 22 B0 54 24 28 4E 29 |N)."PRINT".T$(N)|
000003A0: B2 22 AF 22 A7 54 24 28 4E 29 B2 22 20 22 3A 4E |.".".T$(N)." ":N|
000003B0: B2 4E AB 31 3A 8D 34 31 35 3A 89 32 38 35 00 DD |.N.1:.415:.285..|
000003C0: 0B EB 00 8B 54 24 28 4E 29 B2 22 45 4E 44 22 B0 |....T$(N)."END".|
000003D0: 54 24 28 4E 29 B2 22 B1 22 A7 32 38 35 00 0F 0C |T$(N).".".285...|
000003E0: F0 00 52 B2 33 30 3A 44 B2 4E 31 AA 35 3A 8D 33 |..R.30:D.N1.5:.3|
000003F0: 32 30 3A 99 22 9E 9D 22 4E 3B 3A 85 22 05 9D 22 |20:.".."N;:.".."|
00000400: 3B 4D 28 4E 29 2C 53 28 4E 29 3A 46 4C B2 30 00 |;M(N),S(N):FL.0.|
00000410: 30 0C F5 00 8F 20 20 20 20 20 20 2A 20 20 44 41 |0.... * DA|
00000420: 54 41 20 50 52 4F 43 45 53 53 49 4E 47 20 20 2A |TA PROCESSING *|
00000430: 00 62 0C FA 00 4D 32 B2 4D 31 3A 53 33 B2 53 31 |.b...M2.M1:S3.S1|
00000440: 3A 4D 31 B2 4D 31 AA 4D 28 4E 29 3A 53 31 B2 53 |:M1.M1.M(N):S1.S|
00000450: 31 AA 53 28 4E 29 3A 53 32 B2 B5 28 53 31 AD 36 |1.S(N):S2..(S1.6|
00000460: 30 29 00 78 0C FF 00 8B 53 32 B2 30 A7 4D 31 B2 |0).x....S2.0.M1.|
00000470: 4D 31 3A 53 31 B2 53 31 00 9C 0C 04 01 8B 53 32 |M1:S1.S1......S2|
00000480: B1 30 A7 4D 31 B2 4D 31 AA 53 32 3A 53 31 B2 53 |.0.M1.M1.S2:S1.S|
00000490: 31 AB 28 B5 28 53 32 AC 36 30 29 29 00 DA 0C 09 |1.(.(S2.60))....|
000004A0: 01 52 B2 31 39 3A 44 B2 33 3A 8D 33 32 30 3A 99 |.R.19:D.3:.320:.|
000004B0: 22 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D |" .......|
000004C0: 9D 05 22 4D 31 22 9E 3A 05 22 53 31 3A 4E B2 4E |.."M1".:."S1:N.N|
000004D0: AA 31 3A 4E 31 B2 4E 31 AA 31 00 E9 0C 0E 01 8B |.1:N1.N1.1......|
000004E0: 4E 31 B3 31 37 A7 32 32 30 00 FA 0C 13 01 8B 4E |N1.17.220......N|
000004F0: 31 B2 31 37 A7 99 22 91 22 3B 00 14 0D 18 01 99 |1.17..".";......|
00000500: C9 28 43 44 24 2C 32 30 29 3A 4E 31 B2 31 37 3A |.(CD$,20):N1.17:|
00000510: 89 32 32 30 00 40 0D 1D 01 99 22 93 11 1D 1D 1D |.220.@....".....|
00000520: 1D 1D 1D 1D 1D 1D 9E 2A 1D 1D 05 43 41 53 53 45 |.......*...CASSE|
00000530: 54 54 45 1D 1D 45 44 49 54 4F 52 1D 1D 9E 2A 22 |TTE..EDITOR...*"|
00000540: 00 66 0D 22 01 99 22 11 11 11 11 9E 20 54 4F 54 |.f.".."..... TOT|
00000550: 41 4C 20 54 49 4D 45 20 49 53 20 05 22 4D 31 22 |AL TIME IS ."M1"|
00000560: 9E 3A 05 22 53 31 00 88 0D 27 01 99 22 11 11 9E |.:."S1...'.."...|
00000570: 20 41 4E 4F 54 48 45 52 20 54 41 50 45 20 28 05 | ANOTHER TAPE (.|
00000580: 59 9E 2F 05 4E 9E 29 22 00 9B 0D 2C 01 A1 41 24 |Y./.N.)"...,..A$|
00000590: 3A 8B 41 24 B2 22 22 A7 33 30 30 00 B1 0D 31 01 |:.A$."".300...1.|
000005A0: 8B 41 24 B2 22 59 22 A7 52 31 B2 31 3A 89 31 30 |.A$."Y".R1.1:.10|
000005B0: 35 00 CA 0D 36 01 8B 41 24 B2 22 4E 22 A7 99 22 |5...6..A$."N".."|
000005C0: 93 22 3A 97 31 2C 35 35 3A 80 00 D3 0D 3B 01 89 |.":.1,55:....;..|
000005D0: 33 30 30 00 F4 0D 40 01 8F 20 20 20 20 20 20 2A |300...@.. *|
000005E0: 20 20 43 55 52 53 4F 52 20 54 52 41 4E 53 50 4F | CURSOR TRANSPO|
000005F0: 52 54 20 2A 00 03 0E 45 01 8B 44 B1 33 38 A7 44 |RT *...E..D.38.D|
00000600: B2 33 38 00 21 0E 4A 01 99 C8 28 43 44 24 2C 44 |.38.!.J...(CD$,D|
00000610: AA 31 29 3B 3A 99 C8 28 43 52 24 2C 52 29 3B 3A |.1);:..(CR$,R);:|
00000620: 8E 00 42 0E 4F 01 8F 20 20 20 20 20 20 2A 20 20 |..B.O.. * |
00000630: 54 4F 50 20 4C 49 4E 45 20 52 4F 55 54 49 4E 45 |TOP LINE ROUTINE|
00000640: 20 2A 00 54 0E 54 01 97 38 38 2C 30 3A 97 38 39 | *.T.T..88,0:.89|
00000650: 2C 31 39 32 00 66 0E 59 01 97 39 30 2C 30 3A 97 |,192.f.Y..90,0:.|
00000660: 39 31 2C 31 39 32 00 79 0E 5E 01 97 37 38 31 2C |91,192.y.^..781,|
00000670: 33 33 3A 97 37 38 32 2C 30 00 9C 0E 63 01 9E 34 |33:.782,0...c..4|
00000680: 31 39 36 34 20 20 20 20 20 20 20 20 20 20 20 20 |1964 |
00000690: 20 20 20 20 20 20 20 20 20 20 20 20 00 B0 0E 68 | ...h|
000006A0: 01 97 38 38 2C 32 35 34 3A 97 38 39 2C 32 35 35 |..88,254:.89,255|
000006B0: 00 CF 0E 6D 01 97 39 30 2C 32 35 34 3A 97 39 31 |...m..90,254:.91|
000006C0: 2C 32 35 35 20 20 20 20 20 20 20 20 20 20 20 00 |,255 .|
000006D0: EE 0E 72 01 97 37 38 31 2C 33 33 3A 97 37 38 32 |..r..781,33:.782|
000006E0: 2C 30 20 20 20 20 20 20 20 20 20 20 20 20 00 F9 |,0 ..|
000006F0: 0E 77 01 9E 34 31 39 36 34 00 0C 0F 7C 01 97 35 |.w..41964...|..5|
00000700: 39 36 33 39 2C 35 3A 97 31 2C 35 33 00 12 0F 81 |9639,5:.1,53....|
00000710: 01 8E 00 33 0F 86 01 8F 20 20 20 20 20 20 2A 20 |...3.... * |
00000720: 20 20 20 4F 4F 50 53 20 52 4F 55 54 49 4E 45 20 | OOPS ROUTINE |
00000730: 20 20 2A 00 4D 0F 8B 01 8B 46 4C B2 31 A7 4E 31 | *.M....FL.1.N1|
00000740: B2 4E 31 AB 31 3A 4E B2 4E AB 31 3A 8E 00 8E 0F |.N1.1:N.N.1:....|
00000750: 90 01 52 B2 31 3A 44 B2 4E 31 AA 34 3A 8D 33 32 |..R.1:D.N1.4:.32|
00000760: 30 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |0:." |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 BE | ";..|
00000790: 0F 95 01 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 E4 | "..|
000007C0: 0F 9A 01 4D 31 B2 4D 32 3A 53 31 B2 53 33 3A 4E |...M1.M2:S1.S3:N|
000007D0: 31 B2 4E 31 AB 32 3A 4E B2 4E AB 32 3A 3A 46 4C |1.N1.2:N.N.2::FL|
000007E0: B2 31 3A 8E 00 05 10 9F 01 8F 20 20 20 20 20 20 |.1:....... |
000007F0: 2A 20 20 20 20 20 50 52 49 4E 54 49 4E 47 20 20 |* PRINTING |
00000800: 20 20 20 20 2A 00 31 10 A4 01 99 22 93 11 1D 1D | *.1...."....|
00000810: 1D 1D 1D 1D 1D 1D 1D 9E 2A 1D 1D 05 43 41 53 53 |........*...CASS|
00000820: 45 54 54 45 1D 1D 45 44 49 54 4F 52 1D 1D 9E 2A |ETTE..EDITOR...*|
00000830: 22 00 53 10 A9 01 85 22 11 20 45 4E 54 45 52 20 |".S....". ENTER |
00000840: 50 52 49 4E 54 4F 55 54 20 54 49 54 4C 45 22 3B |PRINTOUT TITLE";|
00000850: 50 54 24 00 7F 10 AE 01 99 22 11 20 4C 49 4E 45 |PT$......". LINE|
00000860: 20 55 50 20 59 4F 55 52 20 50 52 49 4E 54 45 52 | UP YOUR PRINTER|
00000870: 20 5B 46 31 20 54 4F 20 47 4F 20 4F 4E 5D 22 00 | [F1 TO GO ON]".|
00000880: 92 10 B3 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 |.....A$:.A$."".4|
00000890: 33 35 00 A3 10 B8 01 8B 41 24 B3 B1 22 85 22 A7 |35......A$..".".|
000008A0: 34 33 35 00 AC 10 BD 01 9F 34 2C 34 00 C6 10 C2 |435......4,4....|
000008B0: 01 98 34 2C C7 28 31 34 29 50 54 24 C7 28 31 35 |..4,.(14)PT$.(15|
000008C0: 29 C7 28 31 30 29 00 E8 10 C7 01 98 34 2C 22 54 |).(10)......4,"T|
000008D0: 49 54 4C 45 22 C7 28 31 36 29 22 33 36 20 54 49 |ITLE".(16)"36 TI|
000008E0: 4D 45 22 C7 28 31 30 29 00 0A 11 CC 01 81 4C B2 |ME".(10)......L.|
000008F0: 31 A4 4E 3A 98 34 2C 54 24 28 4C 29 C7 28 31 36 |1.N:.4,T$(L).(16|
00000900: 29 22 33 35 22 4D 28 4C 29 3B 00 28 11 D1 01 98 |)"35"M(L);.(....|
00000910: 34 2C A6 33 AB C3 28 C4 28 4D 28 4C 29 29 29 29 |4,.3..(.(M(L))))|
00000920: 22 3A 22 3B 53 28 4C 29 00 2F 11 D6 01 82 4C 00 |":";S(L)./....L.|
00000930: 61 11 DB 01 98 34 2C C7 28 31 30 29 C7 28 31 36 |a....4,.(10).(16|
00000940: 29 22 31 35 54 4F 54 41 4C 20 54 49 4D 45 22 C7 |)"15TOTAL TIME".|
00000950: 28 31 36 29 22 33 35 22 4D 31 3B 22 3A 22 3B 53 |(16)"35"M1;":";S|
00000960: 31 00 6B 11 E0 01 98 34 3A A0 34 00 71 11 E5 01 |1.k....4:.4.q...|
00000970: 8E 00 92 11 EA 01 8F 20 20 20 20 20 20 2A 20 20 |....... * |
00000980: 20 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 20 | INSTRUCTIONS |
00000990: 20 2A 00 BC 11 EF 01 52 B2 31 31 3A 44 B2 31 38 | *.....R.11:D.18|
000009A0: 3A 8D 33 32 30 3A 99 22 49 4E 53 54 52 55 43 54 |:.320:."INSTRUCT|
000009B0: 49 4F 4E 53 20 20 5B 59 2F 4E 5D 22 00 CF 11 F4 |IONS [Y/N]"....|
000009C0: 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 30 30 00 |..A$:.A$."".500.|
000009D0: E0 11 F9 01 8B 41 24 B2 22 4E 22 A7 89 32 30 30 |.....A$."N"..200|
000009E0: 00 F0 11 FE 01 8B 41 24 B2 22 59 22 A7 35 32 30 |......A$."Y".520|
000009F0: 00 F9 11 03 02 89 35 30 30 00 2C 12 08 02 99 22 |......500.,...."|
00000A00: 93 11 11 11 20 05 43 41 53 53 45 54 54 45 20 45 |.... .CASSETTE E|
00000A10: 44 49 54 4F 52 9E 20 49 53 20 56 45 52 59 20 45 |DITOR. IS VERY E|
00000A20: 41 53 59 20 54 4F 20 55 53 45 2E 22 00 58 12 0D |ASY TO USE.".X..|
00000A30: 02 99 22 20 53 49 4D 50 4C 59 20 54 59 50 45 20 |.." SIMPLY TYPE |
00000A40: 54 48 45 20 54 49 54 4C 45 20 41 4E 44 20 4C 45 |THE TITLE AND LE|
00000A50: 4E 47 54 48 20 4F 46 22 00 84 12 12 02 99 22 20 |NGTH OF"......" |
00000A60: 54 48 45 20 53 4F 4E 47 53 20 59 4F 55 20 57 41 |THE SONGS YOU WA|
00000A70: 4E 54 20 54 4F 20 52 45 43 4F 52 44 2E A0 20 54 |NT TO RECORD.. T|
00000A80: 48 49 53 22 00 B1 12 17 02 99 22 20 50 52 4F 47 |HIS"......" PROG|
00000A90: 52 41 4D 20 57 49 4C 4C 20 4B 45 45 50 20 41 20 |RAM WILL KEEP A |
00000AA0: 52 55 4E 4E 49 4E 47 20 54 4F 54 41 4C 20 4F 46 |RUNNING TOTAL OF|
00000AB0: 22 00 DE 12 1C 02 99 22 20 54 48 45 20 54 41 50 |"......" THE TAP|
00000AC0: 45 2E 20 20 50 4C 45 41 53 45 20 4E 4F 54 45 20 |E. PLEASE NOTE |
00000AD0: 54 48 41 54 20 41 4C 4C 20 53 4F 4E 47 22 00 0B |THAT ALL SONG"..|
00000AE0: 13 21 02 99 22 20 4C 45 4E 47 54 48 53 20 4D 55 |.!.." LENGTHS MU|
00000AF0: 53 54 20 42 45 20 45 4E 54 45 52 45 44 A0 57 49 |ST BE ENTERED.WI|
00000B00: 54 48 20 41 20 43 4F 4D 4D 41 22 00 49 13 26 02 |TH A COMMA".I.&.|
00000B10: 99 22 20 49 4E 53 54 45 41 44 20 4F 46 20 41 20 |." INSTEAD OF A |
00000B20: 43 4F 4C 4F 4E 2E 20 20 59 4F 55 20 4D 41 59 20 |COLON. YOU MAY |
00000B30: 45 4E 54 45 52 20 55 50 20 20 20 54 4F 20 31 30 |ENTER UP TO 10|
00000B40: 30 20 53 4F 4E 47 53 2E 22 00 76 13 2B 02 99 22 |0 SONGS.".v.+.."|
00000B50: 11 11 20 54 59 50 45 20 41 4C 4C 20 43 4F 4D 4D |.. TYPE ALL COMM|
00000B60: 41 4E 44 53 20 41 53 20 41 A0 53 4F 4E 47 20 54 |ANDS AS A.SONG T|
00000B70: 49 54 4C 45 2E 22 00 A8 13 30 02 99 22 11 20 05 |ITLE."...0..". .|
00000B80: 45 4E 44 9E 20 20 20 4F 52 20 05 43 3D 20 41 4E |END. OR .C= AN|
00000B90: 44 20 45 9E 20 54 4F 20 45 4E 44 20 54 48 45 20 |D E. TO END THE |
00000BA0: 50 52 4F 47 52 41 4D 22 00 DA 13 35 02 99 22 20 |PROGRAM"...5.." |
00000BB0: 05 4F 4F 50 53 9E 20 20 4F 52 20 05 43 3D 20 41 |.OOPS. OR .C= A|
00000BC0: 4E 44 20 4F 9E 20 54 4F 20 47 4F 20 42 41 43 4B |ND O. TO GO BACK|
00000BD0: 20 4F 4E 45 20 53 4F 4E 47 22 00 07 14 3A 02 99 | ONE SONG"...:..|
00000BE0: 22 20 05 50 52 49 4E 54 9E 20 4F 52 20 05 43 3D |" .PRINT. OR .C=|
00000BF0: 20 41 4E 44 20 50 9E 20 46 4F 52 20 41 20 50 52 | AND P. FOR A PR|
00000C00: 49 4E 54 4F 55 54 22 00 35 14 3F 02 99 22 11 20 |INTOUT".5.?..". |
00000C10: 20 20 20 20 50 4C 45 41 53 45 20 50 52 45 53 53 | PLEASE PRESS|
00000C20: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00000C30: 49 4E 55 45 22 00 48 14 44 02 A1 41 24 3A 8B 41 |INUE".H.D..A$:.A|
00000C40: 24 B2 22 22 A7 35 38 30 00 51 14 49 02 89 32 30 |$."".580.Q.I..20|
00000C50: 35 00 70 14 60 EA 8F 20 20 20 20 2A 20 20 20 20 |5.p.`.. * |
00000C60: 53 41 56 45 20 52 4F 55 54 49 4E 45 20 20 20 2A |SAVE ROUTINE *|
00000C70: 00 93 14 65 EA 9F 31 35 2C 38 2C 31 35 2C 22 53 |...e..15,8,15,"S|
00000C80: 30 3A 43 41 53 53 45 54 54 45 20 45 44 49 54 4F |0:CASSETTE EDITO|
00000C90: 52 2E 22 00 C5 14 6A EA 98 31 35 2C 22 52 30 3A |R."...j..15,"R0:|
00000CA0: 43 41 53 53 45 54 54 45 20 45 44 49 54 4F 52 2E |CASSETTE EDITOR.|
00000CB0: 3D 43 41 53 53 45 54 54 45 20 45 44 49 54 4F 52 |=CASSETTE EDITOR|
00000CC0: 22 3A A0 31 35 00 DE 14 6F EA 94 22 43 41 53 53 |":.15...o.."CASS|
00000CD0: 45 54 54 45 20 45 44 49 54 4F 52 22 2C 38 00 E4 |ETTE EDITOR",8..|
00000CE0: 14 74 EA 80 00 00 00 |.t..... |
....D..T$(100),M(100),S(100).S.I.N.1:N1.
1:D.0:R.0:S1.0:M1.0:.53280,8:.53281,0:."
.";...N.CR$."...........................
............."...S.CD$."................
.........."...X..R1.1.200.B.}..335......
"...................................."..
...."...........}..CASSETTE..EDITOR.}".<
...."...........}.................}".B..
.."...........}..U`I..```..U`I..}"......
"...........} .}.}.}.B.Y.} }.}. }"......
"...........} .J`K..```..J`K .}".X. ..".
..........} .....BOB.LONG.....}"......".
..........}.................}".$...."...
........}...N.........M...}".J....".....
.......`````````````````.".[...TI$."0000
00".R....TI$.."000005".490......A$:.A$..
"".490...C..185...H.. * ENTRY ROU
TINE *...M.."............*...CASSETTE.
.EDITOR...*"...R..".............TOTAL .
"M1".:."S1./.W..".....TITLE.............
..........TIME".W...R.1:D.N1.5:.320:."..
"N;:."..";T$(N)......T$(N)."OOPS".T$(N).
".".T$(N)." ":.390:.265......T$(N)."PRIN
T".T$(N).".".T$(N)." ":N.N.1:.415:.285..
....T$(N)."END".T$(N).".".285.....R.30:D
.N1.5:.320:.".."N;:."..";M(N),S(N):FL.0.
0.... * DATA PROCESSING *.B...M2.
M1:S3.S1:M1.M1.M(N):S1.S1.S(N):S2..(S1.6
0).X....S2.0.M1.M1:S1.S1......S2.0.M1.M1
.S2:S1.S1.(.(S2.60)).Z...R.19:D.3:.320:.
" ........."M1".:."S1:N.N.1:N1.N1
.1......N1.17.220......N1.17..".";......
I(CD$,20):N1.17:.220.@...."............*
...CASSETTE..EDITOR...*".F.".."..... TOT
AL TIME IS ."M1".:."S1...'.."... ANOTHER
TAPE (.Y./.N.)"...,..A$:.A$."".300...1.
.A$."Y".R1.1:.105.J.6..A$."N"..".":.1,55
:..S.;..300...@.. * CURSOR TRANSPO
RT *...E..D.38.D.38.!.J..H(CD$,D.1);:.H(
CR$,R);:..B.O.. * TOP LINE ROUTINE
*.T.T..88,0:.89,192.F.Y..90,0:.91,192.Y
.^..781,33:.782,0...C..41964
...H..88,254:.89,255.O.M..90
,254:.91,255 ...R..781,33:.782
,0 ...W..41964...|..59639,5:.
1,53.......3.... * OOPS ROUTINE
*.M....FL.1.N1.N1.1:N.N.1:......R.1:D.
N1.4:.320:."
";......"
".....M1.M2:S1.S3:N
1.N1.2:N.N.2::FL.1:....... * PR
INTING *.1...."............*...CASS
ETTE..EDITOR...*".S....". ENTER PRINTOUT
TITLE";PT$.....". LINE UP YOUR PRINTER
[F1 TO GO ON]"......A$:.A$."".435......
A$..".".435......4,4.F.B..4,G(14)PT$G(15
)G(10)...G..4,"TITLE"G(16)"36 TIME"G(10)
...L..L.1.N:.4,T$(L)G(16)"35"M(L);.(.Q..
4,.3.C(D(M(L))))":";S(L)./.V..L.A....4,G
(10)G(16)"15TOTAL TIME"G(16)"35"M1;":";S
1.K....4: 4.Q.......... * INSTRU
CTIONS *.....R.11:D.18:.320:."INSTRUCT
IONS [Y/N]".O....A$:.A$."".500......A$.
"N"..200......A$."Y".520......500.,...."
.... .CASSETTE EDITOR. IS VERY EASY TO U
SE.".X...." SIMPLY TYPE THE TITLE AND LE
NGTH OF"......" THE SONGS YOU WANT TO RE
CORD. THIS"......" PROGRAM WILL KEEP A
RUNNING TOTAL OF"......" THE TAPE. PLEA
SE NOTE THAT ALL SONG"...!.." LENGTHS MU
ST BE ENTERED WITH A COMMA".I.&.." INSTE
AD OF A COLON. YOU MAY ENTER UP TO 10
0 SONGS.".V.+..".. TYPE ALL COMMANDS AS
A SONG TITLE."...0..". .END. OR .C= AN
D E. TO END THE PROGRAM".Z.5.." .OOPS.
OR .C= AND O. TO GO BACK ONE SONG"...:..
" .PRINT. OR .C= AND P. FOR A PRINTOUT".
5.?..". PLEASE PRESS ANY KEY TO CONT
INUE".H.D..A$:.A$."".580.Q.I..205.P.`..
* SAVE ROUTINE *...E..15,8,15,"S
0:CASSETTE EDITOR.".E.J..15,"R0:CASSETTE
EDITOR.=CASSETTE EDITOR": 15...O.."CASS
ETTE EDITOR",8...T.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL