home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 July / 1987-07.d64 / remedy (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  41 lines
  1. 10 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 20 address=49152
  3. 30 background=12:brder=11:text=0
  4. 40 def fnhi(x)=int(x/256):def fnlo(x)=x-fnhi(x)*256
  5. 50 if(ad>2048andad<40514)or(ad>49151andad<52802)then70
  6. 60 print"address is not available -- try another and run again.":end
  7. 70 print"[147][144]copyright 1987 compute! pub., inc."
  8. 80 printtab(9)"all rights reserved"
  9. 90 print"working..."
  10. 100 forx=adtoad+387:readb:z=z+b:next:ifz<>60498thenprint"error in data.":stop
  11. 110 restore:forx=adtoad+428:readb:z=z+1:ifb<256thenpokex,b:goto150
  12. 120 b=b-256:lo=fnlo(b)+fnlo(ad):hi=fnhi(b)+fnhi(ad)
  13. 130 iflo>255thenhi=hi+1
  14. 140 pokex,loand255:x=x+1:pokex,hi
  15. 150 next:pokead+46,fnlo(ad+409):pokead+48,fnhi(ad+409)
  16. 160 pokead+307,ba:pokead+302,br:pokead+297,te:sysad
  17. 170 print"sys"ad"to reactivate remedy after a":print"cold start reset.":end
  18. 180 data 32,298,44,685,16,24,48,29,32,621,165,34,24,105,2,133,45,165
  19. 190 data 35,105,0,133,46,32,96,166,76,116,164,173,161,2,141,13,221
  20. 200 data 96,76,568,32,552,169,153,160,193,32,30,171,160,6,185,629,153
  21. 210 data 40,184,136,16,247,169,127,141,13,221,160,5,185,636,153,250,255
  22. 220 data 136,16,247,160,3,185,642,153,22,3,136,16,247,96,64,120,72,138
  23. 230 data 72,152,72,169,55,133,1,169,127,141,13,221,172,13,221,16,3,76
  24. 240 data 114,254,32,483,169,255,32,646,32,401,32,188,246,165,145,201
  25. 250 data 244,240,118,201,127,208,3,32,433,76,86,254,32,483,32,204,255
  26. 260 data 169,0,133,19,169,72,141,143,2,169,235,141,144,2,32,83,228,32,21
  27. 270 data 253,32,308,76,163,253,173,507,141,2,3,173,508,141,3,3,96
  28. 280 data 32,552,32,308,169,131,141,2,3,169,164,141,3,3,108,2,3
  29. 290 data 32,401,32,433,76,102,254,72,169,55,133,1,104,108,254,255,169
  30. 300 data 55,133,1,169,127,141,13,221,173,505,141,24,3,173,506,141,25
  31. 310 data 3,96,347,446,32,483,56,110,685,160,13,185,43,0,153
  32. 320 data 687,136,16,247,173,131,2,141,701,173,132,2,141,702,169,5,141
  33. 330 data 22,208,169,160,32,646,108,252,255,169,0,141,134,2,169,7,141
  34. 340 data 32,208,169,1,141,33,208,96,78,685,165,49,201,3,208,246,165,50
  35. 350 data 201,8,208,240,160,13,185,687,153,43,0,136,16,247,173,701,141
  36. 360 data 131,2,173,702,141,132,2,56,165,45,229,43,201,2,208,6,165,46
  37. 370 data 229,44,240,202,169,1,168,145,43,76,51,165,169,55,133,1,76
  38. 380 data 40,184,348,509,474,465,348,160,0,162,252,141,686,200,208
  39. 390 data 253,238,686,208,248,232,208,242,96,17,82,69,77,69,68,89
  40. 400 data 32,73,83,32,65,67,84,73,86,69,46,13,0
  41.