1 REM Ins{nd av Bengt Holgersson <559>    1986-05-11 20.20.16
10 ; CHR$(12%);
20 ; 'Talomvandling'
30 ; '-------------'
40 ; 'Denna rutin medger omvandling till'
50 ; '16-bit heltal fr}n ett av f|ljande'
60 ; 'ASCII-format:'
70 ; 
80 ; 'DECIMALT     ex. 123 123D 123d'
90 ; 'HEXADECIMALT ex. FF80H ffffh'
100 ; 'OKTALT       ex. 123O 377o 123Q 234q'
110 ; 'BIN[RT       ex. 101B 1111111111111111b'
120 ; 
130 REM Vid anrop av maskinspr}ksrutinen
140 REM skall inparametern peka p} texten
150 REM som skall omvandlas. Denna skall
160 REM avslutas med CHR$(13%).
170 REM Mellanslag {r ej signifikanta.
180 REM Som utparameter f}s om inget fel
190 REM uppst}r ett 16-bit heltal.
200 REM 3 typer av fel kan uppst}:
210 REM ERR 7 = F|r stort heltal
220 REM ERR 12 = Felaktigt tal
230 REM ERR 30 = Tom rad
240 REM Dessa kan hanteras av ONERRORGOTO.
250 REM 
260 POKE 64000%,33%,0%,0%,213%,205%,43%,250%,254%,13%,19%,32%,248%,27%,27%,26%,254%
270 POKE 64016%,32%,40%,250%,205%,43%,250%,209%,254%,66%,40%,27%,254%,79%,40%,54%,254%
280 POKE 64032%,81%,40%,50%,254%,72%,202%,178%,250%,24%,81%,19%,26%,254%,32%,40%,250%
290 POKE 64048%,254%,96%,216%,230%,95%,201%,205%,43%,250%,205%,216%,250%,48%,18%,254%,50%
300 POKE 64064%,48%,14%,214%,48%,79%,6%,0%,205%,232%,250%,205%,236%,250%,19%,24%,230%
310 POKE 64080%,254%,66%,195%,240%,250%,205%,43%,250%,205%,216%,250%,48%,20%,254%,56%,48%
320 POKE 64096%,16%,214%,48%,79%,6%,3%,205%,232%,250%,16%,251%,205%,236%,250%,19%,24%
330 POKE 64112%,228%,254%,79%,202%,240%,250%,254%,81%,195%,240%,250%,205%,43%,250%,254%,13%
340 POKE 64128%,202%,254%,250%,24%,3%,205%,43%,250%,205%,216%,250%,48%,31%,254%,58%,48%
350 POKE 64144%,27%,214%,48%,79%,6%,0%,197%,68%,77%,205%,232%,250%,205%,232%,250%,205%
360 POKE 64160%,236%,250%,205%,232%,250%,193%,205%,236%,250%,19%,24%,217%,254%,68%,40%,64%
370 POKE 64176%,24%,67%,205%,43%,250%,205%,216%,250%,48%,26%,254%,71%,48%,22%,214%,48%
380 POKE 64192%,254%,10%,56%,2%,214%,7%,79%,6%,4%,205%,232%,250%,16%,251%,205%,236%
390 POKE 64208%,250%,19%,24%,222%,254%,72%,24%,24%,254%,48%,56%,10%,254%,58%,216%,254%
400 POKE 64224%,65%,56%,3%,254%,71%,216%,167%,201%,41%,208%,24%,16%,9%,208%,24%,12%
410 POKE 64240%,32%,8%,205%,42%,250%,254%,13%,32%,1%,201%,215%,140%,215%,135%,215%,158%
420 DIM A$=122% : REM F|rsta variabel
430 REM Ber{kna adress till A$
440 A%=PEEK(65065%)+SWAP%(PEEK(65066%))
450 A%=PEEK(A%+6%)+SWAP%(PEEK(A%+7%))
460 REM Inmatningsrutin
470 ONERRORGOTO 520
480 ; 'Mata in ett heltal:'; : INPUTLINE A$
490 Z%=CALL(64000%,A%)
500 ; ' ='Z%-(65536*(Z%<0%))
510 GOTO 480
520 REM Felhantering
530 ; CHR$(7%)' <-- ';
540 IF ERRCODE=30% ; 'TOM RAD !'
550 IF ERRCODE=12% ; 'FELAKTIGT TAL !'
560 IF ERRCODE=7% ; 'F\R STORT HELTAL !'
570 GOTO 470