1 REM Ins{nt av 298
100 ! ***********************
110 ! *                     *
115 ! *  X800X80.BAS        *
117 ! *                     *
120 ! * PROGRAM F\R IMPLE-  *
130 ! * MENTERING AV ABC80- *
140 ! * INTERPRETATORN P]   *
150 ! * ABC800.             *
160 ! *                     *
170 ! * PROGRAMMET GJORT AV *
180 ! * ROBERT B[RLUND,     *
190 ! * KRISTIANSTAD.       *
200 ! *                     *
210 ! * DATUM: 830526.      *
220 ! *                     *
230 ! ***********************
240 ! 
250 ! DIN ABC800C M]STE VARA UTRUSTAD
260 ! MED HR-GRAFIK.
270 ! 
280 ! DU BEH\VER EN FIL MED ABC80:S
290 ! INTERPRETATOR LAGRAD I EN ENDA
300 ! F\LJD (SOM OM DEN LAGRATS MED 
310 ! PUT #1,A$).
320 ! 
330 ! DU KAN SEDAN INTE ANV[NDA CAS:,
340 ! FLOPPY ELLER LJUD UTAN YTTER-
350 ! LIGARE [NDRINGAR.
360 ! 
370 ! MEN KNAPPA, DET G]R JU!
380 ! MYCKET N\JE!
390 ! 
395 INTEGER : NO EXTEND 
400 DIM A$=16384
410 OPEN 'ABC80.DAT' AS FILE 1
420 GET #1,A$ COUNT 16384
430 CLOSE 1
440 OUT 99,255
450 I=VARPTR(A$)
460 POKE I+760,34
470 POKE I+791,34
480 POKE I+800,34
490 POKE I+802,3
500 POKE I+194,0,0,0
510 OUT 35,2,35,52
520 POKE 50000,33,I,SWAP%(I),1,0,64,205,253,127,62,5,211,35,62,128,211,35,199
530 A=CALL(50000,0)