home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / sprgraph.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-07-18  |  768 b   |  20 lines
  1. 10 PRINT"ô              SPRITE GRAPH"
  2. 20 INPUT"HOW MANY GRAPHS";B:F=1:IF B<1 THEN END
  3. 30 OPEN3,4:PRINT#3,CHR$(14)"  SPRITE GRAPH":A=1:REM CHR$(14)-DOUBLE WIDTH MODE
  4. 40 FORI=1TO24:PRINT#3:PRINT#3
  5. 50 PRINT#3,CHR$(15)"     1       1       1":REM CHR$(15)-STANDARD CHAR MODE
  6. 60 PRINT#3,CHR$(15)"     2631    2631    2631"
  7. 70 PRINT#3,CHR$(15)"     842684218426842184268421"CHR$(8):REM CHR$(8)-BIT IMAGE
  8. 80 PRINT#3,CHR$(15)"    ░▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓«"CHR$(8)
  9. 90 PRINT#3,CHR$(15)A;" ½███████████████████████│"CHR$(8):A=A+1
  10. 100 IF A>9 THEN 120
  11. 110 GOTO 90
  12. 120 PRINT#3,CHR$(15)A;"½███████████████████████│"CHR$(8):A=A+1
  13. 130 IF A=21 THEN 150
  14. 140 GOTO 120
  15. 150 PRINT#3,CHR$(15)" 21 ¡▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒╜"CHR$(8)
  16. 160 PRINT#3:PRINT F:F=F+1
  17. 170 IF F<B+1 THEN A=1:GOTO 40
  18. 180 CLOSE3:END
  19. 8224                                                                                                                            
  20.