20  LCDCLEAR
23  LEVEL++
24  LCDPOS=&H14
25  LCDWRITE="BUGS GAME"

30  LCDPOS=&H26
31  IF LEVEL<10 then 34
32  LCDWRITE="END"
33  GOTO 33
34  LEV="LEV:"&LEVEL
35  LCDWRITE=LEV
40  WAITS 2
41  LCDCLEAR
43  CLR PNT
45  A=16
46  LCDPOS=&H21

48  LCDWRITE=LEV & " SCORE:" & PNT
50  LCDPOS=17
51  LCDWRITE=" "
55  WAITMS  RND/10
56  'JK=RND/32767
60  POS_CIBO=int(RND/32767.0*11)+21
65  LCDPOS=POS_CIBO
70  LCDWRITE="^"
75  WAITS 1
80  LCDPOS=17
85  LCDWRITE="o"
90  WAITMS 130
95  A++
100 IF A = POS_CIBO-1 THEN 171
105 LCDPOS=A
110 WAITMS  130
115 LCDWRITE=" o"
120 if A < 32 then 95
125 A--
130 LCDPOS=A
135 WAITMS 130
140 LCDWRITE="ä " 'chr(148)
145 IF A>17 THEN 125
170 GOTO 45

171 WAITMS 200 ' RALLENDO E MI METTO IN GROPPA L'OGGETTO
172 LCDPOS=A
173 LCDWRITE=" ä"
175 WAITMS 350
176 PNT+=POS_CIBO-16
177 IF PNT> 9999 THEN 20
180 GOTO  130