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

ksp: indent loop

Browse Source
This commit is contained in:
Vince Weaver 2016-05-31 12:51:15 -04:00
parent df23f09cc6
commit 436db8b5f9
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ksp/ksp.bas
View File

@ -36,16 +36,16 @@
590 VTAB 21: PRINT " ";:FOR I=1 TO 32: PRINT ".";: NEXT I
' *** REM *** LOADING SCREEN ***
700 FOR J=1 TO 32
708 IF J=16 THEN PRINT: PRINT D$"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:PRINT " ";
805 ON I GOSUB 850,851,852,853,854,855,856,857
708 IF J=16 THEN PRINT: PRINT D$"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:PRINT " ";
805 ON I GOSUB 850,851,852,853,854,855,856,857
' *** REM *** Slow down so we don't load so fast
840 FOR T=1 TO 250: NEXT T
840 FOR T=1 TO 250: NEXT T
842 NEXT J
845 GOTO 900
850 HTAB 10:PRINT "Adding Extraneous Ks":RETURN