6 POKE56,56:CLR:POKE53281,0:POKE53280,5:PRINT"[147][155]"
8 POKE53371,0
10 DV=PEEK(186):IFDV<8THENDV=8
20 SYS57812"WND.INP.CM.IND",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
22 SYS57812"LETTERS FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
24 POKE53272,31
30 UP=49152  :REM SCROLL UP
32 DN=UP+3   :REM SCROLL DOWN
34 LF=UP+6   :REM SCROLL LEFT
36 RT=UP+9   :REM SCROLL RIGHT
38 RV=UP+12  :REM REVERSE WINDOW
40 CL=UP+15  :REM CLEAR WINDOW
42 FL=UP+18  :REM FILL WINDOW
44 BR=UP+21  :REM DRAW WINDOW BORDER
46 IP=49920  :REM INPUT ANY
48 CM=50432  :REM COPYMEM
50 DR=50688  :REM DIRECTORY READ
52 PD=50320  :REM PRINT DOWN
60 DIMW$(110),T$(55)
62 TP$="[220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220]"
64 BT$="[188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188]"
70 REM SYSIP,"LETTERS FILE",DV
72 REM NT=PEEK(252)*256+PEEK(251)
74 REM FORI=0TONT:T$(I)=W$(I):NEXT
76 GOSUB800
80 SYSIP,"LETTERS FILE",DV
82 NB=PEEK(252)*256+PEEK(251)
92 PRINT"[147][219]"TP$"[221]";
94 FORI=1TO15:PRINT"[255]"SPC(38)"[190]";:NEXT
96 PRINT"[187]"BT$"[189]";
98 PRINT"[219]"TP$"[221]";
100 FORI=1TO6:PRINT"[255]"SPC(38)"[190]";:NEXT
102 PRINT"[187]"BT$""
104 POKE2023,125:POKE2023+54272,5
106 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
108 PRINT"[155]"
110 FORI=0TO37
112 SYSPD,I+1,1,T$(I)
114 NEXT
115 POKE214,17:PRINT
116 FORI=0TO4
117 PRINT"[154]"W$(I)
118 NEXT
120 POKE198,0:T1=0:B1=0
130 GETA$:IFA$=""THEN130
132 IFA$="Q"THEN40000
140 IFA$<>""THEN150
142 B1=B1+1:IFB1+5=>NBTHENB1=B1-1:GOTO130
144 SYSUP,1,18,38,6,0
146 POKE214,22:PRINT:PRINT"[154]"W$(B1+5)
148 GOTO130
150 IFA$<>"[145]"THEN160
152 B1=B1-1:IFB1<0THENB1=0:GOTO130
154 SYSDN,1,18,38,6,0
156 POKE214,17:PRINT:PRINT"[154]"W$(B1)
158 GOTO130
160 IFA$<>""THEN170
162 T1=T1+1:IFT1+37>52THENT1=T1-1:GOTO130
164 SYSLF,1,1,38,15,0
166 SYSPD,38,1,T$(T1+37)
168 GOTO130
170 IFA$<>"[157]"THEN180
172 T1=T1-1:IFT1<0THENT1=0:GOTO130
174 SYSRT,1,1,38,15,0
176 SYSPD,1,1,T$(T1)
178 GOTO130
180 GOTO130
800 FORI=0TO52:READT$(I):NEXT
801 REM MAR
802 DATA"[152]@UV"
803 DATA"[146][193][161][194][162][195][163][196][164][197][165][198][166][199][167][155]X"
804 DATA"[152]HAFADABA@ARA[146][201][169][155]Y"
805 DATA"[152]BC@CRCPANALA[146][206][174][155]Z"
806 DATA"[152]PCNCLCJCHCFC[146][197][165][152]V"
807 DATA"[152]UUUUUUUUUUUUUU[152]W"
809 REM APR
810 DATA"[146][206][174][217][185][212][180][210][178][210][178][215][183][211][179][152]V"
811 DATA"[146][207][175][152]@ARA[146][207][175][152]NULU[146][200][168][155]Y"
812 DATA"[146][204][172][152]NALAJAHAFA[146][201][169][155]["
813 DATA"[146][196][164][152]HCFCDCBC@C[146][205][173][155]Z"
814 DATA"UU[152]UUUUREPCNCLC[152]V"
815 DATA"[146][212][180][152]BU@UTUUUUUUU[152]W"
819 REM MAY
820 DATA"[146][201][169][152]PUNULUJUHUFUV"
821 DATA"[146][205][173][211][179][201][169][204][172][211][179][200][168][211][179][155]X"
822 DATA"[146][197][165][152]DCBC@CRCPANA[155]Y"
823 DATA"[146][197][165][152]REPCNCLCJCHC[155]\"
824 DATA"UU[152]UUUUUUUUUUUUW"
829 REM JUN
830 DATA"[146][208][176][152]JUHUFUDUBU@UV"
831 DATA"[146][201][169][152]DABA@ARAPUNU[155]]"
832 DATA"[146][211][179][197][165][212][180][204][172][197][165][201][169][197][165][155]^"
834 DATA"[146][212][180][152]LCJCHCFCDCBC[155]_"
835 DATA"[146][207][175][152]UUUUUUUUREPC[155]V"
839 REM JUL
840 DATA"[152]HUFUDUBU@UTUUUW"
841 DATA"[146][204][172][214][182][201][169][211][179][193][161][195][163][204][172][155]V"
842 DATA"[146][193][161][152]NALA[146][192][160][152]HAFA[146][198][166][155]]"
843 DATA"[146][210][178][152]HCFCDCBC@C[146][193][161][155]^"
844 DATA"[146][217][185][152]TU@EREPSNS[146][195][163][155]!"
845 DATA"[152]BU@UTUUUUUUUUUW"
849 REM AUG
850 DATA"[146][206][174][197][165][207][175][196][164][195][163][200][168][212][180][152]V"
851 DATA"[146][207][175][152]HAFA[146][210][178][152]BA@ARA[155]Y"
852 DATA"[146][214][182][152]BC@C[146][197][165][152]PANALA[155]^"
853 DATA"[152]RE[146][206][174][213][181][152]LC[146][200][168][201][169][213][181][155]#"
854 DATA"[152]UUUUUU[152]UUUUUU[152]@EV"
859 REM SEP
860 DATA"[152]JU[146][198][166][211][179][152]DUBU[146][205][173][152]TUW"
861 DATA"[146][197][165][152]BA@A[146][193][161][152]PUNU[146][193][161][155]$"
862 DATA"[146][204][172][152]PANA[146][205][173][152]JAHA[146][204][172][155]%"
863 DATA"[152]LC[146][201][169][152]HCFC[146][207][175][193][161][152]@C[155]["
864 DATA"[152]UUUU[152]UUUUREPCNCV"
865 DATA"[146]        UUUUUUW"
870 DATA"[146][159] L T J A J A T"
871 DATA"[146][159] A O A . E M H"
872 DATA"[146][159] D D C   R B E"
873 DATA"[146][159] Y D O B O R  "
874 DATA"[146][159]     B . M O A"
875 DATA"[146][159] A A     E S U"
876 DATA"[146][159] M N H C   E T"
877 DATA"[146][159] H D O O B   H"
878 DATA"[146][159] E R R O R M O"
879 DATA"[146][159] R E N K A E R"
880 DATA"[146][159] S W E   Y N  "
881 DATA"[146][159] T S R     S  "
882 DATA"[146][159]           C  "
883 DATA"[146][159]           H  "
899 RETURN
999 GOTO999
10000 D=PEEK(186):N$="0:B.LETTERS":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END