SUPER DIRECTORY

00000000: 01 08 3C 08 00 00 89 31  30 30 30 3A 8F 20 43 4F  |..<....1000:. CO|
00000010: 4D 50 55 54 45 21 2F 41  50 52 49 4C 20 31 39 38  |MPUTE!/APRIL 198|
00000020: 34 2F 49 53 53 55 45 20  34 37 20 56 4F 4C 2E 20  |4/ISSUE 47 VOL. |
00000030: 36 2C 20 23 34 2F 50 2E  20 31 37 30 00 4D 08 01  |6, #4/P. 170.M..|
00000040: 00 A1 5A 24 3A 8B 5A 24  B2 22 22 A7 31 00 53 08  |..Z$:.Z$."".1.S.|
00000050: 02 00 8E 00 6A 08 0A 00  84 31 35 2C 45 52 2C 45  |....j....15,ER,E|
00000060: 52 24 3A 8B 45 52 B2 30  A7 8E 00 89 08 14 00 99  |R$:.ER.0........|
00000070: 22 44 49 53 4B 20 45 52  52 4F 52 20 23 22 45 52  |"DISK ERROR #"ER|
00000080: 3A 99 45 52 24 3A 80 3A  8E 00 B9 08 64 00 99 22  |:.ER$:.:....d.."|
00000090: 13 11 11 11 22 3A 81 49  B2 30 A4 31 35 3A 81 4A  |....":.I.0.15:.J|
000000A0: B2 30 A4 4E 43 3A 99 A3  4A AC 32 30 29 3B 56 24  |.0.NC:..J.20);V$|
000000B0: 28 49 AA 4A AC 31 36 29  3B 00 C5 08 6E 00 82 4A  |(I.J.16);...n..J|
000000C0: 3A 99 3A 82 49 00 DE 08  78 00 97 58 42 2C 30 3A  |:.:.I...x..XB,0:|
000000D0: 52 4C B2 30 3A 43 4C B2  30 3A 8D 36 30 30 00 0B  |RL.0:CL.0:.600..|
000000E0: 09 82 00 81 49 B2 30 A4  31 A9 30 3A 8D 31 3A 5A  |....I.0.1.0:.1:Z|
000000F0: B2 C6 28 5A 24 29 3A 54  43 B2 43 4C 3A 54 52 B2  |..(Z$):TC.CL:TR.|
00000100: 52 4C 3A 81 4A B2 30 A4  31 A9 30 00 32 09 8C 00  |RL:.J.0.1.0.2...|
00000110: 8B 28 5A AF 31 32 37 29  B2 32 39 A7 43 4C B2 28  |.(Z.127).29.CL.(|
00000120: 43 4C AA 31 AA 32 AC 28  5A B2 31 35 37 29 29 AF  |CL.1.2.(Z.157)).|
00000130: 4E 43 00 59 09 96 00 8B  28 5A AF 31 32 37 29 B2  |NC.Y....(Z.127).|
00000140: 31 37 A7 52 4C B2 28 52  4C AA 31 AA 32 AC 28 5A  |17.RL.(RL.1.2.(Z|
00000150: B2 31 34 35 29 29 AF 31  35 00 67 09 A0 00 8B 5A  |.145)).15.g....Z|
00000160: B2 31 33 A7 49 B2 31 00  81 09 AA 00 8B 56 24 28  |.13.I.1......V$(|
00000170: 52 4C AA 43 4C AC 31 36  29 B3 B1 42 24 A7 4A B2  |RL.CL.16)..B$.J.|
00000180: 31 00 9F 09 B4 00 82 3A  8B 28 54 43 B3 B1 43 4C  |1......:.(TC..CL|
00000190: 29 B0 28 54 52 B3 B1 52  4C 29 A7 8D 35 30 30 00  |).(TR..RL)..500.|
000001A0: A7 09 BE 00 82 3A 8E 00  CC 09 F4 01 97 58 41 2C  |.....:.......XA,|
000001B0: 54 52 AA 33 3A 99 3A 99  A3 54 43 AC 32 30 29 3B  |TR.3:.:..TC.20);|
000001C0: 56 24 28 54 52 AA 31 36  AC 54 43 29 00 F7 09 58  |V$(TR.16.TC)...X|
000001D0: 02 97 58 41 2C 52 4C AA  33 3A 99 3A 99 A3 43 4C  |..XA,RL.3:.:..CL|
000001E0: AC 32 30 29 3B 22 12 22  3B 56 24 28 52 4C AA 31  |.20);".";V$(RL.1|
000001F0: 36 AC 43 4C 29 3A 8E 00  10 0A 84 03 81 49 B2 31  |6.CL):.......I.1|
00000200: A4 4E 56 3A 56 24 28 49  29 B2 42 24 3A 82 3A 8E  |.NV:V$(I).B$:.:.|
00000210: 00 20 0A E8 03 99 22 13  93 22 3A 8D 36 30 30 30  |. ...."..":.6000|
00000220: 00 39 0A F2 03 4E 43 B2  31 3A 8B C2 28 32 31 33  |.9...NC.1:..(213|
00000230: 29 B2 37 39 A7 4E 43 B2  33 00 73 0A FC 03 4E 56  |).79.NC.3.s...NV|
00000240: B2 28 4E 43 AA 31 29 AC  31 36 AB 31 3A 8D 32 30  |.(NC.1).16.1:.20|
00000250: 30 30 3A 42 24 B2 22 20  20 20 20 20 20 20 20 20  |00:B$."         |
00000260: 20 20 20 20 20 20 20 20  20 20 22 3A 86 56 24 28  |          ":.V$(|
00000270: 4E 56 29 00 9D 0A 4C 04  4E 50 B2 30 3A 53 4C B2  |NV)...L.NP.0:SL.|
00000280: 31 3A 56 24 28 30 29 B2  22 4E 45 58 54 20 50 41  |1:V$(0)."NEXT PA|
00000290: 47 45 22 3A 99 22 93 11  12 22 48 45 24 00 C2 0A  |GE":."..."HE$...|
000002A0: 56 04 53 4C B2 53 4C AA  4E 50 3A 4E 50 B2 4D 41  |V.SL.SL.NP:NP.MA|
000002B0: AB 53 4C AA 31 3A 8B 4E  50 B1 4E 56 A7 4E 50 B2  |.SL.1:.NP.NV.NP.|
000002C0: 4E 56 00 D1 0A 60 04 8B  4E 50 B2 30 A7 33 30 30  |NV...`..NP.0.300|
000002D0: 30 00 F6 0A 6A 04 8D 39  30 30 3A 81 49 B2 31 A4  |0...j..900:.I.1.|
000002E0: 4E 50 3A 56 24 28 49 29  B2 50 52 24 28 53 4C AA  |NP:V$(I).PR$(SL.|
000002F0: 49 AB 31 29 3A 82 00 0D  0B 74 04 8D 31 30 30 3A  |I.1):....t..100:|
00000300: 8B 43 4C AA 52 4C B2 30  A7 31 31 31 30 00 17 0B  |.CL.RL.0.1110...|
00000310: 7E 04 89 35 30 30 30 00  26 0B D0 07 8D 32 39 30  |~..5000.&....290|
00000320: 30 3A 4D 41 B2 30 00 40  0B DA 07 9F 31 35 2C 55  |0:MA.0.@....15,U|
00000330: 4E 2C 31 35 2C 22 49 22  AA 44 52 24 3A 8D 31 30  |N,15,"I".DR$:.10|
00000340: 00 54 0B E4 07 9F 31 2C  55 4E 2C 33 2C 22 24 22  |.T....1,UN,3,"$"|
00000350: AA 44 52 24 00 5D 0B EE  07 9E 38 39 36 00 7E 0B  |.DR$.]....896.~.|
00000360: F8 07 46 4F B2 C6 28 49  4E 24 29 3A 8B 28 46 4F  |..FO..(IN$):.(FO|
00000370: 20 AF 20 33 29 B2 31 20  A7 20 32 31 30 30 00 9E  | . 3).1 . 2100..|
00000380: 0B 02 08 A0 31 3A A0 31  35 3A 99 22 42 41 44 20  |....1:.15:."BAD |
00000390: 44 49 53 4B 20 46 4F 52  4D 41 54 22 3A 80 00 B4  |DISK FORMAT":...|
000003A0: 0B 34 08 48 45 24 B2 CA  28 49 4E 24 2C 31 34 33  |.4.HE$..(IN$,143|
000003B0: 2C 31 36 29 00 E7 0B 3E  08 8B 46 4F B1 31 A7 53  |,16)...>..FO.1.S|
000003C0: 45 B2 31 38 3A 48 45 24  B2 48 45 24 AA 22 2C 20  |E.18:HE$.HE$.", |
000003D0: 31 35 34 31 2F 34 30 34  30 20 46 4F 52 4D 41 54  |1541/4040 FORMAT|
000003E0: 22 3A 89 32 32 30 30 00  0F 0C 48 08 8B 46 4F B2  |":.2200...H..FO.|
000003F0: 31 A7 53 45 B2 31 39 3A  48 45 24 B2 48 45 24 AA  |1.SE.19:HE$.HE$.|
00000400: 22 2C 20 32 30 34 30 20  46 4F 52 4D 41 54 22 00  |", 2040 FORMAT".|
00000410: 2B 0C 98 08 86 50 52 24  28 53 45 AC 38 29 3A 81  |+....PR$(SE.8):.|
00000420: 49 B2 31 A4 53 45 3A 9E  38 39 36 00 4D 0C A2 08  |I.1.SE:.896.M...|
00000430: 81 4A B2 31 A4 32 35 34  A9 33 32 3A 41 B2 C6 28  |.J.1.254.32:A..(|
00000440: CA 28 49 4E 24 2C 4A 29  29 AF 31 32 37 00 74 0C  |.(IN$,J)).127.t.|
00000450: AC 08 8B 41 B2 32 A7 4D  41 B2 4D 41 AA 31 3A 50  |...A.2.MA.MA.1:P|
00000460: 52 24 28 4D 41 29 B2 CA  28 49 4E 24 2C 4A AA 33  |R$(MA)..(IN$,J.3|
00000470: 2C 31 36 29 00 7B 0C B6  08 82 4A 00 88 0C C0 08  |,16).{....J.....|
00000480: 8B 53 54 A7 49 B2 53 45  00 8F 0C CA 08 82 49 00  |.ST.I.SE......I.|
00000490: 9C 0C D4 08 A0 31 3A A0  31 35 3A 8E 00 B2 0C 54  |.....1:.15:....T|
000004A0: 0B 55 4E B2 38 3A 44 52  B2 30 3A 44 52 24 B2 22  |.UN.8:DR.0:DR$."|
000004B0: 30 22 00 B8 0C 5E 0B 8E  00 D7 0C 68 0B 99 22 55  |0"...^.....h.."U|
000004C0: 4E 49 54 20 23 20 20 22  3B 55 4E 3B 3A 85 22 9D  |NIT #  ";UN;:.".|
000004D0: 9D 9D 9D 22 3B 55 4E 00  07 0D 72 0B 99 22 44 52  |...";UN...r.."DR|
000004E0: 49 56 45 20 23 20 20 22  3B 44 52 3B 3A 85 22 9D  |IVE #  ";DR;:.".|
000004F0: 9D 9D 9D 22 3B 44 52 3A  8B 44 52 AC 28 44 52 AB  |...";DR:.DR.(DR.|
00000500: 31 29 A7 32 39 33 30 00  17 0D 7C 0B 44 52 24 B2  |1).2930...|.DR$.|
00000510: C4 28 44 52 29 3A 8E 00  4C 0D B8 0B 8D 39 30 30  |.(DR):..L....900|
00000520: 3A 99 22 93 11 4E 4F 20  4D 4F 52 45 20 50 52 4F  |:."..NO MORE PRO|
00000530: 47 52 41 4D 53 20 4F 4E  20 44 49 53 4B 2E 20 20  |GRAMS ON DISK.  |
00000540: 4F 50 54 49 4F 4E 53 20  41 52 45 3A 00 8C 0D CC  |OPTIONS ARE:....|
00000550: 0B 56 24 28 30 29 B2 22  53 45 45 20 4E 45 57 20  |.V$(0)."SEE NEW |
00000560: 44 49 53 4B 22 3A 56 24  28 32 29 B2 22 52 45 53  |DISK":V$(2)."RES|
00000570: 54 41 52 54 20 54 48 49  53 20 44 49 53 4B 22 3A  |TART THIS DISK":|
00000580: 56 24 28 34 29 B2 22 51  55 49 54 22 00 9D 0D D6  |V$(4)."QUIT"....|
00000590: 0B 8D 31 30 30 3A 8B 52  4C B2 30 A7 8A 00 AC 0D  |..100:.RL.0.....|
000005A0: E0 0B 8B 52 4C B2 32 A7  31 31 30 30 00 B7 0D EA  |...RL.2.1100....|
000005B0: 0B 99 22 93 22 3A 80 00  F3 0D 88 13 99 22 93 11  |..".":......."..|
000005C0: 11 4C 4F 41 44 22 3B C7  28 33 34 29 3B 56 24 28  |.LOAD";.(34);V$(|
000005D0: 52 4C AA 31 36 AC 43 4C  29 3B C7 28 33 34 29 3B  |RL.16.CL);.(34);|
000005E0: 22 2C 22 3B 55 4E 3A 99  22 11 11 11 11 52 55 4E  |",";UN:."....RUN|
000005F0: 13 22 3B 00 17 0E 92 13  8B 58 41 B2 32 31 34 A7  |.";......XA.214.|
00000600: 97 36 33 31 2C 31 33 3A  97 36 33 32 2C 31 33 3A  |.631,13:.632,13:|
00000610: 97 58 42 2C 32 3A 80 00  34 0E 9C 13 97 36 32 33  |.XB,2:..4....623|
00000620: 2C 31 33 3A 97 36 32 34  2C 31 33 3A 97 31 35 33  |,13:.624,13:.153|
00000630: 2C 32 3A 80 00 56 0E 70  17 49 4E 24 B2 22 5A 5A  |,2:..V.p.IN$."ZZ|
00000640: 22 3A 81 49 B2 31 A4 36  3A 49 4E 24 B2 49 4E 24  |":.I.1.6:IN$.IN$|
00000650: AA 49 4E 24 3A 82 00 73  0E 7A 17 49 4E 24 B2 CA  |.IN$:..s.z.IN$..|
00000660: 28 49 4E 24 2C 32 29 3A  49 4E 24 B2 49 4E 24 AA  |(IN$,2):IN$.IN$.|
00000670: 49 4E 24 00 99 0E 84 17  8B C2 28 36 35 35 33 35  |IN$.......(65535|
00000680: 29 B2 32 35 35 A7 58 41  B2 32 31 34 3A 58 42 B2  |).255.XA.214:XB.|
00000690: 31 39 38 3A 89 36 30 34  30 00 AB 0E 8E 17 58 41  |198:.6040.....XA|
000006A0: B2 32 31 36 3A 58 42 B2  31 35 38 00 D1 0E 98 17  |.216:XB.158.....|
000006B0: 81 49 B2 38 39 36 A4 39  32 39 3A 87 58 24 3A 8B  |.I.896.929:.X$:.|
000006C0: C8 28 58 24 2C 31 29 B3  B1 22 41 22 A7 36 30 36  |.(X$,1).."A".606|
000006D0: 30 00 F7 0E A2 17 58 24  B2 C4 28 C5 28 C9 28 58  |0.....X$..(.(.(X|
000006E0: 24 2C C3 28 58 24 29 AB  31 29 29 AA 33 AC 28 58  |$,.(X$).1)).3.(X|
000006F0: 41 B2 32 31 36 29 29 00  06 0F AC 17 97 49 2C C5  |A.216))......I,.|
00000700: 28 58 24 29 3A 82 00 0C  0F B6 17 8E 00 41 0F C0  |(X$):........A..|
00000710: 17 83 31 36 30 2C 32 2C  31 37 37 2C 41 34 35 2C  |..160,2,177,A45,|
00000720: 31 35 33 2C 41 31 33 37  2C 30 30 2C 32 30 30 2C  |153,A137,00,200,|
00000730: 31 39 32 2C 36 2C 32 30  38 2C 32 34 36 2C 31 36  |192,6,208,246,16|
00000740: 32 00 74 0F CA 17 83 31  2C 33 32 2C 31 39 38 2C  |2.t....1,32,198,|
00000750: 32 35 35 2C 33 32 2C 32  32 38 2C 32 35 35 2C 31  |255,32,228,255,1|
00000760: 36 34 2C 41 31 34 32 2C  31 34 35 2C 41 31 34 30  |64,A142,145,A140|
00000770: 2C 32 30 30 00 9E 0F D4  17 83 31 33 32 2C 41 31  |,200......132,A1|
00000780: 34 32 2C 31 39 36 2C 41  31 33 39 2C 32 30 38 2C  |42,196,A139,208,|
00000790: 32 34 32 2C 37 36 2C 32  30 34 2C 32 35 35 00 00  |242,76,204,255..|
000007A0: 00                                                |.               |

..<....1000:. COMPUTE!/APRIL 1984/ISSUE 
47 VOL. 6, #4/P. 170.M....Z$:.Z$."".1.S.
....J....15,ER,ER$:.ER.0........"DISK ER
ROR #"ER:.ER$:.:....D.."....":.I.0.15:.J
.0.NC:..J.20);V$(I.J.16);.E.N..J:.:.I...
X..XB,0:RL.0:CL.0:.600......I.0.1.0:.1:Z
.F(Z$):TC.CL:TR.RL:.J.0.1.0.2....(Z.127)
.29.CL.(CL.1.2.(Z.157)).NC.Y....(Z.127).
17.RL.(RL.1.2.(Z.145)).15.G. ..Z.13.I.1.
.....V$(RL.CL.16)..B$.J.1......:.(TC..CL
).(TR..RL)..500......:..L....XA,TR.3:.:.
.TC.20);V$(TR.16.TC)...X..XA,RL.3:.:..CL
.20);".";V$(RL.16.CL):.......I.1.NV:V$(I
).B$:.:.. ...."..":.6000.9...NC.1:.B(213
).79.NC.3.S...NV.(NC.1).16.1:.2000:B$." 
                  ":.V$(NV)...L.NP.0:SL.
1:V$(0)."NEXT PAGE":."..."HE$.B.V.SL.SL.
NP:NP.MA.SL.1:.NP.NV.NP.NV.Q.`..NP.0.300
0...J..900:.I.1.NP:V$(I).PR$(SL.I.1):...
.T..100:.CL.RL.0.1110...~..5000.&.P..290
0:MA.0.@.Z..15,UN,15,"I".DR$:.10.T....1,
UN,3,"$".DR$.]....896.~...FO.F(IN$):.(FO
 . 3).1 . 2100..... 1: 15:."BAD DISK FOR
MAT":....4.HE$.J(IN$,143,16)...>..FO.1.S
E.18:HE$.HE$.", 1541/4040 FORMAT":.2200.
..H..FO.1.SE.19:HE$.HE$.", 2040 FORMAT".
+....PR$(SE.8):.I.1.SE:.896.M....J.1.254
.32:A.F(J(IN$,J)).127.T....A.2.MA.MA.1:P
R$(MA).J(IN$,J.3,16).{....J......ST.I.SE
...J..I...T. 1: 15:....T.UN.8:DR.0:DR$."
0"...^...W.H.."UNIT #  ";UN;:."....";UN.
..R.."DRIVE #  ";DR;:."....";DR:.DR.(DR.
1).2930...|.DR$.D(DR):..L....900:."..NO 
MORE PROGRAMS ON DISK.  OPTIONS ARE:...L
.V$(0)."SEE NEW DISK":V$(2)."RESTART THI
S DISK":V$(4)."QUIT"...V..100:.RL.0.....
...RL.2.1100......".":......."...LOAD";G
(34);V$(RL.16.CL);G(34);",";UN:."....RUN
.";......XA.214..631,13:.632,13:.XB,2:..
4....623,13:.624,13:.153,2:..V.P.IN$."ZZ
":.I.1.6:IN$.IN$.IN$:..S.Z.IN$.J(IN$,2):
IN$.IN$.IN$......B(65535).255.XA.214:XB.
198:.6040.....XA.216:XB.158.Q....I.896.9
29:.X$:.H(X$,1).."A".6060.....X$.D(E(I(X
$,C(X$).1)).3.(XA.216))......I,E(X$):...
.....A....160,2,177,A45,153,A137,00,200,
192,6,208,246,162.T.J..1,32,198,255,32,2
28,255,164,A142,145,A140,200...T..132,A1
42,196,A139,208,242,76,204,255...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL