home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011a.d64 / makechr (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  426b  |  11 lines
  1. 1 POKE56334,0:POKE1,51:FORA=0TO1023:POKE8192+A,PEEK(56320+A):NEXT:POKE1,55
  2. 2 POKE56334,1:FORA=1TO6:READC:FORB=0TO7:READD:POKEC+B,D:NEXT:NEXT
  3. 3 OPEN1,8,1,"PLACHRS":PRINT#1,CHR$(0)CHR$(204);
  4. 4 FORA=8192TO9215:PRINT#1,CHR$(PEEK(A));:NEXT:CLOSE1
  5. 10 DATA8664,153,255,195,249,193,153,193,255
  6. 11 DATA8424,153,231,195,153,129,153,153,255
  7. 12 DATA8656,153,255,195,153,153,153,195,255
  8. 13 DATA8408,153,195,153,153,153,153,195,255
  9. 14 DATA8192,153,255,153,153,153,153,193,255
  10. 15 DATA9168,153,219,153,153,153,153,195,255
  11.