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