1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   TESTLOAD
3 REM ! Utg}va  2.0    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 OBS TESTLOAD
14 REM Laddar maskinspr}k f|r
15 REM programmet CASTEST ver 2.0
16 REM 
70 ; : ; : ; 'Ett |gonblick, jag laddar maskinspr}k'
80 ; 'f|r CASTEST'
90 DIM A$=16%
100 ONERRORGOTO 200 : REM DATA SLUT
110 X%=1% : READ A$
120 FOR I%=53000 TO 64500
130 A1%=ASC(MID$(A$,X%,1%))
140 A2%=ASC(MID$(A$,X%+1%,1%))
150 Z%=(A1%-48%-A1%/65%*7%)*16%+(A2%-48%-A2%/65%*7%)
160 POKE I%,Z%
170 X%=X%+2%
180 IF X%>LEN(A$) THEN READ A$ : X%=1%
190 NEXT I%
200 POKE 65052%,252%,208% : REM H\J BOFA
210 ; : ; 'Klart!  CHAIN CASTEST.UTL' : CHAIN "CASTEST.UTL"
220 REM H[R NEDAN SKA HEXKODERNA LIGGA
230 REM I DATASATSER.
240 REM 
250 REM BLAD 1
260 DATA 2AEACE,3600,23,7C,FECE,20F8,7D,FEE1,C8,18F2,000000,F3,FDE5,FD2AEACE
270 DATA 21FFFF,22ECCE,000000,AF,32EFCE,5F,1601,CD86D0,FE16,20F7,CD84D0,FE16
280 DATA 28F9,FE02,20E7,000000,3EFF,32EFCE,32EECE,210300,000000,DD21FFFB,0E00
290 DATA DD23,CD84D0,19,DD7300,0D,20F4,000000,CD84D0,FE03,200C,CD84D0
300 DATA BD,2006,CD84D0,BC,2807,AF,32EECE,000000
310 REM BLAD 2
320 DATA 2101FC,3AECCE,BE,2005,23,3AEDCE,BE,C461D0,2A01FC,23,22ECCE,000000
330 DATA 3A00FC,FEFF,2044,AF,FDBE03,2005,FDBE0F,2806,CD6DD0,000000,ED5BEACE
340 DATA 21F0FD,010300,EDB0,3AF0FD,FDBE00,20EC,000000,2103FC,010B00,EDB0,2103FC
350 DATA 11D77F,010800,EDB0,13,010300,EDB0,000000,3AEECE,A7,CC61D0,000000
360 REM BLAD 3
370 DATA 2103FC,ED4B01FC,78,B1,2026,7E,000000,0E43,FE82,2806,FE83,2008,0E52
380 DATA 32F0CE,23,1806,0E53,AF,32F0CE,79,FD770E,32E57F,000000,3AF0CE,A7,281B
390 DATA 7E,FE01,2823,FE00,CA2CCF,4F,0600,09,CB44,28EE,CD61D0,C32CCF,000000
400 DATA 0606,7E,A7,C22CCF,23,10F8,000000
410 REM BLAD 4
420 DATA CD6DD0,210000,FDE1,FB,C9,000000,3E45,FD770F,32E87F,C9,000000,111000
430 DATA FD19,FD22EACE,2180D0,010100,CD0B00,C9,0A,000000
440 REM BLAD 5
450 DATA 1608,CB3B,CDC7D0,DB38,FE95,2007,E1,21FFFF,C35AD0,06FF,DB3A,E680,280F
460 DATA 10F8,3AEFCE,A7,28E3,AF,32EECE,0E01,C9,0676,10FE,CDC7D0,0676,10FE,DB3A
470 DATA E680,2002,CBFB,15,20C1,7B,C9,DB3A,E6BF,D33A,F640,D33A,C9
480 REM SLUT