home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 88xx / 8812a.d64 / zeichendemo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  366 b   |  20 lines
  1. 10 FORI=0TO14:READ A:POKE8*4096+I,A:NEXT
  2. 15 PRINT"[147]BITTE EINE TASTE DRUECKEN"
  3. 20 BA=13*4096
  4. 30 GETA$:IFA$=""THEN30
  5. 40 PRINT"[147]";A$
  6. 50 AB=PEEK(1024)*8+BA
  7. 60 FORI=0TO7
  8. 70 AD=AB+I
  9. 80 HI=INT(AD/256):LO=AD-HI*256
  10. 90 POKE251,LO:POKE252,HI
  11. 100 SYS8*4096
  12. 110 BY=PEEK(253)
  13. 120 FORJ=7TO0STEP-1
  14. 130 IF(BYAND2^J)THENPRINT"*";
  15. 140 IF(BYAND2^J)=0THENPRINT".";
  16. 160 NEXTJ
  17. 170 PRINT:NEXTI
  18. 180 END
  19. 32000 DATA169,51,133,1,160,0,177,251,133,253,169,55,133,1,96
  20.