1 REM  "NUDGE" RELOCATER      (C)1990
2 REM
3 REM
4 REM  PROGRAMMING AND
5 REM  DESIGN...          JASON FINCH
6 :
7 :
8 :
9 A=A+1:IFA=2THEN12
10 POKE53280,0:POKE53281,0:POKE53265,22:PRINT"[147]    [206][213][196][199][197] [210][197][204][207][195][193][212][207][210] - [194]Y [202]ASON [198]INCH"
11 PRINT,"[157][157][208]LEASE WAIT:  [204]OADING...":LOAD"N.CODE",8,1
12 PRINT"[147][158]":POKE53280,5:POKE53281,11:N=49330
13 SYSN+6,0,0,0,0,0,0,0,0,0,0,7,0,0,5,0,0,0,2,0,0,0,1,1,1:SYSN,1,1
14 PRINT"   [146][187]       [161] [146][161][161]     [146][187] [172]     [161]         [146][187]      [161] [146][161]";
15 PRINT"[161] [172][162][187]    [172][162][162][162][161] [172][162][162][162][162]    [146][187]     [161] [146][161][161] [146][161]      [161] [146][161]"
16 PRINT"  [146][188]  [146][187]    [161] [146][161][161] [146][161]      [161] [188][146][162][162][162]     [146] [188]      [161]";
17 PRINT" [146][161][161] [146][161]      [161]  [146][161][161]       [146]  [188]     [161] [146][161][161] [146][161]      [146][188]";
18 PRINT"[187] [146][161][161] [146][161]","   [146][188]    [146][187] [190] [146][161][161] [146][161] [172]    [146][187] [190] [146][161][161] [146][161]"
19 PRINT"     [187]     [146][190][161]     [172][187]     [146][190][161]      [162][162][162][162][162][162][162][162][146][190] [188][162][162][162]";
20 PRINT"[162][162][162][162][162][162][146][190] [188][162][162][162][162][162][162]","[150][146]     [193]N ADAPTATION OF [211]CREEN [211]LIDER"
21 PRINT"     PUBLISHED BY [195][196][213][160]IN [205]ARCH 1990"," [208]ROGRAMMING AND [196]ESIGN BY";
22 PRINT" [202]ASON [198]INCH",,"[154] [195]OPYRIGHT [195][196][213] 1990[145][145][145][145][145][145][145][145][145][145][145][145][145]"
23 PRINT,"[153][157][157][157] [211][193][214][197][210]/[210][197][204][207][195][193][212][207][210][160][208][210][207][199][210][193][205] ":SYSN+3,1:FORT=1TO2500:NEXT:SYSN+6,255
24 SYSN+3,9:PRINT"[147]":SYSN,0,0
25 PRINT"[147][158][206][213][196][199][197] [211][193][214][197][210]/[210][197][204][207][195][193][212][207][210]",," [194]Y [202]ASON[160][198]INCH"
26 PRINT"[154] [197]NTER START ADDRESS OR PAGE NUMBER"," ([213]SE '$' PREFIX FOR HEXADECIMAL)"
27 PRINT"[159] :";:OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:A=VAL(A$):IFLEFT$(A$,1)<>"$"THEN30
28 A$=MID$(A$,2):A=0:IFA$=""THEN26
29 FORI=1TOLEN(A$):Z=ASC(MID$(A$,I,2))-48:A=A*16+Z+(Z>9)*7:NEXT
30 IFA<256THENA=A*256:GOTO35
31 IF(A>2047ANDA<39937)OR(A>49151ANDA<52225)THEN33
32 PRINT"[150] ** [214]ALUE OUT OF DESIGNATED RANGES **":FORT=1TO1500:NEXT:GOTO25
33 IFA/256=INT(A/256)THEN35
34 PRINT"[150] ** [214]ALUE NOT DIVISIBLE BY 256 **":FORT=1TO1500:NEXT:GOTO25
35 PRINT" [211]TART ADDRESS:[155]"A:PRINT" [195]ALL ADDRESS: [155]"A+178
36 PRINT" [208]AGE NUMBER:  [155]"A/256:PRINT"[150] [193]LL [207][203]? [[217]/[206]]":POKE198,0
37 GETA$:IFA$="N"THEN25
38 IFA$<>"Y"THEN37
39 PRINT"[145][129] [208]LEASE WAIT... [210]ELOCATING CODE":PG=A/256:GOSUB48
40 F$=MID$(STR$(A+178),2):PRINT" [211]AVING CODE AS "CHR$(34)"[206][213][196][199][197]"F$CHR$(34)
41 OPEN15,8,15,"I":INPUT#15,A,A$,B,C:CLOSE15:IFA>0THEN45
42 OPEN2,8,1,"NUDGE"+F$+",P,W":PRINT#2,CHR$(0)CHR$(PG);:FORI=0TO855
43 PRINT#2,CHR$(PEEK(49152+I));:NEXT:CLOSE2:PG=192:GOSUB48
44 OPEN15,8,15:INPUT#15,A,A$,B,C:CLOSE15:IFA=0THEN25
45 PRINT"[145][145][150] ** [196][201][211][203] [197][210][210][207][210] [206]O."MID$(STR$(A),2)" **              "
46 PRINT"                                       [145]"A$" @"B"[157],"C
47 FORT=1TO1500:NEXT:PG=192:GOSUB48:GOTO25
48 RESTORE:FORI=0TO90:READN:POKE49152+INT(N/4),PG+(NAND3):NEXT:RETURN
49 DATA721,733,744,820,856,868,932,952,964,1044,1093,1112,1136,1219,1228,1265
50 DATA1276,1329,1361,1373,1385,1397,1433,1445,1457,1471,1480,1517,1553,1573
51 DATA1585,1597,1624,1647,1657,1676,1688,1723,1741,1760,1788,1817,1929,1945
52 DATA1962,2056,2113,2192,2254,2264,2298,2310,2342,2409,2426,2514,2526,2537
53 DATA2564,2608,2621,2632,2660,2688,2724,2736,2752,2764,2812,2824,2860,2913
54 DATA2945,2964,2976,3011,3024,3037,3048,3060,3080,3092,3106,3117,3145,3321
55 DATA3341,3361,3393,3405,3417