home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh75b.d64 / bildlader (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  345b  |  16 lines
  1. 0 IFA=1THEN7
  2. 1 IFA=2THEN8
  3. 2 IFA=3THEN50
  4. 3 GOSUB100
  5. 6 IFA=0THENA=1:LOAD"GRAPHICCLR",8,1
  6. 7 IFA=1THENA=2:LOAD"BITMAPON",8,1
  7. 8 SYS58692:SYS28700:SYS28726
  8. 9 FORI=1024TO2023:POKEI,FB:NEXT
  9. 10 IFA=2THENA=3:LOADBL$,8,1
  10. 50 POKE198,0:WAIT198,1
  11. 60 POKE53265,27:POKE53272,21:SYS58692:END
  12. 100 PRINT"[147]BILDNAME";:INPUTBL$
  13. 110 PRINT"FARBE HINTERGRUND (0-15)";:INPUTHG
  14. 120 PRINT"FARBE VORDERGRUND (0-15)";:INPUTVG
  15. 130 FB=16*VG+HG:RETURN
  16.