ZX81 Listing for bugers.p


ZX81 program listing for **BUGERS**SLR/1985*****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 19343
VARS  : 20136
E-LINE: 20137
STKBOT: 20137
STKEND: 20137


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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