REM"*************************‡"
REM"*                       *‡"
REM"* ƒ  TREKKER 'PROG2'   *‡"
REM"*                       *‡"
REM"*‚ (c) Alex Whittaker  *‡"
REM"*                       *‡"
REM"*†       1 9 8 3       *‡"
REM"*                       *‡"
REM"* …   Consultants :    *‡"
REM"*                       *‡"
REM"*‡    MG & RA Darby    *‡"
REM"*                       *‡"
REM"*************************‡"
?&FE62=15:?&FE60=0:?&FE6B=&10:?&FE6A=0:?&FE68=0:ON ERROR ?&FE60=0:GOTO 30000
MODE7:*FX4
*K.10 O.|MRUN|M
ON ERROR GOTO 30000
PROCdirect
PROCinst
 *FX18
 *FX21,0 
*KEY4 6|M
*KEY5 2|M
*KEY3 4|M
*KEY6 14|M
*KEY2 7|M
*KEY7 HORN|M
*KEY8 0|M
*KEY9 0|M
*KEY1 15|M
*KEY10 O.|MRUN|M
MODE 1:PROCdisp
INPUT">"I$
I$=LEFT$(I$,2)
IF I$="HO"PROChorn:GOTO 220:ELSE IF I$="CH"GOTO 30000:ELSE ?&FE60=VAL(I$):PRINT"?&FE60=";I$
GOTO 220
PRINT:PRINT CHR$(130);"  TRY THEM NOW - YOU CAN DO NO HARM."
PRINT:PRINT CHR$(130);"  PRESS 'f0' AND PLAY TAPE TO LEAVE"
PRINT:PRINT CHR$(130);"  THIS PROGRAM AND LOAD THE NEXT ONE.":PRINT
DEF PROCdisp:VDU23,224,0,0,0,0,255,255,255,255,23,225,255,255,255,255,0,0,0,0,:FOR I%=0TO9:COLOUR129:COLOUR3:T%=I%*4+1:PRINT TAB(T%,7)"f ";STR$(I%);:VDU11,8,8,8,32,32,32,10,10,8,8,8,32,32,32:NEXT
VDU19,2,4,0,0,0:COLOUR130:COLOUR3:N$="   F     B<<O>>HSSASTRTSOTTCPUWUPROOKIRARINPP NNRNN      D     "
FOR Y%=0TO6:FOR X%=1TO9:PRINT TAB(X%*4+1,Y%+10)" ";MID$(N$,9*Y%+X%,1);" ":NEXT:NEXT:GCOL0,1:MOVE32,0:DRAW1279,0:DRAW1279,1023:DRAW32,1023:DRAW32,0
COLOUR3:COLOUR130:PRINT TAB(12,1)"                 ";TAB(12,2)"   DIRECT MODE   ";TAB(12,3)"                 "
COLOUR3:COLOUR128:PRINT TAB(2,20)"TRY THEM NOW - YOU CAN DO NO HARM!";TAB(2,23)"PRESS ESCAPE TO LEAVE THIS PROGRAM"
PRINT TAB(2,26)"AND LOAD THE NEXT ONE."
VDU28,14,30,25,29:ENDPROC
DEF PROCdirect
CLS
F=6:VDU23;8202;0;0;0;
A$="DIRECT CONTROL MODE   "
PRINT TAB(F,10);CHR$132;CHR$157;CHR$135;CHR$141;A$;CHR$156
PRINT TAB(F,11);CHR$132;CHR$157;CHR$135;CHR$141;A$;CHR$156
FOR L=0TO5000:NEXT
ENDPROC
DEF PROCinst
CLS
FOR L=0TO24
PRINT TAB(0,L);CHR$132;CHR$157;
NEXT
A$="In this mode you may control Trekker"
B$="     DIRECTLY from the keyboard."
P=1
PRINT TAB(P,10);CHR$141;CHR$135;A$
PRINT TAB(P,11);CHR$141;CHR$135;A$
P=1
PRINT TAB(P,13);CHR$141;CHR$135;B$
PRINT TAB(P,14);CHR$141;CHR$135;B$
FOR L=0TO10000:NEXT:ENDPROC
DEF PROChorn
?&FE6A=5:?&FE68=127:INPUT">"I$:?&FE6A=0:I$="":*FX15 1
ENDPROC
DEF PROCdub(X,Y,A$):PRINT TAB(X,Y);CHR$141;A$;TAB(X,Y+1);CHR$141;A$;:ENDPROC
MODE7:VDU23;8202;0;0;0;
PROCdub(0,1,"‚Pressf0‚to LOAD next program")
?&FE62=15:?&FE60=0:?&FE6B=&10:?&FE6A=0:?&FE68=0
PROCdub(0,4,"‚PressRETURN‚to REPEAT")
*FX18
*K.0 1|MCH."PROG3"|M
*K.10O.|MRUN|M
REPEAT:A$=GET$:REPEAT UNTIL A$=CHR$13ORA$=CHR$49
IF A$=CHR$13CLEAR:RUN
FOR L=19TO23:PRINT TAB(0,L);"ƒ";:NEXT:VDU28,10,23,30,19
END