00000000: 01 96 16 96 00 00 4D 4D B2 4D 4D AA 31 3A 8B 4D |......MM.MM.1:.M|
00000010: 4D B2 32 A7 38 30 00 21 96 01 00 8D 36 30 31 30 |M.2.80.!....6010|
00000020: 30 00 50 96 0A 00 99 22 93 11 11 11 05 20 20 20 |0.P...."..... |
00000030: 20 20 20 20 20 2A 2A 52 45 4E 55 4D 42 45 52 20 | **RENUMBER |
00000040: 42 41 53 49 43 20 50 52 4F 47 52 41 4D 2A 2A 22 |BASIC PROGRAM**"|
00000050: 00 77 96 14 00 99 22 11 20 20 20 20 20 20 20 20 |.w....". |
00000060: 20 20 20 42 59 20 43 48 55 43 4B 20 4D 4F 45 48 | BY CHUCK MOEH|
00000070: 52 49 4E 47 45 52 22 00 BC 96 28 00 99 22 11 1F |RINGER"...(.."..|
00000080: 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 50 52 |ENTER NAME OF PR|
00000090: 4F 47 52 41 4D 20 54 4F 20 42 45 20 52 45 4E 55 |OGRAM TO BE RENU|
000000A0: 4D 42 45 52 45 44 22 3A 99 22 2D 2D 3E 22 3B 3A |MBERED":."-->";:|
000000B0: 8D 36 30 35 30 30 3A 41 24 B2 42 24 00 05 97 32 |.60500:A$.B$...2|
000000C0: 00 99 22 11 1F 49 4E 53 45 52 54 20 44 49 53 4B |.."..INSERT DISK|
000000D0: 20 57 49 54 48 20 22 41 24 22 20 41 4E 44 22 3A | WITH "A$" AND":|
000000E0: 99 22 50 52 45 53 53 20 05 52 45 54 55 52 4E 20 |."PRESS .RETURN |
000000F0: 1F 57 48 45 4E 20 52 45 41 44 59 20 54 4F 20 53 |.WHEN READY TO S|
00000100: 54 41 52 54 22 00 1B 97 3C 00 A1 58 24 3A 8B 58 |TART"...<..X$:.X|
00000110: 24 B3 B1 C7 28 31 33 29 A7 36 30 00 4D 97 3E 00 |$...(13).60.M.>.|
00000120: 9F 31 35 2C 38 2C 31 35 2C 22 52 30 3A 22 AA 41 |.15,8,15,"R0:".A|
00000130: 24 AA 22 3D 22 AA 41 24 3A 84 31 35 2C 45 52 3A |$."=".A$:.15,ER:|
00000140: A0 31 35 3A 8B 45 52 B2 36 33 A7 37 30 00 71 97 |.15:.ER.63.70.q.|
00000150: 40 00 99 22 1C 11 11 11 22 41 24 22 20 49 53 20 |@.."...."A$" IS |
00000160: 4E 4F 54 20 4F 4E 20 54 48 49 53 20 44 49 53 4B |NOT ON THIS DISK|
00000170: 22 00 85 97 42 00 81 41 B2 31 A4 34 30 30 30 3A |"...B..A.1.4000:|
00000180: 82 3A 89 31 30 00 92 97 46 00 93 20 41 24 2C 38 |.:.10...F.. A$,8|
00000190: 2C 31 00 BF 97 50 00 59 B2 32 30 34 38 3A 99 22 |,1...P.Y.2048:."|
000001A0: 11 11 45 4E 54 45 52 20 53 54 41 52 54 49 4E 47 |..ENTER STARTING|
000001B0: 20 4C 49 4E 45 20 4E 55 4D 42 45 52 3A 22 3B 00 | LINE NUMBER:";.|
000001C0: D8 97 55 00 4E 4F B2 31 3A 8D 36 30 35 30 30 3A |..U.NO.1:.60500:|
000001D0: 59 32 B2 C5 28 42 24 29 00 EE 97 5A 00 8B 59 32 |Y2..(B$)...Z..Y2|
000001E0: B3 30 B0 59 32 B1 36 33 39 39 39 A7 38 30 00 19 |.0.Y2.63999.80..|
000001F0: 98 64 00 99 22 11 1F 45 4E 54 45 52 20 23 20 54 |.d.."..ENTER # T|
00000200: 4F 20 49 4E 43 52 45 4D 45 4E 54 20 45 41 43 48 |O INCREMENT EACH|
00000210: 20 4C 49 4E 45 20 42 59 22 00 35 98 69 00 99 22 | LINE BY".5.i.."|
00000220: 2D 2D 3E 22 3B 3A 8D 36 30 35 30 30 3A 59 33 B2 |-->";:.60500:Y3.|
00000230: C5 28 42 24 29 00 4D 98 6E 00 8B 59 33 B3 31 B0 |.(B$).M.n..Y3.1.|
00000240: 59 33 B3 B1 B5 28 59 33 29 A7 31 30 30 00 7F 98 |Y3...(Y3).100...|
00000250: 78 00 41 B2 34 39 31 35 31 3A 42 B2 34 39 32 33 |x.A.49151:B.4923|
00000260: 31 3A 43 B2 34 39 31 38 39 3A 44 B2 32 35 36 3A |1:C.49189:D.256:|
00000270: 45 B2 34 39 32 34 39 3A 46 B2 34 39 32 34 38 00 |E.49249:F.49248.|
00000280: 9F 98 7D 00 47 B2 32 35 31 3A 48 B2 32 35 32 3A |..}.G.251:H.252:|
00000290: 49 B2 35 30 36 38 38 3A 4A B2 35 30 34 33 32 00 |I.50688:J.50432.|
000002A0: C0 98 82 00 99 22 11 20 4E 45 57 20 4C 49 4E 45 |.....". NEW LINE|
000002B0: 20 23 20 20 20 4F 4C 44 20 4C 49 4E 45 20 23 22 | # OLD LINE #"|
000002C0: 00 D3 98 8C 00 8B C2 28 59 AA 32 29 B3 B1 30 A7 |.......(Y.2)..0.|
000002D0: 32 30 30 00 EB 98 96 00 9E 35 31 32 30 30 3A 9E |200......51200:.|
000002E0: 35 31 34 35 36 3A 97 34 34 2C 38 00 25 99 A0 00 |51456:.44,8.%...|
000002F0: 97 32 35 31 2C 59 AA 33 AB 32 35 36 AC B5 28 28 |.251,Y.3.256..((|
00000300: 59 AA 33 29 AD 32 35 36 29 3A 97 34 36 2C B5 28 |Y.3).256):.46,.(|
00000310: 28 59 AA 33 29 AD 32 35 36 29 3A 97 34 35 2C C2 |(Y.3).256):.45,.|
00000320: 28 32 35 31 29 00 52 99 AA 00 97 34 38 2C C2 28 |(251).R....48,.(|
00000330: 34 36 29 3A 97 35 30 2C C2 28 34 36 29 3A 97 31 |46):.50,.(46):.1|
00000340: 37 35 2C C2 28 34 36 29 3A 97 34 37 2C C2 28 34 |75,.(46):.47,.(4|
00000350: 35 29 00 6B 99 B4 00 97 34 39 2C C2 28 34 35 29 |5).k....49,.(45)|
00000360: 3A 97 31 37 34 2C C2 28 34 35 29 00 B0 99 BE 00 |:.174,.(45).....|
00000370: 99 22 11 1D 59 4F 55 20 43 41 4E 20 4E 4F 57 20 |."..YOU CAN NOW |
00000380: 4C 49 53 54 2C 20 52 55 4E 2C 20 4F 52 20 53 41 |LIST, RUN, OR SA|
00000390: 56 45 20 59 4F 55 52 20 20 20 20 20 52 45 4E 55 |VE YOUR RENU|
000003A0: 4D 42 45 52 45 44 20 20 50 52 4F 47 52 41 4D 22 |MBERED PROGRAM"|
000003B0: 00 B6 99 C3 00 80 00 E2 99 C8 00 99 59 32 3B 3A |............Y2;:|
000003C0: 4B B2 59 AA 33 3A 4C B2 4B AA 31 3A 41 33 B2 C2 |K.Y.3:L.K.1:A3..|
000003D0: 28 4B 29 AA 44 AC C2 28 4C 29 3A 99 A3 31 36 29 |(K).D..(L):..16)|
000003E0: 41 33 00 04 9A D2 00 97 4C 2C B5 28 59 32 AD 44 |A3......L,.(Y2.D|
000003F0: 29 3A 97 4B 2C 59 32 AB 44 AC C2 28 4C 29 3A 59 |):.K,Y2.D..(L):Y|
00000400: B2 59 AA 35 00 32 9A DC 00 43 24 B2 C4 28 41 33 |.Y.5.2...C$..(A3|
00000410: 29 3A 44 24 B2 C4 28 59 32 29 3A 97 43 2C C3 28 |):D$..(Y2):.C,.(|
00000420: 43 24 29 AB 31 3A 97 42 AA 31 2C C3 28 44 24 29 |C$).1:.B.1,.(D$)|
00000430: AB 31 00 55 9A E6 00 81 58 B2 32 A4 C3 28 43 24 |.1.U....X.2..(C$|
00000440: 29 3A 97 41 AA 58 2C C6 28 CA 28 43 24 2C 58 2C |):.A.X,.(.(C$,X,|
00000450: 31 29 29 3A 82 00 78 9A F0 00 81 58 B2 32 A4 C3 |1)):..x....X.2..|
00000460: 28 44 24 29 3A 97 42 AA 58 2C C6 28 CA 28 44 24 |(D$):.B.X,.(.(D$|
00000470: 2C 58 2C 31 29 29 3A 82 00 A4 9A FA 00 97 45 2C |,X,1)):.......E,|
00000480: B5 28 59 AD 44 29 3A 97 46 2C 59 AB 44 AC C2 28 |.(Y.D):.F,Y.D..(|
00000490: 45 29 3A 9E 20 49 3A 59 B2 C2 28 46 29 AA 44 AC |E):. I:Y..(F).D.|
000004A0: C2 28 45 29 00 D9 9A 04 01 97 48 2C B5 28 59 AD |.(E)......H,.(Y.|
000004B0: 44 29 3A 97 47 2C 59 AB 44 AC C2 28 48 29 3A 9E |D):.G,Y.D..(H):.|
000004C0: 20 4A 3A 59 B2 C2 28 47 29 AA 44 AC C2 28 48 29 | J:Y..(G).D..(H)|
000004D0: 3A 59 32 B2 59 32 AA 59 33 00 EC 9A 0E 01 8B C2 |:Y2.Y2.Y3.......|
000004E0: 28 59 AA 32 29 B3 B1 30 A7 32 30 30 00 F5 9A 18 |(Y.2)..0.200....|
000004F0: 01 89 31 35 30 00 0D 9B C4 EA 97 35 33 32 38 30 |..150......53280|
00000500: 2C 31 34 3A 97 35 33 32 38 31 2C 31 34 00 47 9B |,14:.53281,14.G.|
00000510: CE EA 99 C7 28 31 34 32 29 22 93 08 1F D5 C0 C0 |....(142)"......|
00000520: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000530: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000540: C0 C0 C0 C0 C9 22 3B 00 62 9B D8 EA 81 41 B2 31 |.....";.b....A.1|
00000550: A4 32 33 3A 99 22 DD 22 A6 33 38 29 22 DD 22 3B |.23:.".".38)".";|
00000560: 3A 82 00 7F 9B E2 EA 81 41 B2 32 31 37 A4 32 34 |:.......A.217.24|
00000570: 32 3A 97 41 2C C2 28 41 29 B0 31 32 38 3A 82 00 |2:.A,.(A).128:..|
00000580: B2 9B EC EA 99 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 |....."..........|
00000590: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000005A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 9D 94 C0 |................|
000005B0: 13 22 00 D9 9B F6 EA 99 22 13 11 11 1D 20 20 20 |."......".... |
000005C0: 20 20 20 20 20 20 4C 4F 41 44 53 54 41 52 20 50 | LOADSTAR P|
000005D0: 52 45 53 45 4E 54 53 3A 22 00 06 9C 00 EB 99 22 |RESENTS:"......"|
000005E0: 11 11 11 11 11 1D 20 20 20 20 20 20 20 20 05 12 |...... ..|
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000600: 20 20 20 20 20 22 00 30 9C 0A EB 99 22 1D 20 20 | ".0....". |
00000610: 20 20 20 20 20 20 05 12 20 20 20 20 52 45 4E 55 | .. RENU|
00000620: 4D 42 45 52 20 42 41 53 49 43 20 20 20 1F 20 22 |MBER BASIC . "|
00000630: 00 5A 9C 14 EB 99 22 1D 20 20 20 20 20 20 20 20 |.Z....". |
00000640: 05 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000650: 20 20 20 20 20 20 20 1F 20 22 00 84 9C 1E EB 99 | . "......|
00000660: 22 1D 20 20 20 20 20 20 20 20 05 12 20 42 59 20 |". .. BY |
00000670: 43 48 55 43 48 20 4D 4F 45 48 52 49 4E 47 45 52 |CHUCH MOEHRINGER|
00000680: 20 1F 20 22 00 AE 9C 28 EB 99 22 1D 20 20 20 20 | . "...(..". |
00000690: 20 20 20 20 05 12 20 20 20 20 20 20 20 20 20 20 | .. |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 1F 20 22 00 D8 | . "..|
000006B0: 9C 32 EB 99 22 1D 20 20 20 20 20 20 20 20 05 12 |.2..". ..|
000006C0: 20 20 28 43 29 4F 50 59 52 49 47 48 54 20 20 31 | (C)OPYRIGHT 1|
000006D0: 39 38 37 20 20 1F 20 22 00 02 9D 3C EB 99 22 1D |987 . "...<..".|
000006E0: 20 20 20 20 20 20 20 20 05 12 20 20 20 20 20 20 | .. |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1F | .|
00000700: 20 22 00 2A 9D 46 EB 99 22 1D 20 20 20 20 20 20 | ".*.F..". |
00000710: 20 20 20 12 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000720: 20 20 20 20 20 20 20 20 20 22 00 59 9D 4B EB 99 | ".Y.K..|
00000730: 22 11 11 11 11 11 11 1D 20 20 20 20 20 20 20 20 |"....... |
00000740: 50 52 45 53 53 20 53 50 41 43 45 20 54 4F 20 43 |PRESS SPACE TO C|
00000750: 4F 4E 54 49 4E 55 45 2E 22 00 6F 9D 50 EB 8B C2 |ONTINUE.".o.P...|
00000760: 28 32 30 33 29 B3 B1 36 30 A7 36 30 32 34 30 00 |(203)..60.60240.|
00000770: 7C 9D 5A EB 97 31 39 38 2C 2E 3A 8E 00 95 9D 54 ||.Z..198,.:....T|
00000780: EC 99 22 05 A4 22 3B 3A 42 24 B2 22 22 3A 81 41 |.."..";:B$."":.A|
00000790: B2 31 A4 31 37 00 AA 9D 5E EC A1 41 24 3A 8B 41 |.1.17...^..A$:.A|
000007A0: 24 B2 22 22 A7 36 30 35 31 30 00 BE 9D 68 EC 8B |$."".60510...h..|
000007B0: 41 24 B2 C7 28 31 33 29 A7 36 30 35 39 30 00 F6 |A$..(13).60590..|
000007C0: 9D 72 EC 8B 41 24 B2 C7 28 32 30 29 AF 41 B1 31 |.r..A$..(20).A.1|
000007D0: A7 99 22 9D 9D 20 20 9D 9D A4 22 3B 3A 41 B2 41 |..".. ...";:A.A|
000007E0: AB 31 3A 42 24 B2 C8 28 42 24 2C 41 AB 31 29 3A |.1:B$..(B$,A.1):|
000007F0: 89 36 30 35 31 30 00 06 9E 7C EC 8B 41 B2 31 37 |.60510...|..A.17|
00000800: A7 36 30 35 31 30 00 21 9E 81 EC 8B 41 24 B1 B2 |.60510.!....A$..|
00000810: 22 30 22 AF 41 24 B3 B2 22 39 22 A7 36 30 35 38 |"0".A$.."9".6058|
00000820: 30 00 31 9E 82 EC 8B 28 4E 4F 29 A7 36 30 35 31 |0.1....(NO).6051|
00000830: 30 00 4C 9E 86 EC 8B 41 24 B1 B2 22 20 22 AF 41 |0.L....A$.." ".A|
00000840: 24 B3 B2 22 5A 22 A7 36 30 35 38 30 00 67 9E 90 |$.."Z".60580.g..|
00000850: EC 8B 41 24 B1 B2 22 C1 22 AF 41 24 B3 B2 22 DA |..A$..".".A$..".|
00000860: 22 A7 36 30 35 38 30 00 72 9E 9A EC 89 36 30 35 |".60580.r....605|
00000870: 31 30 00 96 9E A4 EC 99 22 9D 22 41 24 3B 3A 97 |10......"."A$;:.|
00000880: 32 31 32 2C 2E 3A 99 22 A4 22 3B 3A 42 24 B2 42 |212,.:.".";:B$.B|
00000890: 24 AA 41 24 3A 82 00 A2 9E AE EC 99 22 9D 20 22 |$.A$:.......". "|
000008A0: 3A 8E 00 00 00 |:.... |
......MM.MM.1:.MM.2.80.!....60100.P...."
..... **RENUMBER BASIC PROGRAM**"
.W....". BY CHUCK MOEHRINGER".
..(.."..ENTER NAME OF PROGRAM TO BE RENU
MBERED":."-->";:.60500:A$.B$...2.."..INS
ERT DISK WITH "A$" AND":."PRESS .RETURN
.WHEN READY TO START"...<..X$:.X$..G(13)
.60.M.>..15,8,15,"R0:".A$."=".A$:.15,ER:
15:.ER.63.70.Q.@.."...."A$" IS NOT ON T
HIS DISK"...B..A.1.4000:.:.10...F.. A$,8
,1...P.Y.2048:."..ENTER STARTING LINE NU
MBER:";.X.U.NO.1:.60500:Y2.E(B$)...Z..Y2
.0.Y2.63999.80...D.."..ENTER # TO INCREM
ENT EACH LINE BY".5.I.."-->";:.60500:Y3.
E(B$).M.N..Y3.1.Y3...(Y3).100..X.A.4915
1:B.49231:C.49189:D.256:E.49249:F.49248.
..}.G.251:H.252:I.50688:J.50432......".
NEW LINE # OLD LINE #".S....B(Y.2)..0.
200......51200:.51456:.44,8.%. ..251,Y.3
.256..((Y.3).256):.46,.((Y.3).256):.45,B
(251).R....48,B(46):.50,B(46):.175,B(46)
:.47,B(45).K....49,B(45):.174,B(45).....
."..YOU CAN NOW LIST, RUN, OR SAVE YOUR
RENUMBERED PROGRAM"...C.....H..Y2;:
K.Y.3:L.K.1:A3.B(K).D.B(L):..16)A3...R..
L,.(Y2.D):.K,Y2.D.B(L):Y.Y.5.2...C$.D(A3
):D$.D(Y2):.C,C(C$).1:.B.1,C(D$).1.U....
X.2.C(C$):.A.X,F(J(C$,X,1)):..X....X.2.C
(D$):.B.X,F(J(D$,X,1)):.......E,.(Y.D):.
F,Y.D.B(E):. I:Y.B(F).D.B(E).Y....H,.(Y.
D):.G,Y.D.B(H):. J:Y.B(G).D.B(H):Y2.Y2.Y
3......B(Y.2)..0.200......150...D..53280
,14:.53281,14.G.N..G(142)"...U..........
............................I";.B.X..A.1
.23:.".".38)".";:......A.217.242:.A,B(A
).128:......."J.........................
............K....".Y....".... LO
ADSTAR PRESENTS:"......"...... ..
".0....". ..
RENUMBER BASIC . ".Z....".
.. . "......".
.. BY CHUCH MOEHRINGER . "...(..".
.. . ".X.2..".
.. (C)OPYRIGHT 1987 . "...<..".
.. . ".*.F..
". . ".Y.K..
"....... PRESS SPACE TO CONTINUE.
".O.P..B(203)..60.60240.|.Z..198,.:....T
.."..";:B$."":.A.1.17...^..A$:.A$."".605
10...H..A$.G(13).60590...R..A$.G(20).A.1
..".. ...";:A.A.1:B$.H(B$,A.1):.60510..
.|..A.17.60510.!....A$.."0".A$.."9".6058
0.1....(NO).60510.L....A$.." ".A$.."Z".6
0580.G....A$.."A".A$.."Z".60580.R....605
10......"."A$;:.212,.:.".";:B$.B$.A$:...
....". ":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL