Filter
Top Products
10 DIM colour(2)
20 MODE 1:ORIGIN 0,0,0,640,0,400 : REM reset screen
30 dumpfile$="flagdump.srn"
40 FOR i=0 TO 2
50 READ colour(i): REM Get colours from DATA statement
60 INK i,colour(i)
70 NEAT
80 OPENOUT "Param.dat"
90 WRITE #9,dumpfile$,1: REM save filename and mode
100 FOR i=0 TO 2
110 WRITE #9,colour(i): REM save colours
120 NEXT i
130 CLOSEOUT
140 BORDER 0
150 FOR x=-65 TO 60 STEP 2
160 MOVE x,400:DRAWR 24,-150,1
170 MOVE x,O:DRAWR 240,150
180 NEXT x
190 FOR x=575 TO 700 STEP 2
200 MOVE x,400:DRAWR -240,-150
210 MOVE x,O:DRAWR -240,150
220 NEXT x
230 FOR x=-40 TO 0 STEP 2
240 MOVE x,400:DRAWR 240,-150,2
250 NEXT x
260 FOR x=0 TO 40 STEP 2
270 MOVE x,O:DRAWR 240,150
280 NEXT x
290 FOR x=640 TO 680 STEP 2
300 MOVE x,O:DRAWR -240,150
310 NEXT x
320 FOR x=600 TO 640 STEP 2
330 MOVE x,400:DRAWR -240,-150
340 NEXT x
350 ORIGIN 0,0,260,372,0,400:CLG 1
360 ORIGIN 0,0,0,640,150,250:CLG 1
370 ORIGIN 0,0,284,348,0,400:CLG 2
380 ORIGIN 0,0,0,640,169,231:CLG 2
390 SAVE dumpfile$,b,&C000,&4000
400 DATA 2,26,6
Chapter 2.5 AMSTRAD Disc Drive & Interface DDI-1 Manual