dos33fsprogs/ksp/loading.bas
2016-05-24 00:44:49 -04:00

50 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"
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 ***