Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-05-31 21:41:32 +00:00
Code Issues Projects Releases Wiki Activity

ksp: update with loading

Browse Source
This commit is contained in:
Vince Weaver 2016-05-23 17:18:09 -04:00
parent d6cc8c39ff
commit 3b615a286f
4 changed files with 52 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ksp/Makefile
View File

@ -9,15 +9,15 @@ basic: VAB.BAS THEME.BAS
VAB.BAS: vab.bas
$(TXT2BAS) < vab.bas > VAB.BAS
THEME.BAS: theme.bas
$(TXT2BAS) < theme.bas > THEME.BAS
LOADING.BAS: loading.bas
$(TXT2BAS) < loading.bas > LOADING.BAS
ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR THEME.BAS VAB.BAS
ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR LOADING.BAS VAB.BAS
$(DOS33) -y ksp.dsk SAVE B LOADING.HGR
$(DOS33) -y ksp.dsk SAVE B SQUAD.HGR
$(DOS33) -y ksp.dsk SAVE B TITLE.HGR
$(DOS33) -y ksp.dsk SAVE A VAB.BAS
$(DOS33) -y ksp.dsk SAVE A THEME.BAS
$(DOS33) -y ksp.dsk SAVE A LOADING.BAS
LOADING.HGR: loading.pcx

BIN
ksp/ksp.dsk
View File

Binary file not shown.

48
ksp/loading.bas Normal file
View File

@ -0,0 +1,48 @@
5 REM *** KSP by Vince Weaver ***
6 REM *** A VMW Software Production ***
10 HOME
20 HGR
100 REM *** SQUAD SCREEN ***
110 PRINT CHR$(4);"BLOAD SQUAD.HGR,A$2000"
400 REM *** LOADING SCREEN ***
410 REM BLOAD LOADING.HGR,A$2000
420 REM *** TITLE SCREEN ***
430 REM BLOAD TITLE.HGR,A$2000
580 S=0
590 VTAB 21: PRINT " ";
600 FOR I=1 TO 32: PRINT ".";: NEXT I
700 FOR J=1 TO 32
710 HTAB J+4:VTAB 21
720 INVERSE: PRINT " ";: NORMAL
790 S=S+1: IF S=4 THEN S=0
795 IF S<>1 GOTO 840
800 I=INT(RND(1)*8)+1
802 VTAB 22: HTAB 1
803 PRINT " ";
805 ON I GOSUB 850,851,852,853,854,855,856,857
840 FOR T=1 TO 200: NEXT T
842 NEXT J
845 END
850 HTAB 10:PRINT "Adding Extraneous Ks":RETURN
851 HTAB 14:PRINT "Locating Jeb":RETURN
852 HTAB 11:PRINT "Breaking Quicksaves":RETURN
853 HTAB 12:PRINT "Patching Conics":RETURN
854 HTAB 12:PRINT "Spinning up Duna":RETURN
855 HTAB 11:PRINT "Warming up the 6502":RETURN
856 HTAB 10:PRINT "Preparing Explosions":RETURN
857 HTAB 10:PRINT "Unleashing the Kraken":RETURN
900 REM ****************
901 REM KSP THEME MUSIC
902 REM SEE http://eightbitsoundandfury.ld8.org/programming.html
903 REM ****************
910 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
920 DATA 173,48,192,136,208,5,206,1,3,240,9
930 DATA 202,208,245,174,0,3,76,2,3,96
935 REM L2ECGL4CEGL2B-AGL4CEGL2B-AGCD
940 FOR I=1 TO 17: READ F: READ D: POKE 768,F: POKE 769,D: CALL 770: NEXT I
950 DATA 202,216,255,216,170,216
955 DATA 255,108,202,108,170,108
960 DATA 143,216,152,216,170,216
965 DATA 255,108,202,108,170,108
970 DATA 143,216,152,216,170,216,255,216,227,255
999 REM *** DONE LOADING ***

11
ksp/theme.bas
View File

@ -1,11 +0,0 @@
5 REM SEE http://eightbitsoundandfury.ld8.org/programming.html
10 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
20 DATA 173,48,192,136,208,5,206,1,3,240,9
30 DATA 202,208,245,174,0,3,76,2,3,96
35 REM L2ECGL4CEGL2B-AGL4CEGL2B-AGCD
40 FOR I=1 TO 17: READ F: READ D: POKE 768,F: POKE 769,D: CALL 770: NEXT I
50 DATA 202,216,255,216,170,216
55 DATA 255,108,202,108,170,108
60 DATA 143,216,152,216,170,216
65 DATA 255,108,202,108,170,108
70 DATA 143,216,152,216,170,216,255,216,227,255