SON OF LISTER

00000000: 01 08 2A 08 5A 00 8F 20  2A 2A 2A 2A 2A 2A 2A 20  |..*.Z.. ******* |
00000010: 4C 49 53 54 45 52 20 2E  2E 20 43 42 4D 2D 36 34  |LISTER .. CBM-64|
00000020: 20 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 4B 08 5F 00 97  | *********.K._..|
00000030: 35 33 32 38 30 2C 36 3A  97 35 33 32 38 31 2C 36  |53280,6:.53281,6|
00000040: 3A 99 22 93 22 C7 28 31  35 38 29 00 7B 08 64 00  |:.".".(158).{.d.|
00000050: 83 20 31 39 2C 31 34 37  2C 31 37 2C 31 34 35 2C  |. 19,147,17,145,|
00000060: 32 39 2C 31 35 37 2C 31  38 2C 31 34 36 2C 32 30  |29,157,18,146,20|
00000070: 2C 31 34 38 2C 31 34 31  2C 33 32 00 98 08 6E 00  |,148,141,32...n.|
00000080: 8F 20 38 30 2D 43 4F 4C  55 4D 4E 20 43 55 52 53  |. 80-COLUMN CURS|
00000090: 4F 52 20 53 54 55 46 46  00 C1 08 78 00 83 20 31  |OR STUFF...x.. 1|
000000A0: 32 39 2C 31 34 39 2C 31  35 30 2C 31 35 31 2C 31  |29,149,150,151,1|
000000B0: 35 32 2C 31 34 2C 31 34  32 2C 31 35 33 2C 31 35  |52,14,142,153,15|
000000C0: 34 00 CB 08 82 00 83 20  31 35 35 00 DB 08 8C 00  |4...... 155.....|
000000D0: 8F 20 56 49 43 20 53 54  55 46 46 00 FC 08 96 00  |. VIC STUFF.....|
000000E0: 83 20 31 34 34 2C 35 2C  32 38 2C 31 35 39 2C 31  |. 144,5,28,159,1|
000000F0: 35 36 2C 33 30 2C 33 31  2C 31 35 38 00 26 09 A0  |56,30,31,158.&..|
00000100: 00 83 20 38 2C 39 2C 31  33 33 2C 31 33 37 2C 31  |.. 8,9,133,137,1|
00000110: 33 34 2C 31 33 38 2C 31  33 35 2C 31 33 39 2C 31  |34,138,135,139,1|
00000120: 33 36 2C 31 34 30 00 6A  09 AA 00 83 20 48 4F 4D  |36,140.j.... HOM|
00000130: 45 2C 43 4C 45 41 52 2C  44 4F 57 4E 2C 55 50 2C  |E,CLEAR,DOWN,UP,|
00000140: 52 49 47 48 54 2C 4C 45  46 54 2C 52 56 53 2C 52  |RIGHT,LEFT,RVS,R|
00000150: 56 4F 46 46 2C 44 45 4C  2C 49 4E 53 54 2C 52 45  |VOFF,DEL,INST,RE|
00000160: 54 55 52 4E 2C 53 50 41  43 45 00 AB 09 B4 00 83  |TURN,SPACE......|
00000170: 20 4F 52 41 4E 47 45 2C  42 52 4F 57 4E 2C 4C 2E  | ORANGE,BROWN,L.|
00000180: 52 45 44 2C 47 52 41 59  31 2C 47 52 41 59 32 2C  |RED,GRAY1,GRAY2,|
00000190: 54 45 58 54 2C 47 52 41  50 48 49 43 2C 4C 2E 47  |TEXT,GRAPHIC,L.G|
000001A0: 52 45 45 4E 2C 4C 2E 42  4C 55 45 00 B7 09 BE 00  |REEN,L.BLUE.....|
000001B0: 83 20 47 52 41 59 33 00  EC 09 C8 00 83 20 42 4C  |. GRAY3...... BL|
000001C0: 41 43 4B 2C 57 48 49 54  45 2C 52 45 44 2C 43 59  |ACK,WHITE,RED,CY|
000001D0: 41 4E 2C 4D 41 47 45 4E  54 41 2C 47 52 45 45 4E  |AN,MAGENTA,GREEN|
000001E0: 2C 42 4C 55 45 2C 59 45  4C 4C 4F 57 00 16 0A D2  |,BLUE,YELLOW....|
000001F0: 00 83 20 4C 4F 43 4B 2C  55 4E 4C 4F 43 4B 2C 46  |.. LOCK,UNLOCK,F|
00000200: 31 2C 46 32 2C 46 33 2C  46 34 2C 46 35 2C 46 36  |1,F2,F3,F4,F5,F6|
00000210: 2C 46 37 2C 46 38 00 2F  0A DC 00 86 41 28 34 30  |,F7,F8./....A(40|
00000220: 29 2C 41 24 28 34 30 29  2C 4B 24 28 39 30 29 00  |),A$(40),K$(90).|
00000230: 44 0A E6 00 81 4A B2 30  A4 33 39 3A 87 41 28 4A  |D....J.0.39:.A(J|
00000240: 29 3A 82 4A 00 5A 0A F0  00 81 4A B2 30 A4 33 39  |):.J.Z....J.0.39|
00000250: 3A 87 41 24 28 4A 29 3A  82 4A 00 A6 0A FA 00 83  |:.A$(J):.J......|
00000260: 20 45 4E 44 2C 46 4F 52  2C 4E 45 58 54 2C 44 41  | END,FOR,NEXT,DA|
00000270: 54 41 2C 49 4E 50 55 54  23 2C 49 4E 50 55 54 2C  |TA,INPUT#,INPUT,|
00000280: 44 49 4D 2C 52 45 41 44  2C 4C 45 54 2C 47 4F 54  |DIM,READ,LET,GOT|
00000290: 4F 2C 52 55 4E 2C 49 46  2C 52 45 53 54 4F 52 45  |O,RUN,IF,RESTORE|
000002A0: 2C 47 4F 53 55 42 00 F0  0A 04 01 83 20 52 45 54  |,GOSUB...... RET|
000002B0: 55 52 4E 2C 52 45 4D 2C  53 54 4F 50 2C 4F 4E 2C  |URN,REM,STOP,ON,|
000002C0: 57 41 49 54 2C 4C 4F 41  44 2C 53 41 56 45 2C 56  |WAIT,LOAD,SAVE,V|
000002D0: 45 52 49 46 59 2C 44 45  46 2C 50 4F 4B 45 2C 50  |ERIFY,DEF,POKE,P|
000002E0: 52 49 4E 54 23 2C 50 52  49 4E 54 2C 43 4F 4E 54  |RINT#,PRINT,CONT|
000002F0: 00 38 0B 0E 01 83 20 4C  49 53 54 2C 43 4C 52 2C  |.8.... LIST,CLR,|
00000300: 43 4D 44 2C 53 59 53 2C  4F 50 45 4E 2C 43 4C 4F  |CMD,SYS,OPEN,CLO|
00000310: 53 45 2C 47 45 54 2C 4E  45 57 2C 54 41 42 28 2C  |SE,GET,NEW,TAB(,|
00000320: 54 4F 2C 46 4E 2C 53 50  43 28 2C 54 48 45 4E 2C  |TO,FN,SPC(,THEN,|
00000330: 4E 4F 54 2C 53 54 45 50  00 81 0B 18 01 83 20 2B  |NOT,STEP...... +|
00000340: 2C 2D 2C 2A 2C 2F 2C 5E  2C 41 4E 44 2C 4F 52 2C  |,-,*,/,^,AND,OR,|
00000350: 3E 2C 3D 2C 3C 2C 53 47  4E 2C 49 4E 54 2C 41 42  |>,=,<,SGN,INT,AB|
00000360: 53 2C 55 53 52 2C 46 52  45 2C 50 4F 53 2C 53 51  |S,USR,FRE,POS,SQ|
00000370: 52 2C 52 4E 44 2C 4C 4F  47 2C 45 58 50 2C 43 4F  |R,RND,LOG,EXP,CO|
00000380: 53 00 CA 0B 22 01 83 20  53 49 4E 2C 54 41 4E 2C  |S...".. SIN,TAN,|
00000390: 41 54 4E 2C 50 45 45 4B  2C 4C 45 4E 2C 53 54 52  |ATN,PEEK,LEN,STR|
000003A0: 24 2C 56 41 4C 2C 41 53  43 2C 43 48 52 24 2C 4C  |$,VAL,ASC,CHR$,L|
000003B0: 45 46 54 24 2C 52 49 47  48 54 24 2C 4D 49 44 24  |EFT$,RIGHT$,MID$|
000003C0: 2C 47 4F 2C 43 4F 4E 43  41 54 00 12 0C 2C 01 83  |,GO,CONCAT...,..|
000003D0: 20 44 4F 50 45 4E 2C 44  43 4C 4F 53 45 2C 52 45  | DOPEN,DCLOSE,RE|
000003E0: 43 4F 52 44 2C 48 45 41  44 45 52 2C 43 4F 4C 4C  |CORD,HEADER,COLL|
000003F0: 45 43 54 2C 42 41 43 4B  55 50 2C 43 4F 50 59 2C  |ECT,BACKUP,COPY,|
00000400: 41 50 50 45 4E 44 2C 44  53 41 56 45 2C 44 4C 4F  |APPEND,DSAVE,DLO|
00000410: 41 44 00 39 0C 36 01 83  20 43 41 54 41 4C 4F 47  |AD.9.6.. CATALOG|
00000420: 2C 52 45 4E 41 4D 45 2C  53 43 52 41 54 43 48 2C  |,RENAME,SCRATCH,|
00000430: 44 49 52 45 43 54 4F 52  59 00 4F 0C 40 01 81 4A  |DIRECTORY.O.@..J|
00000440: B2 30 A4 39 30 3A 87 4B  24 28 4A 29 3A 82 4A 00  |.0.90:.K$(J):.J.|
00000450: 72 0C 90 01 A0 31 3A 85  22 11 4E 41 4D 45 20 4F  |r....1:.".NAME O|
00000460: 46 20 50 52 4F 47 52 41  4D 20 46 49 4C 45 22 3B  |F PROGRAM FILE";|
00000470: 47 24 00 87 0C 9A 01 9F  31 2C 38 2C 33 2C 47 24  |G$......1,8,3,G$|
00000480: AA 22 2C 50 2C 52 22 00  95 0C A4 01 A1 23 31 2C  |.",P,R"......#1,|
00000490: 41 24 2C 42 24 00 AE 0C  AE 01 8B 41 24 B3 B1 C7  |A$,B$......A$...|
000004A0: 28 31 29 AF 41 24 B3 B1  22 22 89 34 30 30 00 C8  |(1).A$.."".400..|
000004B0: 0C B8 01 8B 41 24 B2 22  22 A7 41 24 B2 C7 28 31  |....A$."".A$..(1|
000004C0: 29 3A A1 23 31 2C 58 24  00 EA 0C C2 01 85 22 4C  |):.#1,X$......"L|
000004D0: 49 4E 45 20 4E 55 4D 42  45 52 20 52 41 4E 47 45  |INE NUMBER RANGE|
000004E0: 20 20 2D 9D 9D 9D 22 3B  5A 24 00 FF 0C CC 01 4C  |  -...";Z$.....L|
000004F0: 30 B2 30 3A 4C 31 B2 30  3A 4C 32 B2 31 45 39 00  |0.0:L1.0:L2.1E9.|
00000500: 1B 0D D6 01 81 4A B2 31  A4 C3 28 5A 24 29 3A 59  |.....J.1..(Z$):Y|
00000510: 24 B2 CA 28 5A 24 2C 4A  2C 31 29 00 38 0D E0 01  |$..(Z$,J,1).8...|
00000520: 59 B2 C6 28 59 24 29 3A  8B 59 B1 B2 34 38 AF 59  |Y..(Y$):.Y..48.Y|
00000530: B3 B2 35 37 89 35 31 30  00 46 0D EA 01 8B 59 B2  |..57.510.F....Y.|
00000540: 33 32 89 35 31 30 00 5A  0D F4 01 4C 30 B2 4A 3A  |32.510.Z...L0.J:|
00000550: 8B 59 B3 B1 34 35 89 36  30 30 00 61 0D FE 01 82  |.Y..45.600.a....|
00000560: 4A 00 8D 0D 08 02 8B 4C  30 B3 C3 28 5A 24 29 A7  |J......L0..(Z$).|
00000570: 4C 32 B2 C5 28 CA 28 5A  24 2C 4C 30 AA 31 29 29  |L2..(.(Z$,L0.1))|
00000580: 3A 8B 4C 32 B2 30 A7 4C  32 B2 31 45 39 00 A0 0D  |:.L2.0.L2.1E9...|
00000590: 12 02 8B 4C 30 B1 31 A7  4C 31 B2 C5 28 5A 24 29  |...L0.1.L1..(Z$)|
000005A0: 00 B0 0D 1C 02 8B 4C 30  B2 30 A7 4C 31 B2 4C 32  |......L0.0.L1.L2|
000005B0: 00 E0 0D 58 02 50 33 24  B2 22 5B 22 3A 50 34 24  |...X.P3$."[":P4$|
000005C0: B2 22 5D 22 3A 85 22 4C  49 53 54 20 54 4F 20 50  |."]":."LIST TO P|
000005D0: 52 49 4E 54 45 52 20 20  4E 9D 9D 9D 22 3B 5A 24  |RINTER  N...";Z$|
000005E0: 00 13 0E 62 02 50 B2 33  3A 8B C6 28 5A 24 29 B2  |...b.P.3:..(Z$).|
000005F0: 38 39 A7 50 B2 34 3A 4C  24 B2 22 11 22 3A 50 33  |89.P.4:L$.".":P3|
00000600: 24 B2 C7 28 32 31 39 29  3A 50 34 24 B2 C7 28 32  |$..(219):P4$..(2|
00000610: 32 31 29 00 45 0E 6C 02  50 31 24 B2 22 5B 22 3A  |21).E.l.P1$."[":|
00000620: 50 32 24 B2 22 5D 22 3A  85 22 47 52 41 50 48 49  |P2$."]":."GRAPHI|
00000630: 43 53 20 4F 52 20 54 45  58 54 20 20 47 20 9D 9D  |CS OR TEXT  G ..|
00000640: 9D 22 3B 5A 24 00 7A 0E  76 02 99 C7 28 31 34 32  |.";Z$.z.v...(142|
00000650: 29 3B 3A 8B C6 28 5A 24  29 B2 38 34 A7 99 C7 28  |);:..(Z$).84...(|
00000660: 31 34 29 3B 3A 4D 24 B2  4C 24 3A 50 31 24 B2 50  |14);:M$.L$:P1$.P|
00000670: 33 24 3A 50 32 24 B2 50  34 24 00 A0 0E 80 02 85  |3$:P2$.P4$......|
00000680: 22 54 52 41 4E 53 4C 41  54 45 20 43 55 53 4F 52  |"TRANSLATE CUSOR|
00000690: 20 4D 4F 56 45 53 20 20  4E 9D 9D 9D 22 3B 5A 24  | MOVES  N...";Z$|
000006A0: 00 B3 0E 8A 02 8B C6 28  5A 24 29 B2 38 39 A7 54  |.......(Z$).89.T|
000006B0: 37 B2 31 00 C3 0E 94 02  9F 34 2C 50 3A 46 24 B2  |7.1......4,P:F$.|
000006C0: 50 31 24 00 D6 0E 9E 02  4A B2 38 30 3A 8B 50 B3  |P1$.....J.80:.P.|
000006D0: B1 33 89 36 39 30 00 EA  0E A8 02 99 22 93 22 3A  |.3.690......".":|
000006E0: 4A B2 C2 28 32 31 33 29  AA 31 00 06 0F B2 02 4C  |J..(213).1.....L|
000006F0: 39 B2 4A 3A 98 34 2C 22  50 52 4F 47 52 41 4D 3A  |9.J:.4,"PROGRAM:|
00000700: 20 20 22 3B 47 24 00 15  0F BC 02 8F 20 4E 45 57  |  ";G$...... NEW|
00000710: 20 4C 49 4E 45 00 44 0F  C6 02 8D 32 30 31 30 3A  | LINE.D....2010:|
00000720: 51 B2 30 3A 54 31 B2 31  3A 43 31 B2 AB 31 3A A1  |Q.0:T1.1:C1..1:.|
00000730: 23 31 2C 41 24 2C 42 24  3A 8B 53 54 B3 B1 30 89  |#1,A$,B$:.ST..0.|
00000740: 33 30 30 30 00 54 0F D0  02 8B 42 24 B2 22 22 89  |3000.T....B$."".|
00000750: 33 30 30 30 00 62 0F DA  02 A1 23 31 2C 41 24 2C  |3000.b....#1,A$,|
00000760: 42 24 00 82 0F E4 02 4C  B2 C6 28 41 24 AA C7 28  |B$.....L..(A$..(|
00000770: 30 29 29 AA C6 28 42 24  AA C7 28 30 29 29 AC 32  |0))..(B$..(0)).2|
00000780: 35 36 00 91 0F EE 02 8B  4C B3 4C 31 89 31 30 38  |56......L.L1.108|
00000790: 30 00 A0 0F F8 02 8B 4C  B1 4C 32 89 33 30 30 30  |0......L.L2.3000|
000007A0: 00 BE 0F 02 03 46 32 B2  31 3A 98 34 2C 4D 24 3B  |.....F2.1:.4,M$;|
000007B0: 50 24 3A 50 24 B2 C4 28  4C 29 AA 22 20 22 00 D4  |P$:P$..(L)." "..|
000007C0: 0F 20 03 8F 20 53 54 41  52 54 20 54 45 58 54 20  |. .. START TEXT |
000007D0: 48 45 52 45 00 EA 0F 2A  03 A1 23 31 2C 41 24 3A  |HERE...*..#1,A$:|
000007E0: 8B 41 24 B2 22 22 89 37  31 30 00 0B 10 34 03 54  |.A$."".710...4.T|
000007F0: B2 30 3A 41 B2 C6 28 41  24 29 3A 8B 41 B2 33 32  |.0:A..(A$):.A.32|
00000800: AF 46 24 B2 22 2C 22 89  38 34 30 00 28 10 3E 03  |.F$.",".840.(.>.|
00000810: 8B 51 B2 30 B0 28 41 AF  31 32 37 29 B1 33 31 B0  |.Q.0.(A.127).31.|
00000820: 54 37 B2 30 89 39 30 30  00 4A 10 48 03 81 4A B2  |T7.0.900.J.H..J.|
00000830: 30 A4 34 30 3A 8B 41 B2  41 28 4A 29 A7 42 24 B2  |0.40:.A.A(J).B$.|
00000840: 41 24 28 4A 29 3A 89 38  36 30 00 57 10 52 03 82  |A$(J):.860.W.R..|
00000850: 4A 3A 89 31 30 30 30 00  6E 10 5C 03 8B 42 24 B2  |J:.1000.n.\..B$.|
00000860: 42 31 24 A7 42 B2 42 AA  31 3A 89 38 31 30 00 91  |B1$.B.B.1:.810..|
00000870: 10 66 03 8B 42 B1 30 A7  41 24 B2 CA 28 C4 28 42  |.f..B.0.A$..(.(B|
00000880: AA 31 29 2C 32 29 AA 46  24 AA 42 24 3A 89 38 39  |.1),2).F$.B$:.89|
00000890: 30 00 9E 10 70 03 41 24  B2 46 24 AA 42 24 00 BF  |0...p.A$.F$.B$..|
000008A0: 10 7A 03 42 B2 30 3A 42  31 24 B2 42 24 3A 46 24  |.z.B.0:B1$.B$:F$|
000008B0: B2 22 2C 22 3A 46 31 B2  31 3A 89 31 30 31 30 00  |.",":F1.1:.1010.|
000008C0: DA 10 84 03 41 B2 41 AB  31 32 38 3A 8B 41 B3 30  |....A.A.128:.A.0|
000008D0: B0 51 B3 B1 30 89 31 30  30 30 00 F2 10 8E 03 8B  |.Q..0.1000......|
000008E0: 41 B2 31 32 37 A7 41 24  B2 22 FF 22 3A 89 31 30  |A.127.A$.".":.10|
000008F0: 30 30 00 03 11 98 03 54  B2 31 3A 41 24 B2 4B 24  |00.....T.1:A$.K$|
00000900: 28 41 29 00 11 11 A2 03  8B 41 B2 31 35 A7 51 B2  |(A)......A.15.Q.|
00000910: 32 00 1B 11 E8 03 8D 32  30 31 30 00 2F 11 F2 03  |2......2010./...|
00000920: 8B 41 24 B2 C7 28 33 34  29 A7 51 B2 31 AB 51 00  |.A$..(34).Q.1.Q.|
00000930: 4B 11 FC 03 8F 20 43 3D  2D 31 20 46 4F 52 20 41  |K.... C=-1 FOR A|
00000940: 4C 50 48 41 4E 55 4D 45  52 49 43 00 76 11 06 04  |LPHANUMERIC.v...|
00000950: 43 B2 C6 28 C8 28 41 24  2C 31 29 29 3A 43 B2 28  |C..(.(A$,1)):C.(|
00000960: 43 B3 34 38 B0 43 B1 35  37 29 AF 28 43 B3 36 35  |C.48.C.57).(C.65|
00000970: B0 43 B1 39 30 29 00 A2  11 10 04 8B 54 B3 B1 54  |.C.90)......T..T|
00000980: 31 B0 54 B2 31 A7 54 31  B2 54 3A 8B A8 43 AF A8  |1.T.1.T1.T:..C..|
00000990: 43 31 A7 50 24 B2 50 24  AA 22 20 22 3A 8D 32 35  |C1.P$.P$." ":.25|
000009A0: 30 30 00 D5 11 1A 04 43  B2 C6 28 C9 28 41 24 2C  |00.....C..(.(A$,|
000009B0: 31 29 29 3A 43 31 B2 28  28 43 B3 34 38 B0 43 B1  |1)):C1.((C.48.C.|
000009C0: 35 37 29 AF 28 43 B3 36  35 B0 43 B1 39 30 29 29  |57).(C.65.C.90))|
000009D0: B0 41 B2 33 37 00 E8 11  24 04 50 24 B2 50 24 AA  |.A.37...$.P$.P$.|
000009E0: 41 24 3A 8D 32 35 30 30  00 F1 11 2E 04 89 38 31  |A$:.2500......81|
000009F0: 30 00 09 12 38 04 8F 20  53 4B 49 50 20 54 4F 20  |0...8.. SKIP TO |
00000A00: 4E 45 58 54 20 4C 49 4E  45 00 1F 12 42 04 A1 23  |NEXT LINE...B..#|
00000A10: 31 2C 41 24 3A 8B 41 24  B2 22 22 89 37 31 30 00  |1,A$:.A$."".710.|
00000A20: 29 12 4C 04 89 31 30 39  30 00 4B 12 D0 07 8F 20  |).L..1090.K.... |
00000A30: 43 4C 4F 53 45 20 4F 46  46 20 43 55 52 53 4F 52  |CLOSE OFF CURSOR|
00000A40: 20 45 58 50 52 45 53 53  49 4F 4E 00 5A 12 DA 07  | EXPRESSION.Z...|
00000A50: 8B 46 31 B2 30 89 32 30  34 30 00 7B 12 E4 07 8B  |.F1.0.2040.{....|
00000A60: 42 B1 30 A7 50 24 B2 50  24 AA CA 28 C4 28 42 AA  |B.0.P$.P$..(.(B.|
00000A70: 31 29 2C 32 29 3A 8D 32  35 30 30 00 A6 12 EE 07  |1),2):.2500.....|
00000A80: 42 B2 30 3A 46 31 B2 30  3A 42 31 24 B2 22 22 3A  |B.0:F1.0:B1$."":|
00000A90: 50 24 B2 50 24 AA 50 32  24 3A 8D 32 35 30 30 3A  |P$.P$.P2$:.2500:|
00000AA0: 46 24 B2 50 31 24 00 AC  12 F8 07 8E 00 BF 12 C4  |F$.P1$..........|
00000AB0: 09 8B C3 28 50 24 29 B3  4C 39 89 32 36 30 30 00  |...(P$).L9.2600.|
00000AC0: D2 12 CE 09 81 4A B2 4C  39 A4 4C 39 AC 2E 36 A9  |.....J.L9.L9..6.|
00000AD0: AB 31 00 EA 12 D8 09 8B  CA 28 50 24 2C 4A 2C 31  |.1.......(P$,J,1|
00000AE0: 29 B2 22 3A 22 89 32 35  38 30 00 02 13 E2 09 82  |).":".2580......|
00000AF0: 4A 3A 81 4A B2 4C 39 A4  4C 39 AC 2E 36 AB 31 A9  |J:.J.L9.L9..6.1.|
00000B00: AB 31 00 13 13 EC 09 50  B2 C6 28 CA 28 50 24 2C  |.1.....P..(.(P$,|
00000B10: 4A 29 29 00 22 13 F6 09  8B 50 B2 39 31 89 32 35  |J))."....P.91.25|
00000B20: 38 30 00 42 13 00 0A 8B  50 B2 35 39 B0 50 B2 34  |80.B....P.59.P.4|
00000B30: 34 B0 50 B2 39 33 A7 4A  B2 4A AA 31 3A 89 32 35  |4.P.93.J.J.1:.25|
00000B40: 38 30 00 50 13 0A 0A 82  4A 3A 4A B2 4C 39 AB 31  |80.P....J:J.L9.1|
00000B50: 00 64 13 14 0A 98 34 2C  4D 24 3B C8 28 50 24 2C  |.d....4,M$;.(P$,|
00000B60: 4A AB 31 29 00 7A 13 1E  0A 50 24 B2 22 20 20 20  |J.1).z...P$."   |
00000B70: 20 22 AA CA 28 50 24 2C  4A 29 00 80 13 28 0A 8E  | "..(P$,J)...(..|
00000B80: 00 9B 13 B8 0B 8B C3 28  50 24 29 B1 30 A7 46 32  |.......(P$).0.F2|
00000B90: B2 31 3A 98 34 2C 4D 24  3B 50 24 00 BD 13 C2 0B  |.1:.4,M$;P$.....|
00000BA0: 8B 46 32 B2 30 A7 99 22  2A 2A 20 4E 4F 20 4C 49  |.F2.0.."** NO LI|
00000BB0: 4E 45 53 20 46 4F 55 4E  44 20 2A 2A 22 00 CD 13  |NES FOUND **"...|
00000BC0: CC 0B A0 31 3A 8D 32 30  30 30 3A A0 34 00 FC 13  |...1:.2000:.4...|
00000BD0: 0F 27 8F 20 2A 2A 20 53  4F 55 52 43 45 20 3A 20  |.'. ** SOURCE : |
00000BE0: 43 4F 4D 50 55 54 45 20  44 45 43 20 31 39 38 33  |COMPUTE DEC 1983|
00000BF0: 20 50 41 47 45 20 33 32  32 20 2A 2A 00 00 00 20  | PAGE 322 **... |
00000C00: 00 EC 8E                                          |...             |

..*.Z.. ******* LISTER .. CBM-64 *******
**.K._..53280,6:.53281,6:."."G(158).{.D.
. 19,147,17,145,29,157,18,146,20,148,141
,32...N.. 80-COLUMN CURSOR STUFF.A.X.. 1
29,149,150,151,152,14,142,153,154.K.... 
155...... VIC STUFF...... 144,5,28,159,1
56,30,31,158.&. .. 8,9,133,137,134,138,1
35,139,136,140.J.... HOME,CLEAR,DOWN,UP,
RIGHT,LEFT,RVS,RVOFF,DEL,INST,RETURN,SPA
CE...... ORANGE,BROWN,L.RED,GRAY1,GRAY2,
TEXT,GRAPHIC,L.GREEN,L.BLUE...... GRAY3.
..H.. BLACK,WHITE,RED,CYAN,MAGENTA,GREEN
,BLUE,YELLOW...R.. LOCK,UNLOCK,F1,F2,F3,
F4,F5,F6,F7,F8./....A(40),A$(40),K$(90).
D....J.0.39:.A(J):.J.Z....J.0.39:.A$(J):
.J...... END,FOR,NEXT,DATA,INPUT#,INPUT,
DIM,READ,LET,GOTO,RUN,IF,RESTORE,GOSUB..
.... RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,V
ERIFY,DEF,POKE,PRINT#,PRINT,CONT.8.... L
IST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,
TO,FN,SPC(,THEN,NOT,STEP...... +,-,*,/,^
,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQ
R,RND,LOG,EXP,COS.J.".. SIN,TAN,ATN,PEEK
,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$
,GO,CONCAT...,.. DOPEN,DCLOSE,RECORD,HEA
DER,COLLECT,BACKUP,COPY,APPEND,DSAVE,DLO
AD.9.6.. CATALOG,RENAME,SCRATCH,DIRECTOR
Y.O.@..J.0.90:.K$(J):.J.R... 1:.".NAME O
F PROGRAM FILE";G$......1,8,3,G$.",P,R".
.....#1,A$,B$......A$..G(1).A$.."".400.H
....A$."".A$.G(1):.#1,X$...B.."LINE NUMB
ER RANGE  -...";Z$...L.L0.0:L1.0:L2.1E9.
..V..J.1.C(Z$):Y$.J(Z$,J,1).8...Y.F(Y$):
.Y..48.Y..57.510.F....Y.32.510.Z...L0.J:
.Y..45.600.A....J......L0.C(Z$).L2.E(J(Z
$,L0.1)):.L2.0.L2.1E9. ....L0.1.L1.E(Z$)
......L0.0.L1.L2...X.P3$."[":P4$."]":."L
IST TO PRINTER  N...";Z$...B.P.3:.F(Z$).
89.P.4:L$.".":P3$.G(219):P4$.G(221).E.L.
P1$."[":P2$."]":."GRAPHICS OR TEXT  G ..
.";Z$.Z.V..G(142);:.F(Z$).84..G(14);:M$.
L$:P1$.P3$:P2$.P4$. ...."TRANSLATE CUSOR
 MOVES  N...";Z$......F(Z$).89.T7.1.C...
.4,P:F$.P1$.V...J.80:.P..3.690......".":
J.B(213).1.....L9.J:.4,"PROGRAM:  ";G$..
.... NEW LINE.D.F..2010:Q.0:T1.1:C1..1:.
#1,A$,B$:.ST..0.3000.T.P..B$."".3000.B.Z
..#1,A$,B$.....L.F(A$.G(0)).F(B$.G(0)).2
56......L.L1.1080. ....L.L2.3000.....F2.
1:.4,M$;P$:P$.D(L)." ".T. .. START TEXT 
HERE...*..#1,A$:.A$."".710...4.T.0:A.F(A
$):.A.32.F$.",".840.(.>..Q.0.(A.127).31.
T7.0.900.J.H..J.0.40:.A.A(J).B$.A$(J):.8
60.W.R..J:.1000.N.\..B$.B1$.B.B.1:.810..
.F..B.0.A$.J(D(B.1),2).F$.B$:.890...P.A$
.F$.B$...Z.B.0:B1$.B$:F$.",":F1.1:.1010.
Z...A.A.128:.A.0.Q..0.1000......A.127.A$
.".":.1000.....T.1:A$.K$(A)......A.15.Q.
2......2010./....A$.G(34).Q.1.Q.K.... C=
-1 FOR ALPHANUMERIC.V...C.F(H(A$,1)):C.(
C.48.C.57).(C.65.C.90)......T..T1.T.1.T1
.T:..C..C1.P$.P$." ":.2500.U...C.F(I(A$,
1)):C1.((C.48.C.57).(C.65.C.90)).A.37...
$.P$.P$.A$:.2500......810...8.. SKIP TO 
NEXT LINE...B..#1,A$:.A$."".710.).L..109
0.K.P.. CLOSE OFF CURSOR EXPRESSION.Z.Z.
.F1.0.2040.{....B.0.P$.P$.J(D(B.1),2):.2
500.....B.0:F1.0:B1$."":P$.P$.P2$:.2500:
F$.P1$.........D..C(P$).L9.2600.R.N..J.L
9.L9..6..1...X..J(P$,J,1).":".2580......
J:.J.L9.L9..6.1..1.....P.F(J(P$,J))."...
.P.91.2580.B....P.59.P.44.P.93.J.J.1:.25
80.P....J:J.L9.1.D....4,M$;H(P$,J.1).Z..
.P$."    ".J(P$,J)...(........C(P$).0.F2
.1:.4,M$;P$...B..F2.0.."** NO LINES FOUN
D **".M.L. 1:.2000: 4....'. ** SOURCE : 
COMPUTE DEC 1983 PAGE 322 **... ...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL