10
20
30 :
40 MODE 7:DIM ctrl% 31:X%=ctrl%:Y%=X%DIV256
50 okT%=TRUE:ON ERROR okT%=FALSE
60 IF okT%:T$=TIME$
70 ON ERROR PRINTTAB(0,24);SPC39;:PRINTTAB(0,23);LEFT$(CHR$10,?(TOP-3)=0);:REPORT:VDU 23,1,1;0;0;0;32:END
80 VDU 23,1,0;0;0;0; 23;2,52;0;0;0:PROCtestpg
90 REPEAT:T$=FNtime
100 IF VALMID$(T$,5):PRINT TAB(19,0);CHR$&87;LEFT$(T$,3);" ";MID$(T$,5,7);CHR$&82;RIGHT$(T$,8)
110 T%=TIME+50:REPEAT UNTIL TIME>T%
120 UNTIL FALSE
130 :
140 DEFFNtime:IFokT%:=TIME$ELSE?X%=0:A%=14:CALL&FFF1:IF?X%=0:=""ELSE=$X%
150 :
160 DEFPROCtestpg:CLS:VDU31,39,24,&9C,32,30,11
170 PRINT"ƒENGINEERING ‡197 ‡Mon 21 Oct ‚15:48:00";
180 PRINT"€€€€€€€€€€€€€€€€€€€01";
190 PRINT"—žs“š–žŸ˜„ƒENGINEERING ’œŒžs•Ž‘”‡02";
200 PRINT"—žs“š–žŸ˜„ƒENGINEERING ’œŒžs•Ž‘”‡03";
210 PRINT"~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ04";
220 PRINT"”šžs‘™•€• …‚Test Page œŒž’s–“€—05";
230 PRINT"”šžs‘™•€• …‚Test Page œŒž’s–“€—06";
240 PRINT"€ € ž ž —,““––’’’••‘‘””” ”€€€€07";
250 PRINT"~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ08";
260 PRINT"€€€€€€€€€€€€€€€€€€€09";
270 PRINT"~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ10";
280 PRINT"€€€€€€€€€€€€€€€€€€€11";
290 PRINT"~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ12";
300 PRINT"€€€€€€€€€€€€€€€€€€€13";
310 PRINT"~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ14";
320 PRINT"€€€€€€€€€€€€€€€€€€€15";
330 PRINT"~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ~ÿ16";
340 PRINT"WhiteƒYellow†Cyan‚Green…MagentaRed„Blue";
350 PRINT"—š!""`“$%&'–()*+’,-./™0123•4567‘89:;”<=>?";
360 PRINT" !""` $%&' ()*+ ,-./ 0123 4567 89:; <=>?";
370 PRINT" @ABC DEFG HIJK LMNO PQRS TUVW XYZ[ \]^#";
380 PRINT" _abc defg hijk lmno pqrs tuvw xyz{ |}~ÿ";
390 PRINT"”_abc‘defg•hijk’lmnošpqrs–tuvw“xyz{—|}~ÿ";
400 PRINT"ƒ˜ConcealˆFlashƒ*‹‹Box‰Steady˜GoneŠŠ?–^ÿ";
410 PRINT" †RED œ ‚…GRN œ ƒ„YLW œ „ƒBLU ";CHR$30;
420 ENDPROC