Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-26 11:30:12 +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 590 VTAB 21: PRINT " ";:FOR I=1 TO 32: PRINT ".";: NEXT I
' *** REM *** LOADING SCREEN *** ' *** REM *** LOADING SCREEN ***
700 FOR J=1 TO 32 700 FOR J=1 TO 32
708 IF J=16 THEN PRINT: PRINT D$"BLOAD LOADING.HGR,A$2000" 708 IF J=16 THEN PRINT: PRINT D$"BLOAD LOADING.HGR,A$2000"
710 HTAB J+4:VTAB 21 710 HTAB J+4:VTAB 21
720 INVERSE: PRINT " ";: NORMAL 720 INVERSE: PRINT " ";: NORMAL
790 S=S+1: IF S=4 THEN S=0 790 S=S+1: IF S=4 THEN S=0
795 IF S<>1 GOTO 840 795 IF S<>1 GOTO 840
800 I=I+1: IF I > 8 THEN I=1 800 I=I+1: IF I > 8 THEN I=1
802 VTAB 22: HTAB 1:PRINT " "; 802 VTAB 22: HTAB 1:PRINT " ";
805 ON I GOSUB 850,851,852,853,854,855,856,857 805 ON I GOSUB 850,851,852,853,854,855,856,857
' *** REM *** Slow down so we don't load so fast ' *** 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 842 NEXT J
845 GOTO 900 845 GOTO 900
850 HTAB 10:PRINT "Adding Extraneous Ks":RETURN 850 HTAB 10:PRINT "Adding Extraneous Ks":RETURN