1 POKE53280,14:POKE53281,6:PRINT"[147]          PROGRAMMER'S PAGE"
2 PRINT"1. SCROLLER"
3 PRINT"2. SPEED/SOUND LISTER"
4 PRINT"3. 2-LINE DIRECTORY ROUTINE"
5 GETA$:IF A$=""THEN5
6 IF A$="1"THEN15
7 IF A$="2"THEN90
8 IF A$="3"THEN300
9 GOTO5
10 REM *** VERTICAL SCROLLER ***
15 POKE53280,14:POKE53281,6:PRINT "[147]";
20 PRINT "";TAB(RND(1)*40);"[209]"
30 POKE 218,PEEK(218) OR 128
40 PRINT "[157]";CHR$(148)
50 IF RND(1)>0.2 THEN 30
60 GOTO 20
90 REM *** LISTER ***
100 PRINT"[147]":FOR A=828 TO 898:READ B:POKE A,B:NEXT:SYS 828:POKE 2,40:LIST
120 DATA 120,169,93,141,38,3,169,3,141,39
130 DATA 3,169,0,160,23,153,0,212,136,16
140 DATA 250,169,15,141,24,212,169,1,141,5
150 DATA 212,88,96,72,138,72,152,72,166,2
160 DATA 160,0,136,208,253,202,208,250,160,10
170 DATA 141,1,212,169,32,141,4,212,169,33,141
180 DATA 4,212,104,168,104,170,104,76,202,241
190 REM *** DIRECTORY ROUTINE ***
300 SYS57812"$",8:POKE43,1:POKE44,192:POKE768,174:POKE769,167:SYS47003,1
310 POKE782,192:SYS65493:SYS42291:LIST:POKE44,8:POKE768,139:POKE769,227