1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program .... FLUGAN
3 REM ! Utg}va 2.0 1983-??-??
4 REM ! av L. Tufvesson
6 REM ! Copyright LT-DATA
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av 3189
9 REM ++++++++++++++++++++++++++++++++
10 REM Ett spelprogram som i tre
11 REM etapper g}r ut p} att besegra
12 REM en utomjordisk flug-arm`.
20 ; CHR$(12%)CUR(4%,10%)"[NNU ETT ROLIGT SPEL"
30 ; CUR(7%,19%)"FR]N"CUR(10%,14%)"L. TUFVESSON"CUR(15%,18%)"ALIAS"CUR(20%,11%)"L T - D A T A ! !"
40 FOR E%=0% TO 10000% : NEXT E%
70 ; CHR$(12%)TAB(8%)"SUPERFLUGANS H[MND"
80 ; : ; "I detta rymdspel anfalls du av en insektsliknande marsvarelse och alla"
90 ; "hans medhj{lpare. (P.g.a att du i slagetom Uranus }r 2132 tog k}l p} h{lften av hans arm`.)" : ;
100 ; "Makulera dem innan de makulerar dig!" : ;
110 ; : ; "1. Skjut h}l p} rymdskeppet."
120 ; "2. Tillintetg|r marsflugan."
130 ; "3. Skjut s|nder hans medhj{lpare."
140 ; "4. Styr f|rbi alla kometer."
150 ; : ; "Anv{ndbara tangenter:" : ; "<< X : >> (mellan slag) skjut"
160 ; : ; : ; "Tryck return s} b|rjar vi!"
170 Q%=Q%+1% : IF Q%>35% Q%=0%
180 ; CUR(22%,Q%)CHR$(151%)"==" : IF INP(56%)<>141% FOR E%=0% TO 400% : NEXT E% : GOTO 170
190 A=.02 : Q%=1% : H%=16% : B=.3 : RESTORE
200 ; CHR$(12%) : FOR E%=0% TO 23% : ; CUR(E%,0%)CHR$(151%)CUR(E%,29%)"5"CHR$(135%); : NEXT E%
210 ; CUR(5%,31%)"<< X"CUR(6%,34%)": >>"CUR(7%,31%)"MELLAN-"CUR(8%,32%)"SL AG"CUR(9%,32%)"SKJUT" : RANDOMIZE
220 ; CUR(1%,33%)"SUPER-"CUR(2%,32%)"FLUGANS"CUR(3%,33%)"H[MND"CUR(19%,32%)"PO[NG:"
230 FOR F%=0% TO 15% : READ E% : FOR X%=0% TO 100% : NEXT X%
240 DATA 4,5,6,7,8,9,10,11,12,11,10,9,8,9,8,9
250 ; CUR(0%,E%)" jcccccccccck "
260 ; CUR(1%,E%)" j j "
270 ; CUR(2%,E%)" j )0`& j "
280 ; CUR(3%,E%)' j (ss$ j '
290 ; CUR(4%,E%)" j f9 j "
300 ; CUR(5%,E%)" j d:e8 j "
310 ; CUR(6%,E%)" j j "
320 ; CUR(7%,E%-3%)" "
330 ; CUR(8%,E%-3%)" j5 "
340 ; CUR(9%,E%-2%)" o? "
350 ; CUR(10%,E%-1%)" +' "
360 ; CUR(11%,E%+1%)" ##////## "
370 NEXT F% : FOR E%=0% TO 3000% : NEXT E%
380 A%=22% : B%=INT(RND*20%+2%) : A1%=22% : B1%=10%
390 FOR E%=1% TO 8% : READ X%,Y% : SETDOT A%*3%+X%,B%*2%+Y% : FOR F%=0% TO 500% : NEXT F% : NEXT E% : OUT 6%,255%
400 RESTORE
410 REM HUVUD
420 ; CUR(A1%,B1%)" "CUR(A1%+1%,B1%)" "CUR(20%,32%)S3%
430 ; CUR(A%,B%)"n$"CUR(A%+1%,B%)"#!"; : A1%=A% : B1%=B% : IF RND0% AND Q%<3% FOR E%=0% TO 80% : NEXT E%
470 IF V%>0% 550
480 REM FLYTTA SK\LD
490 IF DOT(21%,46%) X%=1% ELSE X%=0%
500 FOR E%=46% TO 18% STEP -2% : IF DOT(21%,E%-2%) ; CUR(7%,E%/2%)"" ELSE ; CUR(7%,E%/2%)" "
510 NEXT E% : IF X%=1% ; CUR(7%,8%)"" ELSE ; CUR(7%,8%)" "
520 IF DOT(24%,16%) X%=1% ELSE X%=0%
530 FOR E%=16% TO 44% STEP 2% : IF DOT(24%,E%+2%) ; CUR(8%,E%/2%)"" ELSE ; CUR(8%,E%/2%)" "
540 NEXT E% : IF X%=1% ; CUR(8%,23%)"" ELSE ; CUR(8%,23%)" "
550 IF INP(56%)=216% AND B%>1% B%=B%-1%
560 IF INP(56%)=174% AND B%<27% B%=B%+1%
570 IF D%>0% D%=D%-1%
580 IF INP(56%)<>160% OR V%>0% 690
590 REM SKJUT
600 OUT 6%,135% : D%=1%
610 FOR E%=A%-2% TO 0% STEP -1% : IF NOT DOT(E%*3%+4%,B%*2%) ; CUR(E%+1%,B%)" "
620 IF DOT(E%*3%,B%*2%+1%) 670
630 IF DOT(E%*3%+1%,B%*2%) 650
640 ; CUR(E%,B%)"j"
650 NEXT E% : ; CUR(0%,B%)" "
660 GOTO 690
670 OUT 6%,9% : ; CUR(E%,B%)CHR$(RND*31%+33%)CUR(E%+1%,B%)" "; : S3%=S3%+1% : IF E%<6% AND B%<17% AND B%>14% 820
680 REM SUPERBOMBFALL
690 OUT 6%,0% : IF V%>0% 890
700 ; CUR(A1%,H%)" " : FOR E%=A% TO 13% STEP -1% : IF DOT(E%*3%-2%,H%*2%) ; CUR(E%,H%)"\" ELSE ; CUR(E%,H%)" "
710 NEXT E%
715 IF DOT(A%*3%+1%,H%*2%) AND B%