Source Code
5 FOR Z=VAL "1" TO VAL "15"
6 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
7 NEXT Z
8 CLEAR
9 LET B=VAL "0"
10 PRINT "%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O%O"
11 PRINT "\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~"
100 FOR P=VAL "1" TO VAL "15"
110 FOR Q=1 TO 30
120 PRINT AT P,Q;" "
125 IF B THEN GOTO 140
130 IF INKEY$="" OR P=7 THEN GOTO 150
131 LET R=P
132 LET S=Q
133 LET B=1
140 PRINT AT R,S;"% "
141 LET R=R+1
142 LET S=S+1
143 IF S>30 THEN LET S=0
145 PRINT AT R,S;"\.:"
146 IF R=15 THEN GOSUB 400
280 PRINT AT P,Q;"% "
290 NEXT Q
299 NEXT P
300 FOR Q=0 TO 30
310 PRINT AT P,Q;" "
320 IF 128<>PEEK (PEEK 16398+256*PEEK 16399) THEN GOTO 340
330 NEXT Q
340 PAUSE 250
341 CLS
342 RUN
400 PRINT AT R,S;"% "
410 LET B=0
420 RETURN
430 CLEAR
440 SAVE "1026%3"
450 RUN