1000 REM ------------------------------ 1010 REM - SAVE DECTOHEX.BAC 1020 REM ------------------------------ 1030 REM - SUBRUTIN F\R ABC80 1040 REM ------------------------------ 1050 REM - IN = DECIMALT V[RDE 0-65535 1060 REM - UT = Str{ngen H$ i HEX 1070 REM - H% = De tv} minst 1080 REM - signifikanta i HEX. 1090 REM - Ex. H$=CHR$(H%,H%/256) 1100 REM ------------------------------ 1110 REM - Transfervariabel {r H$ som 1120 REM - skall ligga som f|rsta 1130 REM - variabel i programmet. 1140 REM ------------------------------ 1150 REM - Ins{nt av (C) 412 1160 REM - Author 1986 1170 REM - Bernt Figaro 1180 REM - 019-112912 (B) 1190 REM - 019-145920 (A) 1200 REM - \RNSK\LDSGATAN 111 1210 REM - 70350 \REBRO 1220 REM ------------------------------ 1230 REM 1240 DIM H$=128 1250 POKE 65408,221,42,41,254,221,110,6,221,102,7 1260 POKE 65418,221,54,8,4,221,54,9,0,229,221 1270 POKE 65428,225,6,2,123,90,87,205,171,255,221 1280 POKE 65438,117,0,221,116,1,221,35,221,35,90 1290 POKE 65448,16,240,201,123,203,63,203,63,203,63 1300 POKE 65458,203,63,205,193,255,111,175,123,230,15 1310 POKE 65468,205,193,255,103,201,198,48,254,58,248 1320 POKE 65478,198,7,201 1330 REM ----------- 1340 REM DEMOPROGRAM 1350 REM ----------- 1360 PRINT CHR$(12%); 1370 FOR I=0 TO 65535 STEP 256 : REM Flyttal 1380 H%=CALL(65408,I+RND*56%) 1390 PRINT H$","CHR$(H%,H%/256)","; 1400 REM PRINT H$","RIGHT$(H$,3%)","; 1410 NEXT I 1420 END