10 REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
40 IFPEEK(52225)<>12THENLOAD"ML-MAT",8,1
50 PRINT"[147]":POKE53280,0:POKE53281,0:POKE680,3
60 DIMVT$(24):VT$(0)="":FORI=1TO24:VT$(I)=VT$(I-1)+"":NEXT
70 PRINT"[144][147]"CHR$(14):SYS52224:PRINTVT$(7)TAB(5)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
80 PRINTTAB(5)"[221]                            [221]"
90 PRINTTAB(5)"[221]       [205][193][212][197][210][201][193][204][201][218][197][210]         [159][221]"
100 PRINTTAB(5)"[221][158]      [195]OPYRIGHT 1988        [159][221]"
110 PRINTTAB(5)"[221][158] [195][207][205][208][213][212][197]! [208]UBLICATIONS,[201]NC. [159][221]"
120 PRINTTAB(5)"[221][158]    [193]LL [210]IGHTS [210]ESERVED     [159][221]"
130 PRINTTAB(5)"[221]                            [221]"
140 PRINTTAB(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
160 SYS52227:GOSUB520
170 SYS52230:FORDY=1TO700:NEXT:PRINT"[147]":POKE53280,12:POKE53281,12
180 A$="":FORI=1TO39:A$=A$+" ":NEXT
190 PRINTVT$(0)A$VT$(23)A$
200 FORI=1TO22:PRINTVT$(I)" "TAB(38)" ":NEXT
210 PRINTVT$(9)TAB(10)"[144] [195][207][205][208][204][197][212][197] [211][195][210][197][197][206]"
220 PRINTVT$(11)TAB(11)"[205][193][212][197][210][201][193][204][201][218][193][212][201][207][206][211]"
230 PRINTVT$(13)TAB(12)"  [193][210][197] [197][193][211][217]":SYS52227:GOSUB520
250 SYS52230
260 PRINT"[152][147]"CHR$(9)CHR$(142):SYS52224
270 PRINT"[147]"VT$(7)"[144]ALL CHARACTERS ARE HERE,"
280 PRINTVT$(9)"ALSO  REVERSE [146] [144]AND"
290 PRINTVT$(11)"[209][193][211][218][216][166][191][190] [144]- CHARACTER GRAPHICS![144]"
300 SYS52227:GOSUB520:SYS52230
310 PRINT"[147]"VT$(12)"AND PROGRAMMABLE CHARACTERS ARE A SNAP!"
320 FORI=0TO7:READA:POKE40960+I,A:NEXT
330 DATA 60,60,24,255,24,60,36,102
340 PRINTVT$(14)TAB(16)"@ @ @[144]":SYS52227
350 GOSUB520:SYS52230
360 PRINT"[152][147]"CHR$(9)CHR$(14):SYS52224
370 PRINTVT$(9)TAB(7)"[144][212]HE SPEED OF THE FADE IN"
380 PRINTVT$(11)TAB(7)"AND FADE OUT MAY ALSO BE"
390 PRINTVT$(13)TAB(7)"CONTROLLED..."
400 PRINTVT$(15)TAB(16)" [198][193][211][212] "
410 POKE680,0:SYS52227:GOSUB550:SYS52230:GOSUB550
420 PRINTVT$(15)TAB(14)" [210][197][199][213][204][193][210] "
430 POKE680,25:SYS52227:GOSUB550:SYS52230:GOSUB550
440 PRINTVT$(15)TAB(14)"[146]   [211][204][207][215] "
450 POKE680,50:SYS52227:GOSUB550:SYS52230:GOSUB550:POKE680,0
460 PRINT"[147]"VT$(9)TAB(12)"[144]([210][144])ESTART [196]EMO"
470 PRINTVT$(11)TAB(12)"([197][144])XIT TO [194][193][211][201][195]"
480 SYS52227
490 GETA$:IFA$="R"THENSYS52230:RUN
500 IFA$="E"THENSYS52230:SYS52233:END
510 GOTO490
520 PRINTVT$(18)"PRESS A KEY TO DE-MATERIALIZE"
530 GETA$:IFA$=""THEN530
540 RETURN
550 FORDY=1TO1000:NEXT:RETURN