LISTER.C

00000000: 01 08 0F 08 5A 00 8F 20  20 4C 49 53 54 45 52 00  |....Z..  LISTER.|
00000010: 3F 08 64 00 83 20 31 39  2C 31 34 37 2C 31 37 2C  |?.d.. 19,147,17,|
00000020: 31 34 35 2C 32 39 2C 31  35 37 2C 31 38 2C 31 34  |145,29,157,18,14|
00000030: 36 2C 32 30 2C 31 34 38  2C 31 34 31 2C 33 32 00  |6,20,148,141,32.|
00000040: 5B 08 6E 00 8F 20 38 30  2D 43 4F 4C 55 4D 20 43  |[.n.. 80-COLUM C|
00000050: 55 52 53 4F 52 20 53 54  55 46 46 00 7F 08 78 00  |URSOR STUFF...x.|
00000060: 83 20 37 2C 32 31 2C 31  34 39 2C 32 32 2C 31 35  |. 7,21,149,22,15|
00000070: 30 2C 31 34 2C 31 34 32  2C 32 35 2C 31 35 33 00  |0,14,142,25,153.|
00000080: 8C 08 82 00 83 20 31 35  2C 31 34 33 00 9C 08 8C  |..... 15,143....|
00000090: 00 8F 20 56 49 43 20 53  54 55 46 46 00 BD 08 96  |.. VIC STUFF....|
000000A0: 00 83 20 31 34 34 2C 35  2C 32 38 2C 31 35 39 2C  |.. 144,5,28,159,|
000000B0: 31 35 36 2C 33 30 2C 33  31 2C 31 35 38 00 E7 08  |156,30,31,158...|
000000C0: A0 00 83 20 38 2C 39 2C  31 33 33 2C 31 33 37 2C  |... 8,9,133,137,|
000000D0: 31 33 34 2C 31 33 38 2C  31 33 35 2C 31 33 39 2C  |134,138,135,139,|
000000E0: 31 33 36 2C 31 34 30 00  2B 09 AA 00 83 20 48 4F  |136,140.+.... HO|
000000F0: 4D 45 2C 43 4C 45 41 52  2C 44 4F 57 4E 2C 55 50  |ME,CLEAR,DOWN,UP|
00000100: 2C 52 49 47 48 54 2C 4C  45 46 54 2C 52 56 53 2C  |,RIGHT,LEFT,RVS,|
00000110: 52 56 4F 46 46 2C 44 45  4C 2C 49 4E 53 54 2C 52  |RVOFF,DEL,INST,R|
00000120: 45 54 55 52 4E 2C 53 50  41 43 45 00 77 09 B4 00  |ETURN,SPACE.w...|
00000130: 83 20 42 45 4C 4C 2C 44  2E 4C 49 4E 45 2C 49 2E  |. BELL,D.LINE,I.|
00000140: 4C 49 4E 45 2C 45 52 2E  42 45 47 49 4E 2C 45 52  |LINE,ER.BEGIN,ER|
00000150: 2E 45 4E 44 2C 54 45 58  54 2C 47 52 41 50 48 49  |.END,TEXT,GRAPHI|
00000160: 43 2C 53 43 52 4F 4C 4C  2E 55 50 2C 53 43 52 4F  |C,SCROLL.UP,SCRO|
00000170: 4C 4C 2E 44 4F 57 4E 00  88 09 BE 00 83 20 54 4F  |LL.DOWN...... TO|
00000180: 50 2C 42 4F 54 54 4F 4D  00 BD 09 C8 00 83 20 42  |P,BOTTOM...... B|
00000190: 4C 41 43 4B 2C 57 48 49  54 45 2C 52 45 44 2C 43  |LACK,WHITE,RED,C|
000001A0: 59 41 4E 2C 4D 41 47 45  4E 54 41 2C 47 52 45 45  |YAN,MAGENTA,GREE|
000001B0: 4E 2C 42 4C 55 45 2C 59  45 4C 4C 4F 57 00 E7 09  |N,BLUE,YELLOW...|
000001C0: D2 00 83 20 4C 4F 43 4B  2C 55 4E 4C 4F 43 4B 2C  |... LOCK,UNLOCK,|
000001D0: 46 31 2C 46 32 2C 46 33  2C 46 34 2C 46 35 2C 46  |F1,F2,F3,F4,F5,F|
000001E0: 36 2C 46 37 2C 46 38 00  19 0A DC 00 86 41 28 34  |6,F7,F8......A(4|
000001F0: 30 29 2C 41 24 28 34 30  29 2C 4B 24 28 39 30 29  |0),A$(40),K$(90)|
00000200: 3A 97 35 33 32 38 31 2C  30 3A 97 35 33 32 38 30  |:.53281,0:.53280|
00000210: 2C 31 31 3A 99 22 93 05  22 00 2E 0A E6 00 81 4A  |,11:.".."......J|
00000220: B2 30 A4 34 30 3A 87 41  28 4A 29 3A 82 4A 00 44  |.0.40:.A(J):.J.D|
00000230: 0A F0 00 81 4A B2 30 A4  34 30 3A 87 41 24 28 4A  |....J.0.40:.A$(J|
00000240: 29 3A 82 4A 00 90 0A FA  00 83 20 45 4E 44 2C 46  |):.J...... END,F|
00000250: 4F 52 2C 4E 45 58 54 2C  44 41 54 41 2C 49 4E 50  |OR,NEXT,DATA,INP|
00000260: 55 54 23 2C 49 4E 50 55  54 2C 44 49 4D 2C 52 45  |UT#,INPUT,DIM,RE|
00000270: 41 44 2C 4C 45 54 2C 47  4F 54 4F 2C 52 55 4E 2C  |AD,LET,GOTO,RUN,|
00000280: 49 46 2C 52 45 53 54 4F  52 45 2C 47 4F 53 55 42  |IF,RESTORE,GOSUB|
00000290: 00 E1 0A 04 01 83 20 52  45 54 55 52 4E 2C 52 45  |...... RETURN,RE|
000002A0: 4D 2C 53 54 4F 50 2C 4F  4E 2C 57 41 49 54 2C 4C  |M,STOP,ON,WAIT,L|
000002B0: 4F 41 44 2C 53 41 56 45  2C 56 45 52 49 46 59 2C  |OAD,SAVE,VERIFY,|
000002C0: 44 45 46 49 4E 45 2C 50  4F 4B 45 2C 50 52 49 4E  |DEFINE,POKE,PRIN|
000002D0: 54 23 2C 50 52 49 4E 54  2C 43 4F 4E 54 49 4E 55  |T#,PRINT,CONTINU|
000002E0: 45 00 29 0B 0E 01 83 20  4C 49 53 54 2C 43 4C 52  |E.).... LIST,CLR|
000002F0: 2C 43 4D 44 2C 53 59 53  2C 4F 50 45 4E 2C 43 4C  |,CMD,SYS,OPEN,CL|
00000300: 4F 53 45 2C 47 45 54 2C  4E 45 57 2C 54 41 42 28  |OSE,GET,NEW,TAB(|
00000310: 2C 54 4F 2C 46 4E 2C 53  50 43 28 2C 54 48 45 4E  |,TO,FN,SPC(,THEN|
00000320: 2C 4E 4F 54 2C 53 54 45  50 00 72 0B 18 01 83 20  |,NOT,STEP.r.... |
00000330: 2B 2C 2D 2C 2A 2C 2F 2C  5E 2C 41 4E 44 2C 4F 52  |+,-,*,/,^,AND,OR|
00000340: 2C 3E 2C 3D 2C 3C 2C 53  47 4E 2C 49 4E 54 2C 41  |,>,=,<,SGN,INT,A|
00000350: 42 53 2C 55 53 52 2C 46  52 45 2C 50 4F 53 2C 53  |BS,USR,FRE,POS,S|
00000360: 51 52 2C 52 4E 44 2C 4C  4F 47 2C 45 58 50 2C 43  |QR,RND,LOG,EXP,C|
00000370: 4F 53 00 BB 0B 22 01 83  20 53 49 4E 2C 54 41 4E  |OS...".. SIN,TAN|
00000380: 2C 41 54 4E 2C 50 45 45  4B 2C 4C 45 4E 2C 53 54  |,ATN,PEEK,LEN,ST|
00000390: 52 24 2C 56 41 4C 2C 41  53 43 2C 43 48 52 24 2C  |R$,VAL,ASC,CHR$,|
000003A0: 4C 45 46 54 24 2C 52 49  47 48 54 24 2C 4D 49 44  |LEFT$,RIGHT$,MID|
000003B0: 24 2C 47 4F 2C 43 4F 4E  43 41 54 00 05 0C 2C 01  |$,GO,CONCAT...,.|
000003C0: 83 20 44 4F 50 45 4E 2C  44 43 4C 4F 53 45 2C 52  |. DOPEN,DCLOSE,R|
000003D0: 45 43 4F 52 44 2C 48 45  41 44 45 52 2C 43 4F 4C  |ECORD,HEADER,COL|
000003E0: 4C 45 43 54 2C 42 41 43  4B 55 50 2C 43 4F 50 59  |LECT,BACKUP,COPY|
000003F0: 2C 41 50 50 45 4E 44 2C  44 53 41 56 45 2C 43 41  |,APPEND,DSAVE,CA|
00000400: 54 41 4C 4F 47 00 24 0C  36 01 83 20 52 45 4E 41  |TALOG.$.6.. RENA|
00000410: 4D 45 2C 53 43 52 41 54  43 48 2C 44 49 52 45 43  |ME,SCRATCH,DIREC|
00000420: 54 4F 52 59 00 3A 0C 40  01 81 4A B2 30 A4 38 39  |TORY.:.@..J.0.89|
00000430: 3A 87 4B 24 28 4A 29 3A  82 4A 00 60 0C 90 01 A0  |:.K$(J):.J.`....|
00000440: 31 3A 85 22 11 11 4E 41  4D 45 20 4F 46 20 50 52  |1:."..NAME OF PR|
00000450: 4F 47 52 41 4D 20 46 49  4C 45 20 3F 22 3B 47 24  |OGRAM FILE ?";G$|
00000460: 00 75 0C 9A 01 9F 31 2C  38 2C 33 2C 47 24 AA 22  |.u....1,8,3,G$."|
00000470: 2C 50 2C 52 22 00 83 0C  A4 01 A1 23 31 2C 41 24  |,P,R"......#1,A$|
00000480: 2C 42 24 00 9C 0C AE 01  8B 41 24 B3 B1 C7 28 31  |,B$......A$...(1|
00000490: 29 AF 41 24 B3 B1 22 22  A7 34 30 30 00 B6 0C B8  |).A$.."".400....|
000004A0: 01 8B 41 24 B2 22 22 A7  41 24 B2 C7 28 31 29 3A  |..A$."".A$..(1):|
000004B0: A1 23 31 2C 58 24 00 D8  0C C2 01 85 22 4C 49 4E  |.#1,X$......"LIN|
000004C0: 45 20 4E 55 4D 42 45 52  20 52 41 4E 47 45 20 3F  |E NUMBER RANGE ?|
000004D0: 20 9D 9D 9D 22 3B 5A 24  00 ED 0C CC 01 4C 30 B2  | ...";Z$.....L0.|
000004E0: 30 3A 4C 31 B2 30 3A 4C  32 B2 31 45 39 00 09 0D  |0:L1.0:L2.1E9...|
000004F0: D6 01 81 4A B2 31 A4 C3  28 5A 24 29 3A 59 24 B2  |...J.1..(Z$):Y$.|
00000500: CA 28 5A 24 2C 4A 2C 31  29 00 26 0D E0 01 59 B2  |.(Z$,J,1).&...Y.|
00000510: C6 28 59 24 29 3A 8B 59  B1 B2 34 38 AF 59 B3 B2  |.(Y$):.Y..48.Y..|
00000520: 35 37 89 35 31 30 00 34  0D EA 01 8B 59 B2 33 32  |57.510.4....Y.32|
00000530: A7 35 31 30 00 48 0D F4  01 4C 30 B2 4A 3A 8B 59  |.510.H...L0.J:.Y|
00000540: B3 B1 34 35 A7 36 30 30  00 4F 0D FE 01 82 4A 00  |..45.600.O....J.|
00000550: 7B 0D 08 02 8B 4C 30 B3  C3 28 5A 24 29 A7 4C 32  |{....L0..(Z$).L2|
00000560: B2 C5 28 CA 28 5A 24 2C  4C 30 AA 31 29 29 3A 8B  |..(.(Z$,L0.1)):.|
00000570: 4C 32 B2 30 A7 4C 32 B2  31 45 39 00 8E 0D 12 02  |L2.0.L2.1E9.....|
00000580: 8B 4C 30 B1 31 A7 4C 31  B2 C5 28 5A 24 29 00 9E  |.L0.1.L1..(Z$)..|
00000590: 0D 1C 02 8B 4C 30 B2 30  A7 4C 31 B2 4C 32 00 CE  |....L0.0.L1.L2..|
000005A0: 0D 58 02 50 33 24 B2 22  5B 22 3A 50 34 24 B2 22  |.X.P3$."[":P4$."|
000005B0: 5D 22 3A 85 22 4C 49 53  54 20 54 4F 20 50 52 49  |]":."LIST TO PRI|
000005C0: 4E 54 45 52 20 20 4E 9D  9D 9D 22 3B 5A 24 00 01  |NTER  N...";Z$..|
000005D0: 0E 62 02 50 B2 33 3A 8B  C6 28 5A 24 29 B2 38 39  |.b.P.3:..(Z$).89|
000005E0: A7 50 B2 34 3A 4C 24 B2  22 11 22 3A 50 33 24 B2  |.P.4:L$.".":P3$.|
000005F0: C7 28 32 31 39 29 3A 50  34 24 B2 C7 28 32 32 31  |.(219):P4$..(221|
00000600: 29 00 32 0E 6C 02 50 31  24 B2 22 5B 22 3A 50 32  |).2.l.P1$."[":P2|
00000610: 24 B2 22 5D 22 3A 85 22  47 52 41 50 48 49 43 53  |$."]":."GRAPHICS|
00000620: 20 4F 52 20 54 45 58 54  20 20 47 9D 9D 9D 22 3B  | OR TEXT  G...";|
00000630: 5A 24 00 6A 0E 76 02 97  35 33 32 37 32 2C 32 31  |Z$.j.v..53272,21|
00000640: 3A 8B C6 28 5A 24 29 B2  38 34 A7 97 35 33 32 37  |:..(Z$).84..5327|
00000650: 32 2C 32 33 3A 4D 24 B2  4C 24 3A 50 31 24 B2 50  |2,23:M$.L$:P1$.P|
00000660: 33 24 3A 50 32 24 B2 50  34 24 00 91 0E 80 02 85  |3$:P2$.P4$......|
00000670: 22 54 52 41 4E 53 4C 41  54 45 20 43 55 52 53 4F  |"TRANSLATE CURSO|
00000680: 52 20 4D 4F 56 45 53 20  20 4E 9D 9D 9D 22 3B 5A  |R MOVES  N...";Z|
00000690: 24 00 A4 0E 8A 02 8B C6  28 5A 24 29 B2 38 39 A7  |$.......(Z$).89.|
000006A0: 54 37 B2 31 00 B4 0E 94  02 9F 34 2C 50 3A 46 24  |T7.1......4,P:F$|
000006B0: B2 50 31 24 00 C7 0E 9E  02 4A B2 38 30 3A 8B 50  |.P1$.....J.80:.P|
000006C0: B3 B1 33 89 36 39 30 00  F9 0E A8 02 99 22 93 22  |..3.690......"."|
000006D0: 3A 99 22 2B 2B 2B 2B 2B  2B 2B 2B 2B 2B 2B 2B 22  |:."++++++++++++"|
000006E0: 3A 81 4A B2 31 A4 38 31  3A 8B C2 28 31 30 32 34  |:.J.1.81:..(1024|
000006F0: AA 4A 29 B2 33 32 A7 82  4A 00 15 0F B2 02 4C 39  |.J).32..J.....L9|
00000700: B2 4A 3A 98 34 2C 22 50  52 4F 47 52 41 4D 3A 20  |.J:.4,"PROGRAM: |
00000710: 20 22 3B 47 24 00 25 0F  BC 02 8F 20 20 4E 45 57  | ";G$.%....  NEW|
00000720: 20 4C 49 4E 45 00 54 0F  C6 02 8D 32 30 31 30 3A  | LINE.T....2010:|
00000730: 51 B2 30 3A 54 31 B2 31  3A 43 31 B2 AB 31 3A A1  |Q.0:T1.1:C1..1:.|
00000740: 23 31 2C 41 24 2C 42 24  3A 8B 53 54 B3 B1 30 A7  |#1,A$,B$:.ST..0.|
00000750: 33 30 30 30 00 64 0F D0  02 8B 42 24 B2 22 22 89  |3000.d....B$."".|
00000760: 33 30 30 30 00 72 0F DA  02 A1 23 31 2C 41 24 2C  |3000.r....#1,A$,|
00000770: 42 24 00 92 0F E4 02 4C  B2 C6 28 41 24 AA C7 28  |B$.....L..(A$..(|
00000780: 30 29 29 AA C6 28 42 24  AA C7 28 30 29 29 AC 32  |0))..(B$..(0)).2|
00000790: 35 36 00 A1 0F EE 02 8B  4C B3 4C 31 A7 31 30 38  |56......L.L1.108|
000007A0: 30 00 B0 0F F8 02 8B 4C  B1 4C 32 A7 33 30 30 30  |0......L.L2.3000|
000007B0: 00 CE 0F 02 03 46 32 B2  31 3A 98 34 2C 4D 24 3B  |.....F2.1:.4,M$;|
000007C0: 50 24 3A 50 24 B2 C4 28  4C 29 AA 22 20 22 00 E6  |P$:P$..(L)." "..|
000007D0: 0F 20 03 8F 20 20 20 53  54 41 52 54 20 54 45 58  |. ..   START TEX|
000007E0: 54 20 48 45 52 45 00 FC  0F 2A 03 A1 23 31 2C 41  |T HERE...*..#1,A|
000007F0: 24 3A 8B 41 24 B2 22 22  89 37 31 30 00 1D 10 34  |$:.A$."".710...4|
00000800: 03 54 B2 30 3A 41 B2 C6  28 41 24 29 3A 8B 41 B2  |.T.0:A..(A$):.A.|
00000810: 33 32 AF 46 24 B2 22 2C  22 89 38 34 30 00 3A 10  |32.F$.",".840.:.|
00000820: 3E 03 8B 51 B2 30 B0 28  41 AF 31 32 37 29 B1 33  |>..Q.0.(A.127).3|
00000830: 31 B0 54 37 B2 30 A7 39  30 30 00 5C 10 48 03 81  |1.T7.0.900.\.H..|
00000840: 4A B2 30 A4 34 30 3A 8B  41 B2 41 28 4A 29 A7 42  |J.0.40:.A.A(J).B|
00000850: 24 B2 41 24 28 4A 29 3A  89 38 36 30 00 69 10 52  |$.A$(J):.860.i.R|
00000860: 03 82 4A 3A 89 31 30 30  30 00 80 10 5C 03 8B 42  |..J:.1000...\..B|
00000870: 24 B2 42 31 24 A7 42 B2  42 AA 31 3A 89 38 31 30  |$.B1$.B.B.1:.810|
00000880: 00 A3 10 66 03 8B 42 B1  30 A7 41 24 B2 CA 28 C4  |...f..B.0.A$..(.|
00000890: 28 42 AA 31 29 2C 32 29  AA 46 24 AA 42 24 3A 89  |(B.1),2).F$.B$:.|
000008A0: 38 39 30 00 B0 10 70 03  41 24 B2 46 24 AA 42 24  |890...p.A$.F$.B$|
000008B0: 00 D1 10 7A 03 42 B2 30  3A 42 31 24 B2 42 24 3A  |...z.B.0:B1$.B$:|
000008C0: 46 24 B2 22 2C 22 3A 46  31 B2 31 3A 89 31 30 31  |F$.",":F1.1:.101|
000008D0: 30 00 EC 10 84 03 41 B2  41 AB 31 32 38 3A 8B 41  |0.....A.A.128:.A|
000008E0: B3 30 B0 51 B3 B1 30 89  31 30 30 30 00 03 11 8E  |.0.Q..0.1000....|
000008F0: 03 8B 41 B2 31 32 37 A7  41 24 B2 22 22 3A 89 31  |..A.127.A$."":.1|
00000900: 30 30 30 00 14 11 98 03  54 B2 31 3A 41 24 B2 4B  |000.....T.1:A$.K|
00000910: 24 28 41 29 00 22 11 A2  03 8B 41 B2 31 35 A7 51  |$(A)."....A.15.Q|
00000920: B2 32 00 2C 11 E8 03 8D  32 30 31 30 00 40 11 F2  |.2.,....2010.@..|
00000930: 03 8B 41 24 B2 C7 28 33  34 29 A7 51 B2 31 AB 51  |..A$..(34).Q.1.Q|
00000940: 00 5D 11 FC 03 8F 20 20  43 3D 2D 31 20 46 4F 52  |.]....  C=-1 FOR|
00000950: 20 41 4C 50 48 41 4E 55  4D 45 52 49 43 00 88 11  | ALPHANUMERIC...|
00000960: 06 04 43 B2 C6 28 C8 28  41 24 2C 31 29 29 3A 43  |..C..(.(A$,1)):C|
00000970: B2 28 43 B3 34 38 B0 43  B1 35 37 29 AF 28 43 B3  |.(C.48.C.57).(C.|
00000980: 36 35 B0 43 B1 39 30 29  00 BA 11 10 04 8B 54 B3  |65.C.90)......T.|
00000990: B1 54 31 B0 54 B2 31 A7  54 31 B2 54 3A 8B 20 A8  |.T1.T.1.T1.T:. .|
000009A0: 20 43 20 AF 20 A8 20 43  31 20 A7 50 24 B2 50 24  | C . . C1 .P$.P$|
000009B0: AA 22 20 22 3A 8D 32 35  30 30 00 ED 11 1A 04 43  |." ":.2500.....C|
000009C0: B2 C6 28 C9 28 41 24 2C  31 29 29 3A 43 31 B2 28  |..(.(A$,1)):C1.(|
000009D0: 28 43 B3 34 38 B0 43 B1  35 37 29 AF 28 43 B3 36  |(C.48.C.57).(C.6|
000009E0: 35 B0 43 B1 39 30 29 29  B0 41 B2 33 37 00 00 12  |5.C.90)).A.37...|
000009F0: 24 04 50 24 B2 50 24 AA  41 24 3A 8D 32 35 30 30  |$.P$.P$.A$:.2500|
00000A00: 00 09 12 2E 04 89 38 31  30 00 22 12 38 04 8F 20  |......810.".8.. |
00000A10: 20 53 4B 49 50 20 54 4F  20 4E 45 58 54 20 4C 49  | SKIP TO NEXT LI|
00000A20: 4E 45 00 38 12 42 04 A1  23 31 2C 41 24 3A 8B 41  |NE.8.B..#1,A$:.A|
00000A30: 24 B2 22 22 A7 37 31 30  00 42 12 4C 04 89 31 30  |$."".710.B.L..10|
00000A40: 39 30 00 66 12 D0 07 8F  20 20 20 43 4C 4F 53 45  |90.f....   CLOSE|
00000A50: 20 4F 46 46 20 43 55 52  53 4F 52 20 45 58 50 52  | OFF CURSOR EXPR|
00000A60: 45 53 53 49 4F 4E 00 75  12 DA 07 8B 46 31 B2 30  |ESSION.u....F1.0|
00000A70: 89 32 30 34 30 00 96 12  E4 07 8B 42 B1 30 A7 50  |.2040......B.0.P|
00000A80: 24 B2 50 24 AA CA 28 C4  28 42 AA 31 29 2C 32 29  |$.P$..(.(B.1),2)|
00000A90: 3A 8D 32 35 30 30 00 C1  12 EE 07 42 B2 30 3A 46  |:.2500.....B.0:F|
00000AA0: 31 B2 30 3A 42 31 24 B2  22 22 3A 50 24 B2 50 24  |1.0:B1$."":P$.P$|
00000AB0: AA 50 32 24 3A 8D 32 35  30 30 3A 46 24 B2 50 31  |.P2$:.2500:F$.P1|
00000AC0: 24 00 C7 12 F8 07 8E 00  DA 12 C4 09 8B C3 28 50  |$.............(P|
00000AD0: 24 29 B3 4C 39 89 32 36  30 30 00 ED 12 CE 09 81  |$).L9.2600......|
00000AE0: 4A B2 4C 39 A4 4C 39 AC  2E 36 A9 AB 31 00 05 13  |J.L9.L9..6..1...|
00000AF0: D8 09 8B CA 28 50 24 2C  4A 2C 31 29 B2 22 3A 22  |....(P$,J,1).":"|
00000B00: 89 32 35 38 30 00 1F 13  E2 09 82 4A 3A 81 4A B2  |.2580......J:.J.|
00000B10: 4C 39 AB 31 A4 4C 39 AC  2E 36 AB 31 A9 AB 31 00  |L9.1.L9..6.1..1.|
00000B20: 30 13 EC 09 50 B2 C6 28  CA 28 50 24 2C 4A 29 29  |0...P..(.(P$,J))|
00000B30: 00 3F 13 F6 09 8B 50 B2  39 31 89 32 35 38 30 00  |.?....P.91.2580.|
00000B40: 5F 13 00 0A 8B 50 B2 35  39 B0 50 B2 34 34 B0 50  |_....P.59.P.44.P|
00000B50: B2 39 33 A7 4A B2 4A AA  31 3A 89 32 35 38 30 00  |.93.J.J.1:.2580.|
00000B60: 6D 13 0A 0A 82 4A 3A 4A  B2 4C 39 AB 31 00 81 13  |m....J:J.L9.1...|
00000B70: 14 0A 98 34 2C 4D 24 3B  C8 28 50 24 2C 4A AB 31  |...4,M$;.(P$,J.1|
00000B80: 29 00 97 13 1E 0A 50 24  B2 22 20 20 20 20 22 AA  |).....P$."    ".|
00000B90: CA 28 50 24 2C 4A 29 00  9D 13 28 0A 8E 00 B8 13  |.(P$,J)...(.....|
00000BA0: B8 0B 8B C3 28 50 24 29  B1 30 A7 46 32 B2 31 3A  |....(P$).0.F2.1:|
00000BB0: 98 34 2C 4D 24 3B 50 24  00 DA 13 C2 0B 8B 46 32  |.4,M$;P$......F2|
00000BC0: B2 30 A7 99 22 2A 2A 20  4E 4F 20 4C 49 4E 45 53  |.0.."** NO LINES|
00000BD0: 20 46 4F 55 4E 44 20 2A  2A 22 00 EA 13 CC 0B A0  | FOUND **"......|
00000BE0: 31 3A 8D 32 30 30 30 3A  A0 34 00 00 00           |1:.2000:.4...   |

....Z..  LISTER.?.D.. 19,147,17,145,29,1
57,18,146,20,148,141,32.[.N.. 80-COLUM C
URSOR STUFF..X.. 7,21,149,22,150,14,142
,25,153...... 15,143...... VIC STUFF....
.. 144,5,28,159,156,30,31,158... .. 8,9,
133,137,134,138,135,139,136,140.+.... HO
ME,CLEAR,DOWN,UP,RIGHT,LEFT,RVS,RVOFF,DE
L,INST,RETURN,SPACE.W.... BELL,D.LINE,I.
LINE,ER.BEGIN,ER.END,TEXT,GRAPHIC,SCROLL
.UP,SCROLL.DOWN...... TOP,BOTTOM...H.. B
LACK,WHITE,RED,CYAN,MAGENTA,GREEN,BLUE,Y
ELLOW...R.. LOCK,UNLOCK,F1,F2,F3,F4,F5,F
6,F7,F8......A(40),A$(40),K$(90):.53281,
0:.53280,11:.".."......J.0.40:.A(J):.J.D
....J.0.40:.A$(J):.J...... END,FOR,NEXT,
DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,RUN,
IF,RESTORE,GOSUB...... RETURN,REM,STOP,O
N,WAIT,LOAD,SAVE,VERIFY,DEFINE,POKE,PRIN
T#,PRINT,CONTINUE.).... LIST,CLR,CMD,SYS
,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN
,NOT,STEP.R.... +,-,*,/,^,AND,OR,>,=,<,S
GN,INT,ABS,USR,FRE,POS,SQR,RND,LOG,EXP,C
OS...".. SIN,TAN,ATN,PEEK,LEN,STR$,VAL,A
SC,CHR$,LEFT$,RIGHT$,MID$,GO,CONCAT...,.
. DOPEN,DCLOSE,RECORD,HEADER,COLLECT,BAC
KUP,COPY,APPEND,DSAVE,CATALOG.$.6.. RENA
ME,SCRATCH,DIRECTORY.:.@..J.0.89:.K$(J):
.J.`... 1:."..NAME OF PROGRAM FILE ?";G$
.U....1,8,3,G$.",P,R"......#1,A$,B$.....
.A$..G(1).A$.."".400......A$."".A$.G(1):
.#1,X$.X.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.4
....Y.32.510.H...L0.J:.Y..45.600.O....J.
{....L0.C(Z$).L2.E(J(Z$,L0.1)):.L2.0.L2.
1E9......L0.1.L1.E(Z$)......L0.0.L1.L2.N
.X.P3$."[":P4$."]":."LIST TO PRINTER  N.
..";Z$...B.P.3:.F(Z$).89.P.4:L$.".":P3$.
G(219):P4$.G(221).2.L.P1$."[":P2$."]":."
GRAPHICS OR TEXT  G...";Z$.J.V..53272,21
:.F(Z$).84..53272,23:M$.L$:P1$.P3$:P2$.P
4$......"TRANSLATE CURSOR MOVES  N...";Z
$......F(Z$).89.T7.1......4,P:F$.P1$.G..
.J.80:.P..3.690......".":."++++++++++++"
:.J.1.81:.B(1024.J).32..J.....L9.J:.4,"P
ROGRAM:  ";G$.%....  NEW LINE.T.F..2010:
Q.0:T1.1:C1..1:.#1,A$,B$:.ST..0.3000.D.P
..B$."".3000.R.Z..#1,A$,B$.....L.F(A$.G(
0)).F(B$.G(0)).256......L.L1.1080......L
.L2.3000.N...F2.1:.4,M$;P$:P$.D(L)." "..
. ..   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.\.H..J.0.40:.
A.A(J).B$.A$(J):.860.I.R..J:.1000...\..B
$.B1$.B.B.1:.810...F..B.0.A$.J(D(B.1),2)
.F$.B$:.890...P.A$.F$.B$.Q.Z.B.0:B1$.B$:
F$.",":F1.1:.1010.....A.A.128:.A.0.Q..0.
1000......A.127.A$."":.1000.....T.1:A$.K
$(A)."....A.15.Q.2.,....2010.@....A$.G(3
4).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.65.C.90)).A.37...$.P$.P$.A$:.2500
......810.".8..  SKIP TO NEXT LINE.8.B..
#1,A$:.A$."".710.B.L..1090.F.P..   CLOSE
 OFF CURSOR EXPRESSION.U.Z..F1.0.2040...
...B.0.P$.P$.J(D(B.1),2):.2500.A...B.0:F
1.0:B1$."":P$.P$.P2$:.2500:F$.P1$.G.....
Z.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.0...P.F(J(P$,J)).?....P.91.2580.
_....P.59.P.44.P.93.J.J.1:.2580.M....J:J
.L9.1......4,M$;H(P$,J.1).....P$."    ".
J(P$,J)...(........C(P$).0.F2.1:.4,M$;P$
.Z.B..F2.0.."** NO LINES FOUND **"...L. 
1:.2000: 4...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL