home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh12a.d64 / fill-beispiel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  618b  |  17 lines
  1. 10 IFA=0THENA=1:LOAD"FILL-C",8,1
  2. 20 SL=32256:SH=32512:AD=2^15:D=256:FORI=0TO199STEP8
  3. 30 FORJ=0TO7:B=AD+J:H=INT(B/D):L=B-H*D
  4. 40 POKESL+I+J,L:POKESH+I+J,H:NEXT:AD=AD+320:NEXT
  5. 50 REM OBEN WIRD DIE ANFANGSZEILENTABELLE
  6. 60 REM AUFGESTELLT (AADL/H)
  7. 70 V=53248:POKEV+24,8*16:POKEV+17,59:POKE56576,2:REM  GRAFIK EIN
  8. 80 GOSUB 140:SYS12*4096:REM GRAFIK LOESCHEN
  9. 90 FORI=6*4096TO6*4096+999:POKEI,16:NEXT:REM FARBE
  10. 100 FORI=0TO100:POKE2^14+RND(0)*8000,1:NEXT
  11. 110 SYS7*4096,160,100:REM PAINT
  12. 120 POKE198,0:WAIT198,1
  13. 130 POKEV+24,21:POKEV+17,27:POKE56576,3:END
  14. 140 FORX=12*4096TO12*4096+28:READA:POKEX,A:NEXT:RETURN
  15. 150 DATA160,0,132,251,169,64,133,252,152,145,251,230,251,208,2,230,252,56,165
  16. 160 DATA251,233,1,165,252,233,96,144,236,96
  17.