> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3B 08 0A 00 8F 2D 2D 43 4F 4D 50 55 54 45 |..;....--COMPUTE|
00000010: 2D 2D 41 50 52 49 4C 20 49 53 53 55 45 2D 2D 51 |--APRIL ISSUE--Q|
00000020: 57 49 4B 4C 4F 41 44 2F 53 41 56 45 2D 2D 50 52 |WIKLOAD/SAVE--PR|
00000030: 4F 47 20 50 41 47 45 20 31 35 32 00 58 08 64 00 |OG PAGE 152.X.d.|
00000040: 99 22 93 54 41 50 45 20 4F 52 20 44 49 53 4B 20 |.".TAPE OR DISK |
00000050: 28 54 2F 44 29 3F 22 3B 00 6C 08 69 00 A1 42 24 |(T/D)?";.l.i..B$|
00000060: 3A 8B 42 24 B2 22 22 A7 20 31 30 35 00 85 08 6E |:.B$."". 105...n|
00000070: 00 8B 42 24 B3 B1 22 54 22 AF 42 24 B3 B1 22 44 |..B$.."T".B$.."D|
00000080: 22 A7 31 30 35 00 A6 08 78 00 99 42 24 3A 99 22 |".105...x..B$:."|
00000090: 11 53 41 56 45 20 4F 52 20 4C 4F 41 44 20 28 53 |.SAVE OR LOAD (S|
000000A0: 2F 4C 29 3F 22 3B 00 B9 08 7D 00 A1 41 24 3A 8B |/L)?";...}..A$:.|
000000B0: 41 24 B2 22 22 A7 31 32 35 00 D2 08 82 00 8B 41 |A$."".125......A|
000000C0: 24 B3 B1 22 53 22 AF 41 24 B3 B1 22 4C 22 A7 31 |$.."S".A$.."L".1|
000000D0: 32 35 00 EA 08 8C 00 99 41 24 3A 85 22 11 46 49 |25......A$:.".FI|
000000E0: 4C 45 4E 41 4D 45 22 3B 46 24 00 1D 09 90 00 85 |LENAME";F$......|
000000F0: 22 11 53 54 41 52 54 49 4E 47 20 41 44 44 52 45 |".STARTING ADDRE|
00000100: 53 53 22 3B 58 3A 41 48 B2 B5 28 58 AD 32 35 36 |SS";X:AH..(X.256|
00000110: 29 3A 41 4C B2 58 AB 41 48 AC 32 35 36 00 2D 09 |):AL.X.AH.256.-.|
00000120: 93 00 8B 42 24 B2 22 44 22 A7 35 30 30 00 3D 09 |...B$."D".500.=.|
00000130: 96 00 8B 41 24 B2 22 4C 22 A7 33 30 30 00 4D 09 |...A$."L".300.M.|
00000140: 9F 00 8F 20 54 41 50 45 20 53 41 56 45 00 81 09 |... TAPE SAVE...|
00000150: A0 00 85 22 11 45 4E 44 20 41 44 44 52 45 53 53 |...".END ADDRESS|
00000160: 22 3B 58 3A 58 B2 58 AA 31 3A 42 48 B2 B5 28 58 |";X:X.X.1:BH..(X|
00000170: AD 32 35 36 29 3A 42 4C B2 58 AB 42 48 AC 32 35 |.256):BL.X.BH.25|
00000180: 36 00 9A 09 BE 00 8D 34 30 30 3A 97 32 35 31 2C |6......400:.251,|
00000190: 41 4C 3A 97 32 35 32 2C 41 48 00 C3 09 C8 00 97 |AL:.252,AH......|
000001A0: 37 38 30 2C 32 35 31 3A 97 37 38 31 2C 42 4C 3A |780,251:.781,BL:|
000001B0: 97 37 38 32 2C 42 48 3A 9E 36 35 34 39 36 3A 89 |.782,BH:.65496:.|
000001C0: 33 33 30 00 D3 09 2B 01 8F 20 54 41 50 45 20 4C |330...+.. TAPE L|
000001D0: 4F 41 44 00 DC 09 2C 01 8D 34 30 30 00 FE 09 36 |OAD...,..400...6|
000001E0: 01 97 37 38 30 2C 30 3A 97 37 38 31 2C 41 4C 3A |..780,0:.781,AL:|
000001F0: 97 37 38 32 2C 41 48 3A 9E 36 35 34 39 33 00 20 |.782,AH:.65493. |
00000200: 0A 40 01 8B 28 53 54 20 AF 20 34 38 29 A7 99 22 |.@..(ST . 48).."|
00000210: 11 3F 4C 4F 41 44 22 3A 99 22 45 52 52 4F 52 22 |.?LOAD":."ERROR"|
00000220: 00 29 0A 4A 01 A0 31 3A 80 00 41 0A 8F 01 8F 20 |.).J..1:..A.... |
00000230: 4F 50 45 4E 20 54 41 50 45 20 43 48 41 4E 4E 45 |OPEN TAPE CHANNE|
00000240: 4C 00 66 0A 90 01 4C B2 C3 28 46 24 29 3A 97 31 |L.f...L..(F$):.1|
00000250: 38 33 2C 4C 3A 53 B2 32 35 36 AC C2 28 35 30 29 |83,L:S.256..(50)|
00000260: AA C2 28 34 39 29 00 87 0A 9A 01 81 58 B2 31 A4 |..(49)......X.1.|
00000270: 4C 3A 97 53 AA 58 AB 31 2C C6 28 CA 28 46 24 2C |L:.S.X.1,.(.(F$,|
00000280: 58 2C 31 29 29 3A 82 00 A7 0A A4 01 97 37 38 30 |X,1)):.......780|
00000290: 2C 31 3A 97 37 38 31 2C 31 3A 97 37 38 32 2C 30 |,1:.781,1:.782,0|
000002A0: 3A 9E 36 35 34 36 36 00 CF 0A AE 01 97 37 38 30 |:.65466......780|
000002B0: 2C 4C 3A 97 37 38 31 2C C2 28 34 39 29 3A 97 37 |,L:.781,.(49):.7|
000002C0: 38 32 2C C2 28 35 30 29 3A 9E 36 35 34 36 39 00 |82,.(50):.65469.|
000002D0: DE 0A B8 01 97 31 35 37 2C 31 32 38 3A 8E 00 EE |.....157,128:...|
000002E0: 0A F4 01 8B 41 24 B2 22 4C 22 A7 37 30 30 00 FE |....A$."L".700..|
000002F0: 0A 11 02 8F 20 44 49 53 4B 20 53 41 56 45 00 32 |.... DISK SAVE.2|
00000300: 0B 12 02 85 22 11 45 4E 44 20 41 44 44 52 45 53 |....".END ADDRES|
00000310: 53 22 3B 58 3A 58 B2 58 AA 31 3A 42 48 B2 B5 28 |S";X:X.X.1:BH..(|
00000320: 58 AD 32 35 36 29 3A 42 4C B2 58 AB 42 48 AC 32 |X.256):BL.X.BH.2|
00000330: 35 36 00 44 0B 1C 02 9F 31 35 2C 38 2C 31 35 2C |56.D....15,8,15,|
00000340: 22 49 30 22 00 5E 0B 26 02 9F 33 2C 38 2C 31 2C |"I0".^.&..3,8,1,|
00000350: 22 30 3A 22 AA 46 24 AA 22 2C 50 2C 57 22 00 73 |"0:".F$.",P,W".s|
00000360: 0B 30 02 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |.0..15,EN,EM$,ET|
00000370: 2C 45 53 00 81 0B 3A 02 8B 45 4E B2 30 A7 36 35 |,ES...:..EN.0.65|
00000380: 30 00 A0 0B 44 02 8B 45 4E B3 B1 36 33 A7 99 45 |0...D..EN..63..E|
00000390: 4E 3B 45 4D 24 3B 45 54 3B 45 53 3A 89 37 36 30 |N;EM$;ET;ES:.760|
000003A0: 00 C5 0B 4E 02 99 22 46 49 4C 45 20 45 58 49 53 |...N.."FILE EXIS|
000003B0: 54 53 2E 20 20 52 45 50 4C 41 43 45 20 28 59 2F |TS. REPLACE (Y/|
000003C0: 4E 29 3F 22 3B 00 D8 0B 58 02 A1 41 24 3A 8B 41 |N)?";...X..A$:.A|
000003D0: 24 B2 22 22 A7 36 30 30 00 ED 0B 62 02 99 41 24 |$."".600...b..A$|
000003E0: 3A 8B 41 24 B3 B1 22 59 22 A7 37 36 30 00 05 0C |:.A$.."Y".760...|
000003F0: 6C 02 98 31 35 2C 22 53 30 3A 22 AA 46 24 AA 22 |l..15,"S0:".F$."|
00000400: 2C 50 2C 57 22 00 15 0C 76 02 A0 31 35 3A A0 33 |,P,W"...v..15:.3|
00000410: 3A 89 35 34 30 00 32 0C 8A 02 97 31 35 37 2C 31 |:.540.2....157,1|
00000420: 32 38 3A 97 32 35 31 2C 41 4C 3A 97 32 35 32 2C |28:.251,AL:.252,|
00000430: 41 48 00 5B 0C 94 02 97 37 38 30 2C 32 35 31 3A |AH.[....780,251:|
00000440: 97 37 38 31 2C 42 4C 3A 97 37 38 32 2C 42 48 3A |.781,BL:.782,BH:|
00000450: 9E 36 35 34 39 36 3A 89 37 36 30 00 6B 0C BB 02 |.65496:.760.k...|
00000460: 8F 20 44 49 53 4B 20 4C 4F 41 44 00 7D 0C BC 02 |. DISK LOAD.}...|
00000470: 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 97 0C |.15,8,15,"I0"...|
00000480: C6 02 9F 33 2C 38 2C 30 2C 22 30 3A 22 AA 46 24 |...3,8,0,"0:".F$|
00000490: AA 22 2C 50 2C 52 22 00 AC 0C D0 02 84 31 35 2C |.",P,R"......15,|
000004A0: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 C7 0C DA |EN,EM$,ET,ES....|
000004B0: 02 8B 45 4E A7 99 45 4E 3B 45 4D 24 3B 45 54 3B |..EN..EN;EM$;ET;|
000004C0: 45 53 3A 89 37 36 30 00 F9 0C EE 02 97 31 35 37 |ES:.760......157|
000004D0: 2C 31 32 38 3A 97 31 38 35 2C 30 3A 97 37 38 30 |,128:.185,0:.780|
000004E0: 2C 30 3A 97 37 38 31 2C 41 4C 3A 97 37 38 32 2C |,0:.781,AL:.782,|
000004F0: 41 48 3A 9E 36 35 34 39 33 00 06 0D F8 02 A0 33 |AH:.65493......3|
00000500: 3A A0 31 35 3A 80 00 00 00 |:.15:.... |
..;....--COMPUTE--APRIL ISSUE--QWIKLOAD/
SAVE--PROG PAGE 152.X.D..".TAPE OR DISK
(T/D)?";.L.I..B$:.B$."". 105...N..B$.."T
".B$.."D".105...X..B$:.".SAVE OR LOAD (S
/L)?";...}..A$:.A$."".125.R....A$.."S".A
$.."L".125......A$:.".FILENAME";F$......
".STARTING ADDRESS";X:AH..(X.256):AL.X.A
H.256.-....B$."D".500.=....A$."L".300.M.
... TAPE SAVE... ..".END ADDRESS";X:X.X.
1:BH..(X.256):BL.X.BH.256......400:.251,
AL:.252,AH.C.H..780,251:.781,BL:.782,BH:
.65496:.330.S.+.. TAPE LOAD...,..400...6
..780,0:.781,AL:.782,AH:.65493. .@..(ST
. 48)..".?LOAD":."ERROR".).J. 1:..A....
OPEN TAPE CHANNEL.F...L.C(F$):.183,L:S.2
56.B(50).B(49)......X.1.L:.S.X.1,F(J(F$,
X,1)):.......780,1:.781,1:.782,0:.65466.
O....780,L:.781,B(49):.782,B(50):.65469.
.....157,128:.......A$."L".700...... DIS
K SAVE.2....".END ADDRESS";X:X.X.1:BH..(
X.256):BL.X.BH.256.D....15,8,15,"I0".^.&
..3,8,1,"0:".F$.",P,W".S.0..15,EN,EM$,ET
,ES...:..EN.0.650. .D..EN..63..EN;EM$;ET
;ES:.760.E.N.."FILE EXISTS. REPLACE (Y/
N)?";.X.X..A$:.A$."".600...B..A$:.A$.."Y
".760...L..15,"S0:".F$.",P,W"...V. 15: 3
:.540.2....157,128:.251,AL:.252,AH.[....
780,251:.781,BL:.782,BH:.65496:.760.K...
. DISK LOAD.}....15,8,15,"I0"...F..3,8,0
,"0:".F$.",P,R"...P..15,EN,EM$,ET,ES.G.Z
..EN..EN;EM$;ET;ES:.760......157,128:.18
5,0:.780,0:.781,AL:.782,AH:.65493..... 3
: 15:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL