image of READY prompt

Wang2200.org

Listing of file='MARQUEE' on disk='vmedia/more_games.wvd.zip'

# Sector 845, program filename = 'MARQUEE'
0010 REM %MARQUEE
0015 SELECT PRINT 005
   : LOAD DC T#6,"GAMES"
0020 SELECT PRINT 005
   : PRINT HEX(03)
   : PRINT "TYPE    .YOUR NAME.  CR/LF"
0030 DIM A$80
0040 INPUT A$
   : S=LEN(A$)
0050 REM %  PROGRAM--CURSOR TEST
0060 SELECT P2
   : PRINT "MARQUEE"
0070 PRINT
   : SELECT P0
0080 SELECT PRINT 405
0090 REM % CURSOR CODES-08=L*09=R*0A=D*0C=U
0100 FOR A=1TO 24
   : PRINT
   : NEXT A
0110 FOR Z=1TO 10
0120  PRINT HEX(03)
0130 FOR V=1TO 8
   : PRINT HEX(0A)
   : NEXT V
0140 FOR H=1TO 40
   : PRINT HEX(09)
   : NEXT H
0150 H=2
   : V=1
0160 R=H
   : V=D
0170 REM %LEFT
   : FOR A=1 TO H
   : PRINT HEX(082A08);
   : NEXT A
0180 REM %UP
   : FOR A=1 TO V
   : PRINT HEX(0C2A08);
   : NEXT A
0190 FOR A=1 TO H
   : GOSUB 410
   : NEXT A
   : PRINT HEX(08);
0200 FOR A=1TO V
   : PRINT HEX(0A);
   : GOSUB 410
   : PRINT HEX(08);
   : NEXT A
0210 PRINT "2200 "
0220 REM %DOWN
   : FOR A=1TO D
   : PRINT HEX(0A2A08)
   : NEXT A
0230 H=H+8
   : V=V+2
0240 IF V<15 THEN 170
0250 GOTO 260
0260 REM % REVERSE
0270 PRINT HEX(2008);
0280 PRINT HEX(20);
   : FOR A=1TO 3
   : PRINT HEX(082008);
   : NEXT A
0290 H=H-8
   : V=V-2
0300 REM %UP
   : FOR A=1TO D
   : PRINT HEX(0C2008);
   : NEXT A
0310 REM %LEFT 3
   : FOR A=1 TO 3
   : PRINT HEX(082008);
   : NEXT A
0320 REM %UP
   : FOR A=1TO V
   : PRINT HEX(0C2008);
   : NEXT A
0330 REM %LEFT
   : FOR A=1TO H
   : PRINT HEX(082008);
   : NEXT A
0340 PRINT HEX(20);
0350 REM %DOWN
   : FOR A=1TO V
   : PRINT HEX(0A2008);
   : NEXT A
0360 REM %RIGHT
   : FOR A=1TO H
   : PRINT HEX(20);
   : NEXT A
0370  PRINT HEX(0808);
0380 IF V>0THEN 290
0390 NEXT Z
0400 GOTO 110
0410 I=I+1
0420 PRINT STR(A$,I,1);
0430 IF I<S THEN 440
   : I=0
0440 RETURN