1 REM * RANDOM COPY DEMO
2 REM *
3 REM * (C) 1985 FRAS-SOFT
4 REM *
5 REM * STEPHAN ARNDT
6 REM * SUEDWESTKORSO 62
7 REM * 1 BERLIN 41
8 REM *
9 REM *
10 :
20 IFA=0THENA=1:LOAD"RANDOM COPY",8,1
30 IFA=1THENA=2:LOAD"GRAPHICS",8,1
40 FORR=1024TO2023:POKER,1:NEXT
50 POKE53280,0
60 POKE53281,0
70 POKE53272,24:POKE53265,59
80 FORR=8192TO16192:POKER,0:NEXT
90 :
100 REM --------- NU KOMMT'S -------
110 POKE 1017,32 : REM ( = $20)
120 REM ZIEL = $2000
130 POKE 1016,64 : REM ( = $40)
140 REM GRAPHIC LIEGT BEI $4000
150 SYS 828
160 REM ----------------------------
200 REM ----- ZWEITE GRAPHIC -------
210 POKE 1017,32 : REM ( = $20)
220 REM ZIEL = $2000
230 POKE 1016,96 : REM ( = $60)
240 REM GRAPHIC LIEGT BEI $6000
250 SYS 828
260 REM ----------------------------
300 GETA$:IFA$=""THEN300
310 POKE53272,21
320 POKE53265,27
330 PRINT"[147]"