!-----------------------------------------------------------------------------
! MODIFIED [01/28/90] by Grant Thomson-T F Business Computers, Toronto, Canada
!
! Replaced Line numbers with labels (mostly meaningful ones)
! Added Fuel gauge, Kill gauge.
! Added High Score Tracker.
! Number of Enemies and Fuel proportional to skill rating.
! A few cosmetic changes.
! Program is now both AlphaBASE Pre-compiler compatible as well as pure
! AlphaBASIC compatible to encourage enhancements (other scenarios?)
! REMEMBER TO LOAD INKEY.SBR INTO MEMORY as suggested by Marc (see below)
!-----------------------------------------------------------------------------
! This program was originally written in MICROSOFT BASIC for CP/M
! and was first distributed by the HEATH USERS GROUP (HUG). I found it
! titled: OSZ-JEDI.BAS (FOR THE OSBORNE-1) and modified it to run on my
! ALPHA MICRO AM1000. The line #'s are choppy due to my editing, but
! have remained largely unchanged due to the number of line # calls.
!
! There may still be a bug or two - if you find 'em, fix 'em!
!
! Makes use of TCRT calls and GRAPHICS CHARACTERS FOR AM-62 TERMINAL
! Makes use of INKEY.SBR (from AMUS) (Thanx, Mr. Jarboe!)
!
! I suggest you copy the following into a .CMD file to load and start the
! program. It runs a great deal faster with INKEY.SBR resident in memory.
!
! DEL *
! LOAD INKEY.SBR
! :R
! RUN JEDI
!
! ENJOY!
!
! Marc McCauley MARY/AM 12/30/85
!
MAP1 A$,S,2
MAP1 B$,S,1
MAP1 E$,S,1,CHR$(27)
MAP1 ED,F ! enemies destroyed - mod line 3280 for more
MAP1 CD,F
MAP1 CT,F ! timer - mod line 2910 for longer game
MAP1 KM,F
MAP1 BR,F
MAP1 EV,F
MAP1 DG,F
MAP1 FQ,F
MAP1 FX,F
MAP1 FY,F
MAP1 FZ,F
MAP1 X,F
MAP1 Y,F
MAP1 A9,F
MAP1 FL$,S,1
MAP1 DM$,S,1
MAP1 H'ED(7),B,3 ! History of most enemies destroyed
MAP1 H'CT(7),B,3 ! History of Fuel remaining for high scorer
MAP1 HU$(7),S,10 ! High Scorers Name
MAP1 SAV$,S,10 ! High Scorers Name For Input
RANDOMIZE
GOSUB STAR'WARS
PRINT ,"A long time ago in a galaxy far, far away, a great":GOSUB DELAY
PRINT ,"adventure took place. It is a period of civil war.":GOSUB DELAY
PRINT ,"Rebel space ships striking from a hidden base have":GOSUB DELAY
PRINT ,"won their first victory against the evil galactic ":GOSUB DELAY
PRINT ,"empire. During the battle, rebel spies managed to":GOSUB DELAY
PRINT ,"steal secret plans to the empire's ultimate weapon":GOSUB DELAY
PRINT ,"The Death Star, an armoured space station with the":GOSUB DELAY
PRINT ,"fire power to destroy an entire planet. ":GOSUB DELAY:PRINT
PRINT ," Your mission as one of the rebel pilots is to":GOSUB DELAY
PRINT ,"attack and destroy the `Death Star'. While making":GOSUB DELAY
PRINT ,"your attack you have encountered `Darth Vader' and":GOSUB DELAY
PRINT ,"his Imperial storm troopers in their tie fighters.":GOSUB DELAY
PRINT ,"You must destroy them before they can destroy you.":PRINT
PRINT ," GOOD LUCK, AND MAY THE `FORCE' BE WITH YOU "
FOR I=1 TO 11000:NEXT I
PRINT TAB(-1,0)
!
! INSTRUCTION ROUTINE ***
!
!Old PRINT E$;"=*6";"DO YOU NEED:":PRINT
PRINT TAB(10,30);"F - FULL INSTRUCTIONS"
PRINT TAB(11,30);"B - BRIEF INSTRUCTIONS"
PRINT TAB(12,30);"N - NO INSTRUCTIONS"
GET'INSTR'TYP:
! INPUT A$:IF A$=" " THEN A$="N"
?tab(-1,28);
?TAB(8,26);"CHOOSE ONE OF THE FOLLOWING: N";TAB(-1,5);
INPUT LINE "",A$
if A$="" THEN A$="N" ! Default
IF UCS(A$)="F" THEN GOTO FULL'INSTR
IF UCS(A$)="B" THEN GOTO BRIEF'INSTR
IF UCS(A$)<>"N" THEN GOTO GET'INSTR'TYP
SKILL'LEVEL:
PRINT TAB(19,20);"PLEASE ENTER A SKILL RATING FROM 1 TO 9:"
! PRINT
PRINT TAB(19,62);"1";TAB(-1,5);
INPUT LINE "",A$
IF A$="" THEN A$="1" ! Default=1
?tab(-1,29); ! Turn cursor OFF
IF A$<"1" OR A$>"9" THEN GOTO USER'SCREW'UP
A$=A$+"0":A9=INT(VAL(A$)):A9=A9-12336:GOTO DRAW'GRID
USER'SCREW'UP:
PRINT
PRINT TAB(26);"EVIDENTLY YOU NEED INSTRUCTIONS!"
FOR I=1 TO 3000:NEXT I:PRINT
FULL'INSTR:
PRINT TAB(-1,0)
PRINT "You have been equipped with an X-wing As in a real DOG-FIGHT you must lead"
PRINT "Fighter by the Rebel Alliance. Your the target when firing your laser. If"
PRINT "fighter is computer controlled by the you wait until he is exactly centered"
PRINT "NUMERIC KEYPAD on your keyboard. The to fire, then you will miss him. You"
PRINT "display you will see is your ON-BOARD may continue to fire at him, but when"
PRINT "SCANNER. In order to kill an enemy you are firing your weapon, your con-"
PRINT "fighter he must receive a DIRECT HIT trol of direction is not as good as"
PRINT "OR MULTIPLE DAMAGING HITS. He will when you aren't Firing and the Target"
PRINT "receive damage if hit when he is +/- may fly out of your sights."
PRINT "10 DEGREES IN ELEVATION and he is +/-"
PRINT "9 DEGREES IN BEARING. In addition to In order to CENTER your target on the"
PRINT "this, he MUST BE WITHIN 7500 KMS. Scanner, you must fly towards him."
PRINT " To do this you PRESS THE KEY ON THE"
PRINT "WARNING: The `Tie' Fighter has the NUMERIC KEY PAD THAT IS IN HIS DIREC-"
PRINT "capability to pop in and out of hyp- TION. ie: IF HE IS IN THE UPPER RIGHT"
PRINT "erspace. Therefore he may disappear QUADRANT YOU WOULD PRESS KEY 9 TO FLY"
PRINT "right from before your sights. Also, TOWARDS HIM. IF HE IS BELOW, PRESS 2."
PRINT "you are given a limited amount of NOTE: At higher skill levels, you"
PRINT "fuel. Your gauge will indicate fuel will be thrust into a more intense"
PRINT "remaining. battle (more Tie Fighters to destroy)"
PRINT " ":PRINT
INPUT " MAY THE FORCE BE WITH YOU Press RETURN to Continue ",NADA
BRIEF'INSTR:
PRINT TAB(-1,0)
PRINT ," UP & UP UP &"
PRINT TAB(17);" LEFT";TAB(-1,23);" rzzzzzs rzzzzzs rzzzzzs ";TAB(-1,24);"RIGHT"
PRINT TAB(17);TAB(-1,23);" v v v v v v"
PRINT TAB(17);" qzzzzzu qzzzzzu qzzzzzu"
PRINT ," rzzzzzs rzzzzzs rzzzzzs";TAB(-1,24)
PRINT ," LEFT ";TAB(-1,23);"v v v v v v";TAB(-1,24);" RIGHT"
PRINT TAB(-1,23)," qzzzzzu qzzzzzu qzzzzzu"
PRINT ," rzzzzzs rzzzzzs rzzzzzs"
PRINT TAB(17);" v v v v v v"
PRINT TAB(-1,24)," DOWN";TAB(-1,23);" qzzzzzu qzzzzzu qzzzzzu ";TAB(-1,24);"DOWN"
PRINT ," & LEFT";TAB(-1,23);" rzzzzzs";TAB(-1,24);" DOWN & RIGHT"
PRINT TAB(-1,23);" v v"
PRINT " qzzzzzu";TAB(-1,24)
PRINT ," FIRE"
PRINT TAB(4,33);"7";TAB(4,41);"8";TAB(4,49);"9"
PRINT TAB(7,33);"4";TAB(7,41);"5";TAB(7,49);"6"
PRINT TAB(10,33);"1";TAB(10,41);"2";TAB(10,49);"3";TAB(13,33);"0"
PRINT TAB(17,20);"<<PRESS '5' TO STOP ANY TURNS OR CLIMBS>>":PRINT
PRINT:PRINT:PRINT
!!! PRINT TAB(20);"PLEASE ENTER A SKILL RATING FROM 1 TO 9:":PRINT
PRINT TAB(27);"NOVICE = 1 EXPERT = 9":PRINT
PRINT "AFTER SCANNER CONSTRUCTION IS COMPLETE, PRESS ANY NUMBER KEY TO START."
?tab(-1,28); ! Turn cursor ON
GOTO SKILL'LEVEL
!GET'INSTR'TYP2:
! INPUT "SKILL LEVEL > ",A$:IF A$<"1" OR A$>"9" THEN GOTO GET'INSTR'TYP2
! A$=A$+"0":A9=INT(VAL(A$)):A9=A9-12336
DRAW'GRID: ! GRID CONSTRUCTION ROUTINE ***
ED=0:CT=0
PRINT TAB(-1,0);TAB(-1,29);TAB(-1,11);
PRINT TAB(1,2);"RANGE: KM ELEVATION: DEG BEARING: DEG FUEL: KILLS:"
PRINT
PRINT TAB(8);"-90 -75 -60 -45 -30 -15 0 +15 +30 +45 +60 +75 +90"
PRINT TAB(5);"+90 ";TAB(-1,23);"r0000b0000b0000b0000b0000b0000b0000b0000b0000b0000b0000b0000s";TAB(-1,24);" +90"
PRINT TAB(9);TAB(-1,23);"v";SPACE(59);"v":PRINT TAB(9);"v";SPACE(59);"v";TAB(-1,24)
PRINT TAB(5);"+60 ";TAB(-1,23);"x";SPACE(59);"x";TAB(-1,24);" +60"
PRINT TAB(9);TAB(-1,23);"v";SPACE(59);"v":PRINT TAB(9);"v";SPACE(59);"v";TAB(-1,24)
PRINT TAB(5);"+30 ";TAB(-1,23);"x";SPACE(59);"x";TAB(-1,24);" +30"
PRINT TAB(9);TAB(-1,23);"v";SPACE(59);"v":PRINT TAB(9);"v";SPACE(59);"v";TAB(-1,24)
PRINT TAB(6);"0 ";TAB(-1,23);" x";SPACE(59);"x ";TAB(-1,24);" 0"
PRINT TAB(9);TAB(-1,23);"v";SPACE(59);"v":PRINT TAB(9);"v";SPACE(59);"v";TAB(-1,24)
PRINT TAB(5);"-30 ";TAB(-1,23);"x";SPACE(59);"x";TAB(-1,24);" -30"
PRINT TAB(9);TAB(-1,23);"v";SPACE(59);"v":PRINT TAB(9);"v";SPACE(59);"v";TAB(-1,24)
PRINT TAB(5);"-60 ";TAB(-1,23);"x";SPACE(59);"x";TAB(-1,24);" -60"
PRINT TAB(9);TAB(-1,23);"v";SPACE(59);"v":PRINT TAB(9);"v";SPACE(59);"v";TAB(-1,24)
PRINT TAB(5);"-90 ";TAB(-1,23);"q]]]]a]]]]a]]]]a]]]]a]]]]a]]]]a]]]]a]]]]a]]]]a]]]]a]]]]a]]]]u";TAB(-1,24);" -90"
PRINT TAB(8);"-90 -75 -60 -45 -30 -15 0 +15 +30 +45 +60 +75 +90";TAB(-1,12)
!
! *** INPUT CONTROL SCAN ROUTINE ***
!
CD=200+(A$[1,1]*10)+INT(200+RND(1)):FL$="5" !2910
!Old CD=200+INT(200+RND(1)):FL$="5" !2910
IN'LOOP:
IF CT=CD THEN GOTO FAILED ELSE CT=CT+1 : CALL DSP'TIME
IF FL$="0" THEN GOTO FIRE
XCALL INKEY,B$
IF B$>="0" AND B$<="9" THEN FL$=B$ ELSE IF B$<>"" THEN DM$=B$
IN'LOOP2:
XCALL INKEY,B$
IF B$>"0" AND B$<="9" THEN FL$=B$ ELSE IF B$<>"" THEN DM$=B$
GOSUB POS'UPDATE
PRINT E$;"=&3+";E$;"=23+";E$;"=)=+";E$;"=/=+";E$;"=,G+";E$;"=)Q+";E$;"=/Q+";E$;"=&[+";E$;"=2[+";
FOR I=1 TO 100:NEXT I
GOTO IN'LOOP
FIRE: ! *** FIRE WEAPON ROUTINE ***
FOR I=8 TO 1 STEP -1
PRINT E$;"=";CHR$(44+I);CHR$(71-I);TAB(-1,23);"a";
PRINT E$;"=";CHR$(44+I);CHR$(71+I);"a";TAB(-1,24);
IF I>6 THEN GOTO NXTI'1
PRINT E$;"=";CHR$(46+I);CHR$(69-I);" ";
PRINT E$;"=";CHR$(46+I);CHR$(73+I);" ";
NXTI'1:
NEXT I
PRINT E$;"=.E ";E$;"=.I ";E$;"=-F ";E$;"=-H ";
IF FX<>44 OR FY<>70 THEN GOTO L'3290
IF KM>5000 THEN GOTO IN'LOOP2
DESTROYED:
PRINT TAB(25,31);TAB(-1,32);" ENEMY DESTROYED ";TAB(-1,33);:DG=0
ED=ED+1
PRINT E$;"=";CHR$(FX-1);CHR$(FY);"<|>"
PRINT E$;"=";CHR$(FX);CHR$(FY-1);" "
PRINT E$;"=";CHR$(FX+1);CHR$(FY);">|<"
FOR I=1 TO 50:PRINT CHR$(7);:NEXT I
PRINT E$;"=";CHR$(FX);CHR$(FY);"***"
FOR I=1 TO 50:NEXT I
PRINT E$;"=";CHR$(FX-1);CHR$(FY);" "
PRINT E$;"=";CHR$(FX);CHR$(FY-1);"***"
PRINT E$;"=";CHR$(FX+1);CHR$(FY);" "
FOR I=1 TO 50:NEXT I
PRINT E$;"=";CHR$(FX);CHR$(FY);" "
FQ=0:IF ED=3*A$[1,1] THEN GOTO MISSION'DONE ELSE GOSUB DSP'KILLS : GOTO IN'LOOP2 !3280
L'3290:
IF FX<43 OR FX>45 THEN GOTO L'3410
IF FY<68 OR FY>72 THEN GOTO L'3410
DG=DG+1:IF DG=3 THEN GOTO DESTROYED
PRINT E$;"=";CHR$(FX-1);CHR$(FY);"[=]"
PRINT E$;"=";CHR$(FX);CHR$(FY-1);"I"
PRINT E$;"=";CHR$(FX);CHR$(FY+3);"I"
PRINT E$;"=";CHR$(FX+1);CHR$(FY);"]*["
FOR I=1 TO 50:NEXT I
PRINT E$;"=";CHR$(FX-1);CHR$(FY);" "
PRINT E$;"=";CHR$(FX);CHR$(FY-1);" "
PRINT E$;"=";CHR$(FX);CHR$(FY+3);" "
PRINT E$;"=";CHR$(FX+1);CHR$(FY);" ":GOTO IN'LOOP2
L'3410:
PRINT E$;"=8 ";E$;"T";
GOTO IN'LOOP2
POS'UPDATE: ! *** FIGHTER POSITION UPDATE ***
IF FQ=1 THEN GOTO POS'1 ELSE FQ=1
POS'LOOP'1:
LET FX=INT(100*RND(1))
IF FX<36 OR FX>52 THEN GOTO POS'LOOP'1
POS'LOOP'2:
LET FY=INT(200*RND(1))
IF FY<44 OR FY>97 THEN GOTO POS'LOOP'2
LET KM=INT(10000*RND(1))
FZ=INT(16*RND(1))
POS'1:
IF INT(100*RND(1))>6 THEN GOTO POS'2
FZ=INT(16*RND(1))
POS'2:
IF INT(10*RND(1))>A9 X=FX:Y=FY:GOTO POS'3
IF FZ=0 THEN X=FX-1:Y=FY+1
IF FZ=1 THEN X=FX:Y=FY+1
IF FZ=2 THEN X=FX+1:Y=FY+1
IF FZ=3 THEN X=FX+1:Y=FY
IF FZ=4 THEN X=FX+1:Y=FY-1
IF FZ=5 THEN X=FX:Y=FY-1
IF FZ=6 THEN X=FX-1:Y=FY-1
IF FZ=7 THEN X=FX-1:Y=FY
IF FZ=8 THEN X=FX-1:Y=FY+2
IF FZ=9 THEN X=FX-1:Y=FY+3
IF FZ=10 THEN X=FX+1:Y=FY+3
IF FZ=11 THEN X=FX+1:Y=FY+2
IF FZ=12 THEN X=FX+1:Y=FY-2
IF FZ=13 THEN X=FX+1:Y=FY-3
IF FZ=14 THEN X=FX-1:Y=FY-3
IF FZ=15 THEN X=FX-1:Y=FY-2
POS'3:
IF FL$="1" THEN X=X-1:Y=Y+1
IF FL$="2" THEN X=X-2:Y=Y
IF FL$="3" THEN X=X-1:Y=Y-1
IF FL$="4" THEN X=X:Y=Y+2
IF FL$="6" THEN X=X:Y=Y-2
IF FL$="7" THEN X=X+1:Y=Y+1
IF FL$="8" THEN X=X+2:Y=Y
IF FL$="9" THEN X=X+1:Y=Y-1
IF X>39 AND X<50 AND Y>55 AND Y<87 THEN GOTO POS'4
IF SGN(KM)=+1 THEN KM=KM+INT(200*RND(1))
IF SGN(KM)=-1 THEN KM=KM-INT(200*RND(1))
IF KM<10000 THEN GOTO POS'5 ELSE GOTO POS'6
POS'4:
IF SGN(KM)=+1 THEN KM=KM-INT(200*RND(1))
IF SGN(KM)=-1 THEN KM=KM+INT(200*RND(1))
POS'5:
IF X<36 OR X>52 OR Y<42 OR Y>98 THEN GOTO POS'6
IF X=FX AND Y=FY THEN RETURN
PRINT E$;"=";CHR$(FX);CHR$(FY);" ":FX=X:FY=Y
PRINT E$;"=";CHR$(FX);CHR$(FY);TAB(-1,23);"4/9";TAB(-1,24)
PRINT TAB(1,8);KM
EV=10*(44-FX):PRINT TAB(1,31);EV
BR=3*(FY-70):PRINT TAB(1,51);BR:RETURN
POS'6:
PRINT E$;"=";CHR$(FX);CHR$(FY);" ";
FQ=0:RETURN
PRINT E$;"=8 ";E$;"T";
RETURN
MISSION'DONE:
FOR I=1 TO 500:NEXT I:PRINT E$;"= ";TAB(-1,0)
PRINT TAB(-1,12);E$;"=( ";
PRINT TAB(-1,0)
PRINT TAB(2,1);
PRINT TAB(2,20);"CONGRATULATIONS ON A JOB WELL DONE. YOU HAVE"
PRINT TAB(3,20);"DESTROYED DARTH VADER AND HIS STORM TROOPERS,"
PRINT TAB(4,20);"AND SAVED THE REBELLION.":GOTO END'YN
FAILED:
PRINT TAB(-1,0)
PRINT TAB(2,20);"YOU HAVE ONLY DESTROYED";ED;"TIE FIGHTERS AND"
PRINT TAB(3,20);"YOU LET DARTH VADER GET AWAY. OH WELL, I GUESS"
PRINT TAB(4,20);"WE WANT HIM AROUND FOR THE SEQUEL ANYWAY!"
END'YN:
CALL HIGH'SCORE
PRINT ""
PRINT TAB(-1,28);TAB(17,20);"DO YOU WANT TO PLAY AGAIN (Y/N): Y";TAB(-1,5);
INPUT LINE "",A$
if A$="" THEN A$="Y" ! Default
IF UCS(A$)="Y" THEN B$=" ":GOTO SKILL'LEVEL
PRINT TAB(-1,0);TAB(-1,28)
PRINT TAB(5,5);"FIGHTING EVIL CAN BE TIRING...COME BACK WHEN YOU'RE READY FOR";TAB(-1,21);"ACTION !";TAB(-1,22)
END
DELAY:
FOR I=1 TO 1000:NEXT I:PRINT
RETURN
DSP'TIME:
?tab(1,66);CD-CT;
RETURN
DSP'KILLS:
?tab(1,77);ED;
RETURN
HIGH'SCORE:
LOOKUP "JEDI.SCO",HSTRY
! If NO history, then New high score
IF HSTRY=0 THEN CALL CREATE'HIGH
OPEN #1,"JEDI.SCO",INPUT
H'FLG=0 ! High scored attained? 0=NO 1=LEVEL OF HIGH
FOR I=1 to 7 ! See if high score attained
INPUT #1,HU$(I),H'ED(I),H'CT(I)
IF H'FLG > 0 THEN GOTO NXTI'2
IF ED > H'ED(I) THEN H'FLG=I ! New high by no. of kills
IF ED=H'ED(I) AND CD-CT > H'CT(I) THEN &
H'FLG=I ! New high by kills and fuel remaining
NXTI'2:
NEXT I
CLOSE #1
IF H'FLG > 0 GOTO NEW'HIGH
DSP'HIGH:
? TAB(6,1);TAB(-1,9);TAB(6,30);"HIGH SCORES: "
? TAB(8,1);TAB(-1,9);TAB(8,22);"NAME: KILLS: FUEL REMAINING:"
FOR I=1 TO 7
?TAB(20);HU$(I);TAB(32);H'ED(I) USING "###";TAB(45);H'CT(I)
NEXT I
RETURN
NEW'HIGH:
? TAB(6,20);"YOU ARE A NEW REBEL LEADER!"
?tab(-1,28); ! Turn Cursor OFF
? TAB(8,20)"YOUR NAME (10 DIGITS MAX): ";
INPUT LINE "",SAV'HU$
FOR I=7 to 2 STEP -1 ! Shuffles High Scores to insert new
IF I > H'FLG THEN &
HU$(I)=HU$(I-1) : &
H'ED(I)=H'ED(I-1) : &
H'CT(I)=H'CT(I-1)
NEXT I
HU$(H'FLG)=SAV'HU$ : H'ED(H'FLG)=ED : H'CT(H'FLG)=CD-CT ! Insert new
OPEN #1,"JEDI.SCO",OUTPUT
FOR I=1 TO 7
? #1,HU$(I);",";H'ED(I);",";H'CT(I)
NEXT I
CLOSE #1
?tab(-1,29); ! Turn Cursor ON
GOTO DSP'HIGH
CREATE'HIGH: ! Setup system generated high scores
OPEN #1,"JEDI.SCO",OUTPUT
FOR I=1 TO 7
? #1,"SKYWALK, 3 , 50 "
HU$(I)="SKYWALK"
H'ED(I)=3
H'CT(I)=50
NEXT I
CLOSE #1
RETURN
STAR'WARS:
?TAB(-1,36); ! Turn Screen OFF
PRINT TAB(-1,0)
PRINT ,TAB(2,14);TAB(-1,32);SPACE(8);TAB(-1,33);
PRINT ,TAB(2,25);TAB(-1,32);SPACE(10);TAB(-1,33);
PRINT ,TAB(2,39);TAB(-1,32);SPACE(6);TAB(-1,33);
PRINT ,TAB(2,49);TAB(-1,32);SPACE(9);TAB(-1,33);
PRINT ,TAB(3,13);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(3,21);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(3,29);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(3,38);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(3,44);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(3,49);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(3,57);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(4,13);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(4,29);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(4,37);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(4,45);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(4,49);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(4,57);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(5,14);TAB(-1,32);SPACE(8);TAB(-1,33);
PRINT ,TAB(5,29);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(5,37);TAB(-1,32);SPACE(10);TAB(-1,33);
PRINT ,TAB(5,49);TAB(-1,32);SPACE(9);TAB(-1,33);
PRINT ,TAB(6,21);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(6,29);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(6,37);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(6,45);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(6,49);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(6,55);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(7,13);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(7,21);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(7,29);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(7,37);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(7,45);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(7,49);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(7,56);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(8,14);TAB(-1,32);SPACE(8);TAB(-1,33);
PRINT ,TAB(8,29);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(8,37);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(8,45);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(8,49);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(8,57);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(10,13);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(10,21);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(10,27);TAB(-1,32);SPACE(6);TAB(-1,33);
PRINT ,TAB(10,37);TAB(-1,32);SPACE(9);TAB(-1,33);
PRINT ,TAB(10,50);TAB(-1,32);SPACE(8);TAB(-1,33);
PRINT ,TAB(11,13);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(11,21);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(11,26);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(11,32);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(11,37);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(11,45);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(11,49);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(11,57);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(12,13);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(12,21);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(12,25);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(12,33);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(12,37);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(12,45);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(12,49);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(13,13);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(13,17);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(13,21);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(13,25);TAB(-1,32);SPACE(10);TAB(-1,33);
PRINT ,TAB(13,37);TAB(-1,32);SPACE(9);TAB(-1,33);
PRINT ,TAB(13,50);TAB(-1,32);SPACE(8);TAB(-1,33);
PRINT ,TAB(14,13);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(14,17);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(14,21);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(14,25);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(14,33);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(14,37);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(14,44);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(14,57);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(15,14);TAB(-1,32);SPACE(8);TAB(-1,33);
PRINT ,TAB(15,25);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(15,33);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(15,37);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(15,45);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(15,49);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(15,57);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(16,15);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(16,19);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(16,25);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(16,33);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(16,37);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(16,46);TAB(-1,32);SPACE(2);TAB(-1,33);
PRINT ,TAB(16,50);TAB(-1,32);SPACE(8);TAB(-1,33);
PRINT
?TAB(-1,37); ! Turn Screen ON
GOSUB DELAY
RETURN
