10
20 MODE 2
30 READ name$,type,col1,col2,col3,col4
40 REPEAT
50 PROCflag(type,col1,col2,col3,col4)
60 PRINTTAB(10-LENname$/2,0);name$;
70 IFGET
80 READ name$,type,col1,col2,col3,col4
90 UNTILname$="*"
100 END
110 :
120 DATA ANDORRA,0,4,2,1,0
130 DATA AUSTRIA,1,1,7,1,0
140 DATA BALARUS,1,2,1,1,0
150 DATA BELGIUM,0,0,3,1,0
160 DATA DENMARK,4,1,7,7,0
170 DATA FINLAND,4,1,4,4,0
180 DATA FRANCE,0,4,7,1,0
190 DATA GERMANY,1,3,1,0,0
200 DATA ICELAND,4,4,7,1,0
210 DATA IRELAND,0,2,7,2,0
220 DATA ITALY,0,2,7,1,0
230 DATA NETHERLANDS,1,4,7,1,0
240 DATA NORWAY,4,1,7,4,0
250 DATA POLAND,2,1,1,7,7
260 DATA PORTUGAL,0,2,1,1,0
270 DATA RUSSIA,1,1,4,7,0
280 DATA SPAIN,2,1,3,3,1
290 DATA SWEDEN,4,4,3,3,0
300 DATA *,0,0,0,0,0
310 :
320 DEFPROCflag(t,a,b,c,d):CLS
330 IFt=0:PROCtriH:ENDPROC
340 IFt=1:PROCtriV:ENDPROC
350 IFt=2:PROCquadH:ENDPROC
360 IFt=4:PROCscan:ENDPROC
370 ENDPROC
380 :
390 DEFPROCtriH
400 GCOL 0,a:MOVE 0,0:MOVE 0,1024:PLOT 85,1280/3,0:PLOT 85,1280/3,1024
410 GCOL 0,b:MOVE 1280/3,0:MOVE 1280/3,1024:PLOT 85,1280/3*2,0:PLOT 85,1280/3*2,1024
420 GCOL 0,c:MOVE 1280/3*2,0:MOVE 1280/3*2,1024:PLOT 85,1280,0:PLOT 85,1280,1024
430 ENDPROC
440 :
450 DEFPROCtriV
460 GCOL 0,a:MOVE 0,0:MOVE 1280,0:PLOT 85,0,1024/3:PLOT 85,1280,1024/3
470 GCOL 0,b:MOVE 0,1024/3:MOVE 1280,1024/3:PLOT 85,0,1024/3*2:PLOT 85,1280,1024/3*2
480 GCOL 0,c:MOVE 0,1024/3*2:MOVE 1280,1024/3*2:PLOT 85,0,1024:PLOT 85,1280,1024
490 ENDPROC
500 :
510 DEFPROCquadH
520 GCOL 0,a:MOVE 0,0:MOVE 1280,0:PLOT 85,0,1024/4:PLOT 85,1280,1024/4
530 GCOL 0,b:MOVE 0,1024/4:MOVE 1280,1024/4:PLOT 85,0,1024/4*2:PLOT 85,1280,1024/4*2
540 GCOL 0,c:MOVE 0,1024/4*2:MOVE 1280,1024/4*2:PLOT 85,0,1024/4*3:PLOT 85,1280,1024/4*3
550 GCOL 0,d:MOVE 0,1024/4*3:MOVE 1280,1024/4*3:PLOT 85,0,1024:PLOT 85,1280,1024
560 ENDPROC
570 :
580 DEFPROCscan
590 GCOL 0,a:MOVE 0,0:MOVE 0,1024:PLOT 85,1280,0:PLOT 85,1280,1024
600 GCOL 0,b:MOVE 0,1024/2-64:MOVE 1280,1024/2-64:PLOT 85,0,1024/2+64:PLOT 85,1280,1024/2+64
610 MOVE 1280/4-64,0:MOVE 1280/4-64,1024:PLOT 85,1280/4+64,0:PLOT 85,1280/4+64,1024
620 GCOL 0,c:MOVE 0,1024/2-32:MOVE 1280,1024/2-32:PLOT 85,0,1024/2+32:PLOT 85,1280,1024/2+32
630 MOVE 1280/4-32,0:MOVE 1280/4-32,1024:PLOT 85,1280/4+32,0:PLOT 85,1280/4+32,1024
640 ENDPROC