10 REM ************************** 20 REM Programmer's ASCII Chart 30 REM By Robin Nixon 40 REM ************************** 50 REM NC100/200 Version 60 REM Downloaded from Tim's Amstrad NC User's Site 70 REM http://www.ncus.org.uk 90 : 100 ON ERROR GOTO 360 110 PROCsetup:REPEAT:PROCkeys:UNTIL FALSE 120 : 130 CLS 140 DEF PROCsetup 150 page%=0:PROCpage 160 ENDPROC 170 : 180 DEF PROCkeys 190 REPEAT:g%=INKEY(0):UNTIL g%=240 OR g%+241 200 IF g%=240 AND page%>0 page%=page%-1:PROCpage:ENDPROC 210 IF g%=241 AND page%<3 page%=page%+1:PROCpage:ENDPROC 220 ENDPROC 230 : 240 DEF PROCpage 250 FOR x%=0 TO 7 260 FOR y%=0 TO 7 270 char%=page%*64+(x%*8+y%) 280 dec$=STR$(char%):dec$=STRING$(3-LEN(dec$),CHR$(32))+dec$ 290 hex$=STR$~(char%):hex$="&"+STRING$(2-LEN(hex$),CHR$(48))+hex$ 300 PRINT TAB(x%*10,y%);dec$;SPC(1); 310 PRINT CHR$(27);CHR$(char%);CHR$(18);SPC(1);hex$;CHR$(179); 320 NEXT 330 NEXT 340 ENDPROC 350 : 360 ON ERROR GOTO 380 370 VDU 26:CLS:IF ERR=17 THEN CHAIN "AUTO" 380 REPORT:PRINT" at line ";ERL 390 PRINT:PRINT"Press [Function][X] for Notepad Main Menu"