LISTER/U
FILE INFORMATION
FILENAME(S): LISTER/U
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 19:47:16
APPEARS ON: 1 disk(s)
FILE HASH
ac53217fb5878a03b527bd89ee6bef1bbc90b3d9b182e07968ac07f1ed75a8b5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A3 1 | LISTER/U | PRG | Curtcool, Frank | 21 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 01 01 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 01 01 64 00 83 20 31 |TERFIELD...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 01 01 6E 00 8F 20 38 |8,141,32...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 01 01 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 01 |14,142,153,154..|
000000A0: 01 82 00 83 20 31 35 35 00 01 01 8C 00 8F 20 56 |.... 155...... V|
000000B0: 49 43 20 53 54 55 46 46 00 01 01 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 01 01 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 01 01 AA 00 83 20 48 4F 4D 45 2C 43 |140...... 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 01 01 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 01 01 BE 00 83 20 47 |N,L.BLUE...... G|
00000190: 52 41 59 33 00 01 01 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 01 01 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 01 01 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 01 01 E6 |$(40),K$(90)....|
00000210: 00 81 4A B2 30 A4 33 39 00 01 01 E7 00 87 41 28 |..J.0.39......A(|
00000220: 4A 29 00 01 01 E8 00 82 4A 00 01 01 F0 00 81 4A |J)......J......J|
00000230: B2 30 A4 33 39 00 01 01 F1 00 87 41 24 28 4A 29 |.0.39......A$(J)|
00000240: 00 01 01 F2 00 82 4A 00 01 01 FA 00 83 20 45 4E |......J...... EN|
00000250: 44 2C 46 4F 52 2C 4E 45 58 54 2C 44 41 54 41 2C |D,FOR,NEXT,DATA,|
00000260: 49 4E 50 55 54 23 2C 49 4E 50 55 54 2C 44 49 4D |INPUT#,INPUT,DIM|
00000270: 2C 52 45 41 44 2C 4C 45 54 2C 47 4F 54 4F 2C 52 |,READ,LET,GOTO,R|
00000280: 55 4E 2C 49 46 2C 52 45 53 54 4F 52 45 2C 47 4F |UN,IF,RESTORE,GO|
00000290: 53 55 42 00 01 01 04 01 83 20 52 45 54 55 52 4E |SUB...... RETURN|
000002A0: 2C 52 45 4D 2C 53 54 4F 50 2C 4F 4E 2C 57 41 49 |,REM,STOP,ON,WAI|
000002B0: 54 2C 4C 4F 41 44 2C 53 41 56 45 2C 56 45 52 49 |T,LOAD,SAVE,VERI|
000002C0: 46 59 2C 44 45 46 2C 50 4F 4B 45 2C 50 52 49 4E |FY,DEF,POKE,PRIN|
000002D0: 54 23 2C 50 52 49 4E 54 2C 43 4F 4E 54 00 01 01 |T#,PRINT,CONT...|
000002E0: 0E 01 83 20 4C 49 53 54 2C 43 4C 52 2C 43 4D 44 |... LIST,CLR,CMD|
000002F0: 2C 53 59 53 2C 4F 50 45 4E 2C 43 4C 4F 53 45 2C |,SYS,OPEN,CLOSE,|
00000300: 47 45 54 2C 4E 45 57 2C 54 41 42 28 2C 54 4F 2C |GET,NEW,TAB(,TO,|
00000310: 46 4E 2C 53 50 43 28 2C 54 48 45 4E 2C 4E 4F 54 |FN,SPC(,THEN,NOT|
00000320: 2C 53 54 45 50 00 01 01 18 01 83 20 2B 2C 2D 2C |,STEP...... +,-,|
00000330: 2A 2C 2F 2C 5E 2C 41 4E 44 2C 4F 52 2C 3E 2C 3D |*,/,^,AND,OR,>,=|
00000340: 2C 3C 2C 53 47 4E 2C 49 4E 54 2C 41 42 53 2C 55 |,<,SGN,INT,ABS,U|
00000350: 53 52 2C 46 52 45 2C 50 4F 53 2C 53 51 52 2C 52 |SR,FRE,POS,SQR,R|
00000360: 4E 44 2C 4C 4F 47 2C 45 58 50 2C 43 4F 53 00 01 |ND,LOG,EXP,COS..|
00000370: 01 22 01 83 20 53 49 4E 2C 54 41 4E 2C 41 54 4E |.".. SIN,TAN,ATN|
00000380: 2C 50 45 45 4B 2C 4C 45 4E 2C 53 54 52 24 2C 56 |,PEEK,LEN,STR$,V|
00000390: 41 4C 2C 41 53 43 2C 43 48 52 24 2C 4C 45 46 54 |AL,ASC,CHR$,LEFT|
000003A0: 24 2C 52 49 47 48 54 24 2C 4D 49 44 24 2C 47 4F |$,RIGHT$,MID$,GO|
000003B0: 2C 43 4F 4E 43 41 54 00 01 01 2C 01 83 20 44 4F |,CONCAT...,.. DO|
000003C0: 50 45 4E 2C 44 43 4C 4F 53 45 2C 52 45 43 4F 52 |PEN,DCLOSE,RECOR|
000003D0: 44 2C 48 45 41 44 45 52 2C 43 4F 4C 4C 45 43 54 |D,HEADER,COLLECT|
000003E0: 2C 42 41 43 4B 55 50 2C 43 4F 50 59 2C 41 50 50 |,BACKUP,COPY,APP|
000003F0: 45 4E 44 2C 44 53 41 56 45 2C 44 4C 4F 41 44 00 |END,DSAVE,DLOAD.|
00000400: 01 01 36 01 83 20 43 41 54 41 4C 4F 47 2C 52 45 |..6.. CATALOG,RE|
00000410: 4E 41 4D 45 2C 53 43 52 41 54 43 48 2C 44 49 52 |NAME,SCRATCH,DIR|
00000420: 45 43 54 4F 52 59 00 01 01 40 01 81 4A B2 30 A4 |ECTORY...@..J.0.|
00000430: 39 30 00 01 01 41 01 87 4B 24 28 4A 29 00 01 01 |90...A..K$(J)...|
00000440: 42 01 82 4A 00 01 01 90 01 A0 31 00 01 01 91 01 |B..J......1.....|
00000450: 85 22 4E 41 4D 45 20 4F 46 20 50 52 4F 47 52 41 |."NAME OF PROGRA|
00000460: 4D 20 46 49 4C 45 22 3B 47 24 00 01 01 9A 01 9F |M FILE";G$......|
00000470: 20 31 2C 38 2C 33 2C 47 24 AA 22 2C 50 2C 52 22 | 1,8,3,G$.",P,R"|
00000480: 00 01 01 A4 01 A1 23 31 2C 41 24 2C 42 24 00 01 |......#1,A$,B$..|
00000490: 01 AE 01 8B 41 24 B3 B1 C7 28 31 29 AF 41 24 B3 |....A$...(1).A$.|
000004A0: B1 22 22 89 34 30 30 00 01 01 B8 01 8B 41 24 B2 |."".400......A$.|
000004B0: 22 22 A7 41 24 B2 C7 28 31 29 3A A1 23 31 2C 58 |"".A$..(1):.#1,X|
000004C0: 24 00 01 01 C2 01 85 22 4C 49 4E 45 20 4E 55 4D |$......"LINE NUM|
000004D0: 42 45 52 20 52 41 4E 47 45 20 20 2D 9D 9D 9D 22 |BER RANGE -..."|
000004E0: 3B 5A 24 00 01 01 CC 01 4C 30 B2 30 00 01 01 CD |;Z$.....L0.0....|
000004F0: 01 4C 31 B2 30 00 01 01 CE 01 4C 32 B2 31 45 39 |.L1.0.....L2.1E9|
00000500: 00 01 01 D6 01 81 4A B2 31 A4 C3 28 5A 24 29 00 |......J.1..(Z$).|
00000510: 01 01 D7 01 59 24 B2 CA 28 5A 24 2C 4A 2C 31 29 |....Y$..(Z$,J,1)|
00000520: 00 01 01 E0 01 20 59 B2 C6 28 59 24 29 00 01 01 |..... Y..(Y$)...|
00000530: E1 01 8B 59 B1 B2 34 38 AF 59 B3 B2 35 37 89 35 |...Y..48.Y..57.5|
00000540: 31 30 00 01 01 EA 01 20 8B 59 B2 33 32 89 35 31 |10..... .Y.32.51|
00000550: 30 00 01 01 F4 01 20 4C 30 B2 4A 00 01 01 F5 01 |0..... L0.J.....|
00000560: 8B 59 B3 B1 34 35 89 36 30 30 00 01 01 FE 01 82 |.Y..45.600......|
00000570: 4A 00 01 01 08 02 8B 4C 30 B3 C3 28 5A 24 29 A7 |J......L0..(Z$).|
00000580: 4C 32 B2 C5 28 CA 28 5A 24 2C 4C 30 AA 31 29 29 |L2..(.(Z$,L0.1))|
00000590: 3A 8B 4C 32 B2 30 A7 4C 32 B2 31 45 39 00 01 01 |:.L2.0.L2.1E9...|
000005A0: 12 02 8B 4C 30 B1 31 A7 4C 31 B2 C5 28 5A 24 29 |...L0.1.L1..(Z$)|
000005B0: 00 01 01 1C 02 8B 4C 30 B2 30 A7 4C 31 B2 4C 32 |......L0.0.L1.L2|
000005C0: 00 01 01 58 02 50 33 24 B2 22 5B 22 00 01 01 59 |...X.P3$."["...Y|
000005D0: 02 50 34 24 B2 22 5D 22 00 01 01 5A 02 85 22 4C |.P4$."]"...Z.."L|
000005E0: 49 53 54 20 54 4F 20 50 52 49 4E 54 45 52 20 20 |IST TO PRINTER |
000005F0: 4E 9D 9D 9D 22 3B 5A 24 00 01 01 62 02 50 B2 33 |N...";Z$...b.P.3|
00000600: 00 01 01 63 02 8B C6 28 5A 24 29 B2 38 39 A7 50 |...c...(Z$).89.P|
00000610: B2 34 3A 4C 24 B2 22 11 22 3A 50 33 24 B2 C7 28 |.4:L$.".":P3$..(|
00000620: 32 31 39 29 3A 50 34 24 B2 C7 28 32 32 31 29 00 |219):P4$..(221).|
00000630: 01 01 6C 02 50 31 24 B2 22 5B 22 00 01 01 6D 02 |..l.P1$."["...m.|
00000640: 50 32 24 B2 22 5D 22 00 01 01 6E 02 85 22 47 52 |P2$."]"...n.."GR|
00000650: 41 50 48 49 43 53 20 4F 52 20 54 45 58 54 20 20 |APHICS OR TEXT |
00000660: 47 9D 9D 9D 22 3B 5A 24 00 01 01 76 02 99 C7 28 |G...";Z$...v...(|
00000670: 31 34 32 29 3B 00 01 01 77 02 8B C6 28 5A 24 29 |142);...w...(Z$)|
00000680: B2 38 34 A7 99 C7 28 31 34 29 3B 3A 4D 24 B2 4C |.84...(14);:M$.L|
00000690: 24 3A 50 31 24 B2 50 33 24 3A 50 32 24 B2 50 34 |$:P1$.P3$:P2$.P4|
000006A0: 24 00 01 01 80 02 85 22 54 52 41 4E 53 4C 41 54 |$......"TRANSLAT|
000006B0: 45 20 43 55 52 53 4F 52 20 4D 4F 56 45 53 20 20 |E CURSOR MOVES |
000006C0: 4E 9D 9D 9D 22 3B 5A 24 00 01 01 8A 02 8B C6 28 |N...";Z$.......(|
000006D0: 5A 24 29 B2 38 39 A7 54 37 B2 31 00 01 01 94 02 |Z$).89.T7.1.....|
000006E0: 9F 34 2C 50 00 01 01 95 02 46 24 B2 50 31 24 00 |.4,P.....F$.P1$.|
000006F0: 01 01 9E 02 4A B2 38 30 00 01 01 9F 02 8B 50 B3 |....J.80......P.|
00000700: B1 33 89 36 39 30 00 01 01 A8 02 99 22 93 22 00 |.3.690......".".|
00000710: 01 01 A9 02 4A B2 C2 28 32 31 33 29 AA 31 00 01 |....J..(213).1..|
00000720: 01 B2 02 4C 39 B2 4A 00 01 01 B3 02 98 34 2C 22 |...L9.J......4,"|
00000730: 50 52 4F 47 52 41 4D 3A 20 20 22 3B 47 24 00 01 |PROGRAM: ";G$..|
00000740: 01 BC 02 8F 20 4E 45 57 20 4C 49 4E 45 00 01 01 |.... NEW LINE...|
00000750: C6 02 8D 32 30 31 30 00 01 01 C7 02 51 B2 30 00 |...2010.....Q.0.|
00000760: 01 01 C8 02 54 31 B2 31 00 01 01 C9 02 43 31 B2 |....T1.1.....C1.|
00000770: AB 31 00 01 01 CA 02 A1 23 31 2C 41 24 2C 42 24 |.1......#1,A$,B$|
00000780: 00 01 01 CB 02 8B 53 54 B3 B1 30 89 33 30 30 30 |......ST..0.3000|
00000790: 00 01 01 D0 02 8B 42 24 B2 22 22 89 33 30 30 30 |......B$."".3000|
000007A0: 00 01 01 DA 02 A1 23 31 2C 41 24 2C 42 24 00 01 |......#1,A$,B$..|
000007B0: 01 E4 02 4C B2 C6 28 41 24 AA C7 28 30 29 29 AA |...L..(A$..(0)).|
000007C0: C6 28 42 24 AA C7 28 30 29 29 AC 32 35 36 00 01 |.(B$..(0)).256..|
000007D0: 01 EE 02 8B 4C B3 4C 31 89 31 30 38 30 00 01 01 |....L.L1.1080...|
000007E0: F8 02 8B 4C B1 4C 32 89 33 30 30 30 00 01 01 02 |...L.L2.3000....|
000007F0: 03 46 32 B2 31 00 01 01 03 03 98 34 2C 4D 24 3B |.F2.1......4,M$;|
00000800: 50 24 00 01 01 04 03 50 24 B2 C4 28 4C 29 AA 22 |P$.....P$..(L)."|
00000810: 20 22 00 01 01 20 03 8F 20 53 54 41 52 54 20 54 | "... .. START T|
00000820: 45 58 54 20 48 45 52 45 00 01 01 2A 03 A1 23 31 |EXT HERE...*..#1|
00000830: 2C 41 24 00 01 01 2B 03 8B 41 24 B2 22 22 89 37 |,A$...+..A$."".7|
00000840: 31 30 00 01 01 34 03 54 B2 30 00 01 01 35 03 41 |10...4.T.0...5.A|
00000850: B2 C6 28 41 24 29 00 01 01 36 03 8B 41 B2 33 32 |..(A$)...6..A.32|
00000860: AF 46 24 B2 22 2C 22 89 38 34 30 00 01 01 3E 03 |.F$.",".840...>.|
00000870: 8B 51 B2 30 B0 28 41 AF 31 32 37 29 B1 33 31 B0 |.Q.0.(A.127).31.|
00000880: 54 37 B2 30 89 39 30 30 00 01 01 48 03 81 4A B2 |T7.0.900...H..J.|
00000890: 30 A4 34 30 00 01 01 49 03 8B 41 B2 41 28 4A 29 |0.40...I..A.A(J)|
000008A0: A7 42 24 B2 41 24 28 4A 29 3A 89 38 36 30 00 01 |.B$.A$(J):.860..|
000008B0: 01 52 03 82 4A 00 01 01 53 03 89 31 30 30 30 00 |.R..J...S..1000.|
000008C0: 01 01 5C 03 8B 42 24 B2 42 31 24 A7 42 B2 42 AA |..\..B$.B1$.B.B.|
000008D0: 31 3A 89 38 31 30 00 01 01 66 03 8B 42 B1 30 A7 |1:.810...f..B.0.|
000008E0: 41 24 B2 CA 28 C4 28 42 AA 31 29 2C 32 29 AA 46 |A$..(.(B.1),2).F|
000008F0: 24 AA 42 24 3A 89 38 39 30 00 01 01 70 03 41 24 |$.B$:.890...p.A$|
00000900: B2 46 24 AA 42 24 00 01 01 7A 03 42 B2 30 00 01 |.F$.B$...z.B.0..|
00000910: 01 7B 03 42 31 24 B2 42 24 00 01 01 7C 03 46 24 |.{.B1$.B$...|.F$|
00000920: B2 22 2C 22 00 01 01 7D 03 46 31 B2 31 00 01 01 |.","...}.F1.1...|
00000930: 7E 03 89 31 30 31 30 00 01 01 84 03 41 B2 41 AB |~..1010.....A.A.|
00000940: 31 32 38 00 01 01 85 03 8B 41 B3 30 B0 51 B3 B1 |128......A.0.Q..|
00000950: 30 89 31 30 30 30 00 01 01 8E 03 8B 41 B2 31 32 |0.1000......A.12|
00000960: 37 A7 41 24 B2 22 FF 22 3A 89 31 30 30 30 00 01 |7.A$.".":.1000..|
00000970: 01 98 03 54 B2 31 00 01 01 99 03 41 24 B2 4B 24 |...T.1.....A$.K$|
00000980: 28 41 29 00 01 01 A2 03 8B 41 B2 31 35 A7 51 B2 |(A)......A.15.Q.|
00000990: 32 00 01 01 E8 03 8D 32 30 31 30 00 01 01 F2 03 |2......2010.....|
000009A0: 8B 41 24 B2 C7 28 33 34 29 A7 51 B2 31 AB 51 00 |.A$..(34).Q.1.Q.|
000009B0: 01 01 FC 03 8F 20 43 3D 2D 31 20 46 4F 52 20 41 |..... C=-1 FOR A|
000009C0: 4C 50 48 41 4E 55 4D 45 52 49 43 00 01 01 06 04 |LPHANUMERIC.....|
000009D0: 43 B2 C6 28 C8 28 41 24 2C 31 29 29 00 01 01 07 |C..(.(A$,1))....|
000009E0: 04 43 B2 28 43 B3 34 38 B0 43 B1 35 37 29 AF 28 |.C.(C.48.C.57).(|
000009F0: 43 B3 36 35 B0 43 B1 39 30 29 00 01 01 10 04 8B |C.65.C.90)......|
00000A00: 54 B3 B1 54 31 B0 54 B2 31 A7 54 31 B2 54 3A 8B |T..T1.T.1.T1.T:.|
00000A10: A8 43 AF A8 43 31 A7 50 24 B2 50 24 AA 22 20 22 |.C..C1.P$.P$." "|
00000A20: 3A 8D 32 35 30 30 00 01 01 1A 04 43 B2 C6 28 C9 |:.2500.....C..(.|
00000A30: 28 41 24 2C 31 29 29 00 01 01 1B 04 43 31 B2 28 |(A$,1)).....C1.(|
00000A40: 28 43 B3 34 38 B0 43 B1 35 37 29 AF 28 43 B3 36 |(C.48.C.57).(C.6|
00000A50: 35 B0 43 B1 39 30 29 29 B0 41 B2 33 37 00 01 01 |5.C.90)).A.37...|
00000A60: 24 04 50 24 B2 50 24 AA 41 24 00 01 01 25 04 8D |$.P$.P$.A$...%..|
00000A70: 32 35 30 30 00 01 01 2E 04 89 38 31 30 00 01 01 |2500......810...|
00000A80: 38 04 8F 20 53 4B 49 50 20 54 4F 20 4E 45 58 54 |8.. SKIP TO NEXT|
00000A90: 20 4C 49 4E 45 00 01 01 42 04 A1 23 31 2C 41 24 | LINE...B..#1,A$|
00000AA0: 00 01 01 43 04 8B 41 24 B2 22 22 89 37 31 30 00 |...C..A$."".710.|
00000AB0: 01 01 4C 04 89 31 30 39 30 00 01 01 D0 07 8F 20 |..L..1090...... |
00000AC0: 43 4C 4F 53 45 20 4F 46 46 20 43 55 52 53 4F 52 |CLOSE OFF CURSOR|
00000AD0: 20 45 58 50 52 45 53 53 49 4F 4E 00 01 01 DA 07 | EXPRESSION.....|
00000AE0: 8B 46 31 B2 30 89 32 30 34 30 00 01 01 E4 07 8B |.F1.0.2040......|
00000AF0: 42 B1 30 A7 50 24 B2 50 24 AA CA 28 C4 28 42 AA |B.0.P$.P$..(.(B.|
00000B00: 31 29 2C 32 29 3A 8D 32 35 30 30 00 01 01 EE 07 |1),2):.2500.....|
00000B10: 42 B2 30 00 01 01 EF 07 46 31 B2 30 00 01 01 F0 |B.0.....F1.0....|
00000B20: 07 42 31 24 B2 22 22 00 01 01 F1 07 50 24 B2 50 |.B1$."".....P$.P|
00000B30: 24 AA 50 32 24 00 01 01 F2 07 8D 32 35 30 30 00 |$.P2$......2500.|
00000B40: 01 01 F3 07 46 24 B2 50 31 24 00 01 01 F8 07 8E |....F$.P1$......|
00000B50: 00 01 01 C4 09 8B C3 28 50 24 29 B3 4C 39 89 32 |.......(P$).L9.2|
00000B60: 36 30 30 00 01 01 CE 09 81 4A B2 4C 39 A4 4C 39 |600......J.L9.L9|
00000B70: AC 2E 36 A9 AB 31 00 01 01 D8 09 8B CA 28 50 24 |..6..1.......(P$|
00000B80: 2C 4A 2C 31 29 B2 22 3A 22 89 32 35 38 30 00 01 |,J,1).":".2580..|
00000B90: 01 E2 09 82 4A 00 01 01 E3 09 81 4A B2 4C 39 AB |....J......J.L9.|
00000BA0: 31 A4 4C 39 AC 2E 36 AB 31 A9 AB 31 00 01 01 EC |1.L9..6.1..1....|
00000BB0: 09 50 B2 C6 28 CA 28 50 24 2C 4A 29 29 00 01 01 |.P..(.(P$,J))...|
00000BC0: F6 09 8B 50 B2 39 31 89 32 35 38 30 00 01 01 00 |...P.91.2580....|
00000BD0: 0A 8B 50 B2 35 39 B0 50 B2 34 34 B0 50 B2 39 33 |..P.59.P.44.P.93|
00000BE0: A7 4A B2 4A AA 31 3A 89 32 35 38 30 00 01 01 0A |.J.J.1:.2580....|
00000BF0: 0A 82 4A 00 01 01 0B 0A 4A B2 4C 39 AB 31 00 01 |..J.....J.L9.1..|
00000C00: 01 14 0A 98 34 2C 4D 24 3B C8 28 50 24 2C 4A AB |....4,M$;.(P$,J.|
00000C10: 31 29 00 01 01 1E 0A 50 24 B2 22 20 20 20 20 22 |1).....P$." "|
00000C20: AA CA 28 50 24 2C 4A 29 00 01 01 28 0A 8E 00 01 |..(P$,J)...(....|
00000C30: 01 B8 0B 8B C3 28 50 24 29 B1 30 A7 46 32 B2 31 |.....(P$).0.F2.1|
00000C40: 3A 98 34 2C 4D 24 3B 50 24 00 01 01 C2 0B 8B 46 |:.4,M$;P$......F|
00000C50: 32 B2 30 A7 99 22 2A 2A 20 4E 4F 20 4C 49 4E 45 |2.0.."** NO LINE|
00000C60: 53 20 46 4F 55 4E 44 20 2A 2A 22 00 01 01 CC 0B |S FOUND **".....|
00000C70: A0 31 00 01 01 CD 0B 8D 32 30 30 30 00 01 01 CE |.1......2000....|
00000C80: 0B A0 34 00 00 00 4D |..4...M |
....Z.. LISTER..VIC/64 JIM BUTTERFIELD
...D.. 19,147,17,145,29,157,18,146,20,14
8,141,32...N.. 80-COLUMN CURSOR STUFF...
X.. 129,149,150,151,152,14,142,153,154..
.... 155...... VIC STUFF...... 144,5,28,
159,156,30,31,158... .. 8,9,133,137,134,
138,135,139,136,140...... 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...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......J
.0.39......A$(J)......J...... END,FOR,NE
XT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,R
UN,IF,RESTORE,GOSUB...... RETURN,REM,STO
P,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE,PRIN
T#,PRINT,CONT...... LIST,CLR,CMD,SYS,OPE
N,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT
,STEP...... +,-,*,/,^,AND,OR,>,=,<,SGN,I
NT,ABS,USR,FRE,POS,SQR,RND,LOG,EXP,COS..
.".. SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,C
HR$,LEFT$,RIGHT$,MID$,GO,CONCAT...,.. DO
PEN,DCLOSE,RECORD,HEADER,COLLECT,BACKUP,
COPY,APPEND,DSAVE,DLOAD...6.. CATALOG,RE
NAME,SCRATCH,DIRECTORY...@..J.0.90...A..
K$(J)...B..J..... 1......"NAME OF PROGRA
M FILE";G$...... 1,8,3,G$.",P,R"......#1
,A$,B$......A$..G(1).A$.."".400......A$.
"".A$.G(1):.#1,X$...B.."LINE NUMBER RANG
E -...";Z$...L.L0.0...M.L1.0...N.L2.1E9
...V..J.1.C(Z$)...W.Y$.J(Z$,J,1)..... Y.
F(Y$)......Y..48.Y..57.510..... .Y.32.51
0..... L0.J......Y..45.600......J......L
0.C(Z$).L2.E(J(Z$,L0.1)):.L2.0.L2.1E9...
...L0.1.L1.E(Z$)......L0.0.L1.L2...X.P3$
."["...Y.P4$."]"...Z.."LIST TO PRINTER
N...";Z$...B.P.3...C..F(Z$).89.P.4:L$.".
":P3$.G(219):P4$.G(221)...L.P1$."["...M.
P2$."]"...N.."GRAPHICS OR TEXT G...";Z$
...V..G(142);...W..F(Z$).84..G(14);:M$.L
$:P1$.P3$:P2$.P4$......"TRANSLATE CURSOR
MOVES N...";Z$......F(Z$).89.T7.1.....
.4,P.....F$.P1$.....J.80......P..3.690..
....".".....J.B(213).1.....L9.J......4,"
PROGRAM: ";G$...... NEW LINE...F..2010.
..G.Q.0...H.T1.1...I.C1..1...J..#1,A$,B$
...K..ST..0.3000...P..B$."".3000...Z..#1
,A$,B$.....L.F(A$.G(0)).F(B$.G(0)).256..
....L.L1.1080......L.L2.3000.....F2.1...
...4,M$;P$.....P$.D(L)." "... .. START T
EXT HERE...*..#1,A$...+..A$."".710...4.T
.0...5.A.F(A$)...6..A.32.F$.",".840...>.
.Q.0.(A.127).31.T7.0.900...H..J.0.40...I
..A.A(J).B$.A$(J):.860...R..J...S..1000.
..\..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.
....A.A.128......A.0.Q..0.1000......A.12
7.A$.".":.1000.....T.1.....A$.K$(A).....
.A.15.Q.2......2010......A$.G(34).Q.1.Q.
..... C=-1 FOR ALPHANUMERIC.....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..
...C.F(I(A$,1)).....C1.((C.48.C.57).(C.6
5.C.90)).A.37...$.P$.P$.A$...%..2500....
..810...8.. SKIP TO NEXT LINE...B..#1,A$
...C..A$."".710...L..1090...P.. CLOSE OF
F CURSOR EXPRESSION...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...X..J(P$,J,1).":".2580..
....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......J.....J.L9.1......4,M$
;H(P$,J.1).....P$." ".J(P$,J)...(....
....C(P$).0.F2.1:.4,M$;P$...B..F2.0.."**
NO LINES FOUND **"...L. 1...M..2000...N
. 4...M
> CLICK IMAGE PREVIEW FOR FULL MODAL