100 REM COLOR CHASER DEMO PROGRAM
110 :
120 F$="COLOR.CHASE.O":POKE147,0:SYS57812F$,8,1:SYS62631
130 :
140 PRINT"[147]":POKE53281,0
150 :
160 L$="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
170 B$="[161][146]                         [161]"
180 :
190 REM DRAW BOXES
200 :
210 FORW=1TO12
220 PRINT"";
230 FORX=1TOW:PRINT"";:NEXTX
240 PRINTSPC(W);"[172]";L$;"[187]"
250 FORX=1TO10:PRINTSPC(W);B$:NEXTX
260 PRINTSPC(W);"[188]";L$;"[146][190]"
270 :
280 REM POKE RECTANGLE BOUNDARIES
290 REM INTO MEMORY
300 :
310 POKE251,W:POKE252,W
320 POKE253,27:POKE254,12
330 SYS49152
340 NEXTW
350 :
360 REM CLEAR INSIDE OF LAST RECTANGLE
370 :
380 PRINT""
390 FORX=1TO10:PRINTSPC(W);"                         ":NEXTX
400 :
410 REM DISPLAY MENU INSIDE RECTANGLE
420 :
430 PRINT"[145][145][145][145][145][145][145]";TAB(W+3);" R [146] [154]RUN DEMO AGAIN"
440 PRINT"";TAB(W+3);" Q [146] [154]QUIT TO LOADSTAR"
450 :
460 REM 'CHASE' COLORS ON RECTANGLE
470 REM WHILE WAITING FOR A KEYPRESS
480 :
490 GETA$:IFA$<>""THEN510
500 SYS49155:FORX=1TO5:NEXTX:GOTO490
510 IFA$="R"THENGOTO140
520 IFA$<>"Q"THEN490
530 :
540 :
550 REM RETURN TO  L O A D S T A R
560 :
570 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
580 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
590 PRINT"[158]LOAD"Q$A$Q$",8"
600 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END