mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 23:54:33 +00:00
ksp: working demo!
This commit is contained in:
parent
fbdd03470a
commit
89ed5e98a6
@ -195,16 +195,19 @@
|
|||||||
6066 IF A$="X" THEN TR=0
|
6066 IF A$="X" THEN TR=0
|
||||||
6067 IF A$="M" AND OM=1 THEN OM=0:CQ=-1:GOTO 4000
|
6067 IF A$="M" AND OM=1 THEN OM=0:CQ=-1:GOTO 4000
|
||||||
6068 IF A$="M" AND OM=0 THEN OM=1:HOME:PRINT:PRINT CHR$(4);"BLOAD GLOBE.HGR,A$2000":GOTO 6095
|
6068 IF A$="M" AND OM=0 THEN OM=1:HOME:PRINT:PRINT CHR$(4);"BLOAD GLOBE.HGR,A$2000":GOTO 6095
|
||||||
6070 IF A$=" " AND LN=1 THEN S=S-1:XX=PEEK(-16336)
|
6070 IF A$=" " AND LN=1 THEN S=S-1:XX=PEEK(-16336):IF S<1 THEN S=1
|
||||||
6071 IF A$=" " AND LN=0 THEN GOSUB 7500
|
6071 IF A$=" " AND LN=0 THEN GOSUB 7500
|
||||||
6072 IF A$="E" THEN GOSUB 8100
|
6072 IF A$="E" THEN GOSUB 8100
|
||||||
6073 IF R=64 THEN R=0:AN=0
|
6073 IF R=64 THEN R=0:AN=0
|
||||||
6074 IF R=-8 THEN R=56
|
6074 IF R=-8 THEN R=56
|
||||||
6075 IF S<1 THEN S=1
|
6075 IF OM<>1 THEN GOSUB 8200
|
||||||
|
6076 IF OM<>1 AND R>20 AND R<48 THEN GOSUB 8210:GOTO 6080
|
||||||
|
6076 IF OM<>1 AND VY>100 THEN GOSUB 8220
|
||||||
6080 ROT=R
|
6080 ROT=R
|
||||||
6090 IF OM<>1 THEN XDRAW 1+((S-1)*2)+TR AT 140,80
|
6090 IF OM<>1 THEN XDRAW 1+((S-1)*2)+TR AT 140,80
|
||||||
6095 IF OM=1 THEN HX=INT(RX/25000)+140:HY=INT(-RY/25000)+85:HCOLOR=3:HPLOT HX,HY
|
6095 IF OM=1 THEN HX=INT(RX/25000)+140:HY=INT(-RY/25000)+85:HCOLOR=3:HPLOT HX,HY
|
||||||
6118 T=T+1
|
6118 T=T+1:EC=EC+1
|
||||||
|
6150 IF OM<>1 AND EC>30 THEN EC=0:GOSUB 8100
|
||||||
6200 GOTO 4000
|
6200 GOTO 4000
|
||||||
7500 REM *** LAUNCH ***
|
7500 REM *** LAUNCH ***
|
||||||
7510 HCOLOR=0:HPLOT 110,110 TO 110,60:HPLOT TO 130,60: HPLOT 110,70 TO 130,70
|
7510 HCOLOR=0:HPLOT 110,110 TO 110,60:HPLOT TO 130,60: HPLOT 110,70 TO 130,70
|
||||||
|
Loading…
Reference in New Issue
Block a user