00000000: 01 1C 55 1C 0A 00 F9 31 2C C7 28 31 33 33 29 3A |..U....1,.(133):|
00000010: F9 33 2C C7 28 31 33 34 29 3A F9 35 2C C7 28 31 |.3,.(134):.5,.(1|
00000020: 33 35 29 3A F9 37 2C C7 28 31 33 36 29 3A F9 32 |35):.7,.(136):.2|
00000030: 2C C7 28 31 33 37 29 3A F9 34 2C C7 28 31 33 38 |,.(137):.4,.(138|
00000040: 29 3A F9 36 2C C7 28 31 33 39 29 3A F9 38 2C C7 |):.6,.(139):.8,.|
00000050: 28 31 34 30 29 00 7D 1C 14 00 99 C7 28 31 34 29 |(140).}.....(14)|
00000060: 22 93 11 11 11 11 11 22 A3 31 32 29 22 D3 45 51 |"......".12)".EQ|
00000070: 55 45 4E 54 49 41 4C 20 C6 49 4C 45 22 00 A5 1C |UENTIAL .ILE"...|
00000080: 1E 00 99 A3 31 32 29 22 11 11 D2 45 41 44 45 52 |....12)"...EADER|
00000090: 2F D0 52 49 4E 54 45 52 22 3A 99 A3 31 38 29 22 |/.RINTER":..18)"|
000000A0: 11 11 42 59 22 00 BE 1C 28 00 99 A3 31 33 29 22 |..BY"...(...13)"|
000000B0: 11 D2 4F 47 45 52 20 C2 2E 20 C6 52 59 22 00 DA |..OGER .. .RY"..|
000000C0: 1C 2A 00 99 A3 31 33 29 22 11 11 11 C3 31 32 38 |.*...13)"....128|
000000D0: 20 CD 4F 44 53 20 42 59 11 22 00 F0 1C 2B 00 99 | .ODS BY."...+..|
000000E0: A3 31 34 29 22 D0 41 55 4C 20 C8 55 4C 53 45 22 |.14)".AUL .ULSE"|
000000F0: 00 00 1D 2C 00 81 58 B2 31 A4 32 30 30 30 3A 82 |...,..X.1.2000:.|
00000100: 00 09 1D 2E 00 8D 38 30 30 00 36 1D 32 00 99 22 |......800.6.2.."|
00000110: 93 22 C7 28 31 34 29 22 12 4F 50 54 49 4F 4E 53 |.".(14)".OPTIONS|
00000120: 3A 92 22 3A 99 22 11 46 31 20 3D 20 44 49 52 45 |:.":.".F1 = DIRE|
00000130: 43 54 4F 52 59 22 00 61 1D 3C 00 99 22 11 46 33 |CTORY".a.<..".F3|
00000140: 20 3D 20 53 43 52 45 45 4E 20 4F 4E 4C 59 22 3A | = SCREEN ONLY":|
00000150: 99 22 11 46 35 20 3D 20 48 41 52 44 43 4F 50 59 |.".F5 = HARDCOPY|
00000160: 22 00 7D 1D 46 00 99 22 11 46 37 20 3D 20 4B 49 |".}.F..".F7 = KI|
00000170: 4C 4C 20 44 49 53 4B 20 46 49 4C 45 22 00 9F 1D |LL DISK FILE"...|
00000180: 50 00 A1 F9 20 4B 24 3A 8B 4B 24 B3 C7 28 31 33 |P... K$:.K$..(13|
00000190: 33 29 B0 4B 24 B1 C7 28 31 33 36 29 A7 38 30 00 |3).K$..(136).80.|
000001A0: B2 1D 5A 00 8B 4B 24 B2 C7 28 31 33 36 29 A7 35 |..Z..K$..(136).5|
000001B0: 37 30 00 C5 1D 64 00 8B 4B 24 B1 C7 28 31 33 33 |70...d..K$..(133|
000001C0: 29 A7 33 31 30 00 EF 1D 6E 00 99 22 93 12 44 49 |).310...n.."..DI|
000001D0: 52 45 43 54 4F 52 59 92 11 11 22 3A 99 22 46 31 |RECTORY...":."F1|
000001E0: 20 3D 20 53 43 52 45 45 4E 20 4F 4E 4C 59 22 00 | = SCREEN ONLY".|
000001F0: 22 1E 78 00 99 22 11 46 33 20 3D 20 48 41 52 44 |".x..".F3 = HARD|
00000200: 43 4F 50 59 22 3A 99 22 11 46 35 20 3D 20 43 41 |COPY":.".F5 = CA|
00000210: 4E 43 45 4C 20 46 55 4E 43 54 49 4F 4E 22 3A 50 |NCEL FUNCTION":P|
00000220: B2 30 00 45 1E 82 00 A1 F9 20 4B 24 3A 8B 4B 24 |.0.E..... K$:.K$|
00000230: B3 C7 28 31 33 33 29 B0 4B 24 B1 C7 28 31 33 35 |..(133).K$..(135|
00000240: 29 A7 31 33 30 00 57 1E 8C 00 8B 4B 24 B2 C7 28 |).130.W....K$..(|
00000250: 31 33 35 29 A7 35 30 00 6A 1E 96 00 8B 4B 24 B2 |135).50.j....K$.|
00000260: C7 28 31 33 33 29 A7 32 36 30 00 99 1E A0 00 9F |.(133).260......|
00000270: 34 2C 34 3A 98 34 3A 98 34 2C C7 28 31 34 29 22 |4,4:.4:.4,.(14)"|
00000280: 44 49 52 45 43 54 4F 52 59 22 C7 28 31 35 29 3A |DIRECTORY".(15):|
00000290: 98 34 3A 98 34 3A 50 B2 31 00 CF 1E AA 00 99 22 |.4:.4:P.1......"|
000002A0: 93 12 44 49 52 45 43 54 4F 52 59 92 22 3A 99 3A |..DIRECTORY.":.:|
000002B0: 99 3A 9F 31 2C 38 2C 30 2C 22 24 30 22 3A A1 23 |.:.1,8,0,"$0":.#|
000002C0: 31 2C 41 24 2C 42 24 3A 4E 24 B2 C7 28 30 29 00 |1,A$,B$:N$..(0).|
000002D0: E8 1E B4 00 A1 23 31 2C 41 24 2C 42 24 3A 8B 42 |.....#1,A$,B$:.B|
000002E0: 24 B2 22 22 A7 32 38 30 00 0E 1F BE 00 A1 23 31 |$."".280......#1|
000002F0: 2C 41 24 2C 42 24 3A 99 C6 28 41 24 AA 4E 24 29 |,A$,B$:..(A$.N$)|
00000300: AA 32 35 36 AC C6 28 42 24 AA 4E 24 29 3B 00 31 |.256..(B$.N$);.1|
00000310: 1F C8 00 8B 50 B2 31 A7 98 34 2C C6 28 41 24 AA |....P.1..4,.(A$.|
00000320: 4E 24 29 AA 32 35 36 AC C6 28 42 24 AA 4E 24 29 |N$).256..(B$.N$)|
00000330: 3B 00 47 1F D2 00 A1 23 31 2C 41 24 3A 8B 41 24 |;.G....#1,A$:.A$|
00000340: B2 22 22 A7 32 34 30 00 57 1F DC 00 8B 50 B2 31 |."".240.W....P.1|
00000350: A7 98 34 2C 41 24 3B 00 65 1F E6 00 99 41 24 3B |..4,A$;.e....A$;|
00000360: 3A 89 32 31 30 00 73 1F F0 00 99 3A 8B 50 B2 31 |:.210.s....:.P.1|
00000370: A7 98 34 00 7C 1F FA 00 89 31 38 30 00 82 1F 04 |..4.|....180....|
00000380: 01 EE 00 A3 1F 0E 01 99 22 11 11 D0 52 45 53 53 |........"...RESS|
00000390: 20 C1 4E 59 20 CB 45 59 22 3A A1 F9 20 4B 24 3A | .NY .EY":.. K$:|
000003A0: 89 35 30 00 BD 1F 18 01 8B 50 B2 31 A7 81 58 B2 |.50......P.1..X.|
000003B0: 31 A4 37 3A 98 34 3A 82 58 3A 50 B2 30 00 E7 1F |1.7:.4:.X:P.0...|
000003C0: 22 01 99 3A 99 22 50 52 45 53 53 20 41 4E 59 20 |"..:."PRESS ANY |
000003D0: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |KEY TO CONTINUE.|
000003E0: 22 3A A0 31 3A A0 34 00 F0 1F 2C 01 A1 F9 4B 24 |":.1:.4...,...K$|
000003F0: 00 12 20 36 01 9F 31 2C 34 2C 37 3A 4C B2 31 3A |.. 6..1,4,7:L.1:|
00000400: 50 B2 30 3A 8B 4B 24 B2 C7 28 31 33 35 29 A7 50 |P.0:.K$..(135).P|
00000410: B2 31 00 35 20 40 01 99 22 93 12 C9 20 4E 45 45 |.1.5 @.."... NEE|
00000420: 44 20 41 20 46 49 4C 45 4E 41 4D 45 3A 92 20 22 |D A FILENAME:. "|
00000430: 3B 3A 85 46 24 00 4F 20 4A 01 9F 38 2C 38 2C 38 |;:.F$.O J..8,8,8|
00000440: 2C 46 24 AA 22 2C 53 2C 52 22 3A 8D 37 32 30 00 |,F$.",S,R":.720.|
00000450: 70 20 54 01 99 22 93 12 50 52 45 53 53 20 41 4E |p T.."..PRESS AN|
00000460: 59 20 4B 45 59 20 54 4F 20 50 41 55 53 45 92 22 |Y KEY TO PAUSE."|
00000470: 00 AC 20 59 01 99 22 11 11 D0 52 45 53 53 20 27 |.. Y.."...RESS '|
00000480: CE CF 20 D3 C3 D2 CF CC CC 27 20 54 4F 20 D0 41 |.. ......' TO .A|
00000490: 55 53 45 20 57 49 54 48 4F 55 54 20 C3 C8 CF C9 |USE WITHOUT ....|
000004A0: C3 C5 D3 20 CD C5 D3 D3 C1 C7 C5 22 00 C6 20 5E |... .......".. ^|
000004B0: 01 99 3A 99 3A 99 A3 31 30 29 22 12 22 46 24 22 |..:.:..10)"."F$"|
000004C0: 92 22 3A 99 3A 99 00 F4 20 68 01 8B 50 B2 31 A7 |.":.:... h..P.1.|
000004D0: 98 31 2C C7 28 31 34 35 29 C7 28 31 34 29 46 24 |.1,.(145).(14)F$|
000004E0: C7 28 31 35 29 C7 28 31 37 29 3A 98 31 3A 98 31 |.(15).(17):.1:.1|
000004F0: 3A 4C B2 34 00 00 21 72 01 A1 23 38 2C 43 48 24 |:L.4..!r..#8,CH$|
00000500: 00 15 21 86 01 99 43 48 24 3B 3A 8B 53 54 B3 B1 |..!...CH$;:.ST..|
00000510: 30 A7 35 31 30 00 3C 21 90 01 8B 50 B2 31 A7 98 |0.510.<!...P.1..|
00000520: 31 2C 43 48 24 3B 3A 8B 43 48 24 B2 C7 28 31 33 |1,CH$;:.CH$..(13|
00000530: 29 A7 4C B2 4C AA 31 3A 8D 37 35 30 00 4F 21 9A |).L.L.1:.750.O!.|
00000540: 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 33 37 30 00 |..K$:.K$."".370.|
00000550: 80 21 A4 01 99 3A 81 58 B2 31 A4 33 39 3A 99 22 |.!...:.X.1.39:."|
00000560: 2A 22 3B 3A 82 58 3A 99 3A 99 22 12 50 41 55 53 |*";:.X:.:.".PAUS|
00000570: 45 20 49 53 20 49 4E 20 45 46 46 45 43 54 92 22 |E IS IN EFFECT."|
00000580: 00 B7 21 AE 01 99 22 4F 50 54 49 4F 4E 53 3A 22 |..!..."OPTIONS:"|
00000590: 3A 99 22 46 31 20 3D 20 50 52 49 4E 54 45 52 20 |:."F1 = PRINTER |
000005A0: 4F 4E 22 3A 99 22 46 33 20 3D 20 50 52 49 4E 54 |ON":."F3 = PRINT|
000005B0: 45 52 20 4F 46 46 22 00 EE 21 B8 01 99 22 46 35 |ER OFF"..!..."F5|
000005C0: 20 3D 20 41 42 4F 52 54 20 4F 50 45 52 41 54 49 | = ABORT OPERATI|
000005D0: 4F 4E 22 3A 99 22 46 37 20 3D 20 43 4F 4E 54 49 |ON":."F7 = CONTI|
000005E0: 4E 55 45 20 55 4E 43 48 41 4E 47 45 44 22 00 11 |NUE UNCHANGED"..|
000005F0: 22 C2 01 A1 F9 20 4B 24 3A 8B 4B 24 B3 C7 28 31 |".... K$:.K$..(1|
00000600: 33 33 29 B0 4B 24 B1 C7 28 31 33 36 29 A7 34 35 |33).K$..(136).45|
00000610: 30 00 3C 22 CC 01 8B 4B 24 B2 C7 28 31 33 33 29 |0.<"...K$..(133)|
00000620: A7 50 B2 31 3A 98 31 2C C7 28 31 37 29 3A 98 31 |.P.1:.1,.(17):.1|
00000630: 3A 98 31 3A 4C B2 33 3A 89 34 39 30 00 54 22 D6 |:.1:L.3:.490.T".|
00000640: 01 8B 4B 24 B2 C7 28 31 33 34 29 A7 50 B2 30 3A |..K$..(134).P.0:|
00000650: 89 34 39 30 00 67 22 E0 01 8B 4B 24 B2 C7 28 31 |.490.g"...K$..(1|
00000660: 33 35 29 A7 35 30 30 00 92 22 EA 01 99 22 12 43 |35).500.."...".C|
00000670: 4F 4E 54 49 4E 55 49 4E 47 92 22 3A 81 58 B2 31 |ONTINUING.":.X.1|
00000680: A4 33 39 3A 99 22 2A 22 3B 3A 82 3A 99 3A 89 33 |.39:."*";:.:.:.3|
00000690: 37 30 00 BF 22 F4 01 99 22 93 11 11 11 11 11 22 |70.."..."......"|
000006A0: A3 31 31 29 C7 28 31 34 32 29 22 12 4F 50 45 52 |.11).(142)".OPER|
000006B0: 41 54 49 4F 4E 20 41 42 4F 52 54 45 44 92 22 00 |ATION ABORTED.".|
000006C0: E5 22 FE 01 8B 50 B2 31 A7 98 31 3A 81 58 B2 4C |."...P.1..1:.X.L|
000006D0: AA 32 A4 36 36 3A 98 31 3A 82 58 3A 98 31 2C C7 |.2.66:.1:.X:.1,.|
000006E0: 28 31 34 35 29 00 EE 22 08 02 99 44 53 24 00 2F |(145).."...DS$./|
000006F0: 23 12 02 A0 31 3A A0 38 3A 99 3A 99 C7 28 31 34 |#...1:.8:.:..(14|
00000700: 29 22 11 11 C4 4F 20 59 4F 55 20 57 49 53 48 20 |)"...O YOU WISH |
00000710: 54 4F 20 52 45 41 44 22 3A 99 22 41 4E 4F 54 48 |TO READ":."ANOTH|
00000720: 45 52 20 46 49 4C 45 3F 20 28 59 2F 4E 29 22 00 |ER FILE? (Y/N)".|
00000730: 47 23 1C 02 A1 F9 20 4B 24 3A 8B 4B 24 B2 22 59 |G#.... K$:.K$."Y|
00000740: 22 A7 9C 3A 89 35 30 00 58 23 26 02 8B 4B 24 B3 |"..:.50.X#&..K$.|
00000750: B1 22 4E 22 A7 35 34 30 00 61 23 30 02 89 39 30 |."N".540.a#0..90|
00000760: 30 00 72 23 3A 02 99 C7 28 31 34 32 29 3A 8D 37 |0.r#:...(142):.7|
00000770: 37 30 00 A6 23 44 02 99 22 11 11 11 54 59 50 45 |70..#D.."...TYPE|
00000780: 20 49 4E 20 54 48 45 20 20 46 49 4C 45 4E 41 4D | IN THE FILENAM|
00000790: 45 20 20 54 4F 20 42 45 20 20 53 43 52 41 54 43 |E TO BE SCRATC|
000007A0: 48 45 44 20 22 3B 00 D6 23 4E 02 99 22 4F 52 20 |HED ";..#N.."OR |
000007B0: 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 |PRESS RETURN TO |
000007C0: 41 42 4F 52 54 20 54 48 45 20 46 55 4E 43 54 49 |ABORT THE FUNCTI|
000007D0: 4F 4E 2E 11 11 22 00 EE 23 58 02 99 22 12 46 49 |ON..."..#X..".FI|
000007E0: 4C 45 4E 41 4D 45 3A 92 22 3B 3A 85 46 24 00 FD |LENAME:.";:.F$..|
000007F0: 23 62 02 8B 46 24 B2 22 22 A7 36 36 30 00 38 24 |#b..F$."".660.8$|
00000800: 6C 02 8D 37 37 30 3A 99 22 11 11 4C 41 53 54 20 |l..770:."..LAST |
00000810: 43 48 41 4E 43 45 21 22 3A 99 22 11 11 44 4F 20 |CHANCE!":."..DO |
00000820: 59 4F 55 20 52 45 41 4C 4C 59 20 57 49 53 48 20 |YOU REALLY WISH |
00000830: 54 4F 20 4B 49 4C 4C 22 00 5B 24 76 02 99 22 11 |TO KILL".[$v..".|
00000840: 54 48 45 20 20 12 20 22 46 24 22 20 92 20 20 46 |THE . "F$" . F|
00000850: 49 4C 45 3F 20 28 59 2F 4E 29 22 00 70 24 80 02 |ILE? (Y/N)".p$..|
00000860: A1 F9 20 4B 24 3A 8B 4B 24 B2 22 22 A7 36 34 30 |.. K$:.K$."".640|
00000870: 00 80 24 8A 02 8B 4B 24 B2 22 59 22 A7 36 37 30 |..$...K$."Y".670|
00000880: 00 90 24 94 02 99 C7 28 31 34 29 3A 89 35 30 30 |..$....(14):.500|
00000890: 00 A9 24 9E 02 8D 37 37 30 3A 99 22 11 11 4B 49 |..$...770:."..KI|
000008A0: 4C 4C 49 4E 47 20 22 46 24 00 C7 24 A8 02 A0 31 |LLING "F$..$...1|
000008B0: 35 3A 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 |5:.15,8,15:.15,"|
000008C0: 53 30 3A 22 AA 46 24 00 DC 24 B2 02 81 58 B2 31 |S0:".F$..$...X.1|
000008D0: A4 32 30 30 30 3A 82 58 3A A0 31 35 00 FD 24 BC |.2000:.X:.15..$.|
000008E0: 02 8D 37 37 30 3A 99 22 11 11 22 46 24 22 20 49 |..770:.".."F$" I|
000008F0: 53 20 4E 4F 57 20 44 45 41 44 21 21 22 00 19 25 |S NOW DEAD!!"..%|
00000900: C6 02 81 58 B2 31 A4 32 30 30 30 3A 82 58 3A 99 |...X.1.2000:.X:.|
00000910: C7 28 31 34 29 3A 89 35 30 00 48 25 D0 02 8B 44 |.(14):.50.H%...D|
00000920: 53 B1 30 A7 99 3A 99 22 54 48 45 52 45 20 49 53 |S.0..:."THERE IS|
00000930: 20 41 20 44 49 53 4B 20 45 52 52 4F 52 22 3A 99 | A DISK ERROR":.|
00000940: 44 53 24 3A 89 35 33 30 00 77 25 DA 02 8B 44 53 |DS$:.530.w%...DS|
00000950: B1 30 A7 99 3A 99 22 54 48 45 52 45 20 49 53 20 |.0..:."THERE IS |
00000960: 41 20 44 49 53 4B 20 45 52 52 4F 52 22 3A 99 44 |A DISK ERROR":.D|
00000970: 53 24 3A 89 35 33 30 00 7D 25 E4 02 8E 00 98 25 |S$:.530.}%.....%|
00000980: EE 02 8B 4C B2 36 30 A7 4C B2 31 3A 81 58 B2 31 |...L.60.L.1:.X.1|
00000990: A4 37 3A 98 31 3A 82 58 00 9E 25 F8 02 8E 00 C8 |.7:.1:.X..%.....|
000009A0: 25 02 03 99 22 93 11 11 11 11 11 22 A3 38 29 22 |%..."......".8)"|
000009B0: 12 4B 49 4C 4C 20 46 55 4E 43 54 49 4F 4E 20 41 |.KILL FUNCTION A|
000009C0: 43 54 49 56 45 20 92 22 00 CE 25 0C 03 8E 00 FF |CTIVE ."..%.....|
000009D0: 25 20 03 99 22 93 11 11 11 11 11 1D 1D 1D 1D 1D |% .."...........|
000009E0: 1D 1D 1D 12 34 92 30 20 43 4F 4C 55 4D 53 20 4F |....4.0 COLUMS O|
000009F0: 52 20 12 38 92 30 20 43 4F 4C 55 4D 4E 53 3F 00 |R .8.0 COLUMNS?.|
00000A00: 27 26 25 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D |'&%.."..........|
00000A10: 1D 1D 1D 1D 1D D3 45 4C 45 43 54 20 12 34 92 20 |......ELECT .4. |
00000A20: 4F 52 20 12 38 92 22 00 31 26 2A 03 A1 F9 20 4B |OR .8.".1&*... K|
00000A30: 24 00 89 26 34 03 8B 4B 24 B2 22 34 22 A7 99 22 |$..&4..K$."4".."|
00000A40: 93 11 11 22 3A 81 58 B2 31 A4 31 30 3A 99 22 2A |...":.X.1.10:."*|
00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 34 30 20 |************ 40 |
00000A60: 43 4F 4C 55 4D 4E 53 20 2A 2A 2A 2A 2A 2A 2A 2A |COLUMNS ********|
00000A70: 2A 2A 2A 2A 2A 2A 2A 91 22 3A 82 3A 81 58 B2 31 |*******.":.:.X.1|
00000A80: A4 31 35 30 30 3A 82 3A 8E 00 9A 26 3E 03 8B 4B |.1500:.:...&>..K|
00000A90: 24 B3 B1 22 38 22 A7 38 31 30 00 A6 26 48 03 99 |$.."8".810..&H..|
00000AA0: 22 93 22 3A FE 25 00 B2 26 52 03 81 58 B2 31 A4 |".":.%..&R..X.1.|
00000AB0: 32 30 00 0B 27 5C 03 99 22 38 30 20 43 4F 4C 55 |20..'\.."80 COLU|
00000AC0: 4D 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 38 30 20 |MN ********* 80 |
00000AD0: 43 4F 4C 55 4D 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |COLUMN *********|
00000AE0: 20 38 30 20 43 4F 4C 55 4D 4E 20 2A 2A 2A 2A 2A | 80 COLUMN *****|
00000AF0: 2A 2A 2A 2A 20 38 30 20 43 4F 4C 55 4D 4D 20 2A |**** 80 COLUMM *|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 91 22 00 11 27 66 03 |*********."..'f.|
00000B10: 82 00 21 27 70 03 81 58 B2 31 A4 34 30 30 30 3A |..!'p..X.1.4000:|
00000B20: 82 00 27 27 7A 03 8E 00 A0 27 84 03 F9 31 2C 22 |..''z....'...1,"|
00000B30: 47 52 41 50 48 49 43 22 3A F9 32 2C 22 44 4C 4F |GRAPHIC":.2,"DLO|
00000B40: 41 44 22 AA C7 28 33 34 29 3A F9 33 2C 22 44 49 |AD"..(34):.3,"DI|
00000B50: 52 45 43 54 4F 52 59 22 AA C7 28 31 33 29 3A F9 |RECTORY"..(13):.|
00000B60: 34 2C 22 53 43 4E 43 4C 52 22 AA C7 28 31 33 29 |4,"SCNCLR"..(13)|
00000B70: 3A F9 35 2C 22 44 53 41 56 45 22 AA C7 28 33 34 |:.5,"DSAVE"..(34|
00000B80: 29 3A F9 36 2C 22 52 55 4E 22 AA C7 28 31 33 29 |):.6,"RUN"..(13)|
00000B90: 3A F9 37 2C 22 4C 49 53 54 22 AA C7 28 31 33 29 |:.7,"LIST"..(13)|
00000BA0: 00 BA 27 8E 03 F9 38 2C 22 4D 4F 4E 49 54 4F 52 |..'...8,"MONITOR|
00000BB0: 22 AA C7 28 31 33 29 3A FE 26 00 00 00 |"..(13):.&... |
..U....1,G(133):.3,G(134):.5,G(135):.7,G
(136):.2,G(137):.4,G(138):.6,G(139):.8,G
(140).}....G(14)"......".12)"SEQUENTIAL
FILE".......12)"..READER/PRINTER":..18)"
..BY"...(...13)".ROGER B. FRY".Z.*...13)
"...C128 MODS BY."...+...14)"PAUL HULSE"
...,..X.1.2000:.......800.6.2.."."G(14)"
.OPTIONS:.":.".F1 = DIRECTORY".A.<..".F3
= SCREEN ONLY":.".F5 = HARDCOPY".}.F.."
.F7 = KILL DISK FILE"...P... K$:.K$.G(13
3).K$.G(136).80...Z..K$.G(136).570.E.D..
K$.G(133).310...N.."..DIRECTORY...":."F1
= SCREEN ONLY".".X..".F3 = HARDCOPY":."
.F5 = CANCEL FUNCTION":P.0.E..... K$:.K$
.G(133).K$.G(135).130.W....K$.G(135).50.
J....K$.G(133).260... ..4,4:.4:.4,G(14)"
DIRECTORY"G(15):.4:.4:P.1.O...."..DIRECT
ORY.":.:.:.1,8,0,"$0":.#1,A$,B$:N$.G(0).
.....#1,A$,B$:.B$."".280......#1,A$,B$:.
F(A$.N$).256.F(B$.N$);.1.H..P.1..4,F(A$.
N$).256.F(B$.N$);.G.R..#1,A$:.A$."".240.
W....P.1..4,A$;.E....A$;:.210.S....:.P.1
..4.|....180............"..PRESS ANY KEY
":.. K$:.50......P.1..X.1.7:.4:.X:P.0...
"..:."PRESS ANY KEY TO CONTINUE.": 1: 4.
..,...K$.. 6..1,4,7:L.1:P.0:.K$.G(135).P
.1.5 @.."..I NEED A FILENAME:. ";:.F$.O
J..8,8,8,F$.",S,R":.720.P T.."..PRESS AN
Y KEY TO PAUSE.".. Y.."..PRESS 'NO SCROL
L' TO PAUSE WITHOUT CHOICES MESSAGE".F ^
..:.:..10)"."F$".":.:... H..P.1..1,G(145
)G(14)F$G(15)G(17):.1:.1:L.4..!R..#8,CH$
..!...CH$;:.ST..0.510.<!...P.1..1,CH$;:.
CH$.G(13).L.L.1:.750.O!...K$:.K$."".370.
.!...:.X.1.39:."*";:.X:.:.".PAUSE IS IN
EFFECT."..!..."OPTIONS:":."F1 = PRINTER
ON":."F3 = PRINTER OFF"..!..."F5 = ABORT
OPERATION":."F7 = CONTINUE UNCHANGED"..
"B... K$:.K$.G(133).K$.G(136).450.<"L..K
$.G(133).P.1:.1,G(17):.1:.1:L.3:.490.T"V
..K$.G(134).P.0:.490.G"...K$.G(135).500.
."...".CONTINUING.":.X.1.39:."*";:.:.:.3
70.."..."......".11)G(142)".OPERATION AB
ORTED.".."...P.1..1:.X.L.2.66:.1:.X:.1,G
(145).."...DS$./#.. 1: 8:.:.G(14)"..DO Y
OU WISH TO READ":."ANOTHER FILE? (Y/N)".
G#.... K$:.K$."Y"..:.50.X#&..K$.."N".540
.A#0..900.R#:..G(142):.770..#D.."...TYPE
IN THE FILENAME TO BE SCRATCHED ";.V
#N.."OR PRESS RETURN TO ABORT THE FUNCTI
ON..."..#X..".FILENAME:.";:.F$..#B..F$."
".660.8$L..770:."..LAST CHANCE!":."..DO
YOU REALLY WISH TO KILL".[$V..".THE . "
F$" . FILE? (Y/N)".P$.... K$:.K$."".640
..$...K$."Y".670..$...G(14):.500..$...77
0:."..KILLING "F$.G$.. 15:.15,8,15:.15,"
S0:".F$..$...X.1.2000:.X: 15..$...770:."
.."F$" IS NOW DEAD!!"..%F..X.1.2000:.X:.
G(14):.50.H%P..DS.0..:."THERE IS A DISK
ERROR":.DS$:.530.W%Z..DS.0..:."THERE IS
A DISK ERROR":.DS$:.530.}%.....%...L.60.
L.1:.X.1.7:.1:.X..%....H%..."......".8)"
.KILL FUNCTION ACTIVE .".N%.....% .."...
............4.0 COLUMS OR .8.0 COLUMNS?.
'&%.."...............SELECT .4. OR .8.".
1&*... K$..&4..K$."4".."...":.X.1.10:."*
************ 40 COLUMNS ***************.
":.:.X.1.1500:.:...&>..K$.."8".810..&H..
".":.%..&R..X.1.20..'\.."80 COLUMN *****
**** 80 COLUMN ********* 80 COLUMN *****
**** 80 COLUMM **********."..'F...!'P..X
.1.4000:..''Z... '...1,"GRAPHIC":.2,"DLO
AD".G(34):.3,"DIRECTORY".G(13):.4,"SCNCL
R".G(13):.5,"DSAVE".G(34):.6,"RUN".G(13)
:.7,"LIST".G(13)..'...8,"MONITOR".G(13):
.&...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL