home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / KALEIDOSCOPE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.3 KB  |  35 lines
  1. 0 PRINT"ô"CHR$(142)CHR$(8):POKE53280,0:POKE53281,0:BC=0:POKE650,255
  2. 1 DV=PEEK(186):IFDV<8THENDV=8
  3. 2 GOTO1000
  4. 5 POKE1024,32+128:A$=""+CHR$(PEEK(1024))+"Æ":POKE1024,32
  5. 10 POKE646,INT(RND(1)*15)
  6. 12 X=INT(RND(1)*19)+1:Y=INT(RND(1)*12)
  7. 14 X1=39-X:Y1=23-Y
  8. 16 POKE211,X:POKE214,Y:SYS58732:PRINTA$
  9. 18 POKE211,X1:POKE214,Y:SYS58732:PRINTA$
  10. 20 POKE211,X:POKE214,Y1:SYS58732:PRINTA$
  11. 22 POKE211,X1:POKE214,Y1:SYS58732:PRINTA$
  12. 24 GETB$:IFB$=""THEN10
  13. 28 IFB$="Q"ORB$="╤"THEN1000:REM QUIT
  14. 30 IFB$="ô"ORB$=""THENPRINT"ô":GOTO10:REM CLEAR SCREEN
  15. 32 IFB$="+"THENBC=BC+1:GOSUB50:GOTO10
  16. 34 IFB$="-"THENBC=BC-1:GOSUB50:GOTO10
  17. 36 IFB$="P"THENGOSUB60:GOTO10
  18. 38 GOTO10
  19. 50 IFBC=16THENBC=0
  20. 51 IFBC<0THENBC=15
  21. 52 POKE53280,BC:POKE53281,BC:RETURN
  22. 60 GETLL$:IFLL$=""THEN60
  23. 62 RETURN
  24. 1000 POKE53280,0:POKE53281,0:PRINT"ô ƒóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóó"
  25. 1002 PRINT"Ü                                      "
  26. 1004 PRINT"Ü    KALEIDOSCOPE BY PAUL MC ALEER     "
  27. 1006 PRINT"Ü                                      "
  28. 1008 PRINT"óóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóóó"
  29. 1010 PRINT"░Ö└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└«"
  30. 1012 FORT=1TO15:PRINT"▌                                  Ö▌":NEXT
  31. 1014 PRINT"¡└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└└Ö╜"
  32. 1016 PRINT"¢THIS PROGRAM WILL DRAW A PSEUDO-"
  33. 1018 PRINT"KALEIDOSCOPE ON YOUR SCREEN.  THE"
  34. 1020 PRINT"FOLLOWING KEYS ARE AVAILABLE..."    
  35.