home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 February / 64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64 / v2.01-patch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  718b  |  44 lines
  1. 100 rem ***
  2. 110 rem *** giga-print v2.01 - patch
  3. 120 rem ***
  4. 130 :
  5. 140 print "legen sie eine kopie (!!!) der"
  6. 150 print "giga-print diskette ein  <taste>"
  7. 160 wait 198,1:get qq$
  8. 170 :
  9. 180 :
  10. 200 open 1,8,0,"giga-print v2.0"
  11. 210 for i=8192 to 8336
  12. 220 get#1,a$:poke i,asc(a$+chr$(0))
  13. 240 next
  14. 250 close 1
  15. 255 :
  16. 260 open 1,8,15,"s:giga-print v2.0"
  17. 270 close 1
  18. 275 :
  19. 280 poke 8320,47
  20. 285 open 1,8,1,"giga-print v2.0"
  21. 290 for i=8192 to 8299
  22. 300 print#1,chr$(peek(i));
  23. 310 next
  24. 320 print#1,chr$(32)chr$(191)chr$(227);
  25. 330 for i=8300 to 8336
  26. 340 print#1,chr$(peek(i));
  27. 350 next
  28. 360 close 1
  29. 365 :
  30. 370 :
  31. 400 sys 57812 "pr1",8,0
  32. 410 poke 780,0:poke 781,0:poke 782,32:sys 65493
  33. 430 :
  34. 440 open 1,8,15,"s:pr1":close 1
  35. 460 :
  36. 470 poke 22100,81:poke 22104,51:poke 15770,25
  37. 495 :
  38. 500 open 1,8,1,"pr1"
  39. 510 print#1,chr$(16)chr$(8);
  40. 520 for i=8192 to 24519
  41. 530 print#1,chr$(peek(i));
  42. 540 next
  43. 550 close 1
  44.