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