17 FORMAT LISTIN

00000000: 01 08 11 08 E8 03 8F 2A  2A 2A 4C 49 53 54 2A 2A  |.......***LIST**|
00000010: 2A 00 41 08 F2 03 43 30  24 B2 C7 28 30 29 3A 43  |*.A...C0$..(0):C|
00000020: 31 24 B2 22 3A 22 3A 4C  25 B2 36 3A 41 B2 31 45  |1$.":":L%.6:A.1E|
00000030: 31 30 3A 42 B2 32 45 31  30 3A 86 43 24 28 37 35  |10:B.2E10:.C$(75|
00000040: 29 00 82 08 4C 04 99 22  93 22 3A 99 22 11 11 45  |)...L..".":."..E|
00000050: 4E 54 45 52 20 4E 41 4D  45 20 4F 46 20 50 52 4F  |NTER NAME OF PRO|
00000060: 47 52 41 4D 20 54 4F 20  42 45 20 4C 49 53 54 45  |GRAM TO BE LISTE|
00000070: 44 2E 22 3A 85 22 50 47  4D 20 4E 41 4D 45 22 3B  |D.":."PGM NAME";|
00000080: 4E 24 00 A8 08 56 04 99  22 11 45 4E 54 45 52 20  |N$...V..".ENTER |
00000090: 54 4F 44 41 59 53 20 44  41 54 45 2E 22 3A 85 22  |TODAYS DATE.":."|
000000A0: 44 41 54 45 22 3B 44 24  00 D5 08 60 04 99 22 11  |DATE";D$...`..".|
000000B0: 11 54 48 45 20 50 47 4D  20 54 4F 20 42 45 20 4C  |.THE PGM TO BE L|
000000C0: 49 53 54 45 44 20 4D 55  53 54 20 42 45 20 4F 4E  |ISTED MUST BE ON|
000000D0: 20 54 48 45 22 00 03 09  6A 04 99 22 44 49 53 4B  | THE"...j.."DISK|
000000E0: 20 49 4E 20 44 52 49 56  45 20 30 20 41 4E 44 20  | IN DRIVE 0 AND |
000000F0: 54 48 45 20 50 52 49 4E  54 45 52 53 20 50 41 50  |THE PRINTERS PAP|
00000100: 45 52 22 00 32 09 74 04  99 22 4D 55 53 54 20 42  |ER".2.t.."MUST B|
00000110: 45 20 46 49 54 54 45 44  20 53 4F 20 54 48 41 54  |E FITTED SO THAT|
00000120: 20 54 48 45 20 50 52 49  4E 54 45 52 20 48 45 41  | THE PRINTER HEA|
00000130: 44 22 00 6B 09 7E 04 99  22 49 53 20 4F 4E 20 54  |D".k.~.."IS ON T|
00000140: 4F 50 20 4F 46 20 54 48  45 20 50 41 47 45 2E 22  |OP OF THE PAGE."|
00000150: 3A 99 22 11 48 49 54 20  52 45 54 55 52 4E 20 57  |:.".HIT RETURN W|
00000160: 48 45 4E 20 52 45 41 44  59 2E 22 00 8A 09 88 04  |HEN READY.".....|
00000170: 81 49 B2 41 A4 41 3A A1  49 4E 24 3A 8B 49 4E 24  |.I.A.A:.IN$:.IN$|
00000180: B2 C7 28 31 33 29 A7 49  B2 42 00 90 09 92 04 82  |..(13).I.B......|
00000190: 00 A5 09 B0 04 81 49 B2  30 A4 37 35 3A 87 43 24  |......I.0.75:.C$|
000001A0: 28 49 29 3A 82 00 C6 09  14 05 9F 34 2C 34 3A 9F  |(I):.......4,4:.|
000001B0: 31 35 2C 38 2C 31 35 3A  98 31 35 2C 22 49 30 22  |15,8,15:.15,"I0"|
000001C0: 3A 8D 39 37 31 30 00 EC  09 1E 05 9F 38 2C 38 2C  |:.9710......8,8,|
000001D0: 38 2C 22 30 3A 22 AA 4E  24 AA 22 2C 50 2C 52 22  |8,"0:".N$.",P,R"|
000001E0: 3A 8D 39 37 31 30 3A 8D  39 36 31 30 00 F9 09 78  |:.9710:.9610...x|
000001F0: 05 81 49 B2 31 A4 34 3A  82 00 19 0A 82 05 98 34  |..I.1.4:.......4|
00000200: 2C A6 33 29 3B C7 28 31  29 3B 4E 24 3B C7 28 31  |,.3);.(1);N$;.(1|
00000210: 32 39 29 2C 44 24 3A 98  34 00 2F 0A D0 07 81 49  |29),D$:.4./....I|
00000220: B2 41 A4 41 3A 49 25 B2  30 3A 8D 39 36 31 30 00  |.A.A:I%.0:.9610.|
00000230: 5E 0A DA 07 8D 39 35 31  30 3A 58 25 B2 C6 28 49  |^....9510:X%..(I|
00000240: 4E 24 29 3A 8D 39 35 31  30 3A 4C 4E 24 B2 C4 28  |N$):.9510:LN$..(|
00000250: 58 25 AA C6 28 49 4E 24  29 AC 32 35 36 29 00 8A  |X%..(IN$).256)..|
00000260: 0A E4 07 98 34 2C A6 33  29 3B C9 28 22 30 30 30  |....4,.3);.("000|
00000270: 30 22 AA C9 28 4C 4E 24  2C C3 28 4C 4E 24 29 AB  |0"..(LN$,.(LN$).|
00000280: 31 29 2C 35 29 3B 22 20  22 3B 00 AD 0A EE 07 81  |1),5);" ";......|
00000290: 4A B2 41 A4 41 3A 4F 50  24 B2 22 22 3A 51 25 B2  |J.A.A:OP$."":Q%.|
000002A0: 30 3A 46 31 25 B2 30 3A  49 31 25 B2 30 00 C8 0A  |0:F1%.0:I1%.0...|
000002B0: F8 07 81 4B B2 41 A4 41  3A 8D 39 35 31 30 3A 58  |...K.A.A:.9510:X|
000002C0: 25 B2 C6 28 49 4E 24 29  00 E9 0A 02 08 8B A8 28  |%..(IN$).......(|
000002D0: 58 25 B1 31 32 37 AF 58  25 B3 B1 32 35 35 AF 51  |X%.127.X%..255.Q|
000002E0: 25 B2 30 29 89 32 31 33  30 00 1A 0B 0C 08 4F 50  |%.0).2130.....OP|
000002F0: 24 B2 4F 50 24 AA 43 24  28 58 25 AB 31 32 38 29  |$.OP$.C$(X%.128)|
00000300: 3A 8B 58 25 B2 31 33 39  A7 49 25 B2 49 25 AA 32  |:.X%.139.I%.I%.2|
00000310: 3A 49 31 25 B2 49 31 25  AA 32 00 38 0B 16 08 8B  |:I1%.I1%.2.8....|
00000320: 58 25 B2 31 32 39 A7 46  25 B2 46 25 AA 32 3A 46  |X%.129.F%.F%.2:F|
00000330: 31 25 B2 46 31 25 AA 32  00 4C 0B 20 08 8B A8 28  |1%.F1%.2.L. ...(|
00000340: 58 25 B2 31 33 30 29 89  32 31 32 30 00 82 0B 2A  |X%.130).2120...*|
00000350: 08 46 25 B2 46 25 AB 32  3A 81 4C B2 41 A4 41 3A  |.F%.F%.2:.L.A.A:|
00000360: 8D 39 35 31 30 3A 4F 50  24 B2 4F 50 24 AA 49 4E  |.9510:OP$.OP$.IN|
00000370: 24 3A 8B 49 4E 24 B2 22  2C 22 A7 46 25 B2 46 25  |$:.IN$.",".F%.F%|
00000380: AB 32 00 9B 0B 34 08 8B  49 4E 24 B2 43 30 24 B0  |.2...4..IN$.C0$.|
00000390: 49 4E 24 B2 43 31 24 A7  4C B2 42 00 A1 0B 3E 08  |IN$.C1$.L.B...>.|
000003A0: 82 00 B0 0B 43 08 8B 46  25 B3 30 A7 46 25 B2 30  |....C..F%.0.F%.0|
000003B0: 00 BA 0B 48 08 89 32 31  34 30 00 CA 0B 52 08 4F  |...H..2140...R.O|
000003C0: 50 24 B2 4F 50 24 AA 49  4E 24 00 E0 0B 57 08 8B  |P$.OP$.IN$...W..|
000003D0: 49 4E 24 B2 C7 28 33 34  29 A7 51 25 B2 A8 51 25  |IN$..(34).Q%..Q%|
000003E0: 00 FE 0B 5C 08 8B 49 4E  24 B2 43 30 24 B0 49 4E  |...\..IN$.C0$.IN|
000003F0: 24 B2 43 31 24 AF 51 25  B2 30 A7 4B B2 42 00 04  |$.C1$.Q%.0.K.B..|
00000400: 0C 66 08 82 00 36 0C 70  08 58 25 B2 46 25 AB 46  |.f...6.p.X%.F%.F|
00000410: 31 25 AA 49 25 AB 49 31  25 3A 8B 49 4E 24 B2 43  |1%.I%.I1%:.IN$.C|
00000420: 30 24 A7 4F 50 24 B2 C8  28 4F 50 24 2C C3 28 4F  |0$.OP$..(OP$,.(O|
00000430: 50 24 29 AB 31 29 00 55  0C 7A 08 98 34 2C A6 58  |P$).1).U.z..4,.X|
00000440: 25 29 3B C8 28 4F 50 24  2C 35 38 AB 58 25 29 3A  |%);.(OP$,58.X%):|
00000450: 8D 39 34 31 30 00 6F 0C  84 08 8B A8 28 C3 28 4F  |.9410.o.....(.(O|
00000460: 50 24 29 B1 35 38 AB 58  25 29 89 32 31 39 35 00  |P$).58.X%).2195.|
00000470: 9B 0C 8E 08 98 34 2C A6  31 34 AA 46 25 AA 49 25  |.....4,.14.F%.I%|
00000480: 29 3B C9 28 4F 50 24 2C  C3 28 4F 50 24 29 AB 35  |);.(OP$,.(OP$).5|
00000490: 38 AA 58 25 29 3A 8D 39  34 31 30 00 B1 0C 93 08  |8.X%):.9410.....|
000004A0: 8B 49 4E 24 B2 43 31 24  A7 98 34 2C A6 31 34 29  |.IN$.C1$..4,.14)|
000004B0: 3B 00 C2 0C 98 08 8B 49  4E 24 B2 43 30 24 A7 4A  |;......IN$.C0$.J|
000004C0: B2 42 00 CA 0C A2 08 82  3A 82 00 E0 0C B8 24 8F  |.B......:.....$.|
000004D0: 2A 2A 2A 4C 49 4E 45 20  43 4F 55 4E 54 2A 2A 2A  |***LINE COUNT***|
000004E0: 00 EC 0C C2 24 4C 25 B2  4C 25 AA 31 00 FF 0C CC  |....$L%.L%.1....|
000004F0: 24 8B A8 28 4C 25 B1 37  30 29 89 39 34 34 30 00  |$..(L%.70).9440.|
00000500: 11 0D D6 24 81 49 B2 31  A4 38 3A 82 3A 4C 25 B2  |...$.I.1.8:.:L%.|
00000510: 32 00 17 0D E0 24 8E 00  29 0D 1C 25 8F 2A 2A 2A  |2....$..)..%.***|
00000520: 52 45 41 44 20 31 2A 2A  2A 00 4B 0D 26 25 A1 23  |READ 1***.K.&%.#|
00000530: 38 2C 49 4E 24 3A 8D 39  37 31 30 3A 8B 49 4E 24  |8,IN$:.9710:.IN$|
00000540: B2 22 22 A7 49 4E 24 B2  43 30 24 00 51 0D 30 25  |."".IN$.C0$.Q.0%|
00000550: 8E 00 63 0D 80 25 8F 2A  2A 2A 52 45 41 44 20 32  |..c..%.***READ 2|
00000560: 2A 2A 2A 00 8E 0D 8A 25  A1 23 38 2C 49 4E 24 3A  |***....%.#8,IN$:|
00000570: 8D 39 37 31 30 3A A1 23  38 2C 49 4E 24 3A 8D 39  |.9710:.#8,IN$:.9|
00000580: 37 31 30 3A 8B 49 4E 24  B3 B1 22 22 A7 8E 00 9A  |710:.IN$..""....|
00000590: 0D 94 25 8D 39 38 31 30  3A 80 00 B4 0D E4 25 8F  |..%.9810:.....%.|
000005A0: 2A 2A 2A 45 52 52 4F 52  20 4D 45 53 53 41 47 45  |***ERROR MESSAGE|
000005B0: 53 2A 2A 2A 00 D8 0D EE  25 84 31 35 2C 45 4E 24  |S***....%.15,EN$|
000005C0: 2C 45 4D 24 2C 45 54 24  2C 45 53 24 3A 8B 45 4E  |,EM$,ET$,ES$:.EN|
000005D0: 24 B2 22 30 30 22 A7 8E  00 10 0E F8 25 99 22 93  |$."00"......%.".|
000005E0: 44 49 53 4B 20 45 52 52  4F 52 22 3A 99 22 11 11  |DISK ERROR":."..|
000005F0: 45 52 52 4F 52 20 4E 52  3A 20 22 3B 45 4E 24 3A  |ERROR NR: ";EN$:|
00000600: 99 22 45 52 52 4F 52 3A  20 20 20 22 3B 45 4D 24  |."ERROR:   ";EM$|
00000610: 00 38 0E 02 26 8B A8 28  45 4E 24 B1 22 31 39 22  |.8..&..(EN$."19"|
00000620: AF 45 4E 24 B3 22 33 30  22 B0 45 4E 24 B2 22 36  |.EN$."30".EN$."6|
00000630: 35 22 29 89 39 37 35 30  00 5F 0E 0C 26 99 22 11  |5").9750._..&.".|
00000640: 54 52 41 43 4B 3A 20 20  20 22 3B 45 54 24 3A 99  |TRACK:   ";ET$:.|
00000650: 22 53 45 43 54 4F 52 3A  20 20 22 3B 45 53 24 00  |"SECTOR:  ";ES$.|
00000660: 6B 0E 16 26 8D 39 38 31  30 3A 80 00 85 0E 48 26  |k..&.9810:....H&|
00000670: 8F 2A 2A 2A 43 4C 4F 53  45 20 43 48 41 4E 4E 45  |.***CLOSE CHANNE|
00000680: 4C 53 2A 2A 2A 00 95 0E  52 26 A0 34 3A A0 38 3A  |LS***...R&.4:.8:|
00000690: A0 31 35 3A 8E 00 A9 0E  AC 26 8F 2A 2A 2A 43 4F  |.15:.....&.***CO|
000006A0: 4D 4D 41 4E 44 53 2A 2A  2A 00 EE 0E B6 26 83 45  |MMANDS***....&.E|
000006B0: 4E 44 2C 46 4F 52 2C 4E  45 58 54 2C 44 41 54 41  |ND,FOR,NEXT,DATA|
000006C0: 2C 49 4E 50 55 54 23 2C  49 4E 50 55 54 2C 44 49  |,INPUT#,INPUT,DI|
000006D0: 4D 2C 52 45 41 44 2C 4C  45 54 2C 47 4F 54 4F 2C  |M,READ,LET,GOTO,|
000006E0: 52 55 4E 2C 49 46 2C 52  45 53 54 4F 52 45 00 38  |RUN,IF,RESTORE.8|
000006F0: 0F C0 26 83 47 4F 53 55  42 2C 52 45 54 55 52 4E  |..&.GOSUB,RETURN|
00000700: 2C 52 45 4D 2C 53 54 4F  50 2C 4F 4E 2C 57 41 49  |,REM,STOP,ON,WAI|
00000710: 54 2C 4C 4F 41 44 2C 53  41 56 45 2C 56 45 52 49  |T,LOAD,SAVE,VERI|
00000720: 46 59 2C 44 45 46 2C 50  4F 4B 45 2C 50 52 49 4E  |FY,DEF,POKE,PRIN|
00000730: 54 23 2C 50 52 49 4E 54  00 7F 0F CA 26 83 43 4F  |T#,PRINT....&.CO|
00000740: 4E 54 2C 4C 49 53 54 2C  43 4C 52 2C 43 4D 44 2C  |NT,LIST,CLR,CMD,|
00000750: 53 59 53 2C 4F 50 45 4E  2C 43 4C 4F 53 45 2C 47  |SYS,OPEN,CLOSE,G|
00000760: 45 54 2C 4E 45 57 2C 54  41 42 28 2C 54 4F 2C 46  |ET,NEW,TAB(,TO,F|
00000770: 4E 2C 53 50 43 28 2C 54  48 45 4E 2C 4E 4F 54 00  |N,SPC(,THEN,NOT.|
00000780: C8 0F D4 26 83 53 54 45  50 2C 2B 2C 2D 2C 2A 2C  |...&.STEP,+,-,*,|
00000790: 2F 2C 5E 2C 41 4E 44 2C  4F 52 2C 3E 2C 3D 2C 3C  |/,^,AND,OR,>,=,<|
000007A0: 2C 53 47 4E 2C 49 4E 54  2C 41 42 53 2C 55 53 52  |,SGN,INT,ABS,USR|
000007B0: 2C 46 52 45 2C 50 4F 53  2C 53 51 52 2C 52 4E 44  |,FRE,POS,SQR,RND|
000007C0: 2C 4C 4F 47 2C 45 58 50  00 0D 10 DE 26 83 43 4F  |,LOG,EXP....&.CO|
000007D0: 53 2C 53 49 4E 2C 54 41  4E 2C 41 54 4E 2C 50 45  |S,SIN,TAN,ATN,PE|
000007E0: 45 4B 2C 4C 45 4E 2C 53  54 52 24 2C 56 41 4C 2C  |EK,LEN,STR$,VAL,|
000007F0: 41 53 43 2C 43 48 52 24  2C 4C 45 46 54 24 2C 52  |ASC,CHR$,LEFT$,R|
00000800: 49 47 48 54 24 2C 4D 49  44 24 2C 4F 4F 00 00 00  |IGHT$,MID$,OO...|

.......***LIST***.A...C0$.G(0):C1$.":":L
%.6:A.1E10:B.2E10:.C$(75)...L..".":."..E
NTER NAME OF PROGRAM TO BE LISTED.":."PG
M NAME";N$...V..".ENTER TODAYS DATE.":."
DATE";D$.U.`.."..THE PGM TO BE LISTED MU
ST BE ON THE"...J.."DISK IN DRIVE 0 AND 
THE PRINTERS PAPER".2.T.."MUST BE FITTED
 SO THAT THE PRINTER HEAD".K.~.."IS ON T
OP OF THE PAGE.":.".HIT RETURN WHEN READ
Y."......I.A.A:.IN$:.IN$.G(13).I.B......
......I.0.75:.C$(I):..F....4,4:.15,8,15:
.15,"I0":.9710......8,8,8,"0:".N$.",P,R"
:.9710:.9610...X..I.1.4:.......4,.3);G(1
);N$;G(129),D$:.4./.P..I.A.A:I%.0:.9610.
^.Z..9510:X%.F(IN$):.9510:LN$.D(X%.F(IN$
).256)......4,.3);I("0000".I(LN$,C(LN$).
1),5);" ";......J.A.A:OP$."":Q%.0:F1%.0:
I1%.0.H....K.A.A:.9510:X%.F(IN$).......(
X%.127.X%..255.Q%.0).2130.....OP$.OP$.C$
(X%.128):.X%.139.I%.I%.2:I1%.I1%.2.8....
X%.129.F%.F%.2:F1%.F1%.2.L. ...(X%.130).
2120...*.F%.F%.2:.L.A.A:.9510:OP$.OP$.IN
$:.IN$.",".F%.F%.2...4..IN$.C0$.IN$.C1$.
L.B...>.....C..F%.0.F%.0...H..2140.J.R.O
P$.OP$.IN$...W..IN$.G(34).Q%..Q%...\..IN
$.C0$.IN$.C1$.Q%.0.K.B...F...6.P.X%.F%.F
1%.I%.I1%:.IN$.C0$.OP$.H(OP$,C(OP$).1).U
.Z..4,.X%);H(OP$,58.X%):.9410.O.....(C(O
P$).58.X%).2195......4,.14.F%.I%);I(OP$,
C(OP$).58.X%):.9410......IN$.C1$..4,.14)
;.B....IN$.C0$.J.B.J....:.....$.***LINE 
COUNT***...B$L%.L%.1...L$..(L%.70).9440.
..V$.I.1.8:.:L%.2....$..)..%.***READ 1**
*.K.&%.#8,IN$:.9710:.IN$."".IN$.C0$.Q.0%
..C..%.***READ 2***....%.#8,IN$:.9710:.#
8,IN$:.9710:.IN$..""......%.9810:.....%.
***ERROR MESSAGES***.X..%.15,EN$,EM$,ET$
,ES$:.EN$."00"......%.".DISK ERROR":."..
ERROR NR: ";EN$:."ERROR:   ";EM$.8..&..(
EN$."19".EN$."30".EN$."65").9750._..&.".
TRACK:   ";ET$:."SECTOR:  ";ES$.K..&.981
0:....H&.***CLOSE CHANNELS***...R& 4: 8:
 15:.....&.***COMMANDS***....&.END,FOR,N
EXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,
RUN,IF,RESTORE.8..&.GOSUB,RETURN,REM,STO
P,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE,PRIN
T#,PRINT..J&.CONT,LIST,CLR,CMD,SYS,OPEN
,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT.
H.T&.STEP,+,-,*,/,^,AND,OR,>,=,<,SGN,INT
,ABS,USR,FRE,POS,SQR,RND,LOG,EXP....&.CO
S,SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHR$
,LEFT$,RIGHT$,MID$,OO...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL