home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh18a.d64 / PAL-Gen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  950b  |  37 lines
  1. 10 REM ******************************
  2. 11 REM *   PAL-GEN                  *
  3. 12 REM * ERZEUGT CODE FUER PAL      *
  4. 13 REM *     IM GRAPHIK-MPS 802     *
  5. 14 REM * IM RAM VON $6000 BIS $7FFF *
  6. 15 REM * SOWIE AUF DISK ALS MPS-PAL *
  7. 16 REM * LAUFZEIT CA 3 MINUTEN      *
  8. 17 REM ******************************
  9. 18 REM
  10. 100 FOR I=6*4096 TO 6*4096+4*256
  11. 101 POKE I,255
  12. 102 NEXTI
  13. 110 FOR I=6*4096+4*256 TO 8*4096 STEP 2
  14. 111 POKE I,253
  15. 112 NEXT I
  16. 120 FOR I=6*4096+4*256 TO 6*4096+10*256 STEP 4
  17. 121 POKE I+1,249:POKE I+3,254
  18. 122 NEXT I
  19. 130 FOR I=6*4096+10*256 TO 7*4096+15*256 STEP 8
  20. 131 POKE I+1,249:POKE I+3,249
  21. 132 POKE I+5,254:POKE I+7,254
  22. 133 NEXTI
  23. 140 FOR I=7*4096+15*256 TO 7*4096+15*256+14*16 STEP 16
  24. 141 POKE I+1,249:POKE I+3,249
  25. 142 POKE I+5,249:POKE I+7,249
  26. 143 POKE I+9,254:POKE I+11,254
  27. 144 POKE I+13,254:POKE I+15,254
  28. 145 NEXTI
  29. 150 FOR I=7*4096+15*256+14*16 TO 7*4096+15*256+15*16 STEP 2
  30. 151 POKE I+1,249
  31. 152 NEXTI
  32. 160 FOR I=7*4096+15*256+15*16 TO 8*4096 STEP 2
  33. 161 POKE I+1,254
  34. 162 NEXTI
  35. 200 OPEN1,8,2,"MPS-PAL,P,W":PRINT#1,CHR$(0)CHR$(96);
  36. 210 FORI=6*4096TO8*4096-1:PRINT#1,CHR$(PEEK(I));:NEXT:CLOSE1
  37.