Stop the the little bugers using Z (left), X (right), and M (up) to block attacks.
PROG : 16509
D-FILE: 19343
VARS : 20136
E-LINE: 20137
STKBOT: 20137
STKEND: 20137
9999 means line number
PRINT means treat as KEYWORD P
10 REM **BUGERS**SLR/1985*****
20 FOR A=0 TO 9
30 PRINT AT A,0;"
¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸"
40 NEXT A
50 LET S=0
60 PRINT AT 8,15;"ñò";AT 9,15;
"¶ö"
70 LET G=INT (RND*3+1)
80 GOSUB 1000*G
90 GOTO 60
100 PRINT AT 8,15;"¶ö";AT 9,15;
"ö¶"
110 PRINT AT 12,10;"SCORE:";S
120 PRINT ,,,,"CRASH,YOU DIED..
."
130 PRINT ,,,," **PRES ANY KEY
TO CONTINUE** "
140 PAUSE 4E4
150 CLS
160 RUN
1000 PRINT AT 8,0;"¸";AT 9,0;"¸"
1010 PRINT AT 8,0;" ";AT 9,0;" "
1020 PRINT AT 9,0;" "
1030 PRINT AT 9,0;" "
1040 PRINT AT 9,0;" ";AT 8,5
;" "
1050 PRINT AT 9,0;" ";AT 8
,5;" "
1060 PRINT AT 9,2;" ";AT 8
,7;" "
1070 IF INKEY$<>"" THEN GOTO 100
1080 PRINT AT 9,4;" ";AT
8,8;" "
1090 IF INKEY$<>"" THEN GOTO 100
1100 PRINT AT 9,6;" ";AT 8
,10;" "
1110 IF INKEY$<>"Z" THEN GOTO 10
0
1120 PRINT AT 9,6;" ";
AT 8,10;" "
1130 IF INKEY$<>"Z" THEN GOTO 10
0
1140 PRINT AT 9,9;" ";AT 8,
12;" "
1150 LET S=S+10
1160 FOR G=1 TO 40
1170 NEXT G
1180 RETURN
2000 PRINT AT 0,15;"¸¸"
2010 PRINT AT 0,15;"ñò"
2020 PRINT AT 1,15;"ñò";AT 0,15;
"õµ"
2030 PRINT AT 2,15;"ñò";AT 1,15;
"õµ"
2040 PRINT AT 3,15;"ñò";AT 2,15;
"õµ"
2050 PRINT AT 4,15;"ñò";AT 3,15;
"õµ"
2060 IF INKEY$<>"" THEN GOTO 100
2070 PRINT AT 5,15;"ñò";AT 4,15;
"õµ"
2080 IF INKEY$<>"" THEN GOTO 100
2090 PRINT AT 6,15;"ñò";AT 5,15;
"õµ"
2100 IF INKEY$<>"M" THEN GOTO 10
0
2110 PRINT AT 7,15;"ñò";AT 6,15;
"õµ"
2120 IF INKEY$<>"M" THEN GOTO 10
0
2130 FOR A=0 TO 7
2140 PRINT AT A,15;" "
2150 NEXT A
2160 LET S=S+10
2170 FOR G=1 TO 40
2180 NEXT G
2190 RETURN
3000 PRINT AT 8,31;"¸";AT 9,31;"
¸"
3010 PRINT AT 8,31;"ô";AT 9,31;"
ô"
3020 PRINT AT 8,30;"ñó";AT 9,30;
"ñ³"
3030 PRINT AT 8,29;"ôó";AT 9,29;
"ô³"
3040 PRINT AT 8,28;"ñó";AT 9,28;
"ñ³"
3050 PRINT AT 8,27;"ôó";AT 9,27;
"ô³"
3060 PRINT AT 8,26;"ñó";AT 9,26;
"ñ³"
3070 PRINT AT 8,25;"ôó";AT 9,25;
"ô³"
3080 PRINT AT 8,24;"ñó";AT 9,24;
"ñ³"
3090 PRINT AT 8,23;"ôó";AT 9,23;
"ô³"
3100 PRINT AT 8,22;"ñó";AT 9,22;
"ñ³"
3110 PRINT AT 8,21;"ôó";AT 9,21;
"ô³"
3120 PRINT AT 8,20;"ñó";AT 9,20;
"ñ³"
3130 IF INKEY$<>"" THEN GOTO 100
3140 PRINT AT 8,19;"ôó";AT 9,19;
"ô³"
3150 IF INKEY$<>"" THEN GOTO 100
3160 PRINT AT 8,18;"ñó";AT 9,18;
"ñ³";AT 1,15;"¸¸"
3170 IF INKEY$<>"X" THEN GOTO 10
0
3180 PRINT AT 8,17;"ôó";AT 9,17;
"ô³"
3190 IF INKEY$<>"X" THEN GOTO 10
0
3200 PRINT AT 8,17;"
";AT 9,17;" ";
AT 10,15;"¸¸"
3210 LET S=S+10
3220 FOR G=1 TO 40
3230 NEXT G
3240 RETURN
3500 SAVE "BUGERS"
3510 RUN