PROGRAMM-LISTER

00000000: 01 08 0E 08 05 00 97 35  33 32 38 31 2C 31 00 3E  |.......53281,1.>|
00000010: 08 0A 00 99 22 98 93 11  11 11 11 1D 20 20 20 20  |....".......    |
00000020: 20 20 20 20 20 1D 55 4E  49 56 45 52 53 41 4C 20  |     .UNIVERSAL |
00000030: 4C 49 53 54 45 52 22 3A  99 22 11 11 11 22 00 6C  |LISTER":."...".l|
00000040: 08 0F 00 99 22 20 20 20  20 20 20 20 20 20 20 20  |...."           |
00000050: 20 20 43 4F 4D 4D 4F 44  4F 52 45 20 36 34 22 3A  |  COMMODORE 64":|
00000060: 81 54 B2 31 A4 32 30 30  30 3A 82 54 00 81 08 10  |.T.1.2000:.T....|
00000070: 00 8F 20 43 4F 4D 50 55  54 45 20 44 45 43 20 38  |.. COMPUTE DEC 8|
00000080: 32 00 B0 08 64 00 83 31  39 2C 31 34 37 2C 31 37  |2...d..19,147,17|
00000090: 2C 31 34 35 2C 32 39 2C  31 35 37 2C 31 38 2C 31  |,145,29,157,18,1|
000000A0: 34 36 2C 32 30 2C 31 34  38 2C 31 34 31 2C 33 32  |46,20,148,141,32|
000000B0: 00 CC 08 6E 00 8F 38 30  2D 43 4F 4C 55 4D 4E 20  |...n..80-COLUMN |
000000C0: 43 55 52 53 4F 52 20 53  54 55 46 46 00 EF 08 78  |CURSOR STUFF...x|
000000D0: 00 83 37 2C 32 31 2C 31  34 39 2C 32 32 2C 31 35  |..7,21,149,22,15|
000000E0: 30 2C 31 34 2C 31 34 32  2C 32 35 2C 31 35 33 00  |0,14,142,25,153.|
000000F0: FB 08 82 00 83 31 35 2C  31 34 33 00 0B 09 8C 00  |.....15,143.....|
00000100: 8F 20 56 49 43 20 53 54  55 46 46 00 2B 09 96 00  |. VIC STUFF.+...|
00000110: 83 31 34 34 2C 35 2C 32  38 2C 31 35 39 2C 31 35  |.144,5,28,159,15|
00000120: 36 2C 33 30 2C 33 31 2C  31 35 38 00 54 09 A0 00  |6,30,31,158.T...|
00000130: 83 38 2C 39 2C 31 33 33  2C 31 33 37 2C 31 33 34  |.8,9,133,137,134|
00000140: 2C 31 33 38 2C 31 33 35  2C 31 33 39 2C 31 33 36  |,138,135,139,136|
00000150: 2C 31 34 30 00 97 09 AA  00 83 48 4F 4D 45 2C 43  |,140......HOME,C|
00000160: 4C 45 41 52 2C 44 4F 57  4E 2C 55 50 2C 52 49 47  |LEAR,DOWN,UP,RIG|
00000170: 48 54 2C 4C 45 46 54 2C  52 56 53 2C 52 56 4F 46  |HT,LEFT,RVS,RVOF|
00000180: 46 2C 44 45 4C 2C 49 4E  53 54 2C 52 45 54 55 52  |F,DEL,INST,RETUR|
00000190: 4E 2C 53 50 41 43 45 00  E2 09 B4 00 83 42 45 4C  |N,SPACE......BEL|
000001A0: 4C 2C 44 2E 4C 49 4E 45  2C 49 2E 4C 49 4E 45 2C  |L,D.LINE,I.LINE,|
000001B0: 45 52 2E 42 45 47 49 4E  2C 45 52 2E 45 4E 44 2C  |ER.BEGIN,ER.END,|
000001C0: 54 45 58 54 2C 47 52 41  50 48 49 43 2C 53 43 52  |TEXT,GRAPHIC,SCR|
000001D0: 4F 4C 4C 2E 55 50 2C 53  43 52 4F 4C 4C 2E 44 4F  |OLL.UP,SCROLL.DO|
000001E0: 57 4E 00 F2 09 BE 00 83  54 4F 50 2C 42 4F 54 54  |WN......TOP,BOTT|
000001F0: 4F 4D 00 26 0A C8 00 83  42 4C 41 43 4B 2C 57 48  |OM.&....BLACK,WH|
00000200: 49 54 45 2C 52 45 44 2C  43 59 41 4E 2C 4D 41 47  |ITE,RED,CYAN,MAG|
00000210: 45 4E 54 41 2C 47 52 45  45 4E 2C 42 4C 55 45 2C  |ENTA,GREEN,BLUE,|
00000220: 59 45 4C 4C 4F 57 00 4F  0A D2 00 83 4C 4F 43 4B  |YELLOW.O....LOCK|
00000230: 2C 55 4E 4C 4F 43 4B 2C  46 31 2C 46 32 2C 46 33  |,UNLOCK,F1,F2,F3|
00000240: 2C 46 34 2C 46 35 2C 46  36 2C 46 37 2C 46 38 00  |,F4,F5,F6,F7,F8.|
00000250: 68 0A DC 00 86 41 28 34  30 29 2C 41 24 28 34 30  |h....A(40),A$(40|
00000260: 29 2C 4B 24 28 39 30 29  00 7D 0A E6 00 81 4A B2  |),K$(90).}....J.|
00000270: 30 A4 34 30 3A 87 41 28  4A 29 3A 82 4A 00 93 0A  |0.40:.A(J):.J...|
00000280: F0 00 81 4A B2 30 A4 34  30 3A 87 41 24 28 4A 29  |...J.0.40:.A$(J)|
00000290: 3A 82 4A 00 DE 0A FA 00  83 45 4E 44 2C 46 4F 52  |:.J......END,FOR|
000002A0: 2C 4E 45 58 54 2C 44 41  54 41 2C 49 4E 50 55 54  |,NEXT,DATA,INPUT|
000002B0: 23 2C 49 4E 50 55 54 2C  44 49 4D 2C 52 45 41 44  |#,INPUT,DIM,READ|
000002C0: 2C 4C 45 54 2C 47 4F 54  4F 2C 52 55 4E 2C 49 46  |,LET,GOTO,RUN,IF|
000002D0: 2C 52 45 53 54 4F 52 45  2C 47 4F 53 55 42 00 27  |,RESTORE,GOSUB.'|
000002E0: 0B 04 01 83 52 45 54 55  52 4E 2C 52 45 4D 2C 53  |....RETURN,REM,S|
000002F0: 54 4F 50 2C 4F 4E 2C 57  41 49 54 2C 4C 4F 41 44  |TOP,ON,WAIT,LOAD|
00000300: 2C 53 41 56 45 2C 56 45  52 49 46 59 2C 44 45 46  |,SAVE,VERIFY,DEF|
00000310: 2C 50 4F 4B 45 2C 50 52  49 4E 54 23 2C 50 52 49  |,POKE,PRINT#,PRI|
00000320: 4E 54 2C 43 4F 4E 54 00  6E 0B 0E 01 83 4C 49 53  |NT,CONT.n....LIS|
00000330: 54 2C 43 4C 52 2C 43 4D  44 2C 53 59 53 2C 4F 50  |T,CLR,CMD,SYS,OP|
00000340: 45 4E 2C 43 4C 4F 53 45  2C 47 45 54 2C 4E 45 57  |EN,CLOSE,GET,NEW|
00000350: 2C 54 41 42 28 2C 54 4F  2C 46 4E 2C 53 50 43 28  |,TAB(,TO,FN,SPC(|
00000360: 2C 54 48 45 4E 2C 4E 4F  54 2C 53 54 45 50 00 B6  |,THEN,NOT,STEP..|
00000370: 0B 18 01 83 2B 2C 2D 2C  2A 2C 2F 2C 5E 2C 41 4E  |....+,-,*,/,^,AN|
00000380: 44 2C 4F 52 2C 3E 2C 3D  2C 3C 2C 53 47 4E 2C 49  |D,OR,>,=,<,SGN,I|
00000390: 4E 54 2C 41 42 53 2C 55  53 52 2C 46 52 45 2C 50  |NT,ABS,USR,FRE,P|
000003A0: 4F 53 2C 53 51 52 2C 52  4E 44 2C 4C 4F 47 2C 45  |OS,SQR,RND,LOG,E|
000003B0: 58 50 2C 43 4F 53 00 FE  0B 22 01 83 53 49 4E 2C  |XP,COS..."..SIN,|
000003C0: 54 41 4E 2C 41 54 4E 2C  50 45 45 4B 2C 4C 45 4E  |TAN,ATN,PEEK,LEN|
000003D0: 2C 53 54 52 24 2C 56 41  4C 2C 41 53 43 2C 43 48  |,STR$,VAL,ASC,CH|
000003E0: 52 24 2C 4C 45 46 54 24  2C 52 49 47 48 54 24 2C  |R$,LEFT$,RIGHT$,|
000003F0: 4D 49 44 24 2C 47 4F 2C  43 4F 4E 43 41 54 00 47  |MID$,GO,CONCAT.G|
00000400: 0C 2C 01 83 44 4F 50 45  4E 2C 44 43 4C 4F 53 45  |.,..DOPEN,DCLOSE|
00000410: 2C 52 45 43 4F 52 44 2C  48 45 41 44 45 52 2C 43  |,RECORD,HEADER,C|
00000420: 4F 4C 4C 45 43 54 2C 42  41 43 4B 55 50 2C 43 4F  |OLLECT,BACKUP,CO|
00000430: 50 59 2C 41 50 50 45 4E  44 2C 44 53 41 56 45 2C  |PY,APPEND,DSAVE,|
00000440: 43 41 54 41 4C 4F 47 00  65 0C 36 01 83 52 45 4E  |CATALOG.e.6..REN|
00000450: 41 4D 45 2C 53 43 52 41  54 43 48 2C 44 49 52 45  |AME,SCRATCH,DIRE|
00000460: 43 54 4F 52 59 00 7B 0C  40 01 81 4A B2 30 A4 38  |CTORY.{.@..J.0.8|
00000470: 39 3A 87 4B 24 28 4A 29  3A 82 4A 00 9D 0C 90 01  |9:.K$(J):.J.....|
00000480: A0 31 3A 85 22 4E 41 4D  45 20 4F 46 20 50 52 4F  |.1:."NAME OF PRO|
00000490: 47 52 41 4D 20 46 49 4C  45 22 3B 47 24 00 B2 0C  |GRAM FILE";G$...|
000004A0: 9A 01 9F 31 2C 38 2C 33  2C 47 24 AA 22 2C 50 2C  |...1,8,3,G$.",P,|
000004B0: 52 22 00 C0 0C A4 01 A1  23 31 2C 41 24 2C 42 24  |R"......#1,A$,B$|
000004C0: 00 D9 0C AE 01 8B 41 24  B3 B1 C7 28 31 29 AF 41  |......A$...(1).A|
000004D0: 24 B3 B1 22 22 89 34 30  30 00 F3 0C B8 01 8B 41  |$.."".400......A|
000004E0: 24 B2 22 22 A7 41 24 B2  C7 28 31 29 3A A1 23 31  |$."".A$..(1):.#1|
000004F0: 2C 58 24 00 15 0D C2 01  85 22 4C 49 4E 45 20 4E  |,X$......"LINE N|
00000500: 55 4D 42 45 52 20 52 41  4E 47 45 20 20 2D 9D 9D  |UMBER RANGE  -..|
00000510: 9D 22 3B 5A 24 00 2A 0D  CC 01 4C 30 B2 30 3A 4C  |.";Z$.*...L0.0:L|
00000520: 31 B2 30 3A 4C 32 B2 31  45 39 00 46 0D D6 01 81  |1.0:L2.1E9.F....|
00000530: 4A B2 31 A4 C3 28 5A 24  29 3A 59 24 B2 CA 28 5A  |J.1..(Z$):Y$..(Z|
00000540: 24 2C 4A 2C 31 29 00 63  0D E0 01 59 B2 C6 28 59  |$,J,1).c...Y..(Y|
00000550: 24 29 3A 8B 59 B1 B2 34  38 AF 59 B3 B2 35 37 89  |$):.Y..48.Y..57.|
00000560: 35 31 30 00 71 0D EA 01  8B 59 B2 33 32 89 35 31  |510.q....Y.32.51|
00000570: 30 00 85 0D F4 01 4C 30  B2 4A 3A 8B 59 B3 B1 34  |0.....L0.J:.Y..4|
00000580: 35 89 36 30 30 00 8C 0D  FE 01 82 4A 00 B8 0D 08  |5.600......J....|
00000590: 02 8B 4C 30 B3 C3 28 5A  24 29 A7 4C 32 B2 C5 28  |..L0..(Z$).L2..(|
000005A0: CA 28 5A 24 2C 4C 30 AA  31 29 29 3A 8B 4C 32 B2  |.(Z$,L0.1)):.L2.|
000005B0: 30 A7 4C 32 B2 31 45 39  00 CB 0D 12 02 8B 4C 30  |0.L2.1E9......L0|
000005C0: B1 31 A7 4C 31 B2 C5 28  5A 24 29 00 DB 0D 1C 02  |.1.L1..(Z$).....|
000005D0: 8B 4C 30 B2 30 A7 4C 31  B2 4C 32 00 0B 0E 58 02  |.L0.0.L1.L2...X.|
000005E0: 50 33 24 B2 22 5B 22 3A  50 34 24 B2 22 5D 22 3A  |P3$."[":P4$."]":|
000005F0: 85 22 4C 49 53 54 20 54  4F 20 50 52 49 4E 54 45  |."LIST TO PRINTE|
00000600: 52 20 20 4E 9D 9D 9D 22  3B 5A 24 00 3E 0E 62 02  |R  N...";Z$.>.b.|
00000610: 50 B2 33 3A 8B C6 28 5A  24 29 B2 38 39 A7 50 B2  |P.3:..(Z$).89.P.|
00000620: 34 3A 4C 24 B2 22 11 22  3A 50 33 24 B2 C7 28 32  |4:L$.".":P3$..(2|
00000630: 31 39 29 3A 50 34 24 B2  C7 28 32 32 31 29 00 6F  |19):P4$..(221).o|
00000640: 0E 6C 02 50 31 24 B2 22  5B 22 3A 50 32 24 B2 22  |.l.P1$."[":P2$."|
00000650: 5D 22 3A 85 22 47 52 41  50 48 49 43 53 20 4F 52  |]":."GRAPHICS OR|
00000660: 20 54 45 58 54 20 20 47  9D 9D 9D 22 3B 5A 24 00  | TEXT  G...";Z$.|
00000670: A2 0E 76 02 99 C7 28 31  34 32 29 3A 8B C6 28 5A  |..v...(142):..(Z|
00000680: 24 29 B2 38 34 A7 99 C7  28 31 34 29 3A 4D 24 B2  |$).84...(14):M$.|
00000690: 4C 24 3A 50 31 24 B2 50  33 24 3A 50 32 24 B2 50  |L$:P1$.P3$:P2$.P|
000006A0: 34 24 00 C8 0E 80 02 85  22 54 52 41 4E 53 4C 41  |4$......"TRANSLA|
000006B0: 54 45 20 43 55 52 53 4F  52 20 4D 4F 56 45 53 20  |TE CURSOR MOVES |
000006C0: 20 9D 9D 9D 22 3B 5A 24  00 DB 0E 8A 02 8B C6 28  | ...";Z$.......(|
000006D0: 5A 24 29 B2 38 39 A7 54  37 B2 31 00 EB 0E 94 02  |Z$).89.T7.1.....|
000006E0: 9F 34 2C 50 3A 46 24 B2  50 31 24 00 FE 0E 9E 02  |.4,P:F$.P1$.....|
000006F0: 4A B2 38 30 3A 8B 50 B3  B1 33 89 36 39 30 00 30  |J.80:.P..3.690.0|
00000700: 0F A8 02 99 22 93 22 3A  99 22 2B 2B 2B 2B 2B 2B  |....".":."++++++|
00000710: 2B 2B 2B 2B 2B 2B 22 3A  81 4A B2 31 A4 38 31 3A  |++++++":.J.1.81:|
00000720: 8B C2 28 31 30 32 34 AA  4A 29 B2 33 32 A7 82 4A  |..(1024.J).32..J|
00000730: 00 4D 0F B2 02 4C 39 B2  34 30 3A 98 34 2C 22 50  |.M...L9.40:.4,"P|
00000740: 52 4F 47 52 41 4D 3A 20  20 22 3B 47 24 00 5B 0F  |ROGRAM:  ";G$.[.|
00000750: BC 02 8F 4E 45 57 20 4C  49 4E 45 00 8A 0F C6 02  |...NEW LINE.....|
00000760: 8D 32 30 31 30 3A 51 B2  30 3A 54 31 B2 31 3A 43  |.2010:Q.0:T1.1:C|
00000770: 31 B2 AB 31 3A A1 23 31  2C 41 24 2C 42 24 3A 8B  |1..1:.#1,A$,B$:.|
00000780: 53 54 B3 B1 30 89 33 30  30 30 00 9A 0F D0 02 8B  |ST..0.3000......|
00000790: 42 24 B2 22 22 89 33 30  30 30 00 A8 0F DA 02 A1  |B$."".3000......|
000007A0: 23 31 2C 41 24 2C 42 24  00 C8 0F E4 02 4C B2 C6  |#1,A$,B$.....L..|
000007B0: 28 41 24 AA C7 28 30 29  29 AA C6 28 42 24 AA C7  |(A$..(0))..(B$..|
000007C0: 28 30 29 29 AC 32 35 36  00 D7 0F EE 02 8B 4C B3  |(0)).256......L.|
000007D0: 4C 31 89 31 30 38 30 00  E6 0F F8 02 8B 4C B1 4C  |L1.1080......L.L|
000007E0: 32 89 33 30 30 30 00 04  10 02 03 46 32 B2 31 3A  |2.3000.....F2.1:|
000007F0: 98 34 2C 4D 24 3B 50 24  3A 50 24 B2 C4 28 4C 29  |.4,M$;P$:P$..(L)|
00000800: AA 22 20 22 00 1A 10 20  03 8F 20 53 54 41 52 54  |." "... .. START|
00000810: 20 54 45 58 54 20 48 45  52 45 00 30 10 2A 03 A1  | TEXT HERE.0.*..|
00000820: 23 31 2C 41 24 3A 8B 41  24 B2 22 22 89 37 31 30  |#1,A$:.A$."".710|
00000830: 00 51 10 34 03 54 B2 30  3A 41 B2 C6 28 41 24 29  |.Q.4.T.0:A..(A$)|
00000840: 3A 8B 41 B2 33 32 AF 46  24 B2 22 2C 22 89 38 34  |:.A.32.F$.",".84|
00000850: 30 00 6E 10 3E 03 8B 51  B2 30 B0 28 41 AF 31 32  |0.n.>..Q.0.(A.12|
00000860: 37 29 B1 33 31 B0 54 37  B2 30 89 39 30 30 00 90  |7).31.T7.0.900..|
00000870: 10 48 03 81 4A B2 30 A4  34 30 3A 8B 41 B2 41 28  |.H..J.0.40:.A.A(|
00000880: 4A 29 A7 42 24 B2 41 24  28 4A 29 3A 89 38 36 30  |J).B$.A$(J):.860|
00000890: 00 9D 10 52 03 82 4A 3A  89 31 30 30 30 00 B4 10  |...R..J:.1000...|
000008A0: 5C 03 8B 42 24 B2 42 31  24 A7 42 B2 42 AA 31 3A  |\..B$.B1$.B.B.1:|
000008B0: 89 38 31 30 00 D7 10 66  03 8B 42 B1 30 A7 41 24  |.810...f..B.0.A$|
000008C0: B2 CA 28 C4 28 42 AA 31  29 2C 32 29 AA 46 24 AA  |..(.(B.1),2).F$.|
000008D0: 42 24 3A 89 38 39 30 00  E4 10 70 03 41 24 B2 46  |B$:.890...p.A$.F|
000008E0: 24 AA 42 24 00 05 11 7A  03 42 B2 30 3A 42 31 24  |$.B$...z.B.0:B1$|
000008F0: B2 42 24 3A 46 24 B2 22  2C 22 3A 46 31 B2 31 3A  |.B$:F$.",":F1.1:|
00000900: 89 31 30 31 30 00 20 11  84 03 41 B2 41 AB 31 32  |.1010. ...A.A.12|
00000910: 38 3A 8B 41 B3 30 B0 51  B3 B1 30 89 31 30 30 30  |8:.A.0.Q..0.1000|
00000920: 00 37 11 8E 03 8B 41 B2  31 32 37 A7 41 24 B2 22  |.7....A.127.A$."|
00000930: 22 3A 89 31 30 30 30 00  48 11 98 03 54 B2 31 3A  |":.1000.H...T.1:|
00000940: 41 24 B2 4B 24 28 41 29  00 56 11 A2 03 8B 41 B2  |A$.K$(A).V....A.|
00000950: 31 35 A7 51 B2 32 00 60  11 E8 03 8D 32 30 31 30  |15.Q.2.`....2010|
00000960: 00 74 11 F2 03 8B 41 24  B2 C7 28 33 34 29 A7 51  |.t....A$..(34).Q|
00000970: B2 31 AB 51 00 90 11 FC  03 8F 20 43 3D 2D 31 20  |.1.Q...... C=-1 |
00000980: 46 4F 52 20 41 4C 50 48  41 4E 55 4D 45 52 49 43  |FOR ALPHANUMERIC|
00000990: 00 BB 11 06 04 43 B2 C6  28 C8 28 41 24 2C 31 29  |.....C..(.(A$,1)|
000009A0: 29 3A 43 B2 28 43 B3 34  38 B0 43 B1 35 37 29 AF  |):C.(C.48.C.57).|
000009B0: 28 43 B3 36 35 B0 43 B1  39 30 29 00 E7 11 10 04  |(C.65.C.90).....|
000009C0: 8B 54 B3 B1 54 31 B0 54  B2 31 A7 54 31 B2 54 3A  |.T..T1.T.1.T1.T:|
000009D0: 8B A8 43 AF A8 43 31 A7  50 24 B2 50 24 AA 22 20  |..C..C1.P$.P$." |
000009E0: 22 3A 8D 32 35 30 30 00  1A 12 1A 04 43 B2 C6 28  |":.2500.....C..(|
000009F0: C9 28 41 24 2C 31 29 29  3A 43 31 B2 28 28 43 B3  |.(A$,1)):C1.((C.|
00000A00: 34 38 B0 43 B1 35 37 29  AF 28 43 B3 36 35 B0 43  |48.C.57).(C.65.C|
00000A10: B1 39 30 29 29 B0 41 B2  33 37 00 2D 12 24 04 50  |.90)).A.37.-.$.P|
00000A20: 24 B2 50 24 AA 41 24 3A  8D 32 35 30 30 00 36 12  |$.P$.A$:.2500.6.|
00000A30: 2E 04 89 38 31 30 00 4E  12 38 04 8F 20 53 4B 49  |...810.N.8.. SKI|
00000A40: 50 20 54 4F 20 4E 45 58  54 20 4C 49 4E 45 00 64  |P TO NEXT LINE.d|
00000A50: 12 42 04 A1 23 31 2C 41  24 3A 8B 41 24 B2 22 22  |.B..#1,A$:.A$.""|
00000A60: 89 37 31 30 00 6E 12 4C  04 89 31 30 39 30 00 90  |.710.n.L..1090..|
00000A70: 12 D0 07 8F 20 43 4C 4F  53 45 20 4F 46 46 20 43  |.... CLOSE OFF C|
00000A80: 55 52 53 4F 52 20 45 58  50 52 45 53 53 49 4F 4E  |URSOR EXPRESSION|
00000A90: 00 9F 12 DA 07 8B 46 31  B2 30 89 32 30 34 30 00  |......F1.0.2040.|
00000AA0: C0 12 E4 07 8B 42 B1 30  A7 50 24 B2 50 24 AA CA  |.....B.0.P$.P$..|
00000AB0: 28 C4 28 42 AA 31 29 2C  32 29 3A 8D 32 35 30 30  |(.(B.1),2):.2500|
00000AC0: 00 EB 12 EE 07 42 B2 30  3A 46 31 B2 30 3A 42 31  |.....B.0:F1.0:B1|
00000AD0: 24 B2 22 22 3A 50 24 B2  50 24 AA 50 32 24 3A 8D  |$."":P$.P$.P2$:.|
00000AE0: 32 35 30 30 3A 46 24 B2  50 31 24 00 F1 12 F8 07  |2500:F$.P1$.....|
00000AF0: 8E 00 04 13 C4 09 8B C3  28 50 24 29 B3 4C 39 89  |........(P$).L9.|
00000B00: 32 36 30 30 00 17 13 CE  09 81 4A B2 4C 39 A4 4C  |2600......J.L9.L|
00000B10: 39 AC 2E 36 A9 AB 31 00  2F 13 D8 09 8B CA 28 50  |9..6..1./.....(P|
00000B20: 24 2C 4A 2C 31 29 B2 22  3A 22 89 32 35 38 30 00  |$,J,1).":".2580.|
00000B30: 49 13 E2 09 82 4A 3A 81  4A B2 4C 39 AB 31 A4 4C  |I....J:.J.L9.1.L|
00000B40: 39 AC 2E 36 AB 31 A9 AB  31 00 5A 13 EC 09 50 B2  |9..6.1..1.Z...P.|
00000B50: C6 28 CA 28 50 24 2C 4A  29 29 00 69 13 F6 09 8B  |.(.(P$,J)).i....|
00000B60: 50 B2 39 31 89 32 35 38  30 00 89 13 00 0A 8B 50  |P.91.2580......P|
00000B70: B2 35 39 B0 50 B2 34 34  B0 50 B2 39 33 A7 4A B2  |.59.P.44.P.93.J.|
00000B80: 4A AA 31 3A 89 32 35 38  30 00 97 13 0A 0A 82 4A  |J.1:.2580......J|
00000B90: 3A 4A B2 4C 39 AB 31 00  AB 13 14 0A 98 34 2C 4D  |:J.L9.1......4,M|
00000BA0: 24 3B C8 28 50 24 2C 4A  AB 31 29 00 C1 13 1E 0A  |$;.(P$,J.1).....|
00000BB0: 50 24 B2 22 20 20 20 20  22 AA CA 28 50 24 2C 4A  |P$."    "..(P$,J|
00000BC0: 29 00 C7 13 28 0A 8E 00  E2 13 B8 0B 8B C3 28 50  |)...(.........(P|
00000BD0: 24 29 B1 30 A7 46 32 B2  31 3A 98 34 2C 4D 24 3B  |$).0.F2.1:.4,M$;|
00000BE0: 50 24 00 04 14 C2 0B 8B  46 32 B2 30 A7 99 22 2A  |P$......F2.0.."*|
00000BF0: 2A 20 4E 4F 20 4C 49 4E  45 53 20 46 4F 55 4E 44  |* NO LINES FOUND|
00000C00: 20 2A 2A 22 00 14 14 CC  0B A0 31 3A 8D 32 30 30  | **"......1:.200|
00000C10: 30 3A A0 34 00 00 00 AD  00                       |0:.4.....       |

.......53281,1.>....".......         .UN
IVERSAL LISTER":."...".L...."           
  COMMODORE 64":.T.1.2000:.T...... COMPU
TE DEC 82...D..19,147,17,145,29,157,18,1
46,20,148,141,32.L.N..80-COLUMN CURSOR S
TUFF...X..7,21,149,22,150,14,142,25,153.
.....15,143...... VIC STUFF.+....144,5,2
8,159,156,30,31,158.T. ..8,9,133,137,134
,138,135,139,136,140......HOME,CLEAR,DOW
N,UP,RIGHT,LEFT,RVS,RVOFF,DEL,INST,RETUR
N,SPACE......BELL,D.LINE,I.LINE,ER.BEGIN
,ER.END,TEXT,GRAPHIC,SCROLL.UP,SCROLL.DO
WN......TOP,BOTTOM.&.H..BLACK,WHITE,RED,
CYAN,MAGENTA,GREEN,BLUE,YELLOW.O.R..LOCK
,UNLOCK,F1,F2,F3,F4,F5,F6,F7,F8.H....A(4
0),A$(40),K$(90).}....J.0.40:.A(J):.J...
...J.0.40:.A$(J):.J......END,FOR,NEXT,DA
TA,INPUT#,INPUT,DIM,READ,LET,GOTO,RUN,IF
,RESTORE,GOSUB.'....RETURN,REM,STOP,ON,W
AIT,LOAD,SAVE,VERIFY,DEF,POKE,PRINT#,PRI
NT,CONT.N....LIST,CLR,CMD,SYS,OPEN,CLOSE
,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT,STEP..
....+,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,U
SR,FRE,POS,SQR,RND,LOG,EXP,COS..."..SIN,
TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$
,RIGHT$,MID$,GO,CONCAT.G.,..DOPEN,DCLOSE
,RECORD,HEADER,COLLECT,BACKUP,COPY,APPEN
D,DSAVE,CATALOG.E.6..RENAME,SCRATCH,DIRE
CTORY.{.@..J.0.89:.K$(J):.J..... 1:."NAM
E OF PROGRAM FILE";G$......1,8,3,G$.",P,
R"......#1,A$,B$.Y....A$..G(1).A$.."".40
0......A$."".A$.G(1):.#1,X$...B.."LINE N
UMBER RANGE  -...";Z$.*.L.L0.0:L1.0:L2.1
E9.F.V..J.1.C(Z$):Y$.J(Z$,J,1).C...Y.F(Y
$):.Y..48.Y..57.510.Q....Y.32.510.....L0
.J:.Y..45.600......J......L0.C(Z$).L2.E(
J(Z$,L0.1)):.L2.0.L2.1E9.K....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(221).O
.L.P1$."[":P2$."]":."GRAPHICS OR TEXT  G
...";Z$...V..G(142):.F(Z$).84..G(14):M$.
L$:P1$.P3$:P2$.P4$.H...."TRANSLATE CURSO
R MOVES  ...";Z$......F(Z$).89.T7.1.....
.4,P:F$.P1$.....J.80:.P..3.690.0....".":
."++++++++++++":.J.1.81:.B(1024.J).32..J
.M...L9.40:.4,"PROGRAM:  ";G$.[....NEW L
INE...F..2010:Q.0:T1.1:C1..1:.#1,A$,B$:.
ST..0.3000...P..B$."".3000...Z..#1,A$,B$
.H...L.F(A$.G(0)).F(B$.G(0)).256.W....L.
L1.1080......L.L2.3000.....F2.1:.4,M$;P$
:P$.D(L)." "... .. START TEXT HERE.0.*..
#1,A$:.A$."".710.Q.4.T.0:A.F(A$):.A.32.F
$.",".840.N.>..Q.0.(A.127).31.T7.0.900..
.H..J.0.40:.A.A(J).B$.A$(J):.860...R..J:
.1000...\..B$.B1$.B.B.1:.810.W.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.12
8:.A.0.Q..0.1000.7....A.127.A$."":.1000.
H...T.1:A$.K$(A).V....A.15.Q.2.`....2010
.T....A$.G(34).Q.1.Q...... C=-1 FOR ALPH
ANUMERIC.....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.6....810.N.8.. SKIP TO NEXT LINE.D
.B..#1,A$:.A$."".710.N.L..1090...P.. CLO
SE OFF 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.I....J:.J.L9.1.L
9..6.1..1.Z...P.F(J(P$,J)).I....P.91.258
0......P.59.P.44.P.93.J.J.1:.2580......J
:J.L9.1......4,M$;H(P$,J.1).A...P$."    
".J(P$,J).G.(........C(P$).0.F2.1:.4,M$;
P$...B..F2.0.."** NO LINES FOUND **"...L
. 1:.2000: 4.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL