Source Code
5 CLS
6 PRINT AT 11,9;"ENTER MARQUI"
7 PRINT AT 13,5;"ONE LINE ONLY,PLEASE"
10 INPUT A$
11 CLS
12 LET B=LEN A$
13 LET C=32-B
14 LET Z=INT (C/2)-1
20 PRINT AT 21,Z;A$
25 LET Q=B*3
30 FOR V=1 TO Q
35 NEXT V
40 FOR X=1 TO 22
45 SCROLL
50 NEXT X
55 IF INKEY$<>"" THEN GOTO 70
60 GOTO 20
70 PRINT AT 11,9;"AGAIN? (Y/N)"
75 FOR U=1 TO 20
76 NEXT U
80 IF INKEY$="" THEN GOTO 80
85 LET B$=INKEY$
90 IF B$="N" THEN GOTO 120
91 IF B$="Y" THEN GOTO 100
92 GOTO 75
95 CLS
100 PRINT AT 11,7;"ONE MOMENT PLEASE"
110 GOTO 5
120 PRINT AT 13,11;"GOODBYE"
130 STOP
140 SAVE "1015%3"
150 RUN
