IMD 1.16: 29/05/2007 18:27:58 FOGCPM.058 6/86 --FOGCPM058ASTRDS BASASTRDS CHR. ASTRDS DOC CHARLOADCOMCHARLOADDOCTCHARLOADINFOCCFONT CHR. !"#$EXMISPR DOC%&'()*+,-./01234EXMISPR DOC56789:;<=>?@ABCDEXMISPR DOC7 THEN SV=0 120 IF K$=LT$ THEN SV=SV-1:IF SV<0 THEN SV=7 130 IF MD=0 AND K$=" " THEN MD=D(SV):MISLOC=SHPLOC+D(SV):NT=1:PRINT CHR$(30):PRINT" " 140 IF D=0 THEN IF K$=FWD$ THEN D=D(SV):GOTO 200 150 IF K$=FWD$ THEN D=0 199 REM ********* MOVE SHIP ********* 200 SHPLOC=SHPLOC+D 205 IF MD THEN MD=D(SV) 210 IF SHPLOC>SCNND OR SHPLOC