10 ! OM\JLIG.BAC
20 ! program av Magnus <8042> 1991
30 ! F|r ABC806 och f{rgsk{rm
40 EXTEND : INTEGER 
50 T=80/7
60 T5=INT(T*5) : T4=INT(T*4) : T3=INT(T*3) : T2=INT(T*2) : T1=INT(T)
70 RANDOMIZE 
80 ; CHR$(12)
90 FGCTL BLK+BLK+BLK+BLK+BLK+BLK+BLK+BLK+GRN+CYA+RED+MAG+YEL+WHT+BLU
100 FGPOINT 0,0,0 : FGFILL 255,239
110 READ V : READ F
120 IF V=99 THEN 170
130 POKE 49152,14,7,6,V,62,F,237,121,201
140 Z=CALL(49152)
150 GOTO 110
160 DATA 1,68,2,64,3,71,99,99
170 DEF FNBlock(X,Y)
180   FGPOINT X,Y+5,0 : FGFILL X+20,Y+15
190   FGPOINT X,Y+5,3 : FGLINE X+10,Y : FGLINE X+10,Y+15 : FGLINE X,Y+20 : FGLINE X,Y+5 : FGPAINT X+1,Y+6
200   FGPOINT X,Y+21,1 : FGLINE X+10,Y+16 : FGLINE X+20,Y+21 : FGLINE X+10,Y+26 : FGLINE X,Y+21 : FGPAINT X+10,Y+21
210   FGPOINT X+11,Y,2 : FGLINE X+20,Y+5 : FGLINE X+20,Y+20 : FGLINE X+11,Y+15 : FGLINE X+11,Y : FGPAINT X+15,Y+10
220   RETURN 0
230 FNEND 
240 READ X,Y : IF X=-1 THEN 320
250 X=(X*1.3) : Y=(Y*1.3)
260 X=X+60 : Y=Y+40
270 Z=FNBlock(X,Y)
280 GOTO 240
290 DATA 0,0,0,25,0,50,0,75
300 DATA 20,57,40,45,60,34,40,22,20,11
310 DATA -1,-1
320 ! -------- end --------
330 IF SYS(5)=0 THEN 330
340 GET A$