//Autorun//
20 CLS
150 GELLOAD "f","fon.png"
160 DRAWGEL "f",0,0
161 GELLOAD "i","info.png"
162 GELLOAD "g","game.png"
163 GELLOAD "j","jornal.png"
164 GELLOAD "o","obnova.png"
165 GELLOAD "s","e-sistem.png"
170 GELLOAD "m","menu.png"
180 GELLOAD "e","exit.png"
190 GELLOAD "c","cursor.png"
191 SPRITEGEL "i","i"
192 SPRITEGEL "g","g"
193 SPRITEGEL "j","j"
194 SPRITEGEL "o","o"
195 SPRITEGEL "s","s"
200 SPRITEGEL "m","m"
210 SPRITEGEL "e","e"
220 SPRITEGEL "c","c"
230 MX%=15:MY%=50:EX%=15:EY%=305:IX%=15:IY%=150:GX%=115:GY%=50:JX%=215:JY%=50:OX%=100:OY%=305:SX%=305:SY%=50:CX%=10:CY%=50
231 SPRITEMOVE "i",IX%,IY%
232 SPRITEMOVE "g",GX%,GY%
233 SPRITEMOVE "j",JX%,JY%
234 SPRITEMOVE "o",OX%,OY%
235 SPRITEMOVE "s",SX%,SY%
240 SPRITEMOVE "m",MX%,MY%
250 SPRITEMOVE "e",EX%,EY%
260 SPRITEMOVE "c",CX%,CY%
270 IF RIGHT(0) THEN CX%=CX%+2
280 IF LEFT(0) THEN CX%=CX%-2
290 IF UP(0) THEN CY%=CY%-2
300 IF DOWN(0) THEN CY%=CY%+2
301 IF SPRITEHIT("c","i") AND FIRE(0) THEN GOTO 340
302 IF SPRITEHIT("c","g") AND FIRE(0) THEN GOTO 370
303 IF SPRITEHIT("c","j") AND FIRE(0) THEN GOTO 35
304 IF SPRITEHIT("c","o") AND FIRE(0) THEN GOTO 350
305 IF SPRITEHIT("c","s") AND FIRE(0) THEN GOTO 360
310 IF SPRITEHIT("c","m") AND FIRE(0) THEN GOTO 360
320 IF SPRITEHIT("c","e") AND FIRE(0) THEN STOP
330 SLEEP 10:GOTO 240
370 CALL "/game.bas"


//Ïepexoä ía game.bas//
20 CLS
150 GELLOAD "f","fon.png"
160 DRAWGEL "f",0,0
165 GELLOAD "s","e-sistem.png"
170 GELLOAD "b","bek.png"
190 GELLOAD "c","cursor.png"
195 SPRITEGEL "s","s"
200 SPRITEGEL "b","b"
220 SPRITEGEL "c","c"
221 REM 
230 BX%=15:BY%=50:SX%=305:SY%=50:CX%=10:CY%=50
235 SPRITEMOVE "s",SX%,SY%
240 SPRITEMOVE "b",BX%,BY%
260 SPRITEMOVE "c",CX%,CY%
270 IF RIGHT(0) THEN CX%=CX%+2
280 IF LEFT(0) THEN CX%=CX%-2
290 IF UP(0) THEN CY%=CY%-2
300 IF DOWN(0) THEN CY%=CY%+2
305 IF SPRITEHIT("c","s") AND FIRE(0) THEN GOTO 360
310 IF SPRITEHIT("c","b") AND FIRE(0) THEN GOTO 370
330 SLEEP 10:GOTO 233
370 CALL "/Autorun.bas"