1 A=53280:POKEA,0:POKEA+1,0:PRINT"[144][147]":PRINTCHR$(8)
2 POKE49407,2:REM SET SPEED FOR FLASH ROUTINE(1 IS FASTEST 255 IS SLOWWWWWEST!)
9 REM POKE COLOURS INTO $9000 HEX, 36864 DECIMAL, ONWARDS
10 FORA=36864TO36864+63:READB:POKEA,B:NEXT
11 DATA0,6,14,3,1,3,14,6:REM BLUES
12 DATA0,9,8,7,1,7,8,9:REM BROWNS
13 DATA0,2,10,15,1,15,10,2:REM REDS
14 DATA0,11,12,15,1,15,12,11:REM GREYS
15 DATA0,5,3,13,1,13,3,5:REM GREENS
16 DATA0,4,10,15,1,15,10,4:REM PURPLES
17 DATA0,6,10,7,1,7,10,6:REM MIXED1
18 DATA0,2,7,15,1,15,7,2:REM MIXED2
19 REM HIGH + LOW COLOUR ADDRESS SELECT ($9000+)
20 FORA=49600TO49624:POKEA,144:NEXT:REM HIGH COL ADD ($90,144)
21 FORA=49568TO49592:READB:POKEA,B:NEXT:REM LOW COL ADD ( FROM $00,0 TO $3F,63)
22 DATA00:REM BLUES
23 DATA56:REM MIXED2
24 DATA00:REM BLUES
25 DATA00:REM BLUES
26 DATA32:REM GREENS
27 DATA40:REM PURPLES
28 DATA00:REM BLUES
29 DATA48:REM MIXED1
30 DATA00:REM BLUES
31 DATA16:REM REDS
32 DATA16:REM REDS
33 DATA00:REM BLUES
34 DATA08:REM BROWNS
35 DATA08:REM BROWNS
36 DATA08:REM BROWNS
37 DATA16:REM REDS
38 DATA16:REM REDS
39 DATA00:REM BLUES
40 DATA24:REM GREYS
41 DATA24:REM GREYS
42 DATA24:REM GREYS
43 DATA24:REM GREYS
44 DATA24:REM GREYS
45 DATA24:REM GREYS
46 DATA24:REM GREYS
49 REM INIT FOR LEFT AND RIGHT OF ROWS + FORMATION OF COLOURS
50 FORA=49504TO49528:POKEA,0:NEXT:REM SET COLOURS TO START AT LEFT MOST SIDE
51 FORA=49536TO49560:POKEA,40:NEXT:REM SET COLOURS TO START AT RIGHT MOST SIDE
52 FORA=49280TO49304:POKEA,0:NEXT:REM SET COLOURS TO START AT SAME TIME
59 REM SET COLOUR AMOUNT FOR EACH ROW
60 FORA=49632TO49656:POKEA,8:NEXT:REM SET AMOUNT OF COLOURS GO THROUGH AS 8
69 REM DEFINE COMMOODORE DISK USER + JONATHAN WELLS, WORDS TO FLASH.
70 POKE49508,13:POKE49540,32:REM C.D.U BIT
71 POKE49511,20:REM JW BIT
79 REM DEFINE TWO WAY SCROLL BIT ON **** _LENLENSTARS
80 POKE49513,40:POKE49514,20:POKE49545,60:REM TOP STARS BIT
81 POKE49519,40:POKE49520,20:POKE49551,60:REM BOTTOM STARS BIT
99 REM PRINT UP SCREEN
100 PRINT"----------------------------------------";
101 PRINT"          THE T.E.X.T F.X DEMO"
102 PRINT"----------------------------------------";
103 PRINT"[152]   COPYRIGHT [144]LIGHT DISK MAGAZINE [155]1992[144]"
104 PRINT"  [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
105 PRINT"      PROGRAMMED BY [144]JONATHAN WELLS"
106 PRINT"****************************************";
107 PRINT"IF YOU WANT TO HAVE A LITTLE LOOK AT THE";
108 PRINT"PROGRAM THEN JUST PRESS RUN/STOP AND,"
109 PRINT"RESTORE. THEN LIST IT UP!!!!!!!!!!!!!!!!";
110 PRINT"****************************************";
111 PRINT"       [146]        [146] [169]   [223][146]  [146]    [146]      "
112 PRINT"       [146]       [146]   [146]      [146]    [146]    "
113 PRINT"       [146]       [146]   [146]      [146]    [146]    "
114 PRINT"       [146]       [146]   [146]    [146]      [146]    "
115 PRINT"       [146]       [146]   [146]    [146]  [146]    [146]    "
116 PRINT"       [146]       [146]   [146]    [146]  [146]    [146]    "
117 PRINT"           [146]    [146] [223]   [146][169]  [146]    [146]    [146][150]"
198 REM TURN ON ROWS (1 FOR RIGHT SCROLL, 2 FOR LEFT SCROLL AND 3 FOR PULSATE)
199 REM 0 TO TURN OFF ROW
200 FORA=49408TO49432:READB:POKEA,B:NEXT:REM FLASH SELECTER
201 DATA1,3,2,0,2,1,0,3,0,2,1,0,1,2,1,2,1,0,1,2,1,2,1,2,1
210 SYS49152:REM START FLASH ROUTINE
250 GOTO250