Marquis

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Marquis

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 

People

No people associated with this content.

Scroll to Top