From 436db8b5f95c3ccb40ab704282259203f3cc74fa Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Tue, 31 May 2016 12:51:15 -0400 Subject: [PATCH] ksp: indent loop --- ksp/ksp.bas | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/ksp/ksp.bas b/ksp/ksp.bas index 9b06b62a..d14ed461 100644 --- a/ksp/ksp.bas +++ b/ksp/ksp.bas @@ -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