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