100 '++++++++++++++++++++++++++++++++++ 110 '+                                + 120 '+         CPCTEST  V2.1          + 130 '+       [ FOR ALL CPC'S ]        + 140 '+                                + 150 '+          (C) 1987 BY           + 160 '+                                + 170 '+         THOMAS HALLER          + 180 '+       OB. DAEGELMATT 10        + 190 '+         5737 MENZIKEN          + 200 '+         (SWITZERLAND)          + 210 '+                                + 220 '++++++++++++++++++++++++++++++++++ 230 MEMORY &A4FF 240 FOR adr=&A500 TO &A549 250 READ a$ 260 POKE adr,VAL("&"+a$) 270 NEXT 280 CALL &A500 290 DATA 01,0D,A5,21,09,A5,C3,D1 300 DATA BC,00,00,00,00,12,A5,C3 310 DATA 18,A5,54,45,53,D4,00,00 320 DATA FE,01,C2,49,A5,DD,66,01 330 DATA DD,6E,00,C3,27,A5,C9,3A 340 DATA FA,BB,FE,36,C2,33,A5,3E 350 DATA 01,77,C9,FE,A2,C2,3C,A5 360 DATA 3E,02,77,C9,FE,A6,C2,45 370 DATA A5,3E,03,77,C9,3E,FF,77 380 DATA C9,C9 390 'EXAMPLE FOR CPCTEST 400 '(C)1987 BY T.HALLER 410 DEFINT c 420 cpc=0 430 |TEST,@cpc 440 ON cpc GOTO 460,470,480 450 a$="KEINEM CPC":GOTO 490 460 a$="EINEM CPC 464":GOTO 490 470 a$="EINEM CPC 664":GOTO 490 480 a$="EINEM CPC 6128":GOTO 490 490 CLS 500 LOCATE 1,1:PRINT"SIE ARBEITEN AUF "; 510 PRINT a$;" !!!"