LISTER 2.C

00000000: 01 04 28 08 5A 00 8F 20  4C 49 53 54 45 52 2E 2E  |..(.Z.. LISTER..|
00000010: 56 49 43 2F 36 34 20 20  20 4A 49 4D 20 42 55 54  |VIC/64   JIM BUT|
00000020: 54 45 52 46 49 45 4C 44  00 58 08 64 00 83 20 31  |TERFIELD.X.d.. 1|
00000030: 39 2C 31 34 37 2C 31 37  2C 31 34 35 2C 32 39 2C  |9,147,17,145,29,|
00000040: 31 35 37 2C 31 38 2C 31  34 36 2C 32 30 2C 31 34  |157,18,146,20,14|
00000050: 38 2C 31 34 31 2C 33 32  00 75 08 6E 00 8F 20 38  |8,141,32.u.n.. 8|
00000060: 30 2D 43 4F 4C 55 4D 4E  20 43 55 52 53 4F 52 20  |0-COLUMN CURSOR |
00000070: 53 54 55 46 46 00 9E 08  78 00 83 20 31 32 39 2C  |STUFF...x.. 129,|
00000080: 31 34 39 2C 31 35 30 2C  31 35 31 2C 31 35 32 2C  |149,150,151,152,|
00000090: 31 34 2C 31 34 32 2C 31  35 33 2C 31 35 34 00 A8  |14,142,153,154..|
000000A0: 08 82 00 83 20 31 35 35  00 B8 08 8C 00 8F 20 56  |.... 155...... V|
000000B0: 49 43 20 53 54 55 46 46  00 D9 08 96 00 83 20 31  |IC STUFF...... 1|
000000C0: 34 34 2C 35 2C 32 38 2C  31 35 39 2C 31 35 36 2C  |44,5,28,159,156,|
000000D0: 33 30 2C 33 31 2C 31 35  38 00 03 09 A0 00 83 20  |30,31,158...... |
000000E0: 38 2C 39 2C 31 33 33 2C  31 33 37 2C 31 33 34 2C  |8,9,133,137,134,|
000000F0: 31 33 38 2C 31 33 35 2C  31 33 39 2C 31 33 36 2C  |138,135,139,136,|
00000100: 31 34 30 00 47 09 AA 00  83 20 48 4F 4D 45 2C 43  |140.G.... HOME,C|
00000110: 4C 45 41 52 2C 44 4F 57  4E 2C 55 50 2C 52 49 47  |LEAR,DOWN,UP,RIG|
00000120: 48 54 2C 4C 45 46 54 2C  52 56 53 2C 52 56 4F 46  |HT,LEFT,RVS,RVOF|
00000130: 46 2C 44 45 4C 2C 49 4E  53 54 2C 52 45 54 55 52  |F,DEL,INST,RETUR|
00000140: 4E 2C 53 50 41 43 45 00  88 09 B4 00 83 20 4F 52  |N,SPACE...... OR|
00000150: 41 4E 47 45 2C 42 52 4F  57 4E 2C 4C 2E 52 45 44  |ANGE,BROWN,L.RED|
00000160: 2C 47 52 41 59 31 2C 47  52 41 59 32 2C 54 45 58  |,GRAY1,GRAY2,TEX|
00000170: 54 2C 47 52 41 50 48 49  43 2C 4C 2E 47 52 45 45  |T,GRAPHIC,L.GREE|
00000180: 4E 2C 4C 2E 42 4C 55 45  00 94 09 BE 00 83 20 47  |N,L.BLUE...... G|
00000190: 52 41 59 33 00 C9 09 C8  00 83 20 42 4C 41 43 4B  |RAY3...... BLACK|
000001A0: 2C 57 48 49 54 45 2C 52  45 44 2C 43 59 41 4E 2C  |,WHITE,RED,CYAN,|
000001B0: 4D 41 47 45 4E 54 41 2C  47 52 45 45 4E 2C 42 4C  |MAGENTA,GREEN,BL|
000001C0: 55 45 2C 59 45 4C 4C 4F  57 00 F3 09 D2 00 83 20  |UE,YELLOW...... |
000001D0: 4C 4F 43 4B 2C 55 4E 4C  4F 43 4B 2C 46 31 2C 46  |LOCK,UNLOCK,F1,F|
000001E0: 32 2C 46 33 2C 46 34 2C  46 35 2C 46 36 2C 46 37  |2,F3,F4,F5,F6,F7|
000001F0: 2C 46 38 00 0C 0A DC 00  86 41 28 34 30 29 2C 41  |,F8......A(40),A|
00000200: 24 28 34 30 29 2C 4B 24  28 39 30 29 00 21 0A E6  |$(40),K$(90).!..|
00000210: 00 81 4A B2 30 A4 33 39  3A 87 41 28 4A 29 3A 82  |..J.0.39:.A(J):.|
00000220: 4A 00 37 0A F0 00 81 4A  B2 30 A4 33 39 3A 87 41  |J.7....J.0.39:.A|
00000230: 24 28 4A 29 3A 82 4A 00  83 0A FA 00 83 20 45 4E  |$(J):.J...... EN|
00000240: 44 2C 46 4F 52 2C 4E 45  58 54 2C 44 41 54 41 2C  |D,FOR,NEXT,DATA,|
00000250: 49 4E 50 55 54 23 2C 49  4E 50 55 54 2C 44 49 4D  |INPUT#,INPUT,DIM|
00000260: 2C 52 45 41 44 2C 4C 45  54 2C 47 4F 54 4F 2C 52  |,READ,LET,GOTO,R|
00000270: 55 4E 2C 49 46 2C 52 45  53 54 4F 52 45 2C 47 4F  |UN,IF,RESTORE,GO|
00000280: 53 55 42 00 CD 0A 04 01  83 20 52 45 54 55 52 4E  |SUB...... RETURN|
00000290: 2C 52 45 4D 2C 53 54 4F  50 2C 4F 4E 2C 57 41 49  |,REM,STOP,ON,WAI|
000002A0: 54 2C 4C 4F 41 44 2C 53  41 56 45 2C 56 45 52 49  |T,LOAD,SAVE,VERI|
000002B0: 46 59 2C 44 45 46 2C 50  4F 4B 45 2C 50 52 49 4E  |FY,DEF,POKE,PRIN|
000002C0: 54 23 2C 50 52 49 4E 54  2C 43 4F 4E 54 00 15 0B  |T#,PRINT,CONT...|
000002D0: 0E 01 83 20 4C 49 53 54  2C 43 4C 52 2C 43 4D 44  |... LIST,CLR,CMD|
000002E0: 2C 53 59 53 2C 4F 50 45  4E 2C 43 4C 4F 53 45 2C  |,SYS,OPEN,CLOSE,|
000002F0: 47 45 54 2C 4E 45 57 2C  54 41 42 28 2C 54 4F 2C  |GET,NEW,TAB(,TO,|
00000300: 46 4E 2C 53 50 43 28 2C  54 48 45 4E 2C 4E 4F 54  |FN,SPC(,THEN,NOT|
00000310: 2C 53 54 45 50 00 5E 0B  18 01 83 20 2B 2C 2D 2C  |,STEP.^.... +,-,|
00000320: 2A 2C 2F 2C 5E 2C 41 4E  44 2C 4F 52 2C 3E 2C 3D  |*,/,^,AND,OR,>,=|
00000330: 2C 3C 2C 53 47 4E 2C 49  4E 54 2C 41 42 53 2C 55  |,<,SGN,INT,ABS,U|
00000340: 53 52 2C 46 52 45 2C 50  4F 53 2C 53 51 52 2C 52  |SR,FRE,POS,SQR,R|
00000350: 4E 44 2C 4C 4F 47 2C 45  58 50 2C 43 4F 53 00 A7  |ND,LOG,EXP,COS..|
00000360: 0B 22 01 83 20 53 49 4E  2C 54 41 4E 2C 41 54 4E  |.".. SIN,TAN,ATN|
00000370: 2C 50 45 45 4B 2C 4C 45  4E 2C 53 54 52 24 2C 56  |,PEEK,LEN,STR$,V|
00000380: 41 4C 2C 41 53 43 2C 43  48 52 24 2C 4C 45 46 54  |AL,ASC,CHR$,LEFT|
00000390: 24 2C 52 49 47 48 54 24  2C 4D 49 44 24 2C 47 4F  |$,RIGHT$,MID$,GO|
000003A0: 2C 43 4F 4E 43 41 54 00  EF 0B 2C 01 83 20 44 4F  |,CONCAT...,.. DO|
000003B0: 50 45 4E 2C 44 43 4C 4F  53 45 2C 52 45 43 4F 52  |PEN,DCLOSE,RECOR|
000003C0: 44 2C 48 45 41 44 45 52  2C 43 4F 4C 4C 45 43 54  |D,HEADER,COLLECT|
000003D0: 2C 42 41 43 4B 55 50 2C  43 4F 50 59 2C 41 50 50  |,BACKUP,COPY,APP|
000003E0: 45 4E 44 2C 44 53 41 56  45 2C 44 4C 4F 41 44 00  |END,DSAVE,DLOAD.|
000003F0: 16 0C 36 01 83 20 43 41  54 41 4C 4F 47 2C 52 45  |..6.. CATALOG,RE|
00000400: 4E 41 4D 45 2C 53 43 52  41 54 43 48 2C 44 49 52  |NAME,SCRATCH,DIR|
00000410: 45 43 54 4F 52 59 00 2C  0C 40 01 81 4A B2 30 A4  |ECTORY.,.@..J.0.|
00000420: 39 30 3A 87 4B 24 28 4A  29 3A 82 4A 00 4E 0C 90  |90:.K$(J):.J.N..|
00000430: 01 A0 31 3A 85 22 4E 41  4D 45 20 4F 46 20 50 52  |..1:."NAME OF PR|
00000440: 4F 47 52 41 4D 20 46 49  4C 45 22 3B 47 24 00 64  |OGRAM FILE";G$.d|
00000450: 0C 9A 01 9F 20 31 2C 38  2C 33 2C 47 24 AA 22 2C  |.... 1,8,3,G$.",|
00000460: 50 2C 52 22 00 72 0C A4  01 A1 23 31 2C 41 24 2C  |P,R".r....#1,A$,|
00000470: 42 24 00 8B 0C AE 01 8B  41 24 B3 B1 C7 28 31 29  |B$......A$...(1)|
00000480: AF 41 24 B3 B1 22 22 89  34 30 30 00 A5 0C B8 01  |.A$.."".400.....|
00000490: 8B 41 24 B2 22 22 A7 41  24 B2 C7 28 31 29 3A A1  |.A$."".A$..(1):.|
000004A0: 23 31 2C 58 24 00 C7 0C  C2 01 85 22 4C 49 4E 45  |#1,X$......"LINE|
000004B0: 20 4E 55 4D 42 45 52 20  52 41 4E 47 45 20 20 2D  | NUMBER RANGE  -|
000004C0: 9D 9D 9D 22 3B 5A 24 00  DC 0C CC 01 4C 30 B2 30  |...";Z$.....L0.0|
000004D0: 3A 4C 31 B2 30 3A 4C 32  B2 31 45 39 00 F8 0C D6  |:L1.0:L2.1E9....|
000004E0: 01 81 4A B2 31 A4 C3 28  5A 24 29 3A 59 24 B2 CA  |..J.1..(Z$):Y$..|
000004F0: 28 5A 24 2C 4A 2C 31 29  00 16 0D E0 01 20 59 B2  |(Z$,J,1)..... Y.|
00000500: C6 28 59 24 29 3A 8B 59  B1 B2 34 38 AF 59 B3 B2  |.(Y$):.Y..48.Y..|
00000510: 35 37 89 35 31 30 00 25  0D EA 01 20 8B 59 B2 33  |57.510.%... .Y.3|
00000520: 32 89 35 31 30 00 3A 0D  F4 01 20 4C 30 B2 4A 3A  |2.510.:... L0.J:|
00000530: 8B 59 B3 B1 34 35 89 36  30 30 00 41 0D FE 01 82  |.Y..45.600.A....|
00000540: 4A 00 6D 0D 08 02 8B 4C  30 B3 C3 28 5A 24 29 A7  |J.m....L0..(Z$).|
00000550: 4C 32 B2 C5 28 CA 28 5A  24 2C 4C 30 AA 31 29 29  |L2..(.(Z$,L0.1))|
00000560: 3A 8B 4C 32 B2 30 A7 4C  32 B2 31 45 39 00 80 0D  |:.L2.0.L2.1E9...|
00000570: 12 02 8B 4C 30 B1 31 A7  4C 31 B2 C5 28 5A 24 29  |...L0.1.L1..(Z$)|
00000580: 00 90 0D 1C 02 8B 4C 30  B2 30 A7 4C 31 B2 4C 32  |......L0.0.L1.L2|
00000590: 00 C0 0D 58 02 50 33 24  B2 22 5B 22 3A 50 34 24  |...X.P3$."[":P4$|
000005A0: B2 22 5D 22 3A 85 22 4C  49 53 54 20 54 4F 20 50  |."]":."LIST TO P|
000005B0: 52 49 4E 54 45 52 20 20  4E 9D 9D 9D 22 3B 5A 24  |RINTER  N...";Z$|
000005C0: 00 F3 0D 62 02 50 B2 33  3A 8B C6 28 5A 24 29 B2  |...b.P.3:..(Z$).|
000005D0: 38 39 A7 50 B2 34 3A 4C  24 B2 22 11 22 3A 50 33  |89.P.4:L$.".":P3|
000005E0: 24 B2 C7 28 32 31 39 29  3A 50 34 24 B2 C7 28 32  |$..(219):P4$..(2|
000005F0: 32 31 29 00 24 0E 6C 02  50 31 24 B2 22 5B 22 3A  |21).$.l.P1$."[":|
00000600: 50 32 24 B2 22 5D 22 3A  85 22 47 52 41 50 48 49  |P2$."]":."GRAPHI|
00000610: 43 53 20 4F 52 20 54 45  58 54 20 20 47 9D 9D 9D  |CS OR TEXT  G...|
00000620: 22 3B 5A 24 00 59 0E 76  02 99 C7 28 31 34 32 29  |";Z$.Y.v...(142)|
00000630: 3B 3A 8B C6 28 5A 24 29  B2 38 34 A7 99 C7 28 31  |;:..(Z$).84...(1|
00000640: 34 29 3B 3A 4D 24 B2 4C  24 3A 50 31 24 B2 50 33  |4);:M$.L$:P1$.P3|
00000650: 24 3A 50 32 24 B2 50 34  24 00 80 0E 80 02 85 22  |$:P2$.P4$......"|
00000660: 54 52 41 4E 53 4C 41 54  45 20 43 55 52 53 4F 52  |TRANSLATE CURSOR|
00000670: 20 4D 4F 56 45 53 20 20  4E 9D 9D 9D 22 3B 5A 24  | MOVES  N...";Z$|
00000680: 00 93 0E 8A 02 8B C6 28  5A 24 29 B2 38 39 A7 54  |.......(Z$).89.T|
00000690: 37 B2 31 00 A3 0E 94 02  9F 34 2C 50 3A 46 24 B2  |7.1......4,P:F$.|
000006A0: 50 31 24 00 B6 0E 9E 02  4A B2 38 30 3A 8B 50 B3  |P1$.....J.80:.P.|
000006B0: B1 33 89 36 39 30 00 CA  0E A8 02 99 22 93 22 3A  |.3.690......".":|
000006C0: 4A B2 C2 28 32 31 33 29  AA 31 00 E6 0E B2 02 4C  |J..(213).1.....L|
000006D0: 39 B2 4A 3A 98 34 2C 22  50 52 4F 47 52 41 4D 3A  |9.J:.4,"PROGRAM:|
000006E0: 20 20 22 3B 47 24 00 F5  0E BC 02 8F 20 4E 45 57  |  ";G$...... NEW|
000006F0: 20 4C 49 4E 45 00 24 0F  C6 02 8D 32 30 31 30 3A  | LINE.$....2010:|
00000700: 51 B2 30 3A 54 31 B2 31  3A 43 31 B2 AB 31 3A A1  |Q.0:T1.1:C1..1:.|
00000710: 23 31 2C 41 24 2C 42 24  3A 8B 53 54 B3 B1 30 89  |#1,A$,B$:.ST..0.|
00000720: 33 30 30 30 00 34 0F D0  02 8B 42 24 B2 22 22 89  |3000.4....B$."".|
00000730: 33 30 30 30 00 42 0F DA  02 A1 23 31 2C 41 24 2C  |3000.B....#1,A$,|
00000740: 42 24 00 62 0F E4 02 4C  B2 C6 28 41 24 AA C7 28  |B$.b...L..(A$..(|
00000750: 30 29 29 AA C6 28 42 24  AA C7 28 30 29 29 AC 32  |0))..(B$..(0)).2|
00000760: 35 36 00 71 0F EE 02 8B  4C B3 4C 31 89 31 30 38  |56.q....L.L1.108|
00000770: 30 00 80 0F F8 02 8B 4C  B1 4C 32 89 33 30 30 30  |0......L.L2.3000|
00000780: 00 9E 0F 02 03 46 32 B2  31 3A 98 34 2C 4D 24 3B  |.....F2.1:.4,M$;|
00000790: 50 24 3A 50 24 B2 C4 28  4C 29 AA 22 20 22 00 B4  |P$:P$..(L)." "..|
000007A0: 0F 20 03 8F 20 53 54 41  52 54 20 54 45 58 54 20  |. .. START TEXT |
000007B0: 48 45 52 45 00 CA 0F 2A  03 A1 23 31 2C 41 24 3A  |HERE...*..#1,A$:|
000007C0: 8B 41 24 B2 22 22 89 37  31 30 00 EB 0F 34 03 54  |.A$."".710...4.T|
000007D0: B2 30 3A 41 B2 C6 28 41  24 29 3A 8B 41 B2 33 32  |.0:A..(A$):.A.32|
000007E0: AF 46 24 B2 22 2C 22 89  38 34 30 00 08 10 3E 03  |.F$.",".840...>.|
000007F0: 8B 51 B2 30 B0 28 41 AF  31 32 37 29 B1 33 31 B0  |.Q.0.(A.127).31.|
00000800: 54 37 B2 30 89 39 30 30  00 2A 10 48 03 81 4A B2  |T7.0.900.*.H..J.|
00000810: 30 A4 34 30 3A 8B 41 B2  41 28 4A 29 A7 42 24 B2  |0.40:.A.A(J).B$.|
00000820: 41 24 28 4A 29 3A 89 38  36 30 00 37 10 52 03 82  |A$(J):.860.7.R..|
00000830: 4A 3A 89 31 30 30 30 00  4E 10 5C 03 8B 42 24 B2  |J:.1000.N.\..B$.|
00000840: 42 31 24 A7 42 B2 42 AA  31 3A 89 38 31 30 00 71  |B1$.B.B.1:.810.q|
00000850: 10 66 03 8B 42 B1 30 A7  41 24 B2 CA 28 C4 28 42  |.f..B.0.A$..(.(B|
00000860: AA 31 29 2C 32 29 AA 46  24 AA 42 24 3A 89 38 39  |.1),2).F$.B$:.89|
00000870: 30 00 7E 10 70 03 41 24  B2 46 24 AA 42 24 00 9F  |0.~.p.A$.F$.B$..|
00000880: 10 7A 03 42 B2 30 3A 42  31 24 B2 42 24 3A 46 24  |.z.B.0:B1$.B$:F$|
00000890: B2 22 2C 22 3A 46 31 B2  31 3A 89 31 30 31 30 00  |.",":F1.1:.1010.|
000008A0: BA 10 84 03 41 B2 41 AB  31 32 38 3A 8B 41 B3 30  |....A.A.128:.A.0|
000008B0: B0 51 B3 B1 30 89 31 30  30 30 00 D2 10 8E 03 8B  |.Q..0.1000......|
000008C0: 41 B2 31 32 37 A7 41 24  B2 22 FF 22 3A 89 31 30  |A.127.A$.".":.10|
000008D0: 30 30 00 E3 10 98 03 54  B2 31 3A 41 24 B2 4B 24  |00.....T.1:A$.K$|
000008E0: 28 41 29 00 F1 10 A2 03  8B 41 B2 31 35 A7 51 B2  |(A)......A.15.Q.|
000008F0: 32 00 FB 10 E8 03 8D 32  30 31 30 00 0F 11 F2 03  |2......2010.....|
00000900: 8B 41 24 B2 C7 28 33 34  29 A7 51 B2 31 AB 51 00  |.A$..(34).Q.1.Q.|
00000910: 2B 11 FC 03 8F 20 43 3D  2D 31 20 46 4F 52 20 41  |+.... C=-1 FOR A|
00000920: 4C 50 48 41 4E 55 4D 45  52 49 43 00 56 11 06 04  |LPHANUMERIC.V...|
00000930: 43 B2 C6 28 C8 28 41 24  2C 31 29 29 3A 43 B2 28  |C..(.(A$,1)):C.(|
00000940: 43 B3 34 38 B0 43 B1 35  37 29 AF 28 43 B3 36 35  |C.48.C.57).(C.65|
00000950: B0 43 B1 39 30 29 00 82  11 10 04 8B 54 B3 B1 54  |.C.90)......T..T|
00000960: 31 B0 54 B2 31 A7 54 31  B2 54 3A 8B A8 43 AF A8  |1.T.1.T1.T:..C..|
00000970: 43 31 A7 50 24 B2 50 24  AA 22 20 22 3A 8D 32 35  |C1.P$.P$." ":.25|
00000980: 30 30 00 B5 11 1A 04 43  B2 C6 28 C9 28 41 24 2C  |00.....C..(.(A$,|
00000990: 31 29 29 3A 43 31 B2 28  28 43 B3 34 38 B0 43 B1  |1)):C1.((C.48.C.|
000009A0: 35 37 29 AF 28 43 B3 36  35 B0 43 B1 39 30 29 29  |57).(C.65.C.90))|
000009B0: B0 41 B2 33 37 00 C8 11  24 04 50 24 B2 50 24 AA  |.A.37...$.P$.P$.|
000009C0: 41 24 3A 8D 32 35 30 30  00 D1 11 2E 04 89 38 31  |A$:.2500......81|
000009D0: 30 00 E9 11 38 04 8F 20  53 4B 49 50 20 54 4F 20  |0...8.. SKIP TO |
000009E0: 4E 45 58 54 20 4C 49 4E  45 00 FF 11 42 04 A1 23  |NEXT LINE...B..#|
000009F0: 31 2C 41 24 3A 8B 41 24  B2 22 22 89 37 31 30 00  |1,A$:.A$."".710.|
00000A00: 09 12 4C 04 89 31 30 39  30 00 2B 12 D0 07 8F 20  |..L..1090.+.... |
00000A10: 43 4C 4F 53 45 20 4F 46  46 20 43 55 52 53 4F 52  |CLOSE OFF CURSOR|
00000A20: 20 45 58 50 52 45 53 53  49 4F 4E 00 3A 12 DA 07  | EXPRESSION.:...|
00000A30: 8B 46 31 B2 30 89 32 30  34 30 00 5B 12 E4 07 8B  |.F1.0.2040.[....|
00000A40: 42 B1 30 A7 50 24 B2 50  24 AA CA 28 C4 28 42 AA  |B.0.P$.P$..(.(B.|
00000A50: 31 29 2C 32 29 3A 8D 32  35 30 30 00 86 12 EE 07  |1),2):.2500.....|
00000A60: 42 B2 30 3A 46 31 B2 30  3A 42 31 24 B2 22 22 3A  |B.0:F1.0:B1$."":|
00000A70: 50 24 B2 50 24 AA 50 32  24 3A 8D 32 35 30 30 3A  |P$.P$.P2$:.2500:|
00000A80: 46 24 B2 50 31 24 00 8C  12 F8 07 8E 00 9F 12 C4  |F$.P1$..........|
00000A90: 09 8B C3 28 50 24 29 B3  4C 39 89 32 36 30 30 00  |...(P$).L9.2600.|
00000AA0: B2 12 CE 09 81 4A B2 4C  39 A4 4C 39 AC 2E 36 A9  |.....J.L9.L9..6.|
00000AB0: AB 31 00 CA 12 D8 09 8B  CA 28 50 24 2C 4A 2C 31  |.1.......(P$,J,1|
00000AC0: 29 B2 22 3A 22 89 32 35  38 30 00 E4 12 E2 09 82  |).":".2580......|
00000AD0: 4A 3A 81 4A B2 4C 39 AB  31 A4 4C 39 AC 2E 36 AB  |J:.J.L9.1.L9..6.|
00000AE0: 31 A9 AB 31 00 F5 12 EC  09 50 B2 C6 28 CA 28 50  |1..1.....P..(.(P|
00000AF0: 24 2C 4A 29 29 00 04 13  F6 09 8B 50 B2 39 31 89  |$,J))......P.91.|
00000B00: 32 35 38 30 00 24 13 00  0A 8B 50 B2 35 39 B0 50  |2580.$....P.59.P|
00000B10: B2 34 34 B0 50 B2 39 33  A7 4A B2 4A AA 31 3A 89  |.44.P.93.J.J.1:.|
00000B20: 32 35 38 30 00 32 13 0A  0A 82 4A 3A 4A B2 4C 39  |2580.2....J:J.L9|
00000B30: AB 31 00 46 13 14 0A 98  34 2C 4D 24 3B C8 28 50  |.1.F....4,M$;.(P|
00000B40: 24 2C 4A AB 31 29 00 5C  13 1E 0A 50 24 B2 22 20  |$,J.1).\...P$." |
00000B50: 20 20 20 22 AA CA 28 50  24 2C 4A 29 00 62 13 28  |   "..(P$,J).b.(|
00000B60: 0A 8E 00 7D 13 B8 0B 8B  C3 28 50 24 29 B1 30 A7  |...}.....(P$).0.|
00000B70: 46 32 B2 31 3A 98 34 2C  4D 24 3B 50 24 00 9F 13  |F2.1:.4,M$;P$...|
00000B80: C2 0B 8B 46 32 B2 30 A7  99 22 2A 2A 20 4E 4F 20  |...F2.0.."** NO |
00000B90: 4C 49 4E 45 53 20 46 4F  55 4E 44 20 2A 2A 22 00  |LINES FOUND **".|
00000BA0: AF 13 CC 0B A0 31 3A 8D  32 30 30 30 3A A0 34 00  |.....1:.2000:.4.|
00000BB0: 00 00 31 59                                       |..1Y            |

..(.Z.. LISTER..VIC/64   JIM BUTTERFIELD
.X.D.. 19,147,17,145,29,157,18,146,20,14
8,141,32.U.N.. 80-COLUMN CURSOR STUFF...
X.. 129,149,150,151,152,14,142,153,154..
.... 155...... VIC STUFF.Y.... 144,5,28,
159,156,30,31,158... .. 8,9,133,137,134,
138,135,139,136,140.G.... HOME,CLEAR,DOW
N,UP,RIGHT,LEFT,RVS,RVOFF,DEL,INST,RETUR
N,SPACE...... ORANGE,BROWN,L.RED,GRAY1,G
RAY2,TEXT,GRAPHIC,L.GREEN,L.BLUE...... G
RAY3.I.H.. BLACK,WHITE,RED,CYAN,MAGENTA,
GREEN,BLUE,YELLOW...R.. LOCK,UNLOCK,F1,F
2,F3,F4,F5,F6,F7,F8......A(40),A$(40),K$
(90).!....J.0.39:.A(J):.J.7....J.0.39:.A
$(J):.J...... END,FOR,NEXT,DATA,INPUT#,I
NPUT,DIM,READ,LET,GOTO,RUN,IF,RESTORE,GO
SUB.M.... RETURN,REM,STOP,ON,WAIT,LOAD,S
AVE,VERIFY,DEF,POKE,PRINT#,PRINT,CONT...
... LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,
TAB(,TO,FN,SPC(,THEN,NOT,STEP.^.... +,-,
*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,P
OS,SQR,RND,LOG,EXP,COS...".. SIN,TAN,ATN
,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$
,MID$,GO,CONCAT...,.. DOPEN,DCLOSE,RECOR
D,HEADER,COLLECT,BACKUP,COPY,APPEND,DSAV
E,DLOAD...6.. CATALOG,RENAME,SCRATCH,DIR
ECTORY.,.@..J.0.90:.K$(J):.J.N... 1:."NA
ME OF PROGRAM FILE";G$.D.... 1,8,3,G$.",
P,R".R....#1,A$,B$......A$..G(1).A$.."".
400......A$."".A$.G(1):.#1,X$.G.B.."LINE
 NUMBER RANGE  -...";Z$...L.L0.0:L1.0:L2
.1E9...V..J.1.C(Z$):Y$.J(Z$,J,1)..... Y.
F(Y$):.Y..48.Y..57.510.%... .Y.32.510.:.
.. L0.J:.Y..45.600.A....J.M....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$
."]":."LIST TO PRINTER  N...";Z$...B.P.3
:.F(Z$).89.P.4:L$.".":P3$.G(219):P4$.G(2
21).$.L.P1$."[":P2$."]":."GRAPHICS OR TE
XT  G...";Z$.Y.V..G(142);:.F(Z$).84..G(1
4);:M$.L$:P1$.P3$:P2$.P4$......"TRANSLAT
E CURSOR MOVES  N...";Z$......F(Z$).89.T
7.1......4,P:F$.P1$.....J.80:.P..3.690.J
....".":J.B(213).1.....L9.J:.4,"PROGRAM:
  ";G$...... NEW LINE.$.F..2010:Q.0:T1.1
:C1..1:.#1,A$,B$:.ST..0.3000.4.P..B$."".
3000.B.Z..#1,A$,B$.B...L.F(A$.G(0)).F(B$
.G(0)).256.Q....L.L1.1080......L.L2.3000
.....F2.1:.4,M$;P$:P$.D(L)." "... .. STA
RT TEXT HERE.J.*..#1,A$:.A$."".710...4.T
.0:A.F(A$):.A.32.F$.",".840...>..Q.0.(A.
127).31.T7.0.900.*.H..J.0.40:.A.A(J).B$.
A$(J):.860.7.R..J:.1000.N.\..B$.B1$.B.B.
1:.810.Q.F..B.0.A$.J(D(B.1),2).F$.B$:.89
0.~.P.A$.F$.B$...Z.B.0:B1$.B$:F$.",":F1.
1:.1010.....A.A.128:.A.0.Q..0.1000.R....
A.127.A$.".":.1000.....T.1:A$.K$(A).....
.A.15.Q.2......2010......A$.G(34).Q.1.Q.
+.... C=-1 FOR ALPHANUMERIC.V...C.F(H(A$
,1)):C.(C.48.C.57).(C.65.C.90)......T..T
1.T.1.T1.T:..C..C1.P$.P$." ":.2500.....C
.F(I(A$,1)):C1.((C.48.C.57).(C.65.C.90))
.A.37.H.$.P$.P$.A$:.2500.Q....810...8.. 
SKIP TO NEXT LINE...B..#1,A$:.A$."".710.
..L..1090.+.P.. CLOSE OFF CURSOR EXPRESS
ION.:.Z..F1.0.2040.[....B.0.P$.P$.J(D(B.
1),2):.2500.....B.0:F1.0:B1$."":P$.P$.P2
$:.2500:F$.P1$.........D..C(P$).L9.2600.
..N..J.L9.L9..6..1.J.X..J(P$,J,1).":".25
80......J:.J.L9.1.L9..6.1..1.....P.F(J(P
$,J))......P.91.2580.$....P.59.P.44.P.93
.J.J.1:.2580.2....J:J.L9.1.F....4,M$;H(P
$,J.1).\...P$."    ".J(P$,J).B.(...}....
C(P$).0.F2.1:.4,M$;P$...B..F2.0.."** NO 
LINES FOUND **"...L. 1:.2000: 4...1Y

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL