> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 64 00 8F 20 4D 53 20 43 4F 57 4C 45 |....d.. MS COWLE|
00000010: 59 20 35 2F 38 2F 38 34 00 25 08 69 00 86 4C 28 |Y 5/8/84.%.i..L(|
00000020: 32 30 30 30 29 00 49 08 6E 00 99 22 93 11 22 3B |2000).I.n.."..";|
00000030: A6 39 29 3B 22 52 45 2D 4E 55 4D 42 45 52 20 55 |.9);"RE-NUMBER U|
00000040: 54 49 4C 49 54 59 22 3A 99 00 71 08 73 00 99 A6 |TILITY":..q.s...|
00000050: 38 29 22 28 43 29 20 31 39 38 34 22 3A 99 A6 31 |8)"(C) 1984":..1|
00000060: 31 29 3B 22 41 4E 54 48 4F 4E 59 20 57 4F 4F 44 |1);"ANTHONY WOOD|
00000070: 22 00 9A 08 78 00 99 3A 85 22 4E 41 4D 45 20 4F |"...x..:."NAME O|
00000080: 46 20 50 52 4F 47 52 41 4D 20 54 4F 20 52 45 2D |F PROGRAM TO RE-|
00000090: 4E 55 4D 42 45 52 22 3B 49 24 00 C0 08 7D 00 85 |NUMBER";I$...}..|
000000A0: 22 4E 41 4D 45 20 4F 46 20 52 45 2D 4E 55 4D 42 |"NAME OF RE-NUMB|
000000B0: 45 52 45 44 20 50 52 4F 47 52 41 4D 22 3B 50 24 |ERED PROGRAM";P$|
000000C0: 00 E5 08 82 00 85 22 46 49 52 53 54 20 4C 49 4E |......"FIRST LIN|
000000D0: 45 20 4E 55 4D 42 45 52 3F 20 31 30 30 1D 1D 1D |E NUMBER? 100...|
000000E0: 1D 1D 22 3B 53 00 02 09 87 00 85 22 49 4E 43 52 |..";S......"INCR|
000000F0: 45 4D 45 4E 54 3F 20 31 30 1D 1D 1D 1D 22 3B 49 |EMENT? 10....";I|
00000100: 3A 99 00 17 09 8C 00 96 A5 4D 42 28 58 29 B2 B5 |:........MB(X)..|
00000110: 28 58 AD 32 35 36 29 00 30 09 91 00 96 A5 4C 42 |(X.256).0.....LB|
00000120: 28 58 29 B2 58 AB A5 4D 42 28 58 29 AC 32 35 36 |(X).X..MB(X).256|
00000130: 00 51 09 96 00 99 22 50 41 53 53 20 4F 4E 45 2E |.Q...."PASS ONE.|
00000140: 2E 2E 22 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 30 |..":.15,8,15,"I0|
00000150: 22 00 66 09 9B 00 9F 32 2C 38 2C 32 2C 49 24 AA |".f....2,8,2,I$.|
00000160: 22 2C 50 2C 52 22 00 89 09 A0 00 84 31 35 2C 45 |",P,R"......15,E|
00000170: 2C 45 52 24 2C 41 2C 41 3A 8B 45 B3 B1 30 A7 99 |,ER$,A,A:.E..0..|
00000180: 45 52 24 3A A0 31 35 3A 80 00 97 09 A5 00 8D 20 |ER$:.15:....... |
00000190: 33 30 30 3A 41 B2 56 00 AB 09 AA 00 8D 20 33 30 |300:A.V...... 30|
000001A0: 30 3A 8B 56 B2 30 A7 20 31 39 30 00 CC 09 AF 00 |0:.V.0. 190.....|
000001B0: 45 B2 56 3A 8D 20 33 30 30 3A 4C 28 4B 29 B2 56 |E.V:. 300:L(K).V|
000001C0: 3A 4B B2 4B AA 31 3A 41 B2 41 AA 34 00 DA 09 B4 |:K.K.1:A.A.4....|
000001D0: 00 8B 41 B2 45 A7 20 31 37 30 00 F1 09 B9 00 A1 |..A.E. 170......|
000001E0: 23 32 2C 41 24 3A 41 B2 41 AA 31 3A 89 20 31 38 |#2,A$:A.A.1:. 18|
000001F0: 30 00 07 0A BE 00 A0 32 3A 99 22 50 41 53 53 20 |0......2:."PASS |
00000200: 54 57 4F 2E 2E 2E 22 00 3B 0A C3 00 9F 32 2C 38 |TWO...".;....2,8|
00000210: 2C 32 2C 49 24 AA 22 2C 50 2C 52 22 3A 9F 33 2C |,2,I$.",P,R":.3,|
00000220: 38 2C 33 2C 50 24 AA 22 2C 50 2C 57 22 3A 84 31 |8,3,P$.",P,W":.1|
00000230: 35 2C 45 2C 45 52 24 2C 41 2C 41 00 53 0A C8 00 |5,E,ER$,A,A.S...|
00000240: 8B 45 B3 B1 30 A7 99 45 52 24 3A A0 32 3A A0 31 |.E..0..ER$:.2:.1|
00000250: 35 3A 80 00 6F 0A CD 00 8D 20 33 30 30 3A 41 B2 |5:..o.... 300:A.|
00000260: 56 3A 98 33 2C 41 24 3B 42 24 3B 3A 43 B2 30 00 |V:.3,A$;B$;:C.0.|
00000270: 7F 0A D2 00 8F 20 52 45 41 44 20 4C 49 4E 45 00 |..... READ LINE.|
00000280: 95 0A D7 00 8D 20 33 30 30 3A 8D 20 33 30 30 3A |..... 300:. 300:|
00000290: 4C 24 B2 22 22 00 A0 0A DC 00 A1 23 32 2C 41 24 |L$.""......#2,A$|
000002A0: 00 BB 0A E1 00 8B 41 24 B2 C7 28 31 33 37 29 A7 |......A$..(137).|
000002B0: 8D 20 33 30 35 3A 89 20 32 32 35 00 D6 0A E6 00 |. 305:. 225.....|
000002C0: 8B 41 24 B2 C7 28 31 34 31 29 A7 8D 20 33 30 35 |.A$..(141).. 305|
000002D0: 3A 89 20 32 32 35 00 F1 0A EB 00 8B 41 24 B2 C7 |:. 225......A$..|
000002E0: 28 31 36 37 29 A7 8D 20 33 30 35 3A 89 20 32 32 |(167).. 305:. 22|
000002F0: 35 00 03 0B F0 00 8B C3 28 41 24 29 B2 30 A7 20 |5.......(A$).0. |
00000300: 32 37 30 00 21 0B F5 00 8B 41 24 B3 B1 C7 28 32 |270.!....A$...(2|
00000310: 34 29 A7 4C 24 B2 4C 24 AA 41 24 3A 89 20 32 32 |4).L$.L$.A$:. 22|
00000320: 30 00 2E 0B FA 00 4C 24 B2 4C 24 AA 41 24 00 47 |0.....L$.L$.A$.G|
00000330: 0B FF 00 A1 23 32 2C 41 24 3A 8B C3 28 41 24 29 |....#2,A$:..(A$)|
00000340: B2 30 A7 20 32 37 30 00 63 0B 04 01 4C 24 B2 4C |.0. 270.c...L$.L|
00000350: 24 AA 41 24 3A 8B 41 24 B2 C7 28 32 34 29 A7 20 |$.A$:.A$..(24). |
00000360: 32 32 30 00 6D 0B 09 01 89 20 32 35 35 00 95 0B |220.m.... 255...|
00000370: 0E 01 41 B2 41 AA 35 AA C3 28 41 24 29 3A 98 33 |..A.A.5..(A$):.3|
00000380: 2C C7 28 A5 4C 42 28 41 29 29 3B C7 28 A5 4D 42 |,.(.LB(A));.(.MB|
00000390: 28 41 29 29 3B 00 B9 0B 13 01 98 33 2C C7 28 A5 |(A));......3,.(.|
000003A0: 4C 42 28 53 AA 43 AC 49 29 29 3B C7 28 A5 4D 42 |LB(S.C.I));.(.MB|
000003B0: 28 53 AA 43 AC 49 29 29 3B 00 C9 0B 18 01 98 33 |(S.C.I));......3|
000003C0: 2C 4C 24 3B C7 28 30 29 3B 00 DE 0B 1D 01 43 B2 |,L$;.(0);.....C.|
000003D0: 43 AA 31 3A 8B 43 B3 B1 4B A7 20 32 31 35 00 F5 |C.1:.C..K. 215..|
000003E0: 0B 22 01 98 33 2C C7 28 30 29 3B C7 28 30 29 3B |."..3,.(0);.(0);|
000003F0: C7 28 30 29 3B 00 15 0C 27 01 A0 32 3A A0 33 3A |.(0);...'..2:.3:|
00000400: A0 31 35 3A 99 22 1D 1D 11 11 41 4C 4C 20 44 4F |.15:."....ALL DO|
00000410: 4E 45 22 3A 80 00 45 0C 2C 01 A1 23 32 2C 41 24 |NE":..E.,..#2,A$|
00000420: 3A A1 23 32 2C 42 24 3A 56 B2 C6 28 41 24 AA C7 |:.#2,B$:V..(A$..|
00000430: 28 30 29 29 AA C6 28 42 24 AA C7 28 30 29 29 AC |(0))..(B$..(0)).|
00000440: 32 35 36 3A 8E 00 58 0C 31 01 4E 24 B2 22 22 3A |256:..X.1.N$."":|
00000450: 4C 24 B2 4C 24 AA 41 24 00 70 0C 36 01 A1 23 32 |L$.L$.A$.p.6..#2|
00000460: 2C 41 24 3A 8B 41 24 B2 22 20 22 A7 20 33 31 30 |,A$:.A$." ". 310|
00000470: 00 7A 0C 3B 01 89 20 33 32 35 00 85 0C 40 01 A1 |.z.;.. 325...@..|
00000480: 23 32 2C 41 24 00 9D 0C 45 01 8B 41 24 B3 22 30 |#2,A$...E..A$."0|
00000490: 22 B0 41 24 B1 22 39 22 A7 20 33 33 35 00 B0 0C |".A$."9". 335...|
000004A0: 4A 01 4E 24 B2 4E 24 AA 41 24 3A 89 20 33 32 30 |J.N$.N$.A$:. 320|
000004B0: 00 C0 0C 4F 01 8B 4E 24 B2 22 22 A7 20 33 36 30 |...O..N$."". 360|
000004C0: 00 D5 0C 54 01 4E B2 C5 28 4E 24 29 3A 81 58 B2 |...T.N..(N$):.X.|
000004D0: 30 A4 4B AB 31 00 E6 0C 59 01 8B 4C 28 58 29 B2 |0.K.1...Y..L(X).|
000004E0: 4E A7 20 33 35 35 00 17 0D 5E 01 82 3A 99 22 55 |N. 355...^..:."U|
000004F0: 4E 44 45 46 27 44 20 4C 49 4E 45 20 4E 4F 3A 20 |NDEF'D LINE NO: |
00000500: 22 3B 4E 24 3A 4C 24 B2 4C 24 AA 22 30 30 30 30 |";N$:L$.L$."0000|
00000510: 22 3A 89 20 33 36 30 00 2A 0D 63 01 4C 24 B2 4C |":. 360.*.c.L$.L|
00000520: 24 AA C4 28 58 AC 49 AA 53 29 00 3B 0D 68 01 8B |$..(X.I.S).;.h..|
00000530: 41 24 B2 22 2C 22 A7 20 33 30 35 00 41 0D 6D 01 |A$.",". 305.A.m.|
00000540: 8E 00 00 00 00 |..... |
....D.. MS COWLEY 5/8/84.%.I..L(2000).I.
N.."..";.9);"RE-NUMBER UTILITY":..Q.S...
8)"(C) 1984":..11);"ANTHONY WOOD"...X..:
."NAME OF PROGRAM TO RE-NUMBER";I$...}..
"NAME OF RE-NUMBERED PROGRAM";P$......"F
IRST LINE NUMBER? 100.....";S......"INCR
EMENT? 10....";I:........MB(X)..(X.256).
0.....LB(X).X..MB(X).256.Q...."PASS ONE.
..":.15,8,15,"I0".F....2,8,2,I$.",P,R"..
. ..15,E,ER$,A,A:.E..0..ER$: 15:.......
300:A.V...... 300:.V.0. 190.L...E.V:. 30
0:L(K).V:K.K.1:A.A.4.Z....A.E. 170......
#2,A$:A.A.1:. 180..... 2:."PASS TWO...".
;.C..2,8,2,I$.",P,R":.3,8,3,P$.",P,W":.1
5,E,ER$,A,A.S.H..E..0..ER$: 2: 15:..O.M.
. 300:A.V:.3,A$;B$;:C.0..R.. READ LINE.
..W.. 300:. 300:L$."". ....#2,A$......A$
.G(137).. 305:. 225.V....A$.G(141).. 305
:. 225......A$.G(167).. 305:. 225......C
(A$).0. 270.!....A$..G(24).L$.L$.A$:. 22
0.....L$.L$.A$.G....#2,A$:.C(A$).0. 270.
C...L$.L$.A$:.A$.G(24). 220.M.... 255...
..A.A.5.C(A$):.3,G(.LB(A));G(.MB(A));...
...3,G(.LB(S.C.I));G(.MB(S.C.I));.I....3
,L$;G(0);.....C.C.1:.C..K. 215..."..3,G(
0);G(0);G(0);...'. 2: 3: 15:."....ALL DO
NE":..E.,..#2,A$:.#2,B$:V.F(A$.G(0)).F(B
$.G(0)).256:..X.1.N$."":L$.L$.A$.P.6..#2
,A$:.A$." ". 310.Z.;.. 325...@..#2,A$...
E..A$."0".A$."9". 335...J.N$.N$.A$:. 320
...O..N$."". 360.U.T.N.E(N$):.X.0.K.1...
Y..L(X).N. 355...^..:."UNDEF'D LINE NO:
";N$:L$.L$."0000":. 360.*.C.L$.L$.D(X.I.
S).;.H..A$.",". 305.A.M......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL