REM"***************************‡"
REM"*ƒ#######################*‡"
REM"*ƒ#†   CARD READER 1   ƒ#*‡"
REM"*ƒ#    † COPYRIGHT     ƒ#*‡"
REM"*ƒ#    ƒA.WHITTAKER     #*‡"
REM"*ƒ#######################*‡"
REM"*ƒ#   † CONSULTANT     ƒ#*‡"
REM"*ƒ#    ƒK.ECCLESON     ƒ#*‡"
REM"*ƒ#######################*‡"
REM"***************************‡"
REM ***   SET UP PORT   ***
*FX4 1
?&FE62=15
REM *** TURN OFF MOTORS ***
?&FE60=0
REM ***  TURN OFF HORN  ***
?&FE6B=&10:?&FE6A=0:?&FE68=0
REM ***  END ON ESCAPE  ***
ON ERROR ?&FE60=0:GOTO 30000
*K.10 O.|MRUN|M
MODE7:PROCinstr:MODE2
PROCscreen
poke=&FE60
peek=&FE60
PROCread
END
REM
REM"****************************"
REM"****ƒ  SET UP DISPLAY  ****"
REM"****************************"
REM
DEF PROCscreen
VDU17,129,17,3,23;8202;0;0;0;31,0,0
PRINT SPC20;"    CARD  READER    ";SPC20
VDU19,11,4;0;19,12,4;0;
FOR A%=6 TO 26
VDU17,140,31,0,A%:PRINT SPC9
VDU17,139,31,11,A%:PRINT SPC9
NEXT
VDU17,128,17,13,31,4,16,49
VDU17,128,17,14,31,15,16,49
COLOUR129:COLOUR3:PRINT TAB(0,30);"   Escape to end.   ";:COLOUR3
ENDPROC
REM
REM"****************************"
REM"****ƒ READ CARD NUMBER ****"
REM"****************************"
REM
DEF PROCread
REPEAT
A%=?peek
A1%=A% AND 176
A2%=A% AND 112
IF A1%=176 THEN VDU19,12,2;0;31,4,16,49:ELSE VDU19,12,4;0;31,4,16,48
IF A2%=112 THEN VDU19,11,2;0;31,15,16,49:ELSE VDU19,11,4;0;31,15,16,48
UNTIL FALSE
DEF PROCinstr
CLS
PRINT TAB(0,0);"„";CHR$157;CHR$141;"‡CARD READER 1 INSTRUCTIONS"
PRINT TAB(0,1);"„";CHR$157;CHR$141;"‡CARD READER 1 INSTRUCTIONS"
PRINT TAB(0,3);"„";CHR$157;CHR$141;"‡SENSOR SWITCH BLOCK '3' AND '4' 'ON'"
PRINT TAB(0,4);"„";CHR$157;CHR$141;"‡SENSOR SWITCH BLOCK '3' AND '4' 'ON'"
PRINT TAB(0,6);"„";CHR$157;CHR$141;"‡ BULB  'ON'   ";CHR$156;"„";CHR$157;"‡  TREKKER 'OFF'   "
PRINT TAB(0,7);"„";CHR$157;CHR$141;"‡ BULB  'ON'   ";CHR$156;"„";CHR$157;"‡  TREKKER 'OFF'   "
FOR I%=9 TO 23
VDU31,0,I%,132,157,131
NEXT
PRINT TAB(0,24);"‚";CHR$157;"ˆ„Press 'SPACE BAR' to continue.";
VDU28,3,23,39,9
PRINT''';"1) Set switches as above."
PRINT''"2) Place TREKKER on a table or desk."
PRINT'"3) Slide under his spoiler any of the   four Cards you have made.            (see Software Guide)"
PRINT'"4) TREKKER will show the correct Code   pattern on screen."
VDU23;8202;0;0;0;
REPEAT UNTIL GET=32
CLS
PRINT TAB(0,5);"";CHR$157;SPC(31);"„";CHR$157
PRINT TAB(0,6);"";CHR$157;CHR$141;"ˆ  ‡TURN TREKKER ON NOW !     „";CHR$157
PRINT TAB(0,7);"";CHR$157;CHR$141;"ˆ  ‡TURN TREKKER ON NOW !     „";CHR$157
PRINT TAB(0,8);"";CHR$157;SPC(31);"„";CHR$157
VDU28,0,24,39,0
PRINT TAB(0,6);"„";CHR$157;CHR$141;"‡ BULB  'ON'   ";CHR$156;"„";CHR$157;"‡  TREKKER  'ON'   "
PRINT TAB(0,7);"„";CHR$157;CHR$141;"‡ BULB  'ON'   ";CHR$156;"„";CHR$157;"‡  TREKKER  'ON'   "
REPEAT UNTIL GET=32
ENDPROC
MODE7
VDU23;8202;0;0;0;
PROCdub(0,1,"‚Pressf0‚to LOAD next program")
PROCdub(0,4,"‚PressRETURN‚to REPEAT")
PRINT''
FOR L=19TO23:PRINT TAB(0,L);"ƒ";:NEXT:VDU28,10,23,30,19
*K.0 1|MCH."CARD2"|M
REPEAT
*FX15,1
A=GET
UNTIL A=13 OR A=49
IF A=13 RUN ELSE END
DEF PROCdub(X,Y,A$):PRINT TAB(X,Y);CHR$141;A$;TAB(X,Y+1);CHR$141;A$;:ENDPROC