1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   MINDLOAD
3 REM ! Utg}va         830504
4 REM ! av (c) Erik ]str|m
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av 1423
9 REM ++++++++++++++++++++++++++++++++
10 REM 
11 REM Screened by CRL.
12 REM 
13 REM 
15 REM OBS  MINDLOAD
20 REM Laddar in maskinspr}ks-
30 REM rutinen f|r MINDPLAY
40 REM 
50 REM ________________________________
60 REM --------- utfyllnad ------------
70 REM __________________________________________________________________________________________________________
80 REM __________________________________________________________________________________________________________
90 REM __________________________________________________________________________________________________________
100 REM __________________________________________________________________________________________________________
110 REM __________________________________________________________________________________________________________
120 REM ________________________________________________________________________________________________________
130 REM _________________________________________________________________________________________________________
140 REM _________________________________________________________________________________________________________
150 REM _______________________________
160 DIM A$=16%
170 ONERRORGOTO 290 : REM DATA SLUT
180 X%=1% : READ A$
190 REM 
200 REM STARTADRESS - SLUTADRESS
210 FOR I%=50000 TO 64500
220 A1%=ASC(MID$(A$,X%,1%))
230 A2%=ASC(MID$(A$,X%+1%,1%))
240 Z%=(A1%-48%-A1%/65%*7%)*16%+(A2%-48%-A2%/65%*7%)
250 POKE I%,Z%
260 X%=X%+2%
270 IF X%>LEN(A$) THEN READ A$ : X%=1%
280 NEXT I%
290 POKE 65052,24,196 : REM H\J BOFA
300 ; : ; 'CHAIN MINDPLAY.GAM' : CHAIN "MINDPLAY.GAM"
310 REM 
320 REM H[R NEDAN SKA HEXKODERNA LIGGA
330 REM I DATASATSER.
340 REM EX :
350 REM DATA EF,12,CD3212,EF80
360 REM MAX 8 BYTE MELLAN KOMMATECKNEN.
370 REM 
380 DATA 2112C0,0604,35,2009,3606,23,10F8,21FFFF,C9,2130C0,D9
390 DATA D9,7E,FEFF,2011,EB,2112C0,010800,EDB0,ED5302C0,210000,C9,1122C0,010A00,EDB0,D9,2112C0,111AC0,010800,EDB0
400 REM BLAD 2
410 DATA 010004,DD211AC0,DD7E00,DDBE08,2009,0C,DD3600FF,DD3608FE,DD23,10EB,3A2AC0,B9,C250C3
420 DATA 111AC0,010004,C5,2122C0,010400,1A,EDB1,C1,2004,0C,2B,36FE,13,10EC,3A2BC0,B9,C250C3,C365C3