mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-19 12:32:35 +00:00
51 lines
1.8 KiB
QBasic
51 lines
1.8 KiB
QBasic
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"
|
|
580 S=0
|
|
585 I=INT(RND(1)*8)+1
|
|
590 VTAB 21: PRINT " ";
|
|
600 FOR I=1 TO 32: PRINT ".";: NEXT I
|
|
700 FOR J=1 TO 32
|
|
704 REM *** LOADING SCREEN ***
|
|
708 IF J=16 THEN PRINT: PRINT CHR$(4);"BLOAD LOADING.HGR,A$2000"
|
|
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=I+1: IF I > 8 THEN I=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 250: NEXT T
|
|
842 NEXT J
|
|
845 GOTO 900
|
|
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 *** TITLE SCREEN ***
|
|
902 HOME: PRINT: PRINT CHR$(4);"BLOAD TITLE.HGR,A$2000"
|
|
903 HTAB 27:VTAB 24: PRINT "VERSION 1.3.7";
|
|
905 REM ****************
|
|
906 REM KSP THEME MUSIC
|
|
907 REM SEE http://eightbitsoundandfury.ld8.org/programming.html
|
|
908 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 ***
|