10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program .... CONCAT
12 REM ! Utg}va 1982
13 REM ! av (c) Bernt Figaro
14 REM ! {ndrat av The Computer Phantome
15 REM ! Minne 16 Kbytes
16 REM ! Ins{nt av 412
17 REM ++++++++++++++++++++++++++++++++
18 REM
19 REM Screened by
20 REM
21 REM Programmet tillverkar en rad best}ende
22 REM av !$="(80 '!')" f|r lagring av
23 REM maskinspr}k.
24 DATA 205,118,2,33,177,255,237,91,28,254,1,12,0
25 DATA 237,176,205,167,255,33,189,255,1,13,0,237,176
26 DATA 205,167,255,33,202,255,1,7,0,205,11,0,201
27 DATA 235,6,128,54,33,35,16,251,235,201,142,10,0
28 DATA 131,194,242,33,147,128,203,34,128,184,13,1,242
29 DATA 33,0,0,128,0,153,128,128,0
30 DATA 42,82,69,65,68,89,42
31 ONERRORGOTO 36
32 A%=65408%
33 FOR I%=0% TO 1000%
34 READ B% : POKE A%+I%,B%
35 NEXT I%
36 ONERRORGOTO 0
37 IF PEEK(65053%)=192% POKE 65465%,192% : POKE 65479%,192%
38 REM F|r standard ABC80
39 Z%=CALL(A%)