MODE7
*K.10 O.|M RUN|M
PROCtrekker
PROCctl
PROCgwynbach
PROCtrek
PROCpause(100)
PROCintro
PROCpause(100)
PROCact1
PROCtrek
PRINT TAB(0,20);
CHAIN"PROG1"
END
 
 
DEF PROCtrekker
DIM A$(8),B$(8),C$(8),a$(20),a(20)
ON ERROR GOTO 100
L%=4020
REM set up port
?&FE62=15
REM turn off motors
?&FE60=0
REM turn off horn
?&FE6B=&10:?&FE6A=0:?&FE68=0
VDU23;8202;0;0;0;
ENVELOPE1,1,4,-4,4,10,20,10,127,0,0,-5,126,126
ENVELOPE2,1,2,5,1,6,3,5,124,0,38,28,160,61
ENDPROC
 
 
DEF PROCintro
CLS
A$="Introducing"
B$="‚TREKKER "
SOUND1,1,100,22
FOR L=1TO13
PRINT TAB(L-1,10);A$
PROCpause(2)
NEXT
FOR L=31TO13STEP-1
PRINT TAB(L,11);"";B$
PRINT TAB(L,12);"";B$
PROCpause(2)
NEXT
ENDPROC
 
 
DEF PROCpause(X)
TIME=0
REPEAT
UNTIL TIME>X
ENDPROC
 
 
DEF PROCact1
CLS
E$="‘¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬"
PRINT TAB(0,0);E$
PRINT TAB(0,3);E$
PROCcharacters
RESTORE 6000
READ logo$,K$:logo$=logo$+K$
PRINT TAB(0,1);"†"
PRINT TAB(0,2);"†"
PROCpause(16)
FOR J=1TO217
SOUND1,-15,RND(255),1
M$=MID$(logo$,J,35)
PRINT TAB(2,1);M$
PRINT TAB(2,2);M$
PROCpause(8)
NEXT
PRINT'''
PROCintrosound
PROCacting
ENDPROC
 
 
DEF PROCcharacters
D$="’ÿÿÿÿÿÿÿÿÿÿê"
PRINT TAB(1,11);"’ððððððððððð"
PRINT TAB(1);D$
PRINT TAB(1);D$
PRINT TAB(1);D$
PRINT TAB(1);D$
PRINT TAB(1);"’ÿÿÿÿÿÿÿÿÿûê"
PRINT TAB(1);D$
PRINT TAB(1);D$
PRINT TAB(1);D$
PRINT TAB(1);D$
PRINT TAB(1);"’ÿÿÿÿÿÿÿÿÿÿ®"
PRINT TAB(1);"            "
PROCpause(100)
ENDPROC
 
 
DEF PROCdesk
DE$="†‚  The Desk!    œ"
D$=" –ÿ"
PRINT TAB(19,18);DE$
PRINT TAB(19,19);D$;TAB(34,19);D$
PRINT TAB(19,20);D$;TAB(34,20);D$
PRINT TAB(19,21);D$;TAB(34,21);D$
PRINT TAB(19,22);D$;TAB(34,22);D$
SOUND1,-15,200,2
ENDPROC
 
 
DEF PROCacting
PROCpause(100)
RESTORE 3940
PROCdooread
PROCmanappear
PROCwalk
PROCsit_make
PROCrep
PROCdissapear
PROCtreka
ENDPROC
 
 
 
DEF PROCdooread
FOR L=1TO11
READ a$(L)
NEXT
IF a$(1)="F"ENDPROC
PRINT TAB(1,11)
SOUND0,-15,5,2
FOR L=1TO11
PRINT TAB(1);a$(L)
NEXT
PROCdooread
ENDPROC
 
 
DEF PROCmanappear
PROCpause(25)
RESTORE 5160
FOR L=1TO8
READ a$(L)
NEXT
FOR L=13TO20
PRINT TAB(3,L);a$(L-12)
NEXT
SOUND0,-15,9,3
PROCpause(100)
ENDPROC
 
 
DEF PROCintrosound
SOUND &1003,1,1,256
FOR I=1TO2
SOUND&0001,2,22,8
SOUND&0001,2,70,8
SOUND&0001,2,118,8
SOUND&0001,2,86,8
SOUND&0101,2,58,8
SOUND&0102,2,42,8
SOUND&0001,2,70,8
SOUND&0001,2,118,8
SOUND&0001,2,90,8
NEXT
PROCpause(185)
ENDPROC
 
 
 
 
DEF PROCwalk
RESTORE 4040
FOR L=1TO8
READ A$(L)
NEXT
FOR L=1TO8
READ B$(L)
NEXT
FOR L=1TO8
READ C$(L)
NEXT
 
S=4:T=24:H=12
FOR L=4TO24
FOR K=1TO8
PRINT TAB(L,H+K);" ";A$(K);" "
NEXT
SOUND1,-15,100,1
FOR K=1TO8
PRINT TAB(L,H+K);" ";B$(K);" "
NEXT
SOUND1,-15,100,1
FOR K=1TO8
PRINT TAB(L,H+K);" ";C$(K);" "
NEXT
SOUND1,-15,100,1
IF L=12:W=W-1:PROCframe:PROCdoorclose
NEXT
PROCdesk
ENDPROC
 
 
DEF PROCdoorclose
RESTORE L%
FOR L=1TO11
READ a$(L)
NEXT
IF a$(1)="G"PROCcharacters:ENDPROC
PRINT TAB(1,11)
FOR L=1TO11
PRINT TAB(1);a$(L)
NEXT
SOUND0,-15,5,2
L%=L%-10
PROCdoorclose
ENDPROC
 
 
DEF PROCsit_make
PROCpause(100)
X=21
PROCstart
RESTORE 4070
FOR L=1TO6
READ a$(L)
NEXT
IF a$(1)="w"ENDPROC
SOUND0,-15,20,1
FOR L=12TO17
PRINT TAB(X,L);a$(L-11)
NEXT
GOTO 2240
ENDPROC
 
 
DEF PROCstart
RESTORE 5170
FOR L=1TO6
READ a$(L)
NEXT
FOR L=12TO17
PRINT TAB(X,L);a$(L-11)
NEXT
FOR L=1TO4
READ a$(L)
NEXT
FOR L=19TO22
PRINT TAB(24,L);a$(L-18)
NEXT
ENDPROC
 
 
DEF PROCframe
FOR K=12TO20
PRINT TAB(12,K);"j"
NEXT
ENDPROC
 
 
DEF PROCctl
CLS
RESTORE 5190
FOR L=1TO12
READ a$(L)
NEXT
FOR L=2TO13
PRINT TAB(0,L);a$(L-1)
NEXT
A$="‚TECHNEG‡CLWYD‚TECHNICS"
B$="‚LIMITED"
PRINT TAB(6,16);A$
PRINT TAB(6);A$
PRINT TAB(14,19);B$
PRINT TAB(14);B$
PROCpause(450)
ENDPROC
 
 
DEF PROCgwynbach
CLS
RESTORE 5310
SOUND1,-15,100,2
FOR L=1TO19
READ a$(L),a(L)
NEXT
FOR L=3TO21
PRINT TAB(a(L-2),L);a$(L-2)
PROCpause(30)
SOUND1,-15,100,2
NEXT
PROCpause(200)
ENDPROC
 
 
DEF PROCtrek
CLS
RESTORE 5570
FOR L=1TO16
READ a$(L),a(L)
NEXT
FOR L=2TO17
PRINT TAB(a(L-1),L);a$(L-1)
NEXT
PRINT TAB(10,23);"…(c) Alex Whittaker 1985"
PROCpause(500)
ENDPROC
 
 
DEF PROCdissapear
PROCpause(100)
FOR L=12TO17
PRINT TAB(X,L);"                  "
NEXT
FOR L=19TO22
PRINT TAB(24,L);"          "
NEXT
ENDPROC
 
 
DEF PROCtreka
A$="—îû¬  ":B$="—¨÷½¤ ":C$="— îû¬ "
PRINT TAB(X-4,14);"ˆ†Then it was complete"
FOR L=19TO32
PROCrun(A$,B$,C$)
NEXT
FOR L=32TO27STEP-1
PROCrun(C$,B$,A$)
NEXT
PROCpause(100):*FX125
ENDPROC
 
 
DEF PROCrun(I$,J$,K$)
PRINT TAB(L,17);I$
:PROCsound
PRINT TAB(L,17);J$
PROCsound
PRINT TAB(L,17);K$
PROCsound
ENDPROC
 
 
DEF PROCrep
XX=5090
RESTORE XX
FOR L=1TO6
READ a$(L)
NEXT
FOR L=12TO17
PRINT TAB(21,L);a$(L-11)
NEXT
XX=XX-60:IF XX=4010PROCsit_make:ENDPROC
SOUND0,-15,20,1
GOTO 3480
ENDPROC
 
 
DEF PROCsound
l=RND(15)+7
SOUND0,-l,20,1:SOUND1,-l,20,1
SOUND0,-l,21,1:SOUND1,-l,21,1
SOUND0,-l,22,1:SOUND1,-l,22,1
ENDPROC
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
DATA G,G,G,G,G,G,G,G,G,G,G
DATA"’ÿÿÿüüüüü´ ","’ÿÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿýµ ","’ÿÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿÿ½,","’   £££££¡ "
DATA"’ýüðððð   ","’ÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿïµ ","’ÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿµ ","’ÿÿÿÿÿÿÿ½¬","’££¯¯¯¯¯¥ "
DATA"’ýüððð    ","’ÿÿÿÿÿÿµ  ","’ÿÿÿÿÿÿµ  ","’ÿÿÿÿÿÿµ  ","’ÿÿÿÿÿÿµ  ","’ÿÿÿÿÿïµ  ","’ÿÿÿÿÿÿµ  ","’ÿÿÿÿÿÿµ  ","’ÿÿÿÿÿÿµ  ","’ÿÿÿÿÿÿ½¬¬","’££¯¯¯¯¥  "
DATA"’ýüðð     ","’ÿÿÿÿÿµ   ","’ÿÿÿÿÿµ   ","’ÿÿÿÿÿµ   ","’ÿÿÿÿÿµ   ","’ÿÿÿÿïµ ","’ÿÿÿÿÿµ   ","’ÿÿÿÿÿµ   ","’ÿÿÿÿÿµ   ","’ÿÿÿÿÿ½¬¬¬","’££¯¯¯¥   "
DATA"’ýüð      ","’ÿÿÿÿµ    ","’ÿÿÿÿµ    ","’ÿÿÿÿµ    ","’ÿÿÿÿµ    ","’ÿÿÿïµ  ","’ÿÿÿÿµ    ","’ÿÿÿÿµ    ","’ÿÿÿÿµ    ","’ÿÿÿÿ½¬¬¬¬","’££¯ÿµ   "
DATA"’ýð      ","’ÿÿÿµ    ","’ÿÿÿµ    ","’ÿÿÿµ    ","’ÿÿÿµ    ","’ÿÿïµ  ","’ÿÿÿµ    ","’ÿÿÿµ    ","’ÿÿÿµ    ","’ÿÿÿ½¬¬¬¬¬","’£¯ÿµ   "
DATA"’ý      ","’ÿÿµ    ","’ÿÿµ    ","’ÿÿµ    ","’ÿÿµ    ","’ÿïµ  ","’ÿÿµ    ","’ÿÿµ    ","’ÿÿµ    ","’ÿÿ½¬¬¬¬¬¬","’£¯µ   "
DATA"’ý      ","’ÿÿ    ","’ÿÿ    ","’ÿÿ    ","’ÿÿ    ","’ÿï  ","’ÿÿ    ","’ÿÿ    ","’ÿÿ    ","’ÿÿ¬¬¬¬¬¬¬","’£¯   "
DATA"’µ  ","’µ  ","’µ  ","’µ  ","’µ  ","’µ  ","’µ  ","’µ  ","’µ ","’­¬¬¬¬¬","    "
DATA F,F,F,F,F,F,F,F,F,F,F
DATA"—è·ûï¤","—ïµÿÿô","—¢åÿ¬","‘ øÿô","‘êÿ»ÿ ","‘¢ÿÿöð°","‘ ã'£êï","— êøô"
DATA"—è·ûÿ¤","—ïµÿÿô"," ¢åÿ¬¢","‘ øÿô","‘þÿ»ÿ","‘¢ÿÿöð°","‘ £·£êï","—  õü°"
DATA"—è·ûï¤","—ïµÿÿô","—¢åÿ¬","‘ øÿô","‘êÿ»ÿ","‘¢ÿÿöð°","‘ £ç£êï ","—  êøô"
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—¬üð° ªòòº  àðü¬  "
DATA"‘óÿ¯ïüþ µêýü¿¯ÿó  "
DATA"‘   ¢ëÿêÿêÿ£      "
DATA"‘    êÿ ¡êÿ       "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—ðð   ªòóº   àð°  "
DATA"‘¬ÿÿÿüþ µêüþÿÿ½¤  "
DATA"‘££  £ÿêÿê·¡ ¢£¡  "
DATA"‘    êÿ ¡êÿ       "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘óÿüüüþ µêüüüþ÷±  "
DATA"‘¬¯£££ÿêÿê·££«­¤  "
DATA"‘    êÿ ¡êÿ       "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòóº        "
DATA"‘¬üðüüþàõêüüôðü¬  "
DATA"‘óÿ¯££ÿª¿ê·£«¯ÿó  "
DATA"‘    êÿ ¡êÿ       "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘¨ìôøüþàõêüüðø¼¤  "
DATA"‘âû¿§£ÿª¿ê·£¯ï÷±  "
DATA"‘    êÿ ¡êÿ       "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòóº        "
DATA"‘¨ìôðüþàõêüôðü¬   "
DATA"‘âû¿¯£ÿª¿ê·«¯ÿó   "
DATA"‘    êÿ ¡êÿ       "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘ ¬üðüþàõêüôðü¬   "
DATA"‘ óÿ¯£ÿª¿ê·«¯ÿó   "
DATA"‘    êÿ ¡êÿ       "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘ ¨ìôøþàõêüðø¼¤   "
DATA"‘ âû¿§ÿª¿ê·¯ï÷±   "
DATA"‘    êÿ ¡êÿ       "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘ ðð ðþàõêü° ðð   "
DATA"‘ ¬ÿÿ¯ÿª¿ê·ïÿÿ¬   "
DATA"‘ ££ êÿ  êÿ  ££   "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘    ðþàõêô       "
DATA"‘âûýþ¯ÿª¿ê¿ïüÿó   "
DATA"‘¨®§¡êÿ  êÿ £¯¬   "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘    ðþ µêô°      "
DATA"‘¨ìô·¯ÿêÿê¿§õü¬   "
DATA"‘âû¿¡êÿ ¡êÿ «ÿó   "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘     þ µê´       "
DATA"‘¨ì´·£ÿêÿê·£µü¬   "
DATA"‘âû·¡êÿ ¡êÿ £ÿó   "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘     þ µê´       "
DATA"‘¨ìþ££ÿêÿê·£ëü¬   "
DATA"‘âû· êÿ ¡êÿ ¢ÿó   "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘     þ µê´       "
DATA"‘ ¬ÿ££ÿêÿê·£ë½¤   "
DATA"‘ óû êÿ ¡êÿ êó±   "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘     þ µê´       "
DATA"‘ ¬ï££ÿêÿê·£ë­¤   "
DATA"‘ óû êÿ ¡êÿ êó±   "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘     þ µê´       "
DATA"‘ ¼¯££ÿêÿê·£«­´   "
DATA"‘ ÷ó êÿ ¡êÿ âóµ   "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘  ðð°þ µê´ðð°    "
DATA"‘ è­¤£ÿêÿê·¡¬í    "
DATA"‘ êó±êÿ ¡êÿ óû    "
DATA"—     üÿÿý´       "
DATA"—     û¨¸ê±       "
DATA"—     ªòòº        "
DATA"‘  ðð°þ µê´ðð°    "
DATA"‘  ÿ¬£ÿêÿê·)îµ    "
DATA"‘  ÿóêÿ ¡êÿâûµ    "
DATA w,w,w,w,w,w
DATA"— èÿÿÿ´’","— ïý¯þ¿’","— ¢£ÿ£¡’","‘èîÿÿÿ½´’","‘êêÿÿÿµµ’","‘ê¢£ÿ£¡µ’","‘¿µ·£ëêï’","—àôµ êø°’"
DATA"—     üÿÿý´","—ðð   û¨¸ê±  àð°","—¬ÿü° ªòóº  øþ½¤","‘£¡«ÿüþ µêüþ¿¡£¡","‘   ¢ëÿêÿêÿ£   ","‘    êÿ ¡êÿ"
DATA"‘ þÿÿÿÿÿ´","‘êÿÿ££ëÿÿ","—êëÿ  êÿë ","—ê ëýèÿ¡ê "
DATA"’ àþÿÿÿÿÿÿÿÿ¡ þÿÿÿÿÿôþÿÿÿÿÿ¡ þÿÿ´"
DATA"’ þÿÿÿÿÿÿÿÿµ êÿÿÿÿÿÿÿÿÿÿÿÿ¥ zÿÿÿµ"
DATA"’zÿÿÿÿÿÿÿÿ· èÿÿÿÿÿÿÿÿÿÿÿÿ¥ zÿÿÿÿµ"
DATA"—ÿÿÿÿÿ’         êÿÿÿ—ÿÿµ    kÿÿÿµ"
DATA"—ÿÿÿÿÿ’         êÿÿÿ—ÿÿµ    êÿÿÿµ"
DATA"—ÿÿÿÿÿ’         êÿÿÿ—ÿÿµ    êÿÿÿµ"
DATA"—ÿÿÿÿÿ’         êÿÿÿ—ÿÿµ    êÿÿÿµ"
DATA"—ÿÿÿÿÿ’         êÿÿÿ—ÿÿµ    êÿÿÿµ"
DATA"—ÿÿÿÿÿ’         êÿÿÿ—ÿ¿     êÿÿÿÿõ’ ðppp"
DATA"—ÿÿÿÿÿôppppp0  ’êÿÿÿ—¿      êÿÿÿÿµ’êÿÿÿ¥"
DATA"—ÿÿÿÿÿÿÿÿÿÿÿÿ  ’êÿÿÿ—       êÿÿÿ7’hÿÿÿµ"
DATA"—«//////////'  ’¢//!—       ¢/// ’ÿÿÿÿ!"
DATA"‘ë¡ÿú ÷µ÷±÷±·µ·¡ë¡÷µë¡ë¡·µÿú µ´µë¡ë¡õ5"
DATA1
DATA"’®¤¥¯ ¥¥¬¥¬¥­¥­¤®¤¥¥ª ®¤­¥¥¯ ­­¥®¤ª ¥¥"
DATA1
DATA"",0,"",0
DATA"•ê£«ê µêê êê£ë¢ë£ê££ê£«ê ê"
DATA6
DATA"–êµëêµµê¢ë£êµê êµê·£êµàê·ë"
DATA6
DATA"•¢££¢£££ ¢ ¢¡¢ ¢¡¢££¢££¢¡¢"
DATA6
DATA"",0,"",0
DATA"“÷±ë¡ê»¢·ê£êúêûê»êé ·±µ´µõµÿú"
DATA5
DATA"”¬¥ª ªª¨­ª¬ªªªªªªª¦ ­¥­­¥ ¥¥¯"
DATA5
DATA"",0,"",0
DATA"’êú¢·êãêú ÷±·¡õµ·µ·µµ"
DATA8
DATA"—ªª¨­ª®ªª ¬¥­¤¥¥­¥­¥­¤"
DATA8
DATA"",0,"",0
DATA"‘÷±µ ë¡ÿú¢·"
DATA13
DATA"—¥ ­¤®¤¥¯ ¥"
DATA13
DATA"”   üüüü üüü´èüüüü ü ø´è´àü üüüü´èüüü",0
DATA"”    êµ  ÿðúµêõð°  ÿþ§ êý¿¡ ÿðð  êõðÿ",0
DATA"”    êµ  ÿ£ë´êõððð ÿ+ý°ê·ïô ÿððð°ê·£ý",0
DATA"”    ¢¡  £ ¢¡¢££££ £ ¢¡¢¡ £ ££££¡¢¡ £",0
DATA"—·ë ·£µ·ë ·£µ£·¡ê°ê£ëê£«",7
DATA"—ÿ£µµðµÿ£µµðµ ÿ êµêµèâ£ÿ",7
DATA"—£ ¡££¡££¡££¡ £ ¢¡¢££¢££",7
DATA"’ððúÿ",25
DATA"’ðð‘ððð°’         à&  *¯",6
DATA"’ àøþ‘øÿÿÿÿÿýô ’     ¼¡     èí",2
DATA"’èüüÿÿ‘þÿÿÿÿÿÿÿÿý’   ê µ      âç",0
DATA"’êÿõú‘êÿÿÿÿ§+ÿÿÿÿµ’ü´ú°µè´èüüüêþ",0
DATA"’¢ïÿÿ‘êÿÿÿõ*¥úÿÿÿ5’üôÿõýzðzþþþzÿðþô",0
DATA"’àú·k‘¢ÿÿÿÿýþÿÿÿÿ’£ –      *¬®ïÿ¬¬¬ôðð",0
DATA"’êÿÿÿÿ‘*ÿÿÿÿÿÿÿÿ¥  ˆ                 ¢",0
DATA"’¢«ÿÿ‘¢¯ÿÿÿ¿§",2
DATA"       T„R†E‚K‡KE…R††              Once there was a teacher who loved robots. His pupils loved robots too. They forced him to invent a teaching robot. After a while you couldn't tell the teacher from the robot......           "
DATA"T„R†E‚K‡KE…R "