16 lines
678 B
QBasic
16 lines
678 B
QBasic
10 PRINT CHR$(147):POKE 53280,0:POKE 53281,0
|
|
20 PRINT " STARFIELD":PRINT:PRINT "1=SLOW 2=MEDIUM 3=FAST Q=QUIT"
|
|
25 PRINT:PRINT "PRESS ANY KEY"
|
|
30 GET A$:IF A$="" THEN 30
|
|
35 R=RND(-TI)
|
|
40 DIM X(30),Y(30),Z(30):FOR I=1 TO 30:X(I)=INT(RND(1)*40)
|
|
45 Y(I)=INT(RND(1)*24):Z(I)=INT(RND(1)*3)+1:NEXT:V=2:PRINT CHR$(147)
|
|
50 FOR I=1 TO 30:P=1024+Y(I)*40+X(I):POKE P,32
|
|
60 X(I)=X(I)+Z(I)*V:IF X(I)>39 THEN X(I)=0:Y(I)=INT(RND(1)*24):Z(I)=INT(RND(1)*3)+1
|
|
70 P=1024+Y(I)*40+X(I):POKE P,46:POKE 55296+Y(I)*40+X(I),Z(I)+10
|
|
80 NEXT
|
|
90 GET A$:IF A$="1" THEN V=1
|
|
100 IF A$="2" THEN V=2
|
|
110 IF A$="3" THEN V=3
|
|
120 IF A$<>"Q" THEN 50
|
|
130 POKE 53280,14:POKE 53281,6:PRINT CHR$(147):END
|