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: more fixes for loading.bas

Browse Source
This commit is contained in:
Vince Weaver 2016-05-24 00:44:49 -04:00
parent 3b615a286f
commit 5af7b2b906
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ksp/loading.bas
View File

@ -4,25 +4,24 @@
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
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=INT(RND(1)*8)+1
800 I=I+1: IF I > 8 THEN I=1
802 VTAB 22: HTAB 1
803 PRINT " ";
803 PRINT " ";
805 ON I GOSUB 850,851,852,853,854,855,856,857
840 FOR T=1 TO 200: NEXT T
840 FOR T=1 TO 250: NEXT T
842 NEXT J
845 END
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
@ -31,10 +30,12 @@
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 ****************
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