Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-12 11:29:37 +00:00
Code Issues Projects Releases Wiki Activity

ksp: initial flight support

Browse Source
This commit is contained in:
Vince Weaver 2016-05-26 11:06:42 -04:00
parent 04edf1a9c8
commit 6bda814d02
3 changed files with 90 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ksp/Makefile
View File

@ -9,6 +9,9 @@ basic: VAB.BAS THEME.BAS
ACMPLX.BAS: acmplx.bas
$(TXT2BAS) < acmplx.bas > ACMPLX.BAS
FLIGHT.BAS: flight.bas
$(TXT2BAS) < flight.bas > FLIGHT.BAS
LAUNCH.BAS: launch.bas
$(TXT2BAS) < launch.bas > LAUNCH.BAS
@ -24,6 +27,7 @@ VAB.BAS: vab.bas
ksp.dsk: ACMPLX.BAS \
FLIGHT.BAS \
LAUNCH.BAS GLOBE.HGR LAUNCHPAD.HGR ORBIT_TOP.HGR ORBIT_RIGHT.HGR \
LOADING.BAS LOADING.HGR SQUAD.HGR TITLE.HGR \
PHYSICS.BAS \
@ -41,6 +45,7 @@ ksp.dsk: ACMPLX.BAS \
$(DOS33) -y ksp.dsk SAVE B ORBIT_RIGHT.HGR
$(DOS33) -y ksp.dsk SAVE B ORBIT_TOP.HGR
$(DOS33) -y ksp.dsk SAVE A PHYSICS.BAS
$(DOS33) -y ksp.dsk SAVE A FLIGHT.BAS
LAUNCHPAD.HGR: launchpad.pcx

19
ksp/flight.bas Normal file
View File

@ -0,0 +1,19 @@
7000 HIMEM:8144
7020 POKE 232,208:POKE 233,31
7030 FOR L=8144 TO 8175: READ B:POKE L,B:NEXT L
7035 HGR:ROT=0:SCALE=2
7040 XDRAW 1 AT 140,80
7050 GET A$
7060 IF A$="Q" THEN END
7062 IF A$="A" THEN R=R-8
7063 IF A$="D" THEN R=R+8
7070 IF R=64 THEN R=0
7072 IF R=-8 THEN R=56
7075 XDRAW 1 AT 140,80
7080 ROT=R
7085 GOTO 7040
7090 END
7100 DATA 1,0,4,0,219,36,36,44,44,44
7101 DATA 53,53,53,54,54,54,54,63,63,45
7102 DATA 46,46,62,63,63,39,37,37,63,36
7103 DATA 36,0

66
ksp/ship2.table Normal file
View File

@ -0,0 +1,66 @@
# Number of shapes
1
#
START
# Get to edge
NLT
NLT
NLT
UP
UP
UP
UP
# Start on Capsule
UP
RT
UP
RT
UP
RT
RT
DN
RT
DN
RT
DN
# TANK AGAIN
DN
DN
DN
DN
# TANK TWO
DN
DN
DN
DN
LT
LT
LT
LT
RT
RT
# BELL
DN
RT
DN
RT
DN
LT
LT
LT
LT
LT
LT
UP
RT
UP
RT
UP
# TANK AGAIN
LT
LT
UP
UP
UP
UP
STOP