100 SET KEYCLICKOFF
  110 CLEAR SCREEN
  120 PRINT "              Xadeni"
  130 PRINT "      ■ ■  ■■  ■■  ■■ ■   ■ ■"
  140 PRINT "      ■ ■ ■  ■ ■ ■ ■  ■   ■  "
  150 PRINT "      ■ ■ ■  ■ ■ ■ ■  ■■  ■  "
  160 PRINT "       ■  ■  ■ ■ ■ ■  ■ ■ ■ ■"
  170 PRINT "       ■  ■  ■ ■ ■ ■■ ■  ■■ ■"
  180 PRINT "       ■  ■■■■ ■ ■ ■  ■   ■ ■"
  190 PRINT "      ■ ■ ■  ■ ■ ■ ■  ■   ■ ■"
  200 PRINT "      ■ ■ ■  ■ ■ ■ ■  ■   ■ ■"
  210 PRINT "      ■ ■ ■  ■ ■■  ■■ ■   ■ ■"
  220 PRINT "             by Bodnar Tamas"
  230 PRINT "        Press space to start"
  240 PRINT :PRINT :PRINT :PRINT "I=Internal joystick "
  250 PRINT "        E=External joystick"
  260 LET JO=0
  270 DO 
  280   LET A$=INKEY$
  290   SELECT CASEA$
  300   CASE "i"
  310     LET JO=0
  320   CASE "e"
  330     LET JO=1
  340   CASE " "
  350     GOTO  390
  360   CASE ELSE
  370   END SELECT 
  380 LOOP 
  390 CLEAR SCREEN
  400 DEF FAL
  410   LET F=F+1
  420   IF F=8THENLET F=0:PRINT #102,AT23,10:"**********"
  430   PRINT #102,AT23,RND(10)+10:"  ":PRINT #102,AT23,RND(10)+10:" "
  440 END DEF 
  450 DEF MOVE
  460   SELECT CASEJOY(JO)
  470   CASE 1
  480     IF A<19THENLET A=A+1
  490   CASE 2
  500     IF A>10THENLET A=A-1
  510   CASE ELSE
  520   END SELECT 
  530 END DEF 
  540 DEF NEZ
  550   PRINT #102,AT1,A:;
  560   GET #102:NE$
  570   IF NE$="*"THENCALL ELET
  580   IF LIV=0THENCALL VEGE
  590 END DEF 
  600 !level1
  610 LET A=19:LET LIV=4:LET SCORE=0
  620 FOR TART=1TO250
  630   LET SCORE=SCORE+1
  640   PRINT #102,AT1,1:SCORE;LIV
  650   PRINT #102,AT1,A:"☀"
  660   CALL MOVE
  670   PRINT #102,AT23,RND(10)+10:"*"
  680   PRINT AT24,1:""
  690   CALL NEZ
  700 NEXT 
  710 PRINT #102,AT23,13:"Level 2"
  720 FOR J=1TO22
  730   PRINT AT24,1:""
  740 NEXT 
  750 LET LIV=4
  760 FOR TART=1TO100
  770   LET SCORE=SCORE+1
  780   PRINT #102,AT1,1:SCORE;LIV
  790   PRINT #102,AT1,A:"☀"
  800   CALL MOVE
  810   PRINT #102,AT23,RND(10)+10:"*":PRINT #102,AT23,RND(10)+10:"*"
  820   PRINT AT24,1:""
  830   CALL NEZ
  840 NEXT 
  850 PRINT #102,AT23,13:"Level 3"
  860 FOR J=1TO22
  870   PRINT AT24,1:""
  880 NEXT 
  890 LET A=15:LET F=0:LET LIV=1
  900 FOR TART=1TO420
  910   LET SCORE=SCORE+1
  920   PRINT #102,AT1,1:SCORE;LIV
  930   PRINT #102,AT1,A:"☀"
  940   CALL MOVE
  950   CALL FAL
  960   PRINT AT24,1:""
  970   CALL NEZ
  980 NEXT 
  990 DEF VEGE
 1000   PRINT #102,AT1,10:"Score:";SCORE
 1010   WAIT 1
 1020   CLEAR SOUND
 1030   RESTORE 
 1040   FOR I=1TO7
 1050     READ G,H
 1060     SOUND SOURCE1,PITCHG-.1,DURATIONH
 1070     SOUND DURATIONH,PITCHG+.1
 1080   NEXT 
 1090   DATA 42,40,39,40,42,20,41,15,39,20,44,15,37,40
 1100   WAIT 2
 1110   RUN 
 1120 END DEF 
 1130 DEF ELET
 1140   LET LIV=LIV-1
 1150   FOR W=60TO30STEP-3.5
 1160     SOUND PITCHW,DURATION5,STYLEW
 1170   NEXT 
 1180 END DEF