day5: add part 2 visualization

master
Clyne 2 years ago
parent 3dce0f2bf0
commit a550b87f1c

@ -3,6 +3,8 @@ REM Written in Applesoft BASIC
10 DIM ST$(9) 10 DIM ST$(9)
20 FOR I = 0 TO 8:ST$(I) = "": NEXT I 20 FOR I = 0 TO 8:ST$(I) = "": NEXT I
30 HOME
40 ONERR GOTO 900
60 PRINT CHR$ (4),"OPEN INPUT" 60 PRINT CHR$ (4),"OPEN INPUT"
70 PRINT CHR$ (4),"READ INPUT" 70 PRINT CHR$ (4),"READ INPUT"
90 J = 1 90 J = 1
@ -20,9 +22,8 @@ REM Written in Applesoft BASIC
170 IF K > 8 THEN K = 0 170 IF K > 8 THEN K = 0
180 GOTO 100 180 GOTO 100
300 FOR I = 0 TO 8 300 FOR I = 0 TO 8
310 PRINT ST$(I) 310 GOSUB 700
320 NEXT I 320 NEXT I
325 PRINT
330 CL = 0 330 CL = 0
340 GET C$: GET Z$ 340 GET C$: GET Z$
350 IF CL = 13 AND ASC (C$) = 13 GOTO 400 350 IF CL = 13 AND ASC (C$) = 13 GOTO 400
@ -46,12 +47,27 @@ REM Written in Applesoft BASIC
520 Z = LEN (ST$(AC(1))) 520 Z = LEN (ST$(AC(1)))
530 IF AC(0) = Z THEN ST$(AC(1)) = "": GOTO 600 530 IF AC(0) = Z THEN ST$(AC(1)) = "": GOTO 600
540 ST$(AC(1)) = LEFT$ (ST$(AC(1)),Z - AC(0)) 540 ST$(AC(1)) = LEFT$ (ST$(AC(1)),Z - AC(0))
600 FOR I = 0 TO 8 600 I = AC(1): GOSUB 700
610 PRINT ST$(I) 610 I = AC(2): GOSUB 700
620 NEXT I
625 PRINT
630 L = 0 630 L = 0
640 GOTO 400 640 GOTO 400
700 X = I * 4 + 1
705 Y = 25
706 LE = LEN (ST$(I))
708 IF LE = 0 GOTO 780
710 FOR Z = 1 TO 24 - LE
712 VTAB Z
714 HTAB X
716 PRINT " ";
718 NEXT Z
720 FOR Z = 1 TO LE
730 VTAB Y - 1
735 HTAB X
740 PRINT "["; MID$ (ST$(I),Z,1);"]";
750 Y = Y - 1
760 IF Y = 1 THEN RETURN
770 NEXT Z
780 RETURN
900 PRINT CHR$ (4),"CLOSE" 900 PRINT CHR$ (4),"CLOSE"
910 END 910 END

Loading…
Cancel
Save