home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_July_1992_Datasphere_Publications_Disk_1_of_2_Side_A.d64 / n.save-rel (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  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.