hi±‘#¢#A¤SCR¤B¤TRN1¤TRN2¤TRN3¤TRK1¤TRK2¤TRK3¤W¤L¤BL¤P¤ÊÁR¤PÍVVTÐSTARÐOFFÓHÉLÏSCÒÙÚØXÐXÒXÔËÓDIÒSØÃCÓÐLTÒMV¤NCÓÔÌ€€€€€€€€€€ € € € € !"#$€%&'(d""****************************›n""** ALPHABET TRAIN **›x""** S.O. 11/83 **›‚""****************************›Œ›Ž** DEFINE STRINGS **›”‰ +@-@@5(@AlPhAbEtG-@@Z(@ ZuG l-@@‰(@INITIALIZING ..–ss€;@,;@,‚;@,ƒ;A€,„;A€,…;A€,†;@(,‡;@(,ˆ;@(,‰;@, jŠ;@,(6Š7@,.>:,H6Š7@<@,.>:,W6Š7@,.Šd‹;@,j6‹.ŠªDŒ;@,#A€.-@@2"Ž@6Œ7<,.>:Ž,D ´1,3,7,255,255,7,3,1›¾D;@,#A.-@@2"Ž@67<,.>:Ž,D È%%128,192,224,255,255,224,192,128›Ò7 #A !-@@%"Ž36‚7<,.>:Ž,7 Ü//24,36,66,129,129,129,129,129,129,129,66,0›æW6ƒ7A€,. #A22-@@$6"ŽD6ƒ7<,.>:Ž,H W6ƒ7@%,.ƒèWW77,84,84,0,84,84,205,212,212,128,212,212,13,20,20,0,20,20,141,148,148,128,148,148›ðW6„7A€,. #AB2-@@$6"ŽD6„7<,.>:Ž,H W6„7@%,.„òSS0,32,32,32,32,32,0,96,96,96,96,96,0,160,160,160,160,160,0,224,224,224,224,224›úˆ6…7A€,.>:,;6…7@<@,.>:,J6…7@,.…f-@A`@„6…7<,.>:'@%@•,ˆ 7 #Ab!-@@(%"Ž36†7<,.>:Ž,7 CC0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,84,84,0,0,0,0,84,84,0,84,0,0,›7 #Af!-@@(%"Ž36‡7<,.>:Ž,7  QQ0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,224,224,224,224,224,224,224,21,32,32,32,32,0,›7 #Ar!-@@(%"Ž36ˆ7<,.>:Ž,7 AA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,13,22,0,0,›** SET ASIDE PM AREA **›a +@*AF:A,&@A6-F:A,%@MBByW+@a A "/ #A!-AA%"Ž+Ž/ ,""32,255,18,82,50,255,34,52,57›6o-@@A(@>:AB,>:AB,>:AB,S-@@o(@--------------@S-@8(@««««««««««««««««««««S** ALL +'S IN INVERSE **›J'AY@F'B2w@T** MAP A$ ONTO PM AREA **›^.%6‘-F:A4,%F:A5,$AV.6’-C:€,|<6“-$AV%A&’,6”-P:“'AV,<6•-“&”$AV†[‘%@•‘%@”3‘%@@G‘%@[‘%@@ˆ%%** MAP SCR$ ONTO SCREEN AREA **›N%6–-F:@ˆ,%AV$F:@‰,-6“-–&’>6”-P:“'AV,N6•-“&”$AV¤‘%@•‘%@”®S‘%@@+‘%@@?‘%@@S‘%@@¸'6—-@`6˜-@€'6™-@PÂN6€7—<—%@,.‚"B2H˜6-@@YJ6€7<,.>:@$,N Ì26€7A€<A‡,.Œ&6š-@d2B2PšÖ26€7A<A,.&6›-AX2B2Q›Þ%%** TRUCK COMES IN FROM RIGHT **›ày-@@6œ-' APK2A@œ'@_-@@ c g y@wè** PRINT WORD **›ê9 A,-@&B:‰,'@@9(@‰ò** LOOP TO MOVE TRAIN **›ôC6ž-R:,(ž"@*™!@66™-™&@C6Ÿ-6@þ3ž"@*™ AV'6™-™%@36Ÿ-@ž @A`$$P:™'@,"™'@A`Ÿ"6@6™-™&@&Ÿ"@6™-™%@.** MOVE TRAIN **›0''67A<A,.ƒ7™<™%@,:''67Aa<A€,.„7™<™%@,B!!** SOUND IF TRAIN MOVING **›D''67AA<A`,.…7™<™%@,N+ ™" +2X1 ™ +2A@@16 -™b T:,"@Aj** PICK UP LETTER **›l+6¡-@:…7™%@,,+¡"Av“-@@%6—-—%@86€7—<—%@,.‚w2+—%A,$+—'@"P:—'@,,@@‹-@@  “ €l)6¢-BsD%AV%@$™'@=-@@h6Š7%@<%@,.>:F:¢%&@,,l Š*6€7A)%—<A9%—,.Š*B2I˜”I6£-@%™%6…7£<£,.>:,I67AA<A`,.…7™<™%@,ž¦-@@P%6—-—&@86€7—<—%@,.‚S6€7A)%—<A9%—,.Š’2+—%A,$+—'@"P:—'@,,@@¦-@@¨_  -2A-@@O6š-š%@[B2Pš_ °))** IF LETTER NOT CORRECT DROP IT **›²)¡&@2@:‰7¤%@,,) A ¼U!-@@2%@$¤/6˜-˜%@=6š-š%@IB2PšUB2I˜ÆR@2—%A$+š'@"P:š'@,,@@D R6¤-¤%@Ѓ-@@%6—-—%@@6€7A)%—<A9%—,.Šd2—%A@@h ƒ6€7A)%—<A9%—,.‹Ú‡6£-@%¤/6ˆ7£<£,.>:™'@%@–,S67@g<@€,.ˆ7œ<œ%@,q-+˜&@H,'@@‡(@>:AB,ä\-@@0X2A%A$H:,@+@0&,'@\ în6š-š&@B2PšZ2—%A$+š'@"P:š'@,,@@nš!@dAPø)6˜-@€B2I˜)6—-—&@`-@@9%6—-—%@86€7—<—%@,.‚\2—%A@@`  6%26¤ B:‰,A))** WORD CORRECT - MOVE TRUCK OUT **›p -@@6@&6œ-0 APT2A@œ'@h-@@ l p  A @ g-@@)(@ E-@A`@c6…7<,.>:'@%@•,g *k6¤-#-@@"76ˆ7<,.>:,; M-@@a(@ k A€255** ROUTINE FOR PUTTING INCORRECT LETTER BACK **›4Z-@@Z2@P%@P$+š'@"P:š'@,,@@>w6˜-˜%@6š-š%@-6›-›&@9B2I˜EB2PšQB2Q›U w2Hi-@@%6˜-˜&@36š-š&@A6›-›&@MB2I˜YB2PšeB2Q›i R‹-@@%6š-š&@36›-›%@?B2PšKB2Q›Y6—-—%@t6€7A)%—<A9%—,.Š‡6€7—<—%@,.‚‹ \•-@@'%6›-›%@1B2Q›?6—-—%@Z6€7A)%—<A9%—,.Šm6€7—<—%@,.‚‘2—%A@@• f‰-@@;2—%A@@I6—-—%@\6€7—<—%@,.‚w6€7A)%—<A9%—,.Š{ ‰6…7£<£,.>:¡,p\-@@0X2A%A$H:,@+@0&,'@\ z{'67AA<A`,.…7™<™%@,B6€7A)%—<A9%—,.‹V-@@d6—-—&@w6€7—<—%@,.‚{ „/%2/ AŒ..** MACHINE LEVEL - MOVE CHARACTER SET **›ŽAV˜D¥;@#,#A 0.-@@#2"Ž@6¥7<,.>:Ž,D ¢^^104,104,133,204,104,133,203,104,133,206,104,133,205,160,0,177,203,145,205,136,208,249,96›¬56¢-BsD%A%6¦-$AV56Ž-?:C:¥,<¢<¦,¶#-¦¦%@# À=6¢-BsD%AV-6¦-$AV%AV=6Ž-?:C:¥,<¢<¦,Ê#-¦¦%@AU# Ô?6¦-$AV#A /-A`Ag3"Ž;¦%Ž? Þ0,0,60,102,219,219,102,60›èAV$ð""** PICK A WORD SUBROUTINE **›òB #A 7-@P:H:,$@,%@;"‰? B$ü;;HUND,KATZE,VOGEL,HAND,PFERD,FROSCH,FLUG,FLIEG,ARM,KUH›@@HAST,DAUMEN,FINGER,NASE,MUND,OHR,SPIEL,FAHRT,ARBEIT,SPRUNG›>>WAGEN,AUTO,MILCH,WEST,GEIST,ZEIG,BIER,SCHULE,STUHL,TAFEL›22FU,UTA,ARM,MAMI,OMA,TOR,LISTE,OLAF,FORT,RALF›77NOTRUF,EI,INA,WIM,MAUL,SUSI,WOTAN,KLAUS,LOS,WURST›88ES,SCHAL,SCHNEIT,VATER,DURST,SAFT,BEULI,,GELD,SAMT›88JULI,BODEN,ZIRKUS,SAFT,MUSIK,STUBE,KINDER,BEIN,MUT›::MAUS,RUDEL,FREUND,ALTERN,TASCHE,PATER,KLAUS,PLAN,WEG›88TIER,ROBIN,WEIN,FISCHE,UHR,STORCH,KAHN,KIRCHE,KOPF›44SCHWAN,RING,KASPER,BLUMEN,TAXI,ARZT,MAGER,BALI›""** PRINT TRUCK SUBROUTINE **›r'67A<A ,.†7œ<œ%@,K67@‡<A,.‡7œ<œ%@,o67@g<@€,.ˆ7œ<œ%@,r$î** TUNE SUBROUTINE **›ðLL91,6,121,1,91,2,121,1,91,2,81,1,72,8,91,8,68,6,68,1,91,4,81,4,72,8,0,4›òRR91,6,121,1,91,2,121,1,91,2,81,1,72,8,91,4,72,2,72,1,72,4,81,4,81,4,72,4,81,8›øW #A 2!-@@)'"£§3£"I-@@ $§M W A pY2£@@C2@@$£@@Y¨-@@$§ K ¨)2K2@   $€ D:ZUG.BAS