1 REM *****************************
2 REM * ADATA   .BAS / Minne 16K..*
3 REM * VER 1.0 / 1983-??-??      *
4 REM * (c) Alf Wirdling / <4230> *
5 REM * Tel :  0470-26277 / V[XJ\  *
6 REM *****************************
100 REM  ADATA 
110 REM 
120 REM Chain av huvud-pgm
130 REM 
140 ; : ; TAB(9);" CHAIN AV BDATA "
150 ; : ; "Start av enbart BDATA, kan g|ras om"
160 ; "manuell POKE g|rs:"
170 ; : ; "POKE 65408,PEEK(65052),PEEK(65053)"
180 ; "POKE 65052,0,227 : NEW"
190 ; : ; "DATA-satser som redan finns i minnet"
200 ; "kan d} l{ggas till dem man skapar i"
210 ; "programmet BDATA."
220 ; : ; "CHAINING BDATA"
230 REM  SPARA BOFA 
240 POKE 65408%,PEEK(65052%),PEEK(65053%)
250 REM  CHAIN 
260 POKE 65052%,0%,227% : REM  58112 
270 CHAIN "BDATA"