> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 C8 00 8F 20 2A 2A 2A 20 44 49 53 50 |..!.... *** DISP|
00000010: 4C 41 59 20 44 49 52 45 43 54 4F 52 59 20 2A 2A |LAY DIRECTORY **|
00000020: 2A 00 3E 08 D2 00 97 35 33 32 38 30 2C 36 3A 97 |*.>....53280,6:.|
00000030: 35 33 32 38 31 2C 37 3A 99 22 1F 93 91 22 00 62 |53281,7:."...".b|
00000040: 08 DC 00 99 22 20 20 50 52 49 4E 54 20 44 49 52 |...." PRINT DIR|
00000050: 45 43 54 4F 52 59 20 54 4F 20 50 52 49 4E 54 45 |ECTORY TO PRINTE|
00000060: 52 22 00 9C 08 E1 00 99 22 20 20 49 53 20 54 48 |R"......" IS TH|
00000070: 45 20 50 52 49 4E 54 45 52 20 52 45 41 44 59 20 |E PRINTER READY |
00000080: 54 4F 20 47 4F 22 3B 3A 85 51 24 3A 8B C8 28 51 |TO GO";:.Q$:..(Q|
00000090: 24 2C 31 29 B3 B1 22 59 22 A7 20 80 00 AF 08 E3 |$,1).."Y". .....|
000000A0: 00 99 22 93 91 22 3A 57 24 B2 C7 28 31 35 29 00 |.."..":W$..(15).|
000000B0: D9 08 E6 00 99 22 20 20 44 4F 20 59 4F 55 20 57 |....." DO YOU W|
000000C0: 41 4E 54 20 44 4F 55 42 4C 45 20 57 49 44 45 20 |ANT DOUBLE WIDE |
000000D0: 4C 45 54 54 45 52 53 22 3B 00 F7 08 EB 00 85 51 |LETTERS";......Q|
000000E0: 24 3A 8B C8 28 51 24 2C 31 29 B2 22 59 22 A7 57 |$:..(Q$,1)."Y".W|
000000F0: 24 B2 C7 28 31 34 29 00 09 09 FB 00 9F 20 34 2C |$..(14)...... 4,|
00000100: 34 2C 30 3A 98 34 2C 57 24 00 19 09 FC 00 9F 20 |4,0:.4,W$...... |
00000110: 31 2C 38 2C 30 2C 22 24 22 00 28 09 FD 00 A1 20 |1,8,0,"$".(.... |
00000120: 23 31 2C 41 24 2C 42 24 00 36 09 FE 00 A1 23 31 |#1,A$,B$.6....#1|
00000130: 2C 41 24 2C 42 24 00 45 09 00 01 A1 20 23 31 2C |,A$,B$.E.... #1,|
00000140: 41 24 2C 42 24 00 60 09 02 01 43 B2 30 3A 8B 20 |A$,B$.`...C.0:. |
00000150: 41 24 B3 B1 22 22 A7 20 43 B2 20 C6 28 41 24 29 |A$.."". C. .(A$)|
00000160: 00 7D 09 03 01 8B 20 42 24 B3 B1 22 22 A7 20 43 |.}.... B$.."". C|
00000170: B2 43 AA 20 C6 28 42 24 29 AC 32 35 36 00 98 09 |.C. .(B$).256...|
00000180: 04 01 53 B2 C3 28 CA 28 C4 28 43 29 2C 32 29 29 |..S..(.(.(C),2))|
00000190: 3A 99 A6 33 AB 53 29 3B 00 DF 09 05 01 81 42 4C |:..3.S);......BL|
000001A0: B2 30 A4 28 33 AB 53 29 3A 42 4C 24 B2 42 4C 24 |.0.(3.S):BL$.BL$|
000001B0: AA 22 20 22 3A 82 42 4C 3A 8F 20 2A 2A 2A 20 42 |." ":.BL:. *** B|
000001C0: 55 49 4C 44 20 55 50 20 42 4C 24 20 49 4E 20 46 |UILD UP BL$ IN F|
000001D0: 52 4F 4E 54 20 4F 46 20 42 4C 49 53 54 2A 2A 00 |RONT OF BLIST**.|
000001E0: 15 0A 06 01 42 4B 24 B2 CA 28 C4 28 43 29 2C 32 |....BK$..(.(C),2|
000001F0: 29 3A 99 20 42 4B 24 3B A6 33 29 3B 3A 42 4B 24 |):. BK$;.3);:BK$|
00000200: B2 42 4C 24 AA 42 4B 24 AA 22 20 20 20 22 3A 42 |.BL$.BK$." ":B|
00000210: 4C 24 B2 22 22 00 2E 0A 08 01 A1 23 31 2C 42 24 |L$.""......#1,B$|
00000220: 3A 8B 20 53 54 B3 B1 30 20 A7 20 32 38 32 00 45 |:. ST..0 . 282.E|
00000230: 0A 0A 01 8B 20 42 24 B3 B1 20 C7 28 33 34 29 20 |.... B$.. .(34) |
00000240: A7 20 32 36 34 00 71 0A 0C 01 A1 20 23 31 2C 42 |. 264.q.... #1,B|
00000250: 24 3A 8B 20 42 24 B3 B1 20 C7 28 33 34 29 20 A7 |$:. B$.. .(34) .|
00000260: 20 50 47 24 B2 50 47 24 AA 42 24 3A 89 20 32 36 | PG$.PG$.B$:. 26|
00000270: 38 00 B0 0A 0D 01 50 4C B2 C3 28 50 47 24 29 3A |8.....PL..(PG$):|
00000280: 81 42 4C B2 30 A4 28 32 30 AB 50 4C 29 3A 42 4C |.BL.0.(20.PL):BL|
00000290: 24 B2 42 4C 24 AA 22 20 22 3A 82 42 4C 3A 50 47 |$.BL$." ":.BL:PG|
000002A0: 24 B2 50 47 24 AA 42 4C 24 3A 50 24 B2 50 47 24 |$.PG$.BL$:P$.PG$|
000002B0: 00 DB 0A 0E 01 99 50 47 24 3B 3A 50 47 24 B2 22 |......PG$;:PG$."|
000002C0: 22 3A A1 20 23 31 2C 42 24 3A 8B 20 42 24 B2 20 |":. #1,B$:. B$. |
000002D0: C7 28 33 32 29 20 A7 20 32 37 30 00 EC 0A 10 01 |.(32) . 270.....|
000002E0: 43 24 B2 22 22 3A 42 4C 24 B2 22 22 00 10 0B 12 |C$."":BL$.""....|
000002F0: 01 43 24 B2 43 24 AA 42 24 3A A1 20 23 31 2C 42 |.C$.C$.B$:. #1,B|
00000300: 24 3A 8B 20 42 24 B3 B1 22 22 20 A7 20 32 37 34 |$:. B$.."" . 274|
00000310: 00 33 0B 13 01 50 54 24 B2 C8 28 43 24 2C 33 29 |.3...PT$..(C$,3)|
00000320: 3A 8F 20 2A 2A 2A 20 50 52 4F 47 52 41 4D 20 54 |:. *** PROGRAM T|
00000330: 59 50 45 00 3D 0B 14 01 99 20 50 54 24 00 66 0B |YPE.=.... PT$.f.|
00000340: 15 01 98 34 2C 57 24 3B 42 4B 24 3B 50 24 3B 50 |...4,W$;BK$;P$;P|
00000350: 54 24 3A 42 4B 24 B2 22 22 3A 50 24 B2 22 22 3A |T$:BK$."":P$."":|
00000360: 50 54 24 B2 22 22 00 77 0B 18 01 8B 20 53 54 B2 |PT$."".w.... ST.|
00000370: 30 20 A7 20 32 35 34 00 8C 0B 1A 01 99 22 20 42 |0 . 254......" B|
00000380: 4C 4F 43 4B 53 20 46 52 45 45 20 22 00 AA 0B 1B |LOCKS FREE "....|
00000390: 01 98 34 2C 57 24 3B 42 4B 24 3B 22 20 42 4C 4F |..4,W$;BK$;" BLO|
000003A0: 43 4B 53 20 46 52 45 45 20 22 00 B9 0B 1C 01 A0 |CKS FREE "......|
000003B0: 31 3A 98 34 3A A0 34 3A 99 00 D7 0B 1D 01 99 22 |1:.4:.4:......."|
000003C0: 4D 41 4B 45 20 41 4E 4F 54 48 45 52 20 4C 49 53 |MAKE ANOTHER LIS|
000003D0: 54 22 3B 3A 85 51 24 00 ED 0B 1E 01 8B C8 28 51 |T";:.Q$.......(Q|
000003E0: 24 2C 31 29 B2 22 59 22 A7 8A 32 32 37 00 00 00 |$,1)."Y"..227...|
..!.H.. *** DISPLAY DIRECTORY ***.>.R..5
3280,6:.53281,7:."...".B...." PRINT DIR
ECTORY TO PRINTER"......" IS THE PRINTE
R READY TO GO";:.Q$:.H(Q$,1).."Y". .....
.."..":W$.G(15).Y...." DO YOU WANT DOUB
LE WIDE LETTERS";......Q$:.H(Q$,1)."Y".W
$.G(14)...... 4,4,0:.4,W$...... 1,8,0,"$
".(.... #1,A$,B$.6....#1,A$,B$.E.... #1,
A$,B$.`...C.0:. A$.."". C. F(A$).}.... B
$.."". C.C. F(B$).256.....S.C(J(D(C),2))
:..3.S);......BL.0.(3.S):BL$.BL$." ":.BL
:. *** BUILD UP BL$ IN FRONT OF BLIST**.
....BK$.J(D(C),2):. BK$;.3);:BK$.BL$.BK$
." ":BL$.""......#1,B$:. ST..0 . 282.E
.... B$.. G(34) . 264.Q.... #1,B$:. B$..
G(34) . PG$.PG$.B$:. 268.....PL.C(PG$):
.BL.0.(20.PL):BL$.BL$." ":.BL:PG$.PG$.BL
$:P$.PG$......PG$;:PG$."":. #1,B$:. B$.
G(32) . 270.....C$."":BL$."".....C$.C$.B
$:. #1,B$:. B$.."" . 274.3...PT$.H(C$,3)
:. *** PROGRAM TYPE.=.... PT$.F....4,W$;
BK$;P$;PT$:BK$."":P$."":PT$."".W.... ST.
0 . 254......" BLOCKS FREE "......4,W$;B
K$;" BLOCKS FREE "..... 1:.4: 4:..W...."
MAKE ANOTHER LIST";:.Q$......H(Q$,1)."Y"
..227...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL