Source Code
10 GOSUB 1000
15 CLS
20 LET E=INT (RND*50)+10
30 LET R=0
40 LET S=0
50 DIM A$(21,31)
52 LET M=INT (RND*28)
54 LET N=INT (RND*18)+2
70 LET C=0
80 LET R=R+1
90 LET X=10
100 LET Y=15
112 PRINT AT 0,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
120 PRINT AT X,Y;"+";AT 1,0;"% %S%C%O%R%E%=";S;"% % % % % % %T%I%M%E% %L%I%M%I%T%=";E;AT 1,29;"% % % % % "
122 PRINT AT 2,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
140 LET A$(N,M)=B$
150 PRINT AT N,M;B$
180 PRINT AT X,Y;" "
190 LET F$=INKEY$
200 IF A$(X,Y-1)<>"% " AND F$="5" AND Y>2 THEN LET Y=Y-1
210 IF A$(X,Y+1)<>"% " AND F$="8" AND Y<39 THEN LET Y=Y+1
220 IF A$(X+1,Y)<>"% " AND F$="6" AND X<20 THEN LET X=X+1
230 IF A$(X-1,Y)<>"% " AND F$="7" AND X>2 THEN LET X=X-1
240 IF N=X AND M=Y THEN LET S=S+100
250 IF N=X AND M=Y THEN PRINT AT 21,0;"% %Y%O%U% %M%A%D%E% %I%T% % %P%R%E%S%S% %A%N%Y% %K%E%Y% "
252 IF N=X AND M=Y THEN PRINT AT 14,12;"% %H%O%O%R%A%Y% "
255 IF N=X AND M=Y THEN PAUSE 4E4
257 IF N=X AND M=Y THEN GOTO 15
270 IF E<=0 THEN PRINT AT 21,0;"OUT OF TIME %G%A%M%E% %O%V%E%R"
271 IF E<=0 THEN PRINT AT 21,0;"%O%U%T% %O%F% %T%I%M%E GAME OVER"
272 IF E<=0 THEN GOTO 270
285 LET E=E-1
290 IF A$(X-1,Y)="% " AND A$(X+1,Y)="% " AND A$(X+1,Y)="% " AND A$(X,Y-1)="% " AND A$(X,Y+1)="% " THEN PRINT AT 21,0;"YOU ARE TRAPED %G%A%M%E% %O%V%E%R"
295 IF A$(X-1,Y)="% " AND A$(X+1,Y)="% " AND A$(X+1,Y)="% " AND A$(X,Y-1)="% " AND A$(X,Y+1)="% " THEN PRINT AT 21,0;"%Y%O%U% %A%R%E% %T%R%A%P%E%D GAME OVER"
296 IF A$(X-1,Y)="% " AND A$(X+1,Y)="% " AND A$(X+1,Y)="% " AND A$(X,Y-1)="% " AND A$(X,Y+1)="% " THEN GOTO 290
300 IF F$="" THEN GOTO 120
310 LET S=S+11
320 LET R=INT (RND*4)+1
330 GOSUB (R*10)+340
340 GOTO 120
350 LET A$(X-1,Y)="% "
355 PRINT AT X-1,Y;"% "
356 RETURN
360 LET A$(X+1,Y)="% "
365 PRINT AT X+1,Y;"% "
366 RETURN
370 LET A$(X,Y-1)="% "
375 PRINT AT X,Y-1;"% "
376 RETURN
380 LET A$(X,Y+1)="% "
385 PRINT AT X,Y+1;"% "
386 RETURN
\n1000 LET B$="%E"
\n1005 PRINT AT 2,11;"%E%A%R%T%H%Q%U%A%K%E"
\n1010 PRINT AT 5,0;"YOUR TRAPED IN A PYRAMID DURING"
\n1015 PRINT
\n1020 PRINT "AN EARTHQUAKE, YOU ARE THE ""+"""
\n1025 PRINT
\n1030 PRINT "AND YOU MOVE BY USING THE ARROW"
\n1035 PRINT
\n1040 PRINT "KEYS ""5,6,7,8"",YOUR AIM IS TO"
\n1045 PRINT
\n1050 PRINT "GET TO THE EXIT ""%E"" BEFORE "
\n1055 PRINT
\n1060 PRINT "YOUR TIME RUNS OUT OR TRAPED BY"
\n1065 PRINT
\n1070 PRINT "THE FALLING BLOCKS. GOOD LUCK"
\n1075 PRINT
\n1076 PRINT
\n1077 PRINT
\n1080 PRINT "PRESS ANY KEY TO START THE GAME"
\n1085 PAUSE 4E4
\n2000 RETURN
\n2010 CLEAR
\n2020 SAVE "1033%1"
\n2030 RUN
