home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C64 / GFX / SCRNWEAV.ARC / SCREENWEAVER (.txt) < prev   
Commodore BASIC  |  2000-06-30  |  1KB  |  15 lines
  1. 1 IFA=0THENA=2:LOAD"DDDEMO",8,1
  2. 2 POKE53280,.:SYS 32577:SYS2700:SYS2900:POKE646,.:POKE53280,1:POKE53281,1:PRINT"[147]";:
  3. 3 GET Q$:IF Q$=""GOTO3
  4. 4 IFQ$="[209]"THEN13
  5. 5 IF PEEK(653)<>0THEN3
  6. 6 L=ASC(Q$)-64
  7. 7 A$="":FORJ=1TOL:A$=A$+CHR$(RND(0)*6+64):NEXT
  8. 8 A$=A$+A$+A$+A$+A$+A$+A$+A$:M=LEN(A$)
  9. 9 FORJ=1TO960/M:PRINTA$;:NEXT
  10. 10 PRINT LEFT$(A$,960-M*INT(960/M));
  11. 11 SYS3400
  12. 12 GOTO 3
  13. 13 PRINTCHR$(147):POKE53280,14:POKE53281,6:POKE646,14:POKE53272,21
  14. 14 PRINTTAB(3)"CONSIDER RENAMING ANY SAVED SCREENS":NEW
  15.