home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 December / 64er_Magazin_86-12_1986_Markt__Technik_de.d64 / hsg-aenderungen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.1 KB  |  52 lines
  1. 100 rem  hsg-w  modifizierung
  2. 110 rem  aendert verwendete zero-page
  3. 120 rem  adressierung
  4. 130 rem
  5. 140 rem  ermoeglicht verwendung von
  6. 150 rem  funktionen als argumente
  7. 160 rem  der befehle.
  8. 170 rem
  9. 180 rem  achtung ! dauer ca 7 min
  10. 190 rem
  11. 1000 for i=36864 to 40032
  12. 1010 q=peek(i)
  13. 1020 if q=164 or q=165 or q=166then3000
  14. 1050 if q=132 or q=133 or q=134then3000
  15. 1080 if q=197 or q=229 or q=230then3000
  16. 1110 if q=101 or q=141 or q=177then3000
  17. 1140 if q= 49 or q=145 or q=17 then3000
  18. 2000 next
  19. 2005 :
  20. 2010 fori=1to21
  21. 2020 read w,q:pokew,q
  22. 2030 next
  23. 2100 :
  24. 2200 open1,8,1,"hsg2,p,w"
  25. 2210 print#1,chr$(0);chr$(144);
  26. 2220 for i=36864 to 40032
  27. 2230 print#1,chr$(peek(i));
  28. 2240 next
  29. 2250 close1
  30. 2500 end
  31. 3000 :
  32. 3010 w=peek(i+1)
  33. 3020 if w=87 then pokei+1,164:gosub4000
  34. 3030 if w=88 then pokei+1,165:gosub4000
  35. 3040 if w=89 then pokei+1,166:gosub4000
  36. 3050 if w=90 then pokei+1,180:gosub4000
  37. 3060 if w=91 then pokei+1,181:gosub4000
  38. 3070 if w=92 then pokei+1,173:gosub4000
  39. 3080 if w=93 then pokei+1,176:gosub4000
  40. 3090 if w=94 then pokei+1,177:gosub4000
  41. 3100 if w=95 then pokei+1,178:gosub4000
  42. 3110 if w=96 then pokei+1,179:gosub4000
  43. 3850 goto2000
  44. 3900 :
  45. 4000 c=c+1
  46. 4010 printc:print"[145]";
  47. 4020 return
  48. 5000 :
  49. 5010 data 37205,96,37264,95,37989,180,38317,92,38323,93,38336,96,38379,87
  50. 5020 data 38388,89,38394,91,38420,95,38425,94,39047,87,39060,88,39063,89
  51. 5030 data 39066,90,39069,91,39103,92,39106,93,39114,96,39127,94,39130,95
  52.