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