home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR2 / C64EMUL.ZIP / VC1541.000 / upupaway (.txt)
Commodore BASIC  |  1991-07-16  |  495b  |  21 lines
  1. 1 REM UP,UP AND AWAY
  2. 5 PRINT CHR$(147)
  3. 10 V=53248
  4. 11 POKE V+21,4:POKE V+41,1
  5. 12 POKE 2042,13
  6. 18 PRINT "READING SPRITE DATA..."
  7. 20 FOR N=0 TO 62:READ Q:POKE 832+N,Q:NEXT
  8. 28 PRINT "START DISPLAYING..."
  9. 29 PRINT "  -1";
  10. 30 FOR X=0 TO 200
  11. 35 PRINT "[157][157][157][157]";RIGHT$("    "+STR$(X),4);
  12. 40 POKE V+4,X
  13. 50 POKE V+5,X
  14. 60 NEXT X
  15. 70 GOTO 30
  16. 200 DATA 0,127,0,1,255,192,3,255,224,3,231,224
  17. 210 DATA 7,217,240,7,223,240,7,217,240,3,231,224
  18. 220 DATA 3,255,224,3,255,224,2,255,160,1,127,64
  19. 230 DATA 1,62,64,0,156,128,0,156,128,0,73,0,0,73,0
  20. 240 DATA 0,62,0,0,62,0,0,62,0,0,28,0
  21.