MODE7:*FX14,6
PROCsetup
*K.10 V.21|M?&FE62=15:?&FE60=0:?&FE6B=&10:?&FE6A=0:?&FE68=0:V.6|MCLS:P.'"‚You have pressed the BREAK key. Please"''"‚Reload PROG5"''''|M
*FX4 1
CLS:INPUT TAB(7,12)"„Enter‡angle%„valueƒ",Z%:IF Z%<25OR Z%>200GOTO 30ELSE Z%=Z%+1
U%=Z%*1.78205128
VDU23;8202;0;0;0;:PROCprogmode:PROCcg:A=INKEY(500):PROCinst:A=INKEY(500):M=1188:N=900:PROCI:MODE1:VDU23;8202;0;0;0;:PROCS:VDU6:*FX13,6
VDU26;4;28,1,24,10,4:CHAIN"PROG5a"
DEF PROCinst:CLS:A$="In this mode YOU may store commands" :B$="   which Trekker will then obey":FOR L=0TO23:PRINT TAB(0,L);CHR$132;CHR$157;:NEXT:P=1:PRINT TAB(P,10);"‡";CHR$141;A$;TAB(P,11);"‡";CHR$141;A$;TAB(P,13);"‡";CHR$141;B$;TAB(P,14);"‡";CHR$141;B$:ENDPROC
DEF PROCprogmode:CLS:F=6:PRINT TAB(F,10);CHR$132;CHR$157;CHR$135;CHR$141;"PROGRAMMABLE MODE   ";CHR$156:PRINT TAB(F,11);CHR$132;CHR$157;CHR$135;CHR$141;"PROGRAMMABLE MODE   ";CHR$156:ENDPROC
DEF PROCsetup:?&FE62=15:?&FE60=0:?&FE6B=&10:?&FE6A=0:?&FE68=0:ENDPROC
DEF PROCS:COLOUR129:H$=STRING$(37," "):PRINT TAB(1,0);H$;TAB(1,1);H$;TAB(1,30);H$:VDU5:MOVE400,1005:GCOL0,3:PRINT TAB(13,1);"€�‚ƒƒ‚� „‚„ž":GCOL0,1:MOVE590,846:DRAW1000,846:DRAW1000,624:DRAW590,624:DRAW590,846:VDU4
COLOUR128:PRINT TAB(20,6);"LED  ARRAY":PROCQ:GCOL0,2:MOVE400,510:DRAW M,510:DRAW M,300:DRAW400,300:DRAW400,510:MOVE400,N:DRAW M,N:DRAW M,560:DRAW400,560:DRAW400,N:GCOL0,3:VDU4:COLOUR3:COLOUR128:PRINT TAB(20,6);"LED  ARRAY":VDU5:GCOL0,1:MOVE400,250:DRAW M,250:DRAW M,100:DRAW400,100:DRAW400,250:MOVE420,235:DRAW564,235:DRAW564,180:DRAW420,180:DRAW420,235
VDU4:COLOUR2:COLOUR128:PRINT TAB(14,25);"†††":VDU5:MOVE585,100:DRAW585,250:VDU24,592;108;1180;230;:ENDPROC
DEF PROCQ:VDU4:COLOUR2:PRINT TAB(20,11);"††‡‡‡†††††":COLOUR1:COLOUR131:PRINT TAB(20,8);"  ›››     ";TAB(20,9);"  œœœ     ":ENDPROC
DEF PROCL:P=12:VDU23;8202;0;0;0;:CLS:PRINT TAB(0,1);CHR$129;CHR$157;CHR$135:PRINT TAB(0,2);CHR$129;CHR$157;CHR$135:PRINT TAB(P,1);CHR$141;"TREKKER MEMO":PRINT TAB(P,2);CHR$141;"TREKKER MEMO":ENDPROC
DEF PROCI:PROCL:PRINT TAB(0,5);"‚This program lets you enter 16 Commands":PRINT TAB(0,7);"‚which  will  be �MEMORISED‚in the order":PRINT TAB(0,9);"‚that you type them in. ":PRINT TAB(0,12);"‚The  commands for� LEFT‚and� RIGHT‚will":PRINT TAB(0,14);"‚automatically give 90 degree turns."
PRINT TAB(0,17);"‚The commands for�PIVOT LEFT‚and�PIVOT":PRINT TAB(0,19);"�RIGHT‚must be followed by the number of":PRINT TAB(0,21);"‚degrees Trekker will turn (0 to 360).":T=5:*FX15,1
PROCpress:PROCL:PRINT TAB(0,5);"‚The commands�BACK‚,�FORWARD‚,�HORN‚and":PRINT TAB(0,7);"�STOP ‚must  be  followed  by  a number";TAB(0,9);"‚between 0 and 999.";TAB(0,13);"‚The display on the right of the screen"
PRINT TAB(0,15);"‚shows you  the  pattern  of lights  on":PRINT TAB(0,17);"‚Trekker's LED Array. Each command will":PRINT TAB(0,19);"‚show a different pattern.":*FX15,1
PROCpress:PROCL:PRINT TAB(0,5);"ƒEDIT MODE :":PRINT TAB(0,7);"‚In this mode  you can  alter  commands":PRINT TAB(0,9);"‚which  you have  typed in.  First  you":PRINT TAB(0,11);"‚must place the�CURSORS‚by the line you"
PRINT TAB(0,13);"‚want to change. To do this you use the":PRINT TAB(0,15);"‚keys  with arrows  on them  in the top":PRINT TAB(0,17);"‚right hand corner of the keyboard. Then":PRINT TAB(0,19);"‚press the�SPACEBAR‚and type in the new":PRINT TAB(0,21);"‚command.":*FX15,1
PROCpress:PROCL:PRINT TAB(0,4);"ƒSTEP MODE :";TAB(0,6);"‚In  this mode  you can make  the robot";TAB(0,8);"‚follow  a  short sequence of commands.";TAB(0,10);"‚Move  the�CURSORS ‚up and  down  until"
PRINT TAB(0,12);"‚they are  next to the first command in":PRINT TAB(0,14);"‚your sequence. Then press the�SPACEBAR.":PRINT TAB(0,16);"‚Then move the�CURSORS‚down to the last":PRINT TAB(0,18);"‚command in your sequence and press the":PRINT TAB(0,20);"�SPACEBAR ‚again.   Trekker   will  now"
PRINT TAB(0,22);"‚perform  this  short  sequence.":*FX15,1
PROCpress:PROCL:PRINT TAB(0,5);"ƒCLEAR MODE :";TAB(0,7);"‚In this mode  you can wipe off all the";TAB(0,9);"‚commands  you  have stored  and  start";TAB(0,11);"‚again. Only  use this command when you"
PRINT TAB(0,13);"‚are  sure that you do not want to  use":PRINT TAB(0,15);"‚that sequence again.":*FX15,1
ENDPROC
DEF PROCcg:VDU23,224,254,16,16,24,24,24,24,24:VDU23,225,124,68,68,68,126,98,98,98:VDU23,226,126,64,64,64,126,96,96,126:VDU23,227,68,68,68,68,126,98,98,98:VDU23,228,127,73,73,105,105,105,105,105:VDU23,229,112,80,80,112,0,0,0,0:VDU23,230,126,66,66,70,70,70,70,126
VDU23,231,8,8,8,24,24,24,24,24:VDU23,232,126,66,2,2,126,64,64,126:VDU23,233,124,68,68,4,62,6,70,126:VDU23,234,124,68,68,68,68,126,12,12:VDU23,235,126,64,64,126,6,6,70,126:VDU23,236,126,66,64,64,126,70,70,126:VDU23,237,60,4,4,12,12,12,12,12
VDU23,238,60,36,36,126,70,70,70,126:VDU23,239,126,66,66,66,126,6,6,6:VDU23,240,254,254,124,124,56,56,16,16:VDU23,241,24,164,194,226,2,66,36,24:VDU23,242,3,15,63,255,63,15,3,0:VDU23,243,16,16,56,56,124,124,254,254:VDU23,244,0,192,240,252,255,252,240,192
VDU23,245,57,69,131,143,128,66,36,24:VDU23,246,15,9,8,8,56,120,120,48:VDU23,247,0,126,66,66,66,66,126,0:VDU23,248,0,0,0,0,0,0,0,0:VDU23,249,0,0,0,0,0,0,0,0:VDU23,250,16,16,16,24,24,24,24,24:VDU23,251,0,126,126,126,126,126,126,126
VDU23,252,126,126,126,126,126,126,126,0:VDU23,253,126,66,64,64,96,96,98,126:VDU23,254,126,70,70,66,66,66,66,126:VDU23,255,255,255,255,255,255,255,255,255:ENDPROC
DEF PROCpress
*FX15,1
PRINT TAB(2,24);"„�ƒPress theˆSPACEBAR‰to continue  œ";
REPEAT UNTIL GET=32:CLS:ENDPROC