home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / ctest (.txt) < prev    next >
Commodore BASIC  |  1987-07-10  |  768b  |  30 lines
  1. 3 REM COLOR BLOCKS
  2. 5 G=13*4096:POKE G+33,0
  3. 7 S$=""
  4. 10 PRINT "[147]":CD$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  5. 13 DATA "BLACK","WHITE","RED"
  6. 14 DATA "[159]CYAN","[156]PURPLE","GREEN"
  7. 15 DATA "BLUE","[158]YELLOW","[129]ORANGE"
  8. 16 DATA "[149]BROWN","[150]PINK","[151]GRAY 1"
  9. 17 DATA "[152]GRAY 2","[153]LT GREEN","[154]LT BLUE"
  10. 18 DATA "[155]GRAY 3"
  11. 20 FOR X=0 TO 3
  12. 25 FOR Y=1 TO 5
  13. 30 FOR Z=1 TO 4
  14. 40 PRINT " "MID$(CD$,X*4+Z,1)"        [146] ";
  15. 50 NEXT Z
  16. 60 NEXT Y
  17. 65 IF X<>3 THEN PRINT
  18. 70 NEXT X
  19. 75 PRINT ""SPC(1)"[207][183][183][183][183][183][183][208]"SPC(32)"[165]      [167]"
  20. 76 PRINT SPC(1)"[165]      [167]"SPC(32)"[165]      [167]"
  21. 79 PRINTSPC(1)"[204][175][175][175][175][175][175][186]"
  22. 80 PRINT"";:FOR X=1 TO 4
  23. 90 READ A$,B$,C$,D$
  24. 100 PRINT "";:IF X=1 THEN PRINT "[145]";
  25. 105 PRINT ""A$,""B$,""C$,""D$
  26. 110 NEXT X
  27. 120 GET A$:IF A$="" THEN 120
  28. 130 POKE G+33,PEEK(G+33)+1 AND 15
  29. 140 GOTO 120
  30.