BUGS 1987 ANDREW DAVIS .9000(#:H$="ANDREW DAVIS":HC=5000 0:0:5: /0,172:2;255,0 -0,9 ;1;" DEADLY ERRORS " $SC=0:LE=1:TO=0 L'''"CONTROLS..."''"Q ... UP A ... DOWN"'"O ... LEFT P ... RIGHT" 1''6;10 ,8;"TODAY'S HIGHEST:" !12 ,8;H$;"...";HC "E4;'''"PRESS '1' FOR INSTRUCTIONS"''"PRESS '2' TO START GAME" $U=1:I=1:Y1=20:Y2=1:X1=1:X2=5:IU=-1:UI=1:Y1,X1;5;"";Y2,X2;6;"" &(X1>30X1<1UI=UI*-1 'Y1,X1;1;5;"" (MY2,X2;1;"":Y2=Y2+U:X2=X2+I:Y2>20Y2<2U=U*-1 )&X2>30X2<1I=I*-1 *Y2,X2;6;1;"" +.37%+12 *(="2")+1463*(="1") .INITIALIZE VARIABLES 1 284:A=10 :B=15:C=10 :D=0 Zy6:0,39':255,0:0,136:255,0:0,20:255,0 \0,155:255,0:70F,40(:-70F,-30:110n,40(:-40(,-40(:150,40(:40(,-40(:190,40(:65A,-30 ^70F,135:-70F,30:110n,135:-40(,40(:150,135:40(,40(:190,135:65A,30 _>600X:400:0,11 ;2;"SCORE ";SC `RT=1(24-LE):5+*11 ,*31;3;1;"":T aMT=120:5+*11 ,*31;2;1;"":T c MAINFRAME d A,B;" " nTA=A+(="a"A<16)-(="q"A>5):B=B+(="p"B<31)-(="o"B>0) pp(A,B)=66BSC=SC+100d+(LE*10 ):TO=TO+1:350^:23307 [,80P:L=23300[ r(A,B)=67C700 xA,B;5;"" C,D;" " +CA(C-1,D)66BC=C-1 +D>B(C,D-1)66BD=D-1 +DHCHC=SC:750  5 :'7;"CONGRATULATIONS"'''6;"YOU HAVE ACHIEVED"'''5;"THE HIGHEST SCORE"'''4;"PLEASE ENTER YOUR NAME"'''3;"BETWEEN 1-20 LETTERS ONLY." %H$:H$>20H$=H$(20)  5 xINSTRUCTIONS ܽ:5:0,7;"INSTRUCTIONS":'"DEEP INSIDE THE CIRCUITS OF A COMPUTER,A DATA PULSE GLEEFULLY GLIDES ACROSS THE CONTROL LINES ON ITS WAY TO AN ADDRESS DESTINATION." {"BUT WAIT!,OH NO - A BUG - , DUE TO A PROGRAMMING ERROR,THOUSANDSOF BUGS HAVE BEEN LET LOOSE AND ARE NOW ON THE RAMPAGE." "YOUR ONLY HOPE OF SURVIVAL IS TOCOLLECT ALL THE REGISTERS THAT THE PROGRAMMER HAS USED (12 IN ALL) BEFORE THE BUGS DESTROY YOU" "THE BUGS ARE FAST,BUT WILL ACT LIKE HOMING MISSILES AND FOLLOW YOUR EVERY MOVE SO YOU MUST TRY AND GUIDE THEM INTO A DEADLY INTERUPT FLAG BEFORE THEY REACH YOU." #21,7;"PRESS ANY KEY" =""1550 #:0,6;"INSTRUCTIONS" "O'"IF YOU GUIDE A BUG INTO AN INTERUPT FLAG,IT WILL BE DESTROYED." ,("YOU WILL ALSO DIE IF YOU TOUCH AFLAG" 69"EACH LEVEL WILL GET SLIGHTLY HARDER THAN THE LAST." @/'"CHARACTERS..."''5;" ... DATA PULSE" J#'6;"";5;" ... BUG" T('2;"";5;" ... REGISTER" ^-'3;"";5;" ... INTERUPT FLAG" h#21,6;"PRESS ANY KEY" r=""1650r | 5 @GRAPHICS AND M/C SOUND #( A=""""+7:S:A,S:A #2M60<,90Z,165,219,219,165,90Z,60< #