MV - CPCEMU Disk-File Disk-Info (LIBDSK)(Track-Info  R Track-Info  R INFERNO 3DISK  PLUS3DOS>}$23613=\,(23730\)-5 OJOHN MCDONALD 1983:   (p)1983 Anco Software.   hs=0  ph=0  t=10  6000p &6:0:1:6: sc=0:9000(#   x(5)  n=0 ( y(5) 2%q=15:y(q)=21:q < o=2 A nom=0 F c=0 G v(5) H72H+ph+1 I,10 ,15,9 ,12 ,7 J.16,12 ,16,14,13 K.17,13 ,15,14,16 L.17,15,16,15,14 O!q=15:a:v(q)=a:q P z=30 U a=1 _'0,0;0;"SCORE:";sc `+0,15;0;"HI-SCORE:";hs a1,1;"" in=0c=13,2;2;"";2,2;" ":sc=sc+10 :.2~L,30:0,0;2;"SCORE:";sc:3,2;" ":c=0:nom=nom+1:z>10 z=z-1:nom=t7500L nY="1"a>5a=a-5:n=n-1:f=a+5a-1:1,f;" ":f xY="2"a<26a=a+5:n=n+1:f=a-5a:1,f-1;" ":f 2000 3000 5n1c=0x(n)=1Ʀ="0"4000  100d  k=(*z) $23613=\,(23730\)-5 Ik=1v(1)-1,7;2;"":x(1)=1 Jk=2v(2)-1,12 ;2;"":x(2)=1 Jk=3v(3)-1,17;2;"":x(3)=1 Jk=4v(4)-1,22;2;"":x(4)=1 Jk=5v(5)-1,27;2;"":x(5)=1  ;3000 +ph:10 ,15,9 ,12 ,7 .16,12 ,16,14,13 .17,13 ,15,14,16 .17,15,16,15,14 q=15 $23613=\,(23730\)-5 "x(q)=1y(q)=y(q)-.1}L t (y(q))=t5000 Vy(q),(q*5);2;"";2;5;y(q)-1,(q*5);"" q  o,a+1;1;"" sc=sc+502 '0,0;0;"SCORE:";sc 1,a;0;"" ((o+1,a+1)" "4200h Track-Info  R 2000:3000  o=o+1  4000 hnc=1:f=o+12-1:f,a+1;2;"":.05|L,f*2:f,a+1;" ":f m f=21 rKf,n*5;5;"":f=f-1:(f,n*5)=" "4300 | 4210r  y(n)=21:x(n)=0 c=1:o=2  100d _t-1,(q*5)+2;2;"":n=5020-.25~:.001wn,n:n: g5,0;2;1;"YOU FAILED TO SAVE A MAN FROM THE FIRE " 1;1;7;10 ,0;" " n=12:.5,0:1,7:10 :.5,0:1,7:.25~,0:.25~,4:.5,7 ~.25~,0:.25~,4:.25~,7:.25~,0:.25~,4:.5,7:20:n sc>hshs=sc G::" GAME OVER "''"DO YOU WANT ANOTHER GO?(Y/N)" ="Y"Ŧ="y"4 ="N"Ŧ="n"  5025 p&0:0:1:7: q$23613=\,(23730\)-5 u6;2;" " z('"BY JOHN MCDONALD"'"INFERNO IS A GAME OF SPEED AND"'"SKILL.YOU PILOT A TWIN ROTOR"'"HELICOPTER.YOUR JOB IS TO "'"RESCUE MEN FROM BURNING "'"BUILDINGS WITH YOUR WINCH "'"BEFORE THE FIRE REACHES THEM."'"THEN YOU MUST FERRY THEM BACK TO"'"THE SAFE BUILDING BEFORE YOU"'"CAN PICK UP ANOTHER MAN" ]"THE GAME SPEEDS UP AS YOU SAVE"'"MORE MEN.KEYS""1"" AND ""2"""'"MOVE YOU LEFT AND RIGHT."' "KEY ""0"" DROPS YOUR WINCH"';1;" SAFE FLYING!! "';1;7;5;" PRESS ANY KEY TO START " H=""1:6:2:3:4:5:6080 Z L>ph=ph+1:n=2040(.5:.001wn,n:n M$23613=\,(23730\)-5  $t=t+10 :9500%:15 #(Q255,129,129,129,129,129,129,255 #)$23613=\,(23730\)-5 #211111000,00100000 ,01110000p,11111000,11111111,11111111,01111111,00111111? #<00011111,00000100,00001110,00011111,11111111,11111111,11111110,11111100 #F00011100,00011100,00001000,00111110>,00111110>,001101106,001101106,001110111w #PA8,8,8,8,8,8,8,8 #ZI0,0,0,0,255,195,195,255 #d{255,10011001,10011001,10011101,10011101,10011101,10111101,10111111 #nU0,0,0,0,11000010,11000111,255,255 # 9000(# #$a=063?:b:"a"+a,b:a % print city %ph=4ph=0 %!;9505!%+ph:10 ,15,9 ,12 ,7 %".16,12 ,16,14,13 %#.17,13 ,15,14,16 %$.17,15,16,15,14 %&a=5295 %0x %:b=21x-1 %Db,a;5;"" %Nb %Xa %bEb=214-1:b,0;1;7;"":b ' t&%b%x ooczk x33*ffb  k=5v(5)-1,27;2;"":x(5)Track-Info  R PLUS3DOS% "inferno" Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''