Av: Gunnar Forssell <1631>    1986-02-03 12.04.02
1 REM +------------------------------+
2 REM + MOD.BAS - en ramfloppyrutin  +
3 REM +           f|r ABC80 med 64k  +
4 REM +           (Mikrodatorns sats)+
5 REM + F}r anv{ndas fritt.          +
6 REM +                              +
7 REM + Av Bertil Kornefalk <4463>   +
8 REM + L{tt modifierat av <1631>    +
9 REM +------------------------------+
10 A%=PEEK(65034%) : B%=PEEK(65035%) : POKE 65034%,-1736%,SWAP%(-1736%)
20 POKE -1736%,A%,B%,77%,79%,68%,63%,249%,195%,84%,250%,195%,84%,250%,195%,175%,250%,25%
30 POKE -1720%,195%,21%,0%,195%,27%,0%,195%,227%,250%,195%,180%,250%,236%
40 POKE -1452%,235%,205%,30%,24%,56%,5%,123%,254%,0%,32%,2%,215%,140%,33%,84%,249%,11%
50 POKE -1436%,221%,54%,7%,120%,221%,117%,8%,221%,116%,9%,221%,117%,10%,221%,116%,11%,148%
60 POKE -1420%,221%,115%,12%,221%,54%,13%,253%,221%,54%,14%,0%,54%,3%,243%,118%,33%,37%
70 POKE -1404%,0%,0%,1%,1%,0%,62%,0%,211%,7%,86%,62%,3%,211%,7%,114%,35%,82%
80 POKE -1388%,16%,243%,13%,32%,240%,33%,0%,0%,34%,52%,0%,34%,54%,0%,54%,251%,66%
90 POKE -1372%,35%,54%,237%,35%,54%,77%,175%,211%,7%,251%,201%,221%,203%,14%,126%,200%,29%
100 POKE -1356%,221%,126%,12%,254%,127%,202%,255%,6%,111%,38%,0%,17%,243%,127%,205%,98%,72%
110 POKE -1340%,24%,33%,84%,249%,221%,86%,12%,30%,0%,221%,52%,12%,1%,253%,0%,205%,103%
120 POKE -1324%,254%,250%,221%,54%,13%,253%,221%,203%,14%,198%,33%,84%,249%,235%,201%,221%,146%
130 POKE -1308%,102%,12%,46%,0%,124%,254%,127%,202%,255%,6%,221%,52%,12%,17%,84%,249%,47%
140 POKE -1292%,1%,253%,0%,205%,254%,250%,33%,84%,249%,201%,62%,3%,211%,7%,237%,176%,80%
150 POKE -1276%,175%,211%,7%,201%,171%
160 CHAIN ""