5 REM Stig Rosenlund 1982
10 ; "L{ser in 16K-versionen av matematikruti-nerna fr}n ASP16K till byte 49152 t o m 53010. K|r NYPREC16 sedan."
20 IF PEEK(65053%)<208% STOP 
30 OPEN "ASP16K.asm" ASFILE 1 : ONERRORGOTO 70
40 FOR K%=0% TO 15% : Z%=CALL(28666%,1%)+CALL(28668%,K%)
50 FOR I%=0% TO (K%=15%)*189%+252%
60 POKE 49152+253%*K%+I%,ASC(RIGHT$(Q0$,I%+1%)) : NEXT I% : NEXT K%
70 CLOSE 1