1 IFPEEK(2030)<>1THENI=1:FORI=7616TO7722:READJ:POKEI,J:NEXTI:POKE2030,1
2 S=2024:POKES,160:POKES+1,0:POKES+2,99:POKES+4,40:POKES+5,40:SYS7616:POKES+7,1
3 I=53272:POKEI-7,27:POKEI,21:POKEI+8,1:POKEI+9,1:PRINT"[147][154]":INPUT"FNF(X)= ";A$
4 PRINT"[147]12 DEFFNF(X)=";A$:PRINT"G[207]5":POKE631,13:POKE632,13:POKE198,2:END
5 POKE53272,24:POKE53265,59:FORI=4^5TO2023:POKEI,225:NEXTI:IFPEEK(2031)<>1THEN12
6 SYS7616:POKE2031,0:FOR I=12035TO12347STEP8:POKEI,170:NEXTI
7 FOR I=0TO7680STEP320:FORJ=8352TO8359:POKEI+J,PEEK(I+J)OR128:NEXTJ:NEXTI
8 FORI=12194TO12034STEP-40:POKEI,PEEK(I)OR128:POKEI+2,PEEK(I)OR128:NEXTI
9 FORI=12194TO12314STEP 40:POKEI,PEEK(I)OR128:POKEI+2,PEEK(I)OR128:NEXTI
10 FORI=12195TO8995 STEP-1600:POKEI,PEEK(I)OR64:POKEI-8,PEEK(I-8)OR1:NEXTI
11 FORI=12195TO15395STEP 1600:POKEI,PEEK(I)OR64:POKEI-8,PEEK(I-8)OR1:NEXTI
13 FORI=1TO319:J=99-FNF((I-160)/40)*40:A=INT(J/8):B=INT(I/8):IFJ>199ORJ<0THEN15
14 Z=8*B+8192+J-A*8+A*320:POKEZ,PEEK(Z)OR128/2^(I-B*8)
15 NEXTI:WAIT198,1:POKE53265,27:POKE53272,21:PRINT"[147]":INPUT"OUT ";D:ONDGOTO2,3
16 DATA169,000,162,250,157,000,032,157,250,032,157,244,033,157,238,034,157,232
17 DATA035,157,226,036,157,220,037,157,214,038,157,208,039,157,202,040,157,196
18 DATA041,157,190,042,157,184,043,157,178,044,157,172,045,157,166,046,157,160
19 DATA047,157,154,048,157,148,049,157,142,050,157,136,051,157,130,052,157,124
20 DATA053,157,118,054,157,112,055,157,106,056,157,100,057,157,094,058,157,088
21 DATA059,157,082,060,157,076,061,157,070,062,202,208,157,141,000,032,096