Appears on
Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.
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