m6░╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╛╕░╡╝╣░╢╝░╢╝▓╛╝╕╝╛╕║░║▒╣░╛╝╣╡╝╝░║╢▓╡А╡░╣│░║А║╗▓А░║А║║║╗│║╗│╢╡│░░║╢▓╡░╡░░░║║░║║░░░║░╡╡░║░║║┤▓╡░░░╕┤┤┤╝╕░┤╝А┤╝А╕ААА╕А┤┤А╕А╕╕А┤┤╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╛╕░╡╝╣░╢╝░░░░▒╝▓▒░░░░░░░░░░░АА░А║╢▓╡А╡А╣│░▒│░╖▓░╖▓▒АА▒░│▓▓│░│░░А║╢▓╡А╡ААА║║░║╡АА╡░▓╣╣╕╡░║╛░╡│╕░А╕┤┤┤╝╕А┤╝░┤╝░┤АА░╝░┤┤░░╝╕╕А░╝╕░╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝╝░ААААААААААААААААААААААААААААААА░ААААААААААААААААААААААААААААААА░ААААААААААААААААААААААААААААААА░ААААААААААААААААААААААААААААААА                                                                                                                                                                                                                                `ОЖАзАМ&∙Ж зНДзНБзН~╛пН{╛пНv╛пНq╢зНc╢зН]╢зНW0НZ╞└ЖАзАZ&√оНGmН=' 1НC
dоН64цН-
╡'5чН" 5 пН╛
@mН'оНМ'М 'М@' oН
ё
┤оН
ЄmН
ч' 1Н
ь
оН
с4цН
╫
u'5чН
╠ 5 пН
╚О8д▀mН
╢'оН
╖М('МH' oН
а
bоН
вmН
Ц' 1Н
Ъ▒оН
С4цН
Ж
#'5чН
{ 5 пН
xО9lНmН
e'оН
gМш'М╚' oН
O
 &ОжДM*ДpЛДpзН
5жДДкН
-КАзД0
М&▐9■3_Г&Ў╢╗Дp╖mН
&■╜mН &■╡mН°&■н╞FОd4Нб5О░0Z&ю9╞жазАZ&∙9╬`ьбДП║─П·эБ3_Г&ъ9]'┴
'┴'┴'┴'┴'┴' !0
 "0Ис 0Ир 0И▀ 0 0И 
0И  0И! 9Н║4Г-"Г<.5OM9Нг4Г-Гю.5OM95╦─Ж M9ОО2Н
94╢ #К╖ #╢  Д╖  оф0&№╢  ДК№╖  оф0&№1?&▐59                                                                                                        *                           :Ш0&№1?&▐59                                                                                                                                                                                                                                                                                                                                       Ъ&':ГCOPYRIGHT (C) T&D SOFTWARE 1987&9
Т 359,57:┐0,1&u╛Ю:Х2048:╚0:└4:З@229,"READING DISK DIRECTORY";:Т&HFF22,8&о╚А X│512 е 541:НA$:ТX, Й("&H"лA$):ЛX:╣ Г0│512:F│ г(0)&╬╥МA$(68):Y│1:P1│1:PO│4:T│247&·▄А X│3е11:▀0,17,X,A$,B$:C$│A$л О(B$,127)'4цА N│0е7:A$(Y)│ Р(C$,Nн32л1,8)л"."л Р(C$,Nн32л9,3)л" "'[ЁR│ К(A$(Y)):Е R│255зA$(Y)│"":Бе300'Д·A$(Y)│A$(Y)л Л( Ж(1547лNн32)л48)л" "'┐
Е  Ж(1548лNн32)│0 з A$(Y)│A$(Y)л"B" :Д A$(Y)│A$(Y)л"A"(
Е R│0 ▒  П(A$(Y),1)┤▓"B" ▒ ( Р(A$(Y),10,3)┤▓"BAS" ░  Р(A$(Y),10,3)┤▓"BIN") з A$(Y)│"":Бе290(<
A$(Y)│ О(A$(Y),12):Y│Yл1(F
"Л N,X(q
,P2│ Б((Yм1)о10):Е P2┤(Yм1)о10 зP2│P2л1(Т
6Ю:Зд6)"COLOR DISK DIRECTORY"(ц
@A$│ И(68мF)л" USED -"л И(F)л" FREE":Зд(32м З(A$))о2)A$:Зд10)"PAGE";P1;"OF";P2:З(°
JH│(P1м1)н10л1)
TА X│H е Hл9) 
^Е A$(X)│"" зЗ:Бе370)/
hЗд9);A$(X))5
rЛ)C
|Т&HFF22,8)Д
ЖАI│338 е 345:ТI,255:Л:K│POн32л8:Т529,&H80:A│ Г0(K):Т529,&H8B)Щ
РE│(P1м1)н10лPOм3*
ЪK$│ Т:ЕK$│"^" ░ PO│4 ░ P1▓1 з P1│P1м1:PO│13:A│ Г0(K):Бе310 :Д Е K$│"^" ░ PO▓4 з A│ Г0(K):PO│POм1:Бе390*y
дЕ K$│ Л(10) ░ PO┤13 ░ E┤Yм1 з A│ Г0(K):PO│POл1:Бе390 :Д Е K$│ Л(10)░ P1┤P2 ░ PO│13 з P1│P1л1:PO│4:A│ Г0(K):Бе310*О
оЕ K$│ Л(13) з450*Ш
╕Бе410*╛
┬ Р(A$(E),9,1)│".":T$│ О(A$(E),12)*ъ
╠Z$│ Т : Ю : З @233,"LOADING "л О(T$,8);+
╓Е  Ю(A$(E),"BIN") з Т 359,126:╙MT$:в+:
рЕ  Ю(A$(E),"BAS") з Т359,126:╙T$,R+D
ъБе410+Щ
ЇЖ BD,B3,ED,C3,4,0,1F,1,C3,0,E,ED,8D,0,D,A6,84,8B,40,A7,80,AC,8D,0,3,26,F4,39,0,0┬ Р(A$(E),9,1)│".":T$│ О(A$(E),12)*ъ
╠Z$│ Т : Ю : З @233,"LOADING "л О(T$,8);+
╓Е  Ю(A$(E),"BIN"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                INE LANGUAGE   ";:Е PD┤▓0 з З#PD/[XЗ#PD," PART OF THIS PROGRAM, ENTER    ";:Е PD┤▓0 з З#PD/hbЗ#PD," "/дlЗ#PD," SAVEM'PICPAK',15500,21894,15500";:Е PD┤▓0 з З#PD/рvЗ#PD," FOR DISK OR ENTER              ";:Е PD┤▓0 з З#PD/эАЗ#PD," "0)КЗ#PD," CSAVEM'PICPAK',15500,21894,    ";:Е PD┤▓0 з З#PD0eФЗ#PD," 15500 FOR TAPE.                ";:Е PD┤▓0 з З#PD0rЮЗ#PD," "0иЗ#PD," "0М▓З#PD," "0Щ╝З#PD," "0ж╞З#PD," "0│╨З#PD," "0┐┌Бж 90000№фЮ:З@230,"";:Е  Ж(186)│14 з З"RUNNING "; :Д З"CLOADING ";10юЗ"PICPAK":Е  Ж(186)│14 з О"PICPAK" :Д Ч"PICPAC"16°К1E#(ЕPD┤▓0 з Р1T#2З@482,PM$;1^#<K$│ Т1q#FЕK$│NL$ з 90201w#PРD," "0М▓З#PD," "0Щ╝З#PD," "0ж╞З#PD," "0│╨З#PD," "0┐┌Бж 90000№фЮ:З@230,"";:Е  Ж(186)│14 з З"RUNNING "; :Д З"CLOADING ";10D<>0 THEN PRINT#PD
660 PRINT#PD," 15500 FOR TAPE.                ";:IF PD<>0 THEN PRINT#PD
670 PRINT#PD," "
680 PRINT#PD," "
690 PRINT#PD," "
700 PRINT#PD," "
710 PRINT#PD," "
720 PRINT#PD," "
730 GOSUB 9000
740 CLS:PRINT@230,"";:IF PEEK(186)=14 THEN PRINT"RUNNING "; ELSE PRINT"CLOADING ";
750 PRINT"PICPAC":IF PEEK(186)=14 THEN RUN"PICPAC" ELSE CLOAD"PICPAC"
760 END
9000 IFPD<>0 THEN RETURN
9010 PRINT@482,PM$;
9020 K$=INKEY$
9030 IFK$=NL$ THEN 9020
9040 RETURN
40 CLS:PRINT@230,"";:IF PEEK(186)=14 THEN PRINT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                А<М0НЄЮ║╢
зНфM&	╠эН╓ ╠эН═3Н╘яН╟3Н╔яН╣▄║уН╖Г
эНожд╬бд&3A зАяБжд э4гНФ$*5мНЗ'1! ╪зАяБO╬  зАяБгНmэНv=sЖ
зНl95Ю║1НfьНZDVьБэб3_Г&ЇoНK9Ю║1НFжН>M&╬ ╬жН0M&
ьбэБ3_Г&Ї9жаюбГ  'зА3_Г&Ў ъ9UЕ* <М╢
зНфM&	╠эН╓ ╠эН═3Н╘яН╟3Н╔яН╣▄║уН╖Г
эНожд╬бд&3A зАяБжд э4гНФ$*5мНЗ'1! ╪зАяБO╬  зАяБгНmэНv=sЖ
зНl95Ю║1НfьНZDVьБэб3_Г&ЇoНK9Ю║1НFжН>M&╬ ╬жН0M&
ьбэБ3_Г&Ї9жаюбГ  'зА3_Г&Ў ъ9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                NOTHER PROGRAM AT      ITS COMPLETION? (Y/N)"8ZДK$│ Т:ЕK$│"N" з RF$│"":Р :ДЕK$┤▓"Y" з60208`ОЗ8еШЗ" WHAT IS THE FILENAME OF THE     PROGRAM TO BE RUN? ";:╗ Й RF$8л╙Р8▒^З8╒'Ю0:DY│3:DX│28:VF│1:HF│1:Бж 10008ў'З@227," FILENAME: ";:╗ Й F$:Р9K├PЖFORTD=0TO1E32,K$=INKEY$,IFK$=Y$ THEN PD=-2 ELSE IFK$=N$ THEN PD=0 ELSE NEXT TD9R├ZЖ*9m├[Ж"IFPD<>0 THEN RETURN"9Г├dЖ"PRINT@482,PM$;"9е├nЖK$=INKEY$,IFK$=NL$ THEN 90209▒├xЖRETURN9╕├│Ж*9┼ъ`└1:Бе 20:HF│1:Бж 10008ў'З@227," FILENAME: ";:╗ Й F$:Р9K├PЖFO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 x&&:ГCOPYRIGHT(C) T&D SOFTWARE 1988&c
Ю:З@227,"PRINT INSTRUCTIONS? (Y/N)":Y$│"Y":N$│"N":NL$│""&КPM$│"PRESS ANY KEY TO CONTINUE..."&ЩАTD│0е1E32&г(K$│ Т&╧2ЕK$│Y$ з PD│м2 :Д ЕK$│N$ з PD│0 :Д Л TD&╒<Ю&тFЗ#PD," "'PЗ#PD,"     PICTURE PACKER UTILITY     ";:Е PD┤▓0 з З#PD'+ZЗ#PD," "'gdЗ#PD," THIS UTILITY PROGRAM WILL TAKE ";:Е PD┤▓0 з З#PD'гnЗ#PD," A HIGH RESOLUTION GRAPHICS     ";:Е PD┤▓0 з З#PD'▀xЗ#PD," PMODE 3 OR 4 PICTURE AND PACK  ";:Е PD┤▓0 з З#PD(ВЗ#PD," IT DOWN.                       ";:Е PD┤▓0 з З#PD((МЗ#PD," "(dЦЗ#PD," EFFECTIVELY, YOU CAN TAKE      ";:Е PD┤▓0 з З#PD(ааЗ#PD," EITHER A HALF SCREEN OR A      ";:Е PD┤▓0 з З#PD(▄кЗ#PD," WHOLE SCREEN AND REDUCE IT'S   ";:Е PD┤▓0 з З#PD)┤З#PD," STORAGE SIZE.                  ";:Е PD┤▓0 з З#PD)%╛З#PD," ")a╚З#PD," THIS PROGRAM IS USEFUL IN WRIT-";:Е PD┤▓0 з З#PD)Э╥З#PD," ING GRAPHIC ADVENTURES.        ";:Е PD┤▓0 з З#PD)й▄Бж 9000)пцЮ)╝ЁЗ#PD," ")╔·З#PD," "*
З#PD," FROM THE MENU YOU CAN CHANGE   ";:Е PD┤▓0 з З#PD*A
З#PD," THE I/O DEVICE, LOAD A PICTURE,";:Е PD┤▓0 з З#PD*}
З#PD," VIEW A PICTURE, PACK THE       ";:Е PD┤▓0 з З#PD*╣
"З#PD," PICTURE, AND SAVE THE PACKED   ";:Е PD┤▓0 з З#PD*ї
,З#PD," PICTURE MODULE.                ";:Е PD┤▓0 з З#PD+
6З#PD," "+>
@З#PD," TO USE THIS PROGRAM:           ";:Е PD┤▓0 з З#PD+z
JЗ#PD," FIRST, YOU WILL PROBABLY WANT  ";:Е PD┤▓0 з З#PD+╢
TЗ#PD," TO LOAD IN A PICTURE. YOU MIGHT";:Е PD┤▓0 з З#PD+Є
^З#PD," WANT TO VIEW THE PICTURE TO BE ";:Е PD┤▓0 з З#PD,.
hЗ#PD," SURE IT IS THE CORRECT ONE.    ";:Е PD┤▓0 з З#PD,;
rЗ#PD," ",H
|З#PD," ",T
ЖБж 9000,Z
РЮ,g
ЪЗ#PD," ",г
дЗ#PD," NEXT, YOU CAN PACK THE PICTURE.";:Е PD┤▓0 з З#PD,▀
оЗ#PD," AFTER PACKING, YOU SHOULD SAVE ";:Е PD┤▓0 з З#PD-
╕З#PD," THE PACKED MODULE.             ";:Е PD┤▓0 з З#PD-(
┬З#PD," "-d
╠З#PD," TO VIEW THE PACKED MODULE:     ";:Е PD┤▓0 з З#PD-а
╓З#PD," LOADM OR CLOADM THE MODULE     ";:Е PD┤▓0 з З#PD-▄
рЗ#PD," AND THEN ENTER EXEC.           ";:Е PD┤▓0 з З#PD-щ
ъЗ#PD," ".%
ЇЗ#PD," NOTE: MODULES ARE SAVED START- ";:Е PD┤▓0 з З#PD.a
■З#PD," ING AT 15670. MODULES, HOWEVER,";:Е PD┤▓0 з З#PD.ЭЗ#PD," ARE RELOCATABLE.               ";:Е PD┤▓0 з З#PD.кЗ#PD," ".╖З#PD," ".─&З#PD," ".╨0Бж 9000.╓:Ю.уDЗ#PD," "/NЗ#PD," TO SAVE THE MACH ╞&<
В COPYRIGHT (C) T&D SOFTWARE 1988      write up editor&L╚0:Бе 60000&|Е Ж(116)│&H7F з Х16000:MP│20 :Д Х 4000:MP│8&бМ L$(MP,14),IP(20):BL$│ б(32,32)&┬ Е  Ж(186)│14 з DN│1 :Д DN│м1&ъ"А I│1 е MP:А J│0е14:L$(I,J)│BL$:Л:Л')2IP(2)│1:PP│99:Ю0:HF│1:VF│1:DY│11:DX│28:BD$│ Л(255):Бж 1000'n4З@PP,"     I/O DEVICE = ";:Е DN│1 з З"DISK    "; :Д З"TAPE    ";'Щ6З@PPл064,"  C. CHANGE I/O DEVICE    ";'─8З@PPл096,"  E. ENTER/EDIT TEXT      ";'я:З@PPл128,"  S. SAVE THE TEXT FILE   ";(<З@PPл160,"  L. LOAD AN OLD TEXT FILE";(E>З@PPл192,"  P. PRODUCE PROGRAM      ";(p?З@PPл224,"  H. HARD COPY PRINTOUT   ";(Ы@З@PPл256,"  Q. QUIT                 ";(▒PK$│ Т:ЕK$│"" з 80(├QЕ K$│"C" з 90(╓RЕ K$│"E" з 100(щSЕ K$│"S" з 200(№TЕ K$│"L" з 300)UЕ K$│"P" з 400)"VЕ K$│"Q" з 990)5WЕ K$│"H" з 800)?YБе 80)ZZЕ DN│1 з DN│м1 :Д DN│1)d[Бе 52)|dPG│1:CX│0:CY│0:MD│0)ОfБж2000:Бж3000)жiАI│338е345:ТI,255:Л)чnAQ│CYн32лCXл1024:Q│ Ж(AQ):Е CX│31 з а1,1 :Д Е CX│0 з а 255,1*
pТAQ,191:ТAQ,Q:K$│ Т:Е K$│"" з 112*xЕK$┤▓"^" з125*>zЕCY│0 з110 :ДCY│CYм1:Бе105*S}ЕK$┤▓ Л(10) з130*uЕ CY│14 з110 :Д CY│CYл1:Бе105*ЙВЕK$┤▓ Л(8) з133*╚ДЕ CX▓0 з CX│CXм1:Бе105 :ДЕCY│0 з110 :Д CY│CYм1:CX│31:Бе105*▄ЕЕ K$┤▓"\" з 135+<ЖL2$│L$(PG,CY):L3$│ О(L2$,CX)л Р(L2$,CXл2)л" ":L$(PG,CY)│ О(L3$,32):З@CYн32,L$(PG,CY);:Бе105+RЗЕ K$┤▓ Л(9) з 138+ХЙЕ CX┤31 з CX│CXл1:Бе105 :Д Е CY│14 з 110 :Д CY│CYл1:CX│0:Бе105+╧КЕ K$┤▓ Л(13) з 140 :ДЕCY│14 з110 :ДCY│CYл1:CX│0:Бе105+сМЕK$┤▓"_" з144,ОЕPG│0 з110 :ДPG│PGм1:Бе102,РЕK$┤▓"[" з146,2СЕPG│MP з110 :ДPG│PGл1:Бе102,GТЕK$┤▓ Л(12) з148,[УCX│0:CY│0:Бе110,mФЕK$│"@" з 180,|ХЕMD│1 з155,зЦ Р(L$(PG,CY),CXл1,1)│K$:З@CYн32лCX,K$;,тЧCX│CXл1:ЕCX┤32 з110 :ДЕCY│14 з110 :ДCY│CYл1:CX│0:Бе110-ЫЕ П(L$(PG,CY),1)┤▓" "  ▒ CY│31 з а1,1:Бе110-sЬL2$│L$(PG,CY):L3$│ О(L2$,CX):L4$│ Р(L2$,CXл1):L$(PG,CY)│ О(L3$лK$лL4$,32):З@CYн32,L$(PG,CY);-ЫЮCX│CXл1:ЕCX┤32 з 110 :Д CX│31:Бе110-▓┤K$│ Т:ЕK$│"C" з190-╙╡ЕK$│"I" з MD│1:Бж 3000:Бе110-Ї╢ЕK$│"O" з MD│0:Бж 3000:Бе110.╖ЕK$│"@" з110.╕ЕK$│"Q" ▒ K$│"X" з 50.)╜Бе180.2╛P1│1.^┐Е Р(L$(PG,CY),P1,1)│" " з P1│P1л1:Бе191.o└P1│P1м1:P2│1.Ю┴Е Р(L$(PG,CY),33мP2,1)│" " з P2│P2л1:Бе193.к┬P2│P2м1.╙├Е  В(P2мP1)┤│1  ▒ (P1│0 ░ P2│0)з 110/I─L2$│L$(PG,CY):SC│ Б( В(P2мP1)о2):Е P1┤P2 з L$(PG,CY)│ б(SC,32)л О(L2$,32мSC) :Д L$(PG,CY)│ П(L2$,32мSC)л б(SC,32)/`╞З@CYн32,L$(PG,CY);/j╟Бе110/z╚В SAVE FILE/Я╥BD$│ Л(223):Бж 10000:Е F$│"" з50/╖▄Щ"O",#DN,F$:З#DN,MP/╞цА I│1 е MP/сЁА J│0 е 14:L2$│L$(I,J)/∙·Е L2$│BL$ з L2$│" "0
З#DN,L2$0
Л J:Л I0 
"Ъ#DN:Бе5000
,В LOAD FILE0U
6BD$│ Л(239):Бж 10000:Е F$│"" з500m
@Щ"I",#DN,F$:Й#DN,MP0|
JА I│1 е MP0Ц
TА J│0 е 14:╗ Й#DN,L2$0о
^Е L2$│" " з L2$│BL$0╛
hL$(I,J)│L2$0╩
rЛ J:Л I0╪
ЖЪ#DN:Бе500Ё
РBD$│ Л(143):Бж100001
СЕF$│"" з 501$
ТБж6000:NP│MP:Щ"O",#DN,F$л".BAS"1J
УF│0:АW│0е14:ЕL$(NP,W)┤▓BL$ з F│NP1l
ФЛW:ЕF│0 з NP│NPм1:ЕNP▓1 з 4031А
ЦЕ NP▓MP з NP│MP1М
ЪП:LN│102
ЫL2$│"CLS:PRINT@227,"л Л(34)л"PRINT INSTRUCTIONS? (Y/N)"л Л(34)л":Y$="л Л(34)л"Y"л Л(34)л":N$="л Л(34)л"N"л Л(34)л":NL$="л Л(34)л Л(34):Бж 50002c
ЬL2$│"PM$="л Л(34)л"PRESS ANY KEY TO CONTINUE..."л Л(34):Бж 50002{
дН L2$:ЕL2$│"*" з5002Ж
оБж50002Р
╕Бе4202Я
ЇА I│1 е NP2┤
■L2$│"CLS":Бж500035АJ│0е14:Е L$(I,J)│BL$ з L2$│"PRINT#PD,"л Л(34)л" "л Л(34) :ДL2$│"PRINT#PD,"л Л(34)лL$(I,J)л Л(34)л";:IF PD<>0 THEN PRINT#PD"3AБж 50003IЛ J3f&L2$│"GOSUB 9000":Бж 50003n0Л I3Б1Е RF$│"" з 5854
:L2$│"CLS:PRINT@230,"л Л(34)л Л(34)л";:IF PEEK(186)=14 THEN PRINT"л Л(34)л"RUNNING "л Л(34)л"; ELSE PRINT"л Л(34)л"CLOADING "л Л(34)л";"4?Бж 50004ЙDL2$│"PRINT"л Л(34)лRF$л Л(34)л":IF PEEK(186)=14 THEN RUN"л Л(34)лRF$л Л(34)л" ELSE CLOAD"л Л(34)лRF$л Л(34)4ХFБж 50004лIL2$│"END":Бж 50004╖NLN│90004╧XН L2$:ЕL2$│"*" з7004сbБж 5000:Бе6004ъ╝Ъ#DN4єБе505 В PRINT OUT5*А I│1 е MP5!4А J│0 е 145;HЗ#м2,L$(I,J):Л:З#м2:Л5EГБе 505u▐Ю0:VF│1:HF│1:DY│3:DX│21:BD$│ Л(191):Бж 10005Ц▀З@230," OK TO QUIT? (Y/N) ";5мрK$│ Т:ЕK$│"N" з505┐сЕK$┤▓"Y" з 9925┼чК5сшЕ VF з BY│ Б((16мDY)о2)5¤щЕ HF з BX│ Б((32мDX)о2)6oъА YC│0 е DYм1:P│(YCлBY)н32лBX:ЕYC│0 ▒ YC│DYм1 ▒ IP(YC)┤▓0 з З@P, б(DX,BD$);:IP(YC)│0 :ДЗ@P,BD$;:З@PлDXм1,BD$;6uыЛ6{ёР6Х╨В UPDATE WHOLE SCREEN6╢┌Ю:АI│0е14:З@Iн32,L$(PG,I);:Л6╝3Р6╥╕В UPDATE CMD LINE7┬Е MD│0 з MD$│"OVERWRITE" :Д Е MD│1 з MD$│"INSERT   "7T╠З@480,═"%   % PAGE ##   %       % %   %"; б(8,175);PG;MD$; б(8,175);7bТ1535,1757hР7ДИL$│ Р( И(LN),2)л" "лL2$7РТЗ#DN,L$7ЭтLN│LNл107гыР7оpЮ:З@968,zЗ" DO YOU WANT THE INSTRUCTION     PROGRAM TO IMMEDIATELY LOAD     AND RUN AМ Ж ╖ ╟╖ ╚╖ ═]
8Ж╚╖ "╖ ┼ЕунЯа'· ┘4vОь┴эБж└зА0И1?&ё5v94vОь┴эБь┴эБ0И1?&ё5v94vОь┴эБ0И1?&ї5v9Ж╖ "╖ ─ОЖа╞аэАМ%∙╬+╬о┴ь┴Г  'эБ Їь@Г  &ънЯа'·9O_ОэБМ%∙╬(╕ОД╞ў'В l4@0╬+* b5@0Й
{3╚`z'В&хОР╬*8 KО╬*Ш BОХ╬+B 9О 3О  0&№нЯа'·9O_¤'.¤'0╖'2Ж╖'kЖ╖'ПО╠эБМ└%∙╠UUэБМ%∙╠  ОаэБМ└%∙О#┐'mЖ╖'}Ж1╖'~O╖'o╬(x■ъО╢'kJ'■▐0J&°Ж
╖'p╖'w╖'ЗЖ'╖'sО($┐'q'uО'РO_эБМ(
%∙╞ў'ВОО',жа╞=╬*°3╦╞ж└з0И Z&Ў0Й _z'В&с■'qz'u,,Ж╖'uz'p&ж└╖'zц└ў'pГ(t%╬($ 'q 
╢'s╗'zJ╖'sЎ'sЖ =Ор0ЛО(╢'u╗'u1ж╞ Ё'pў'ВЖ'╗'s╖'tЎ'p╢'z'Б
')Ш╗'t╖'tж!з0И!Z&°0Ир ж з0Исz'tZ&ї0И  
:■'qж└ц└ё'В%Ў'Вў'wў'vБ'Б
')Ш╗'t╖'tж!з0И!Z&°0Ир ж зz't0ИсZ&ї0И  
:Ў'ВЁ'vў'В&▒┐'x 'ЕнЯа
╛'m╢
ZБ%,Б0%I╢'}LБK'╖'}|'o╢'oБ%O╖'oззИ зИ@зИ`0
 !╢'}J'╖'}z'o,Ж╖'o_ччИ#чИCчИc0╢
[Б%Б0%O_ээ0И |'~ z'~O_эИ`эИb0Ир╬(x╢'o╞=3╦¤┐'m╢'o╞=╬(3╦ьИрд@&)фA&%ьИтдB&фC&ьЙАд@&фA&ьЙВдB&фC& Ж
╖'Й╢ 
Дў╖ 
╢ Дў╖ ╢ #К╖ #╛'x■'Еж^Б
&╘╢'wБ%╦z'Г&─Ж╖'Г╢'Д'@Б
'p'Д╞О'Рm '1&Z&ўбz'З,Ж╖'З╢'З╞`=╬(╕3╦я!Жtз 0Й■¤п#Жз% zЖ
╖'Д╞О'вж '1(Z&ў dЖ
з Жtз!╢'tз"0Й■¤п#Жз%╠*8э& F╢'КБ%'Д Ж╖'Д}'К'0О'║m '1(m '1(m ' Ж
з Жtз!Ж
з"О]п#Жз%О*Шп&╞ў'ВО'Рm '*j &
╬'Єо#√в j%,
Жз%о#0п#ю!ж%╞=3╦о#√Д1&z'В&╦О'в╞ў'Вж 'cj!&o о#╬'Є√` Sj%,
о#0п#Жз%ж Б'ж"░'~╖'Бж!░'}▒'Б.Жз j"ж"Б"o о#╬'Є√" о#0Ирп#о#ю&ж%╞=3╦√1(z'В& О╞ў'ВО'║m 'Lj!&o ╬'Єо#·ч <ж Б
'о#0Ирj"ж"Б
"j о#0И l"ж"Б/%l j%,Жз%0п#╞ж%=ю&3╦·й1(z'В&йz'И&eЖ╖'И╢ Б 'YБ'U╞О'╥m '1$Z&ў D╢'}Лз ╛'m0ИCп"╢'~LLз!|'М|'Л╞О'тm '1$Z&ў ╛'m0Йгп"╢'}Лз ╢'~Лз!╞ў'ВО'т╬'╥m@'0оBOзж
'ж@╖'АжA╖'o@
 0
пBж@ЛБ|%o@ з@Жзm 'Aо"omИ@',жИ!Д4цИ!XXXXчИ кИ 5зИ ж ╖'Аж!LL╖'╧o  0И п"l!ЖЁзИ 1$3Dz'В& |╢'Л'LБ
'+Ў'НTў'В╞╬+║ж└╖  Z&°╞Z&·z'В&цz'М&1'Л ,Ў'Нў'В╞╬+║ж└╖  Z&°z'В&юz'Л ЖЎ'Н=
0&∙╢'КБ%╢'Н▒'О'
z'П&z'НЖ ╖'П╢'ЙБ
'·░'Йz'k&·9╬'Є3╔╨О╨╛'m∙ж@Д№╖  3_1?&Ё94V╬'Р╞╢'Аб@%#Аб@"4╞ Ж╖'ЛЖ╖'М5О+ZпAЖз@НP K3FZ&╤╬'в╞╢'АбA%5АбA"/╢'бB%(АбB""О+ZпF╢'КБ
.ЖзAЖ╖'ЛЖ╖'М 3HZ&┐5V94v╞О'.Оl жаБ	"╞
 o?O╬*°4╞=3╦╞ж└з0И Z&Ў50Й _Z&╥╢'К'
Б
'Б' $╢'0'|'К ╢'0Б%Ж╖'К ╢'0Б%Ж╖'К5v9     SCORE: XXXX4HIGH SCORE: SAME GAME? (Y OR N)  LEVEL? (1-9) └0МжЕХЦ'╞
ЪЦЧЦщO'Б,
╨щГ
&	╞Є Є
Ц&¤Ищx ю @@А
НМНУ %НМН¤ЖМЖЧФ9й╫Х■Е$■-ЖЧЭУ9Х▌ХЖЧЭ д2bЖЧЭшс'-ЧЖш┌'&СЖ'
╠ЧХЖ
ЧУ
В+

юЖЧ   ?  └  Ё  №U@P
T




















		

а*и
кк*кА(
АкккА
ка
а*АккакиАи
а*кикк?№╩Г╚╩╚  юю╗╗ 2а└2└2А└2└? └;╗А.ю└ └и0А0а0А0 Ёюр╗░ Ё* (  №╗╕юьЁ0└└?№
а00№л:к└:к└ №0└ к└к░к░ └ └├?└└0 Ё?└└0№є╧├№3└└└├?<└3Ё└?└Ё0└Ё0└└0№0├0<0<0Ё╠?Ё╠└00№*иА*и000№
к кА0└├ кА кА?└каАкаА└╧╠ №╧╠└└└Ё3є? 0є0░0°№└ └№└??0 Ё0Ё:мъл:мЁ№л:к└л№ └0└ ?└└0└0?└?333?<??0????00??0<<?0?3??00?3?3??3?<??333333??????3333033???
А&Ш[х[х&Ш@└¤
з
з■0
mp╜└
 а}└
y░8Я`па №паЯ`  0@P`pАРа░ЁЁр╨ЁЁЇЇkAIR ATTACK  ╧BY  )PAUL GRIFFITHS  АWRITTEN:  JANUARY 1984  гSUBMITTED:MAY 1984  └TO: T&D SUBSCRIPTION SOFTWARE     Ж ╞ ОэБМ%∙О  0&∙}'l'й╬',О'?╞3F1'жвб@"%3_Z&є╬',О'?ь┴эбь┴эбь┴эбж└заО@╞╬' ж└зАZ&∙╞3Gж┬Л0зАZ&ў╬'3ОА╞ж└зАZ&∙╞3Gж┬Л0зАZ&ў╬'FО└╞ж└зАZ&∙О  0&№Ж ╖╓4@нЯа5@╞Ёў╓Z&°M'уБN'Бn&lЖN╖╓О╬'[╞
ж└зАZ&∙Ж ╖нЯа╞ЁўZ&°M'ъБ1%цБ9"тА0Б%Б%	╞ў'hА 
╞
ў'hА 'hJ╞
=¤'m╠<│'mў'iГў'jЖ
╖'l╢'h╖'К╢'i╖'Н╢'j╖'О9░  ь┴эбж└заО@╞╬' ж└зАZ&∙╞3Gж┬Л0зАZ&ў╬'3ОА╞ж└зАZ&∙╞3Gж┬Л0зАZ&ў╬'FО└╞ж└зАZ&∙О  0&№Ж ╖╓4@нЯа5@╞Ёў╓                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ";:Е PD┤▓0 з З#PD/%vЗ#PD," "/aАЗ#PD," CLEAR.......'HOME' THE CURSOR  ";:Е PD┤▓0 з З#PD/ЭКЗ#PD," SHIFT CLEAR..DELETE CHARACTER  ";:Е PD┤▓0 з З#PD/┘ФЗ#PD," AT KEY.......COMMAND KEY FOLLOW";:Е PD┤▓0 з З#PD0ЮЗ#PD,"              BY 'I','O','C',   ";:Е PD┤▓0 з З#PD0QиЗ#PD,"              OR 'Q'            ";:Е PD┤▓0 з З#PD0^▓З#PD," "0k╝З#PD," "0x╞З#PD," "0Е╨З#PD," "0С┌Бж 90000ЧфЮ0дюЗ#PD," "0р°З#PD," ENTERING/EDITING TEXT (CONT.)  ";:Е PD┤▓0 з З#PD0эЗ#PD," "1)З#PD,"          COMMAND KEYS          ";:Е PD┤▓0 з З#PD16З#PD," "1r З#PD," PRESS THE AT KEY, THEN RELEASE ";:Е PD┤▓0 з З#PD1о*З#PD," IT AND THEN PRESS KEY OF DE-   ";:Е PD┤▓0 з З#PD1ъ4З#PD," SIRED COMMAND.                 ";:Е PD┤▓0 з З#PD1ў>З#PD," "23HЗ#PD," O..........SET OVERWRITE MODE  ";:Е PD┤▓0 з З#PD2oRЗ#PD," I..........SET INSERT MODE     ";:Е PD┤▓0 з З#PD2л\З#PD," C..........CENTER CURRENT LINE ";:Е PD┤▓0 з З#PD2чfЗ#PD," Q..........QUIT EDITING/RETURN ";:Е PD┤▓0 з З#PD3#pЗ#PD,"            TO MENU             ";:Е PD┤▓0 з З#PD30zЗ#PD," "3<ДБж 90003BОЮ3OШЗ#PD," "3ЛвЗ#PD," ONCE YOU'VE ENTERED YOUR TEXT, ";:Е PD┤▓0 з З#PD3╟мЗ#PD," YOU CAN SAVE IT TO TAPE OR DISK";:Е PD┤▓0 з З#PD4╢З#PD," FOR LATER RECALL.              ";:Е PD┤▓0 з З#PD4└З#PD," "4L╩З#PD," WHEN YOU RELOAD THE DATA LATER,";:Е PD┤▓0 з З#PD4И╘З#PD," YOU WILL BE ABLE TO EDIT IT.   ";:Е PD┤▓0 з З#PD4Х▐З#PD," "4╤шЗ#PD," WHEN YOUR TEXT IS READY, SELECT";:Е PD┤▓0 з З#PD5
ЄЗ#PD," THE PRODUCE PROGRAM MENU       ";:Е PD┤▓0 з З#PD5I№З#PD," OPTION. ENTER THE FILENAME YOU ";:Е PD┤▓0 з З#PD5ЕЗ#PD," WANT THE PROGRAM CREATED UNDER ";:Е PD┤▓0 з З#PD5┴З#PD," AND LET THE COMPUTER DO THE    ";:Е PD┤▓0 з З#PD5¤З#PD," REST.                          ";:Е PD┤▓0 з З#PD6
$З#PD," "6.Бж 900068Ю6)BЗ#PD," "6eLЗ#PD," THE CREATED PROGRAM WILL PRINT ";:Е PD┤▓0 з З#PD6бVЗ#PD," THE TEXT ON THE SCREEN OR ON   ";:Е PD┤▓0 з З#PD6▌`З#PD," THE PRINTER WHEN IT IS RUN.    ";:Е PD┤▓0 з З#PD6ъjЗ#PD," "7&tЗ#PD," THIS PROGRAM PROVIDES YOU WITH ";:Е PD┤▓0 з З#PD7b~З#PD," AN EASY WAY TO EDIT TEXT-      ";:Е PD┤▓0 з З#PD7ЮИЗ#PD," ORIENTED BASIC PROGRAMS.       ";:Е PD┤▓0 з З#PD7лТЗ#PD," "7╕ЬЗ#PD," "7┼жЗ#PD," "7╥░З#PD," "7▀║З#PD," "7ь─З#PD," "7∙╬З#PD," "8╪Бж 90008BтЮ:З@230,"";:Е  Ж(186)│14 з З"RUNNING "; :Д З"CLOADING ";8|ьЗ"WRITE-UP":Е  Ж(186)│14 з О"WRITE-UP" :Д Ч"WRITE-UP"8ВЎК8С#(ЕPD┤▓0 з Р8а#2З@482,PM$;8к#<K$│ Т8╜#FЕK$│NL$ з 90208├#PР7╥░З#PD," "7▀║З#PD," "7ь─З#PD," "7∙╬З#PD," "8╪Б:З@Xл32,C$:З@Xл64,C$:З@Xл3,A1$:З@Xл36,A1$:З@Xл68,A1$:ЛX9<EР9eFЙ"LOAD FILE (Y/N)";Q$:ЕQ$│"Y"з71:Д 29╣GЮ7:З@72,"tAPE/dISK/mENU";:ЙQ$:ЕQ$│"T"▒ Q$│"t"з DV│м1:Д ЕQ$│"D"▒ Q$│"d"з DV│1:Д2:cHЗ@129,"PRESET FILE NAME-PRESS <ENTER>";:З@193,"OTHERWISE, TYPE YOUR FILE NAME";:З@225," (8 CHAR.-NO DISK EXTENSION)  ";:З@257, б(31,239);:Й F$:Е F$│""з F$│"LOTTODAT":╦IЕ DV│1 з F$│F$л"/DAT":Д З@355,"PREPARE TAPE AND RECORDER";:З@451,"PRESS ANY KEY WHEN READY";:в44539;JЮ4:З@107,"-LOADING-";:Щ"I",#DV,F$:Й#DV,N:АX│1е N:АY│0е7:Й#DV,L$(X,Y):ЛY,X:Ъ#DV;FKЮ3:З@107,"-WORKING-";:Бж84:Бж81:Бе2;QLАY│1е2;═MАX│1088е1117й6:ТX,207:а1,1:ЛX:АX│1088е1117й6:ТX,143:ЛX:а1,1:АX│1059е1087й6:ТX,207:а1,1:ЛX:АX│1059е1087й6:ТX,143:ЛX:а1,1<INАX│1024е1054й6:ТX,207:ЛX:а1,1:АX│1024е1054й6:ТX,143:ЛX:а1,1:АX│1059е1087й6:ТX,207:ЛX:а1,1:АX│1059е1087й6:ТX,143:ЛX:а1,1<ROЛY:Р<cPАX│1е20:ЛX:Р<╝QАX│1 е 49:АY│0е1:R(X,Y)│0:ЛY,X:АX│1 е N:А Y│1 е 6:V│ Й(L$(X,Y)):R(V,0)│R(V,0)л1:ЛY,X<эRА X│1 е N: V│ Й(L$(X,7)):R(V,1)│R(V,1)л1:Л X<єSР==TАX│1 е N:Е  З(L$(X,0))┤5 з Е  Ю(1,L$(X,0),"-")│2з L$(X,0)│" "лL$(X,0)=xUЛX:АX│1е N:АY│1е7:Е  З(L$(X,Y))┤2з L$(X,Y)│" "лL$(X,Y)=ГVЛY,X:Р:АX│1 е N:А Y│1 е 6:V│ Й(L$(X,Y)):R(V,0)│R(V,0)л1:ЛY,X<эRА X│1 е N: V│ Й(L$(X,7)):R(V,1)│R(V,1)л1:Л X<єSР==TАX│1 е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 80,;:Й"PRESS <ENTER>";A$:Ю\▌▀З"USING THIS INFO, YOU CAN MAKE   LINES TO THROW THINGS, EAT, ETC.MAKE A LIST OF WHAT VARIABLES   YOU USE, SO YOU WON'T MAKE      MISTAKES WITH THEM. WHEN YOU    THROW A ROPE, MAKE T=1. THEN"]"фЗ"ON ANOTHER LINE, IF T=1 AND A$='GO ROPE', YOU CAN CLIMB ROPE."]DщЗ@480,;:Й"PRESS <ENTER>";A$:Ю^юЗ"FROM LINES 900 TO 999, MAKE     WHAT THE COMPUTER WILL SAY IF   IT DOESN'T UNDERSTAND A COMMAND.EXAMPLE-":З"910 IF LEFT$(A$,3)='GET' THEN       PRINT'YOU CAN'T GET THAT!':     GOTO500"^АєЗ:З"ALSO- IF A$='I' OR A$='INV'     THEN MAKE A 'GOTO 1000' THAT    PRINTS THE INVENTORY.":З@480,;:Й"PRESS <ENTER>";A$:Ю^■°З"USE THE SAME SYNTAX AS IN THE   'OBJECTS' ROUTINE (NUMBER 5 ON  THE MENU), BUT CHANGE lo TO '0'.AT 1100, PUT'GOTO 500'"_y¤З:З"I CAN'T HELP YOU WITH ANY MORE  INPUT, SINCE THERE ARE SO MANY  POSSIBILITIES.":З@480,;:Й"PRESS <ENTER>";A$:Бе 100_О@Ю:З"winning!!!!"`vEЗ:З"SOMEWHERE IN THE INPUT AREA     (505-899) YOU MUST DECIDE HOW   THE PLAYER WILL WIN. ONE WAY    IS THE 'GET' WIN. (REFER TO     'DEFINING THE INPUT'). AT THE   END OF THE LINE THAT ACCEPS     'GET DIAMOND', FOR INSTANCE,  "`НJЗ"ADD 'GOTO 5000'"`пOЗ@480,;:Й"PRESS <ENTER>";A$:ЮaTЗ"USE YOUR IMAGINATION IN MAKING  THE 'WINNING' SEQUENCES":З@480,;:Й"PRESS <ENTER>";A$:Бе 100aР#(Ю:З"FROM 5 TO 90, MAKE YOUR TITLE   SCREEN. (AN EXAMPLE IS THE ONE  FOR THIS PROGRAM).":З@480,;:Й"PRESS <ENTER>";A$:Бе 100aЦ'Юa╪'З@128," ENTER tAPE OR dISK TO LOAD      THE SAMPLE ADVENTURE"b'$I$│ Т:Е I$│"T" ▒ I$│"D" з 10030 :Д 10020bO'.Е I$│"T" з Ю:б И:З"LOADING...":Ч"ADVSAM" :Д Ю:З"LOADING...":О"ADVSAM"HE ONE  FOR THIS PROGRAM).":З@480,;:Й"PRESS <ENTER>";A$:Бе 100aЦ'Юa╪'З@128," ENTER tAPE OR dISK TO LOAD      THE SAMPLE ADVENTURE"b'$I$│ Т:Е I$│"T" ▒ I$│"D" з 10030 :Д                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ─&':ГCOPYRIGHT (C) T&D SOFTWARE 1988&d
Ю:З@227,"PRINT INSTRUCTIONS? (Y/N)":Y$│"Y":N$│"N":NL$│""&ЛPM$│"PRESS ANY KEY TO CONTINUE..."&ЪАTD│0е1E32&д(K$│ Т&╨2ЕK$│Y$ з PD│м2 :Д ЕK$│N$ з PD│0 :Д Л TD&╓<Ю&уFЗ#PD," "&ЁPЗ#PD," "',ZЗ#PD,"        WRITE-UP  EDITOR        ";:Е PD┤▓0 з З#PD'9dЗ#PD," "'unЗ#PD,"            UTILITY             ";:Е PD┤▓0 з З#PD'ВxЗ#PD," "'╛ВЗ#PD,"            PROGRAM             ";:Е PD┤▓0 з З#PD'╦МЗ#PD," "'╪ЦЗ#PD," "(аЗ#PD," THE WRITE-UP EDITOR PROGRAM IS ";:Е PD┤▓0 з З#PD(PкЗ#PD," A UTILITY WHICH CAN HELP YOU   ";:Е PD┤▓0 з З#PD(М┤З#PD," WRITE INSTRUCTION PROGRAMS THAT";:Е PD┤▓0 з З#PD(╚╛З#PD," RUN IN BASIC AND ALLOW PRINTER ";:Е PD┤▓0 з З#PD)╚З#PD," OUTPUT.                        ";:Е PD┤▓0 з З#PD)╥З#PD," ")▄Бж 9000)#цЮ)0ЁЗ#PD," ")l·З#PD," THIS PROGRAM IS MENU DRIVEN AND";:Е PD┤▓0 з З#PD)и
З#PD," EASY TO USE. THE MAIN MENU LETS";:Е PD┤▓0 з З#PD)ф
З#PD," YOU CHANGE THE I/O DEVICE BE-  ";:Е PD┤▓0 з З#PD* 
З#PD," TWEEN TAPE AND DISK, ENTER AND ";:Е PD┤▓0 з З#PD*\
"З#PD," EDIT TEXT, AND PRODUCE A PRO-  ";:Е PD┤▓0 з З#PD*Ш
,З#PD," GRAM THAT PRINTS AND DISLAYS   ";:Е PD┤▓0 з З#PD*╘
6З#PD," THE TEXT YOU ENTERED.          ";:Е PD┤▓0 з З#PD*с
@З#PD," "+
JЗ#PD," YOU CAN ALSO SAVE THE TEXT IN  ";:Е PD┤▓0 з З#PD+Y
TЗ#PD," A FORM THAT YOU CAN LOAD BACK  ";:Е PD┤▓0 з З#PD+Х
^З#PD," IN AND EDIT LATER.             ";:Е PD┤▓0 з З#PD+в
hЗ#PD," "+п
rЗ#PD," "+╝
|З#PD," "+╚
ЖБж 9000+╬
РЮ+█
ЪЗ#PD," ",
дЗ#PD,"     ENTERING/EDITING TEXT      ";:Е PD┤▓0 з З#PD,$
оЗ#PD," ",`
╕З#PD," WHEN ENTERING TEXT, THE ARROW  ";:Е PD┤▓0 з З#PD,Ь
┬З#PD," KEYS SERVE VARIOUS FUNCTIONS.  ";:Е PD┤▓0 з З#PD,й
╠З#PD," ",х
╓З#PD," UP ARROW..........CURSOR UP    ";:Е PD┤▓0 з З#PD-!
рЗ#PD," DOWN ARROW........CURSOR DOWN  ";:Е PD┤▓0 з З#PD-]
ъЗ#PD," RIGHT ARROW.......CURSOR RIGHT ";:Е PD┤▓0 з З#PD-Щ
ЇЗ#PD," LEFT ARROW........CURSOR LEFT  ";:Е PD┤▓0 з З#PD-╒
■З#PD," SHIFT UP ARROW....PAGE BACK    ";:Е PD┤▓0 з З#PD.З#PD," SHIFT DOWN ARROW..PAGE FORWARD ";:Е PD┤▓0 з З#PD.З#PD," ".+З#PD," ".8&З#PD," ".D0Бж 9000.J:Ю.WDЗ#PD," ".УNЗ#PD," ENTERING/EDITING TEXT (CONT.)  ";:Е PD┤▓0 з З#PD.аXЗ#PD," ".▄bЗ#PD," OTHER KEYS ALSO HAVE SOME      ";:Е PD┤▓0 з З#PD/lЗ#PD," FUNCTIONS.             ECTS HERE'. THE SYNTAX FOR  THIS IS-"JFтЗ@480,;:Й"PRESS <ENTER>";A$:ЮJМчЗ"<LINE NUMBER> IF O(#)=LO THEN   PRINT '<WHAT OBJECT 1 IS>':N=1"J╙ъЗ:З"AN EXAMPLE-":З"205 IF O(1)=LO THEN PRINT 'A        SWORD':N=1"KuьЗ:З"TRANSLATION- IF OBJECT #1 IS    IN THE ACTIVE ROOM, 'A SWORD'   WILL BE PRINTED. THEN, N IS SET TO '1' SO THE COMPUTER KNOWS    THERE IS AN OBJECT HERE."KЧёЗ@480,;:Й"PRESS <ENTER>";A$:ЮK■ЎЗ"MAKE A LINE FROM 205 TO 290 FOR EACH OBJECT. LINE 295 SHOULD BE 295  IF N=0 THEN PRINT'NOTHING'"Ld√З:З"BE SURE TO ADD 'N=1' AFTER EACH STATEMENT FROM 205 TO 290":З@480,;:Й"PRESS <ENTER>";A$:Бе 100LpЮ:З"MAKING DIRECTIONS"L╦uЗ:З"KEY-":З"D(1)='NORTH'":З"D(2)='SOUTH'":З"D(3)='EAST'":З"D(4)='WEST'"MzЗ:З"STARTING AT LINE 300,PRINT HOW  YOU CAN GO.":З@480,;:Й"PRESS <ENTER>";A$:ЮM╡З"LOOK AT YOUR MAP AND MAKE A     LIST OF ALL THE LOCATIONS THAT  LET YOU GO NORTH. IF YOU'RE AT  LOCATION #10, AND CAN GO NORTH, WRITE '10' DOWN"N(ДЗ:З"THEN, STARTING AT 300, MAKE     LINES TO DEFINE WHICH DIRECTIONSYOU CAN GO-":З@480,;:Й"PRESS <ENTER>";A$:ЮNОЙЗ"AN EXAMPLE-":З"305 IF LO=5 OR LO=8 OR LO=10        OR LO=7 OR LO=14 OR LO=16       THEN D(1)=1"N ОЗ:З"THIS MEANS- IF THE ACTIVE LO-   CATION IS 5 OR 8 OR 10 OR 7 OR  14 OR 16 THEN D(1)(WHICH IS     NORTH)=1O!УЗ@480,;:Й"PRESS <ENTER>";A$:ЮOжШЗ"IT IS GOOD TO START LOCATIONS   AT 305. AT 300, YOU NEED TO HAVETHE LINE-                       300  FOR X=1 TO 4:D(X)=0:NEXT"O╦ЭЗ:З"THIS RESETS THE DIRECTIONS."P$вЗ:З"MAKE LINES FROM 305 TO 349,     WITH THE ABOVE SYNTAX FOR ALL   FOUR DIRECTIONS"PдзЗ"d MEANS DIRECTION. IF D(1)=1 THEN YOU CAN GO NORTH, IF D(2)=1 THEN YOU CAN GO SOUTH, ETC..":З@480,;:Й"PRESS <ENTER>";A$:ЮQмЗ"HERE IS THE ROUTINE FOR 350-399.IT WILL BE THE SAME REGARDLESS  OF WHICH DIRECTION YOU CAN GO   AT WHICH LO-":ЗQ+▒З"350 C$=''"Q░╢З"355 IF D(1)=1 THEN C$=C$+'N-'   360 IF D(2)=1 THEN C$=C$+'S-'   365 IF D(3)=1 THEN C$=C$+'E-'   370 IF D(4)=1 THEN C$=C$+'W-'"Q·╗З"375 PRINT'YOU CAN GO':PRINT C$":З:З@480,;:Й"PRESS <ENTER>";A$:Бе100RXЮ:З"DEFINING THE INPUT--"R]З"AT LINE 500, CREATE THE INPUT   STATEMENT, USING THE VARIABLE   'A$'. HERE ARE SOME EXAMPLES.":ЗRхbЗ "500 LINEINPUT'OKAY-';A$         500 INPUT'WHAT NOW-';A$         500 INPUT'YOUR COMMAND==>';A$"SgЗ@480,;:Й"PRESS <ENTER>";A$:ЮSЭlЗ"FROM 505 TO 899, YOU START THE  'REAL' ADVENTURE. THIS IS THE   'TESTING GROUND' WHERE YOU      CHECK THE INPUT AGAINST ALL THE POSSIBILITIES."SтqЗ"START OUT WITH THE DIRECTIONS.  THIS IS THE TRICKY PART......"T2vЗ"LOOK AT THE MAP, AND COUNT THE  NUMBER OF CIRCLES ACROSS THE    TOP ROW."Tt{З"SUPPOSE YOUR NUMBER IS '5'--":З@480,;:Й"PRESS <ENTER>";A$:ЮT─АЗ"LINE 505 COULD BE-":З"505 IF A$='N' AND D(1)=1 THEN   LO=LO-5:GOTO 100":ЗUjЕЗ"TRANSLATION-":З"IF YOU INPUT 'N' AND DIRECTION#1IS AVAILABLE, '5' WILL BE  SUB- TRACTED FROM lo. LO SHOULD NOW  EQUAL THE ROOM JUST NORTH OF    THE FORMER lo."U┼КЗ:З"INSTEAD OF '5' USE THE NUMBER   OF CIRCLES YOU HAVE ON THE TOP  ROW YOU your MAP."UчПЗ@480,;:Й"PRESS <ENTER>";A$:ЮV-ФЗ"FOR SOUTH, CHANGE MINUS 5 TO    PLUS 5.":З"HERE IS AN EXAMPLE-"V╤ЩЗ:З"510 IF A$='S' AND D(2)=1 THEN       LO=LO+5:GOTO 100":З:З"THE 'GOTO 100' IS TO SEND THE   COMPUTER BACK TO 100, TO PRINT  THE DESCRIPTION OF THE NEW ROOM."WrЮЗ"FOR WEST, USE MINUS 1, AND FOR  EAST, USE PLUS 1. THIS WILL BE  THE SAME REGARDLESS OF HOW MANY CIRCLES ARE ACROSS THE TOP.":З@480,;:Й"PRESS <ENTER>";A$:ЮW╥гЗ"BE SURE TO USE THE CORRECT D#   FOR EACH DIRECTION!":З:З"NOW, FOR THE really TOUGH STUFF"XиЗ:З"GET, PUT, DROP, LOOK, EXAMINE,  USE, CUT, THROW, EAT, BREAK, ETC"X>нЗ@480,;:Й"PRESS <ENTER>";A$:ЮX─▓З"THE SYNTAX FOR GET IS-":З"<LINE NUMBER> IF LEFT$(A$,7)=   'GET BOT' AND O(1)=LO THEN PRINT'OKAY, YOU HAVE IT.':O(1)=0:GOTO 500"Yа╖З:З"USE ONLY THE THE FIRST THREE    LETTERS OF THE OBJECT TO GET, INTHIS CASE, BOT FOR BOTTLE.      O(1) IS THE OBJECT NUMBER FOR   THE BOTTLE. FOR DIFFERENT O'S,  USE O(2),O(3),ETC...":З@480,;:Й"PRESS <ENTER>";A$:ЮY╞╝З"EXAMPLE OF A 'LOOK' STATEMENT-"Z=┴З:З"845 IF LEFT$(A$,3)='LOO' AND        INSTR(A$,'GUN') AND O(4)=0      THEN PRINT'IT IS A HAND GUN'    :GOTO 500"Z╟╞З:З"WHEN YOU MAKE A LINE LETTING    YOU 'GET' SOMETHING, BE SURE    TO PUT 'O(#)=0'. WHEN AN OBJECT=0, IT MEANS YOU HAVE THAT OBJECT"Zщ╦З@480,;:Й"PRESS <ENTER>";A$:Ю[r╨З"WHEN YOU MAKE A LINE TO DROP    SOMETHING, BE SURE YOU ADD      O(#)=LO. THAT  PUTS THE DROPPED OBJECT AT THE CURRENT LOCATION.":З[ў╒З"AFTER EACH SENTENCE WHERE SOME- THING HAPPENS (SUCH AS SOMETHINGGOTTEN OR DROPPED), PUT 'GOTO   500' AT THE LAST OF THE LINE."\┌З@4"5 PART OF TITLE SCREEN":З"10 PART OF TITLE":З"15 PART OF TITLE":З"20 ETC...":З "95 SET LOCATIONS & OBJECTS"8┬ЇЗ"100 START DEFINING LOCATIONS":З"105 MORE LOCATIONS":З"190 LAST OF THE LOCATIONS"8ф■З@480,;:Й"PRESS <ENTER>";A$:Ю9]З"200 START VISIBLE OBJECTS":З"205 MORE OBJECTS":З"220 MORE OBJECTS":З"250 YET MORE OBJECTS":З"290 LAST OF OBJECTS."9яЗ"300 DEFINE DIRECTIONS":З"305 DEFINE MORE DIRECTIONS":З"350 FINISH DEFINING DIRECTIONS":З"355 PRINT DIRECTIONS":З"390 PRINT LAST DIRECTIONS":
З"500 INPUT 'WHAT NOW';A$":.З@480,;:Й"PRESS <ENTER>";A$:╙Ю:З"505 CHECK INPUT. IS IT 'NORTH'":З"510 CHECK INPUT. IS IT 'SOUTH'":З"550 FINISH CHECKING DIRECTIONS":З"600 CHECK INPUT":З"700 CHECK INPUT":З"800 CHECK INPUT";B!З"900 IF INPUT DOESN'T MATCH      ANYTHING ABOVE, PRINT THE       'I DON'T KNOW WHAT YOU MEAN'    MESSAGE";v&З"905 MORE MESSAGES":З"950 LAST OF THE MSSAGES";Ц+З@480,;:Й"PRESS <ENTER>";A$;є0Ю:З"1000 START SPECIAL ROUTINES.":З"1500 MORE ROUTINES":З"5000 LAST OF SPECIAL ROUTINES"<95З:З"YOU MAY WANT TO COPY THIS TO    PAPER TO SHAPE YOUR PROGRAM."<`:З@480,;:Й"PRESS <ENTER>";A$:Бе 100<|аЮ:З"MAKING LOCATIONS--"<╬еЗ"AFTER YOU MAKE YOUR MAP, YOU    ARE READY TO BEGIN DESCRIBING   THE ROOMS."=mкЗ"STARTING AT THE UPPER LEFT HAND CORNER, NUMBER THE CIRCLES ON   THE MAP--  WHEN YOU REACH THE   END OF A LINE, START ON THE NEXTLINE, ON THE LEFT SIDE."=ПпЗ@480,;:Й"PRESS <ENTER>";A$:Ю=л┤З"---EXAMPLE----":З:З:З>╣З"    1      2      3     4     5                                     6      7      8     9    10">Щ╛З"                                   11     12     13    14    15                                    16     17     18    19    20">╣├З@480,;:Й"PRESS <ENTER>";A$?╚Ю:З"EVEN IF ALL CIRCLES AREN'T USED (AS IN THE EXAMPLE 'MAP') NUMBERALL OF THEM ANYWAY"?ю═З:З"START YOUR PROGRAM WITH LINE 95.LOOK ON THE MAP TO SEE THE      NUMBER OF THE START ROOM. LET'S SAY THE START ROOM IS 5. LINE 95SHOULD SAY- LO=5. THIS MEANS    THAT THE ACTIVE LOCATION IS 5,  THE START ROOM."@╥З@480,;:Й"PRESS <ENTER>";A$:Ю@0╫З"LINE 100 SHOULD BE 'CLS'"@┤▄З:З"LINE 105 SHOULD BEGIN DESCRIPT- IONS, IN THIS FORMAT:           105 IF LO=1 THEN PRINT'YOU ARE  IN A ROUND CAVE-LIKE ROOM.'AUсЗ:З"THIS MEANS- IF THE ACTIVE ROOM  IS ROOM #1, THEN IT WILL PRINT  THE DESCRIPTION FOR ROOM #1.    AT LINE 110, PUT DESCRIPTION    FOR ROOM #2, AND SO ON."AvцЗ@480,;:Й "PRESS <ENTER>";A$A█ыЮ:З"lo IS THE VARIABLE FOR 'ROOM'.  THIS WILL BE USED TO LET YOU    KNOW WHICH ROOM IS 'ACTIVE.'BCЁЗ"THE FORMAT FOR ROOM DESCRIPTIONSIS   <LINE NUMBER> IF LO = <ROOMNUMBER> THEN PRINT '<ROOM DESC>'"BeїЗ@480,;:Й"PRESS <ENTER>";A$:ЮBЛ·З"HERE IS WHAT WE HAVE SO FAR-":ЗB╘З "95  LO=5":З"100 CLS:IF LO=1 THEN PRINT 'THIS    IS A ROUND ROOM.'C!	З "105 IF LO=2 THEN PRINT'ROOM #2.'":З"110 IF LO=3 THEN PRINT'ROOM #3.'"CгЗ"- AND SO ON, UNTIL YOU DEFINE   ALL THE ROOMS. (YOU DON'T HAVE  TO DEFINE THE ONES THAT WON'T   BE USED IN THE ADVENTURE.)"C╩З@480,;:Й"PRESS <ENTER>";A$:Бе 100CуИЮ:З"MAKING OBJECTS-"DНЗ"LINES 200-299 PRINT THE OBJECTS."DEТЗ"LINE 200 SHOULD BE  200 PRINT   'OBJECTS HERE':N=0"EЧЗ:З"n IS SET TO 0. HERE'S WHY.      EACH TIME AN OBJECT IS AT THE   ACTIVE LOCATION, N WILL BE SET  TO '1'. IF THERE ARE NO OBJECTS,N WILL REMAIN ZERO, AND THE     MESSAGE 'NOTHING OF INTEREST'   WILL BE PRINTED.'E?ЬЗ@480,;:Й"PRESS <ENTER>";A$E─бЮ:З"MAKE A LIST OF ALL OBJECTS YOU  WANT TO BE PRINTED UNDER THE    'OBJECTS HERE' MESSAGE.(NOT     NECESSARILY AT THE SAME lo."FKжЗ"DECIDE WHERE EACH WILL START.   EDIT LINE 95, AND ADD A LINE    96 IF NECESSARY, TO DEFINE      START LOCATIONS OF ALL OBJECTS."FmлЗ@480,;:Й"PRESS <ENTER>";A$:ЮF╘░З"LABEL EACH OBJECT IN ORDER.     THE FIRST IS O(1), THE SECOND ISO(2), THE THIRD IS O(3), ETC..."G╡З"AT 95 OR 96, ADD 'O(1)=<START LO>:O(2)=<START LO>:'. ETC..."G╚║З:З"o MEANS 'OBJECT'. THE NUMBER    FOLLOWING IT SPECIFIES WHICH    OBJECT IT IS.":З"THE NUMBER AFTER THE <=> IS THE ROOM NUMBER IT STARTS IN":З@480,;:Й"PRESS <ENTER>";A$:ЮG·┐З"LINE 95 SHOULD LOOK SOMETHING   LIKE THIS-"H>─З:З"95 LO=5:O(1)=1:O(2)=5:O(3)=8:O(4)=7:O(5)=9:O(6)=20:O(7)=25"HЬ╔З:З"THIS TELLS THE START 'LO' #,    AND THE START LOCATIONS OF      OBJECTS 1 THROUGH 7."I╬З:З"NOW THAT YOU HAVE DEFINED THE   START LOCATIONS, YOU MUST MAKE  THE ROUTINE THAT PRINTS THE     OBJECTS."I0╙З@480,;:Й"PRESS <ENTER>";A$:ЮIt╪З"YOU ALREADY MADE LINE 200. LINE 205 STARTS PRINTING OBJECTS."J$▌З"SUPPOSE O(1) (OBJECT #1) IS A   SWORD. IF THE SWORD IS IN THE   'ACTIVE' ROOM, YOU WANT THE     WORD 'SWORD' TO BE PRINTED UNDER'OBJ <P&':ГCOPYRIGHT (C) T&D SOFTWARE 1988&S
Ю(3):З"*******************************"&yЗ@256,"       adventure tutorial"&ЭЗ@320,"         BY MIKE SNYDER"&─А X│0 е 62:Ь(X,30,2):а Xн2л1,1:Л X&┘(А DLAY│1 е 500:Л&▀dЮ'iЗ"********** MAIN MENU **********"'knЗ"(1)  PREFACE":З"(2)  MAKING A MAP":З"(3)  STRUCTURE OF THE ADVENTURE":З"(4)  MAKING LOCATIONS"(
sЗ"(5)  MAKING OBJECTS":З"(6)  MAKING DIRECTIONS (N,W,ETC":З"(7)  DEFINING THE INPUT":З"(8)  WINNING OR LOSING":З"(9)  TITLE SCREENS":З"(10) SAMPLE ADVENTURE"(}xЗ@416,;:Й"WHICH NUMBER-";A:Е A┤1 ▒ A▓11 з 120 :Д И A Бе 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,(РшЮ:З"PREFACE--")эЗ"THIS ISN'T AN ADVENTURE GEN-    ERATOR. THIS PROGRAM MERELY     PROVIDES A FORMAT FOR MAKING    ADVENTURES OF YOUR OWN.")qЄЗ"READ EVERYTHING CAREFULLY,      SEVERAL TIMES IF NECESSARY. THENVIEW THE SAMPLE ADVENTURE."*#ўЗ"THIS FORMAT PROBABLY ISN'T THE  BEST, BUT IT IS EASY TO UNDER-  STAND. THIS FORMAT CAN BE USED  FOR ALL TYPES OF TEXT ADVENTURESAND CAN BE CHANGED TO FIT YOUR  OWN PLOTS."*J№З@480,;:Й"PRESS <ENTER>";A$:Бе 100*]╨Ю:З"THE MAP--"*▐╒З"BEFORE MUCH CAN BE ACCOMPOLISHEDYOU MUST FIRST TAKE THE TIME TO MAKE A MAP. THE FIRST STEP TO   MAPMAKING IS AN IDEA....."+┼┌З:З"BEFORE YOU EVER BEGIN, THINK OF WHAT THE ADVENTURE WILL BE      ABOUT. WILL IT TAKE PLACE ON A  SPACE SHIP? OR WILL YOU BE IN   THE JUNGLES OF AFRICA. ONCE THISIS DECIDED, MAKE A LIST OF SOME THINGS THAT COULD BE  IN YOUR"+·▀З"ADVENTURE, AND SOME THINGS THAT MIGHT HAPPEN.",фЗ@480,;:Й"PRESS <ENTER>";A$,=щЮ:З"---- A SAMPLE 'IDEA LIST'",аюЗ"* START IN DARK CAVE":З"* CHECK INV, YOU HAVE MATCH":З"*STRIKE MATCH":З"*SEE EXIT, GO NORTH",∙єЗ"* TRAILS IN ALL DIRECTIONS":З"*HEAR HEADHUNTERS":З"*LOOK TREE,SEE KNIFE,GET KNIFE"-▒°З"*SEE CASTLE IN FAR DISTANCE":З"*AT ONE PLACE IS STREAM":З"*LOOK STREAM, SEE KEY, GET KEY":З"*GIVE KEY TO DWARF":З"*IF YOU USE KEY, YOU LOSE IT":З"*ASK DWARF FOR HELP":З"ETC...";-╤¤З@480,;:Й"PRESS <ENTER>";A$-шЮ:З"GET THE IDEA?".ОЗ:З"NEXT, YOU MAKE THE MAP. USE A   BLANK SHEET OF PAPER, AND A PEN OR PENCIL. DRAW CIRCLES TO FORM A RECTANGE. THIS MAY BE OF ANY  SIZE (3 BY 5  -  6 BY 7,ETC.).оЗ@480,;:Й"PRESS <ENTER>";A$.└╚ 4,1:╝:┐ 1,1.°А X│20 е 200 й 40:А Y│20 е 150 й 40:┬(X,Y),10:Л Y,X/А X│1 е 1000:Л/ч Ю:З"NEXT, DRAW LINES TO MARK THE    OBVIOUS EXITS-- IF A LINE LEADS FROM ONE ROOM TO ANOTHER ROOM,  THAT MEANS YOU CAN TRAVEL       BETWEEN THOSE ROOMS BY TYPING   'E' OR 'N' OR 'S' OR WHATEVER   DIRECTION IT GOES."0%З@480,;:Й"PRESS <ENTER>";A$0*╚ 4,1:┐ 1,10A4╗(30,20)м(50,20),╜:╗(20,30)м(20,50),╜0m9╗(110,20)м(130,20),╜:╗(60,30)м(60,50),╜0м>╗(60,70)м(60,90),╜:╗(70,60)м(90,60),╜:╗(100,50)м(100,30),╜0╪C├(20,20),5,5:├(60,20),5,5:├(100,20),5,512H├(20,60),5,5:├(60,60),5,5:├(100,60),5,5:├(60,100),5,5:├(140,20),5,5:А DLAY│1 е 3000:Л1єMЮ:З"THE PAINTED CIRCLES WERE THE    ONLY ONES USED IN THE MAP. THE  OTHERS ARE EXTRA-- YOU'LL FIND  OUT WHY THEY ARE NEEDED LATER.  (OF COURSE YOU can USE ALL      CIRCLES IF YOU WANT TO.)2=RЗ"LOOK AT IT AGAIN-":З@480,;:Й"PRESS <ENTER>";A$:┐ 1,1:А X│1 е 3000:Л2╗WЮ:З"NOW, USE YOUR IDEA LIST TO FILL IN THE MAP.  IN THE CIRCLES, OR OUT BESIDE THEM, WRITE WHAT     SHOULD HAPPEN THERE."3+\З"WRITE 'START' AT THE STARTING   ROOM.  WRITE THE OBJECTS IN THE PROPER ROOMS. HERE IS AN EXAMPLEOF THIS-"3кaЗ:З"---- GET SWORD. LOOK TREE.      PULL LIMB. GET ORB THAT FALLS.  THROW ORB AT POND. STAB MONSTER THAT RISES FROM POND."3╩fЗ@480,;:Й"PRESS <ENTER>";A$3╨kЮ4jpЗ"BE SURE EVERTHING WORKS.        error example- A TROLL WILL     LEAVE YOU A SWORD WHEN YOU KILL HIM, BUT YOU CAN'T KILL HIM     WITHOUT THE SWORD!"4ЯuЗ"IN GENERAL, BE SURE THE PUZZLE  IS SOLVEABLE!"4╞zЗ@480,;:Й"PRESS <ENTER>";A$:Бе 1005C╕Ю:З"::: STRUCTURE OF THE ADVENTURE":З:З"YOUR TITLE SCREEN (WHICH WILL   COME LATER) WILL BE BETWEEN     LINES 5 AND 90."5Х╜З:З"AT 95-99, YOU WILL SET THE      START ROOM, AND LOCATIONS OF    OBJECTS."5╠┬З:З"AT 100-199, YOU WILL MAKE ROOM  DESCRIPTIONS."5ь╟З@480,;:Й"PRESS <ENTER>";A$6r╠Ю:З"AT 200-299, YOU WILL SET THE    VISIBLE OBJECTS.":З:З"300-399 WILL BE THE ROUTINE THATSETS AND PRINTS THE OBVIOUS     EXITS."6╚╤З:З"LINE 500 WILL CONTAIN YOUR      INPUT STATEMENT.":З@480,;:Й"PRESS <ENTER>";A$7╓Ю:З"LINES FROM 501 TO 899 WILL CHECKTHE INPUT WITH MANY POSSIBIL-    ITIES."7d█З:З"LINES 900-999 WILL PRINT THE    'I DON'T UNDERSTAND' STATEMENTS":З7╖рЗ"LINES FROM 1000 ON WILL         CONTAIN SPECIAL ROUTINES (IF    NECESSARY)."7╫хЗ@480,;:Й"PRESS <ENTER>";A$7ўъЮ:З"THE STRUCTURE LISTING-"8kяЗ:З 
&И
:ГTHE GAME OF whammy 3            (C) 1988 T&D SOFTWARE                                           WRITTEN BY BILL BERNICO         'NЮ:З"THIS IS THE GAME OF whammy. IT'SBASED ON THE DICE GAME 'SKUNK'. THE OBJECT IS TO BE THE FIRST   PLAYER TO ACCUMULATE THE NEEDED NUMBER OF POINTS.  AS YOU SHAKE THE DICE, YOU RACK UP POINTS.(,З"YOU CAN ROLL AS OFTEN AS YOU    LIKE, BUT IF A   w  COMES UP ON ONE DICE, YOU GET NO POINTS AND PASS THE DICE.  IF YOU GET A     w - w ,(A DOUBLE WHAMMY) YOU   LOSE all THE POINTS YOU RACKED  UP THROUGHOUT THE GAME.(X(З@484,"HIT ANY KEY TO CONTINUE";:в44539)2Ю:З"UP TO FOUR PEOPLE CAN PLAY AT A TIME.  SIMPLY ENTER EACH NAME ATTHE PROMPT.  THE FIRST NAME TO  BE ENTERED WILL NOT NECESSARILY BE THE FIRST TO THROW THE DICE.)Е<З"THE STARTING THROWER IS SELECTEDAT RANDOM AND THE NEXT THREE    PLAYERS FOLLOW IN ORDER.":З@485,"HIT ANY KEY TO BEGIN";:в44539)ЬFТ65497,0:т32:Х 500)═PИ Ё Бе 670:ў:D│0:E│0:F│0:G│0:H│0:I│0:K│0:L│0*ZDT$│"RDLU2R2D3L3U3F":DI$│"BL4BUR22D22L22U22E5R22NG5D22NG5U22L22G5BF3*3dЮ:Й"NUMBER OF PLAYERS";F*InЕ F┤1 ▒ F▓4 з 100*WxА G│1 е F*rВЗ"PLAYER #";G;:Й A$(G)*╟МЕ  З(A$(G))▓11 з Ю:а191,1:З"NAMES MUST BE 11 LETTERS OR LESS":АY│1е1500:ЛY:Бе100*╧ЦЛ G*█аH│ Д(F)+кЗ:З:Й"POINTS NEEDED TO WIN            (13-300)";L+*┤Е L┤13 ▒ L▓300 з 170+9╛ф2:ц8:ч4,8+G╚ц8:Бж 540+f╥ч Hм1:ъ(0,0)м(319,191),╜,B+Ц▄ї"BM4,85C"л И(Hм1)л"R155U12F18G18U12L155U12+╖цч Hм1:ю(2,11),A$(H)л"'S TURN+цЁї"BM150,5C"л И(Hм1)л"R163D39L163U39D12R163,·ч Hм1:ю(18,1),L:ю(23,1),"NEEDED TO WIN,q
I│ Д(6):ї"BM200,80C"л И(Hм1)лDI$:Z│I:Бж600:J│ Д(6):ї"BM240,80C"л И(Hм1)лDI$:Z│J:Бж600:K│IлJ,З
Е I│1 ░ J│1 з 390,Э
Е I│1 ▒ J│1 з 400,│
"E│EлK:D(H)│D(H)лK,╟
,Е D(H)│▓L з 470,ї
6ч Hм1:ю(18,3),E:ю(23,3),"POINTS THIS TURN, 
@Бж540-,
Jч Hм1:ю(18,4),D(H):ю(23,4),"TOTAL POINTS-c
Tч Hм1:ю(9,22),"ROLL AGAIN (Y/N)":╔"05T60BO2BO5BO2B-x
^B$│ Т:ЕB$│""з350-И
hЕB$│"Y"з200-Ш
rЕB$│"N"з410-г
|Бе 350.\
Жч Hм1:ъ(40,130)м(260,160),╜,B:ъ(35,125)м(265,165),╜,B:ш(37,127),Hм1,Hм1:ч Hм1:ю(7,17),"That's a DOUBLE WHAMMY!":╔"O1":АW│1е80:в43345:ЛW:ю(8,18),"Lose ALL your points!":D(H)│0:Бе410/
Рч Hм1:ъ(40,130)м(260,160),╜,B:ъ(35,125)м(265,165),╜,B:ш(37,127),Hм1,Hм1:ч Hм1:ю(11,17),"That's a WHAMMY!":╔"O5T60BGEO4CAFDO3BGEO2CAFDO1BGE":ю(6,18),"Lose all points THIS ROUND":D(H)│D(H)мE/+
ЪH│Hл1:E│0/;
дЕ H▓F з H│1/P
оБж 440:ц8:Бе 200/о
╕АY│1е750:ЛY:ъ(70,170)м(200,185),╛,BF:ю(6,22),"HIT ENTER FOR NEXT SHOOTER":╔"O1T60CBCBCBCB/├
┬Е  Т┤▓ Л(13)з450/╔
╠Р0&
╓ш(155,20),Hм1,Hм1:ч 8:ю(19,3),A$(H)л" WINS":ю(19,4),"WITH":ю(23,4),D(H):ю(28,4),"POINTS!01
рБж 5400U
ъч Hм1:ю(9,22),"PLAY AGAIN (Y/N)0j
ЇC$│ Т:ЕC$│""з5000Е
■Е C$│"N"з Ю:Т65496,0:К0ЦЕ C$│"Y"з 700бБе 5000║ъ(10,5)м(45,42),╛,BF0┌&ч0:ю(1,1),D(1):ю(6,1),A$(1)10ч1:Е F│▓2 з ю(1,2),D(2):ю(6,2),A$(2)1,:ч2:Е F▓│3 з ю(1,3),D(3):ю(6,3),A$(3)1UDч3:Е F│▓4 з ю(1,4),D(4):ю(6,4),A$(4)1^Nч8:Р1╜XЕ Z│1з ї"BD2BRC"л И(Hм1)л"NDR3DL2D3EUD5EUD5EUD5RU5FDU5FDU5RD5EUD5EUD5RU5FDU5FDU5FDU3RL3UR31хbЕ Z│2з ї"BR2BD2"лDT$л"BR10BD12"лDT$2lЕ Z│3з ї"BR2BD2"лDT$л"BR5BD6"лDT$л"BR5BD6"лDT$2ZvЕ Z│4з ї"BR2BD2"лDT$л"BR10BD12"лDT$л"BU12"лDT$л"BD12BL10"лDT$2йАЕ Z│5з ї"BR2BD2"лDT$л"BR10BD12"лDT$л"BU12"лDT$л"BD12BL10"лDT$л"BU6BR5"лDT$2ЇКЕZ│6з ї"BR2BD2"лDT$л"BD6"лDT$л"BD6"лDT$л"BR10"лDT$л"BU6"лDT$л"BU6"лDT$2·ФР3
Ют32:Т65496,0:КBD6"лDT$2ZvЕ Z│4з ї"BR2BD2"лDT$л"BR10BD12"лDT$л"BU12"лDT$л"BD12BL10"лDT$2йАЕ Z│5з ї"BR2BD2"лDT$л"BR10BD12"лDT$л"BU12"лDT$л"BD12BL10"лDT$л"BU6BR5"лDT$2ЇКЕZ│6з ї"BR2BD2"лDT$л"BD6"лDT$л"BD6"лDT$л"BR10"лDT$л"BU6"лDT$л"BU6"лDT$2·ФР3
Ю                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,1.SHOVELER,2.GREENWING TEAL,3.BLUEWINGED TEAL,4.BUFFLEHEAD,5.WOOD DUCKS,3,"3. BLUEWINGED TEAL                 ARRIVE LAST ALSO."9;ВЖ"42. USALLY LAST TO ARRIVE           AT NESTING GROUNDS?",1.SHOVELER,2.GREENWING TEAL,3.BLUEWINGED TEAL,4.BUFFLEHEAD,5.WOODY,3,"3. BLUEWINGED TEAL                 LEAVE FIRST ALSO.":ГЖ"43. ALL GOOSE DECOYS SHOULD         BE SET INTO THE WIND?",1.YES,2.NO,3.NOT NESSECARY,4.MAYBE,5.MUST BE,2,"2. NO                           RELAXED AND FEEDING THEY WILL   NOT ALL BE FACING THE WIND":йДЖ"44. HOW MANY DECOYS FOR             SEADUCKS?",1.500,2.1000,3.20,4.50,5.200,4,"4. 50 CONSERED ENOUGH           YET YOU CAN TAKE THEM           UP QUICKLY";ПЕЖ"45. SEADUCK HUNT                    DECOYS 10 ON A LINE             5 LINES,IS A GOOD IDEA?",1.NO,2.JUST LOOKS FUNNY,3.YES,4.DUCKS WILL NOT COME,5.ONLY SINGLES WILL COME,3,"3. YES--MUCH QUICKER               LESS DANGEROUS"<sЖЖ"46. PLASTIC JUGS ARE JUST AS        GOOD  AS REAL DECOYS WHEN       HUNTING SEADUCKS?",1.WORK GREAT,2.BIG FLOCKS WILL NOT COME,3.SINGLES WILL COME,4.SCAUP WILL DECOY,5.NO,5,"5. NO--JUGS WORK BUT               NOT AS GOOD"= ЗЖ"47. WHITE WINGED SCOTER ARE         SMALL DUCKS?",1.YES,2.SMALL AND BLACK,3.BIG AND WHITE,4.NO,5.GREEN,4,"4. NO                              BIGGER THAN PUDDLE DUCKS"=ЁИЖ"48. SCOTERS DO NOT DECOY            WELL?",1.DECOY GREAT,2.ONLY SINGLES,3.ONLY WHITE WING,4.ONLY SURF SCOTER,5.ONLY COMMON BLACK SCOTER,1,"1. DECOY GREAT                     I CAN SEE THEM COMING NOW.">пЙЖ"49. CALLING WATERFOWL               HELPS?",1.NEVER,2.YES,3.NO,4.ONLY WITH GEESE,5.ONLY WITH DUCKS,2,"1. YES                             IF YOU DO NOT SOME JUST         WILL NOT COME."?[КЖ"50. GEESE MATE FOR                  LIFE?",1.ONLY PEOPLE DO,2.DUCKS DO,3.SEADUCKS DO,4.YES,5.GOOD DOGS DO,4,"4. YES                             MAKES YOU THINK HUH!"?шА X│1е50:А Y│1е8:НA$(Y,X):Л Y,X?ЕЄР?Ы№АB│1е50:A(B)│B:ЛB?бР?■а 120,10:Ю4:З@38,"SORRY BIRD FLEW AWAY";:З@104,"THE ANSWER IS " ;:З@162,A$(8,T);:Бж 1300@	$а100,1@.Бе320@Б8Ю4:З @ 71," WATERFOWL HUNTERS ";:З @ 137," ARE THE BEST ";:З@ 332," QUIZ ";:З@488," DONALD N. HUGHES ";:Р@ХBR│ Д(X1):T│A(R)@мLA(R)│A(X1):X1│X1м1@▓VР@╕`КAоj╔"T4;C;E;P32;E;F;P32;F;A;G;L2;E;L4;G;F;L2;D;L4;A;G;E;C;L4;E;P32;E;F;P32;F;L8;A;P32;A;L4;G;E;O3;L8;C;P32;C;O2;B;P32;B;G;P32;G;L4;F;O1;B;O2;L1;C;P16;L8;G;P32;G;L4;F;L2;D;L4;A;L8;G;P32;G;L2;E;L8;C;P64;C;P64;L4;C;E;L8;G;P32;G;L4;A;L8;G;P32;G;L4;A┘k╔"O2;B;L8;G;P32;G;F;P32;F;L4;D;L2.;C;"A▀oРB"tЮ4:╔"T20O4;1;2;3;4;5;6;7;8;9;10;11;12;11;10;9;8;7;6;5;4;3;2;1"BA~АY│1е8:Ю(Y):а180,1:Л:Бе470BXИX2│X2л1:ЕX2│▓3з400BiТЕ X2│▓2з1140BаЬ╔"T55V20O3CDEF;T55V20O3FEDC;T55V20O3AG;T55V20O3GA"B╝жЮ:АX│1е255 й 25:аX,1:ЛXB╫░Ю4:АX│255е1йм25:аX,1:ЛB·║Ю5:А X│1е5:Ю(X):а225,1:Л:Бе470C─АX│1е255й25:Ю5:аX,1:Ю4:ЛCc╬Ю7:З @ 166," LET'S SHOOT AGAIN ";:З @ 234," SOMETIME- ";:З@301," OK? ";Cw╪А T│1 е 500:Л TC┼▌Ю4:З @ 166," let's shoot again ";:З @ 234," sometime- ";:З @ 301," ok? ";C┘▐А T│1 е 500:Л TCхтБе 1230DЗ@483,"PRESS enter TO CONTINUE..";D"I$│ Т:ЕI$┤▓""зЮ:РDL(X│ Д( Я):З@489,"ENTER";:Бж1390:Бе1300DЭ2Ж 24,40,64,124,128,124,192,124,48,148,80,148,112,148,144,148,176,148,208,148D╣<Ж U8R8D8L8R8,BR4U8D8BR4DхFЖ R8L8U4R8U4L8BR8BD8,R8U4L4R4U4L8BR8BD8E
PЖ BR4U8D4R4L8U4BR8BD8,R8U4L8U4R8BD8E-ZЖ R8U4L8U4D8BR8,BR8U8L8R8D8EPdЖ U8R8D8L8U4R8D4,BR8U8L8D4R8D4E`nАX│1е70:Л:Р,124,192,124,48,148,80,148,112,148,144,148,176,148,208,148D╣<Ж U8R8D8L8R8,BR4U8D8BR4DхFЖ R8L8U4R8U4L8BR8BD8,R8U4L4R4U4L8BR8BD8E
PЖ BR4U8D4R4L8U4BR8BD8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                A YOUNG SNOW GOOSE              IS?",1.MOSTLY GRAY,2.BLACK,3.WHITE,4.BROWN,5.VERY QUIET,1,"1. MOSTLY GRAY                     BEAUTIFUL."'5gЖ"15. NOT A SEA-DUCK                  IS?",1.GREEN WING TEAL,2.EIDER,3.WHITE WINGED SCOTER,4.SURF SCOTER,5.OLD SQUAL,1,"1. GREEN WINGED TEAL               PUDDLE DUCK."'╪hЖ"16. HABITAT BUFFLEHEAD'S            LIKE?",1.ALL BELOW,2.PONDS,3.LAKES,4.RIVERS,5.SHELTERED SALTWATER,1,"1. ALL BELOW                       BEAUTIFUL DUCK."(БiЖ"17. NOT CONSIDERED A                DIVER?",1.LESSER SCAUP,2.BLACK DUCK,3.RING NECKED DUCK,4.RUDDY,5.ALL ABOVE,2,"2. BLACK DUCK                      PUDDLE DUCK.")6jЖ"18. WHEN SAVING FOR                 MOUNTING?",1.LEAVE IN SUN,2.PUT IN PLASTIC BAG AND FREEZE,3.SKIN IT,4.SOAK IN OIL,5.PICK,2,"2. PUT IN PLASTIC BAG              AND FREEZE")╫kЖ"19. SNOW GOOSE'S                    HABITAT?",1.ALL BELOW,2.TUNDRA PONDS,3.LAKES,4.GRASSLANDS,5.SALTWATER,1,"1. ALL BELOW                       AND MORE."*mlЖ"20. AMERICAN WIGEON                 EAT?",1.ALL BELOW,2.ANIMALS,3.GRASS,4.INSECTS,5.GRAIN,1,"1. ALL BELOW                       SMALL ANIMALS."+mЖ"21. GOOD FOR HUNTING                WATERFOWL?",1.10 GA,2.12 GA,3.STEEL SHOT,4.ALL ARE,5.PUMP GUNS,4,"4. ALL ARE                         PLUS."+ШnЖ"22. DUCKS GOOD TO                   EAT?",1.PUDDLE,2.ALL,3.DIVING,4.SEA DUCKS,5.TEAL,2,"2. ALL                             IF PREPARED RIGHT.",1oЖ"23. BEST WEATHER FOR SEADUCK        HUNT?",1.STORM,2.FOG,3.RAIN,4.SNOW,5.BLUE BIRD DAY,5,"5. BLUE BIRD DAY                   OTHERWISE DANGEROUS."-
pЖ"24. EAST COAST SNOW                 GEESE?",1.KIND OF DUCK,2.REMAIN IN US ALL SUMMER,3.NEVER FLY WITH CANADAGEESE,4.USALLY FLY IN SMALL FLOCKS,5.ARE INCREASING IN NUMBER,5,"5. ARE INCREASING IN NUMBER"-мqЖ"25. WITHOUT HUNTERS                 WHAT?",1.HAVE MORE DUCKS,2.MORE THAN LIKELY NOT MANY,3.MORE GEESE,4.MORE SWANS,5.MORE GAME WARDENS,2,"2. MORE THAN LIKELY NONE.".жrЖ"26. NAME THREE                      BLACKHEADS?",1.RUDDY  GOLDENEYE  SCAUP,2.GREATER SCAUP-LESSER SCAUP    RINGNECKED DUCK,3.SCAUP  BLACK  PINTAIL,4.CANADA  TEAL  WIGEON,5.WOODY  TEAL  SHOVERLER,2,"2.GREATER SCAUP-LESSER SCAUP      RINGNECKED"/NsЖ"27. COMMONLY KNOW AS                WHISTLER?",1.GOLDENEYE,2.BUFFLEHEAD,3.MERGANSER,4.RUDDY,5.CANVASBACK,1,"1. GOLDENEYE                       WINGS SOUND GREAT"/хtЖ"28. NESTS IN A                      TREE?",1.CANVASBACK,2.RUDDY,3.BLACK,4.TEAL,5.BUFFLEHEAD,5,"5. BUFFLEHEAD                      SO BEAUTIFUL."0uuЖ"29. NESTS IN A                      TREE?",1.WOODY,2.BLACK,3.RUDDY,4.MALLARD,5.TEAL,1,"1. WOOD DUCK                       HOW BEAUTIFUL."18vЖ"30. NESTS ON THE                    GROUND?",1.GOLDENEYE,2.WOODY,3.BLACK,4.BUFFLEHEAD,5.HOODED MERGANSER,3,"3. BLACK DUCKS                     ALSO ON TOP OF                  DUCK BLINDS."1ЇwЖ"31. WIVES LOVE WATERFOWL            HUNTERS?",1.OF COURSE,2.NO,3.NEVER,4.ONLY WHILE SEASONS OUT,5.WHILE DEER HUNTING IS OPEN,1,"1. OF COURSE                       TAKE HER WITH YOU"2ЮxЖ"32. DUCKS THAT TIP-UP               WHILE FEEDING?",1.MERGANSER,2.GOLDENEYE,3.NONE OF THESE,4.CANVASBACK,5.RUDDY,3,"3. NONE OF THESE                   ALL DIVERS."3AyЖ"33. CANVASBACK'S LIKE               WHICH?",1.LAKES,2.PONDS,3.ALL OF THESE,4.MARSHES,5.SALTWATER,3,"3. ALL THESE                       SALTWATER IN WINTER."3рzЖ"34. A SOUTHERLY                     IS?",1.BLACK DUCK,2.WOODY,3.OLD SQUAW,4.BUFFLEHEAD,5.RUDDY,3,"3. OLD SQUAW                       LISSEN TO HIS CALL"4r{Ж"35. RUDDY DUCKS EGGS                ARE?",1.BLACK,2.BIGGER THAN CANVASBACKS,3.SOFT,4.RED,5.BLUE,2,"2. BIGGER THAN CANVASBACK          OUCH"5|Ж"36. WHICH HAS GREEN ON              HIS HEAD?",1.MALLARD,2.WIGEON,3.GREENWINGED TEAL,4.SHOVERLER,5.ALL THESE MALES,5,"5. ALL THESE MALES                 PLUS OTHERS"5╔}Ж"37. WHICH DUCK                      QUACKS?",1.GOLDENEYE,2.BUFFLEHEAD,3.BLACK DUCK,4.RUDDY,5.CANVASBACK,3,"3. BLACK DUCK                      VERY FEW DUCKS QUACK."6u~Ж"38. LESSER SCAUP ARE                CALLED?",1.REDHEADS,2.PUDDLE DUCKS,3.THE LITTLE BLUEBILLS,4.SPOONBILLS,5.GESSE,3,"3. THE LITTLE BLUEBILLS            GREAT DUCK."7*Ж"39. THERE ARE GREATER AND           LESSER?",1.CANADA GEESE,2.SNOW GEESE,3.SCAUP,4.ALL OF THE ABOVE,5.NONE OF THE ABOVE,4,"4. ALL ABOVE                       BIG AND LITTLE."7╦АЖ"40. THERE ARE TWO KINDS             OF?",1.TEAL,2.MALLARDS,3.BLACK DUCKS,4.CANVASBACKS,5.REDHEADS,1,"1. TEAL                            THREE IN THE U.S."8АБЖ"41. USALLY FIRST TO LEAVE           NESTING?" 1a'
:ГCOPYRIGHT (C) T&D SOFTWARE 1988<FМA$(8,50):МA(50)TPHH│200001:PW│0:X2│0uZБж1080:Бж1000:Бж1130:Бж1131:жdЮ7:З@232," INSTRUCTIONS? ";:З@332," (Y/N) ";сnK$│ Т:Е K$│"Y"Бе 120 :Д Е K$│"N"Бе 200 :Д Е K$│"" з110║xЮ4:З@32," HUNTERS NEED ALL THE KNOWLEDGE  THEY CAN GATHER                 BEFORE GOING OUT FOR THAT       NEXT HUNT                                                       SOME OF THESE QUESTIONS         MAY HELP."╞СБж 1300NЦЮ7:З@32," THE OBJECT OF THE QUIZ          IS TO OBTAIN A PERFECT          SCORE USING THE LEAST           AMOUNT OF TIME POSSIBLE."┼ЫЗ"     YOU CHOOSE HOW MANY             RANDOMLY PICKED QUESTIONS       YOU WANT TO ANSWER IN           EACH ROUND"cаЗ" YOU ALSO CHOOSE THE TIME        ALLOWED PER QUESTION.                 'WATERFOWL HUNTER' IS A          MULTIPLE CHOICE                 QUIZ.";:Бж 1300$┤Ю3:З@32," AT THE CONCLUSION OF            THE ROUND YOU WILL BE GIVEN     THE RESULTS OF THAT ROUND:          BEST ROUND SCORE              % CORRECT                         ETC.";:Бж 1300i╚Ю4:З:З:Й" HOW MUCH TIME PER QUESTION      (10 FAST/3000 SLOW)";FМ╥AO│0:C│0:H│0:LL│0:X1│50:Бж1020ж▄Е F┤10 ▒ F▓5000 з 200цЮ4:З:З:Й"HOW MANY QUESTIONS THIS ROUND                                             (1-50)";WW:SS│WW&ЁЕWW┤1 ▒ WW▓50 з 2302·Бж 1300k
Бж1090:P│F:AO│AOл1:Ю:З"#";AO:АY│1е6:ЗA$(Y,T):З"";:ЛYШ
P│Pм1:З@370,"TIME=";:ЗP;:Е P│┤0 з Бе1040▒
"K$│ Т:Е K$│""з Бе280╦
,ЕK$│A$(7,T) з Бе 1160х
6ЕK$┤▓A$(7,T) з Бж 360ё
@LL│LLл1
JTT│FмP:H│TTлH
TЕ WW┤│LL з 520 
^Бе270
h╔"V31T200L200O1AFCFEFADEFADEFDEF":З @ 359,"SORRY, MISSED  GOT AWAY :   ";:З @ 385,A$(8,T);Л
rБж 1300С
ЖР╬
РЮ7:З@293," G O O D   S H O T   !! ";:А M│100е1йм4:аM,1:Л█
ЪА M│1е10ф
дЮ(0)ў
оА V│1е46н1:Л V
╕Ю(5)
┬Л M
╠Е X2│▓3зX2│0V
╓Ю3:З@67," GOOD SHOT DEAD BIRD!!!";:З@161, A$(8,T);:C│Cл1o
рА T│1е255й20:а T,1:Л{
ъБж 1300Е
■Бе3201Ю7:З@32,"  YOUR SHOOTING WAS:";:З@96,"  TOTAL ELAPSED TIME (";H;")";:PP│CоSSн100:PP│ Б(PP):З@160,"  YOUR SHOOTING "PP"%";:З@224,"  YOU SHOT"C"CORRECT";:Е PW┤PP з PW│PPCЕ HH▓H з HH│H┼З@320,"  NUMBER OF QUESTIONS :";AO;:З@352,"  BEST SHOOTING SCORE IS :";PW;"%";:З@384,"  BEST SHOOTING TIME IS  :";HH;:Бж 130060Ю8:З@288,"                                DO YOU WANT TO SHOOT AGAIN(Y/N)                ?                ";M:K$│ Т:Е K$│"" з570sDЕ K$│"N"Бе 1220 :Д Е K$│"Y"Бе 200YЖ"1. A BLACK DUCK IS                 CONSIDERED A?",1.DIVER,2.PUDDLE,3.BAY,4.SEADUCK,5.RIVER,2,"2.PUDDLE                          TIPS UP WHEN FEEDING."╗ZЖ"2. WHEN HUNTING GESSE              HOW MANY DECOYS WOULD           YOU USE?",1.20,2.50,3.100,4.200,5.500,5,"5. 500                             OR MORE IF POSSIBLE."Z[Ж" PICK OUT A DIVING               DUCK",1.WOOD DUCK,2.CANVASBACK,3.PINTAIL,4.MALLARD,5.MERGANSER,2,"2. CANVASBACK                      LIKES OPEN WATER."Ў\Ж"4. RED-BREASTED MERGANSER          PERFERS?",1.CREEKS,2.PONDS,3.SALT WATER,4.LAKES,5.FRESH WATER,3,"3. SALT WATER                      IN THE WINTER" в]Ж"5. HOODED MERGANSER'S BILLS        ARE?",1.FLAT,2.TOOTHED,3.SPOONED,4.HOOKED,5.BROAD,2,"TOOTHED                         NARROW                          CYLINDRICAL."!S^Ж"6. KNOWING REDHEADS FROM           CANVASBACK?",1.BIGGER,2.LONGER BILL,3.YELLOW LEGS,4.BLACK BODY,5.SMALLER  DARKER,5,"5.SMALLER  DARKER                 ABRUPT FOREHEAD.""_Ж"7. AMERICAN COOT'S                 BILL?",1.BOARD,2.TOOTHED,3.SPOONED,4.FLAT,5.CHALKY WHITE,5,"5. CHALKY WHITE                    ONLY DUCK LIKE BIRDS            THAT HAVE.""│`Ж"8. PINTAILS TAKE TO THE AIR        BY?",1.RUNNING ON THE WATER,2.RUNNING ON LAND,3.DIVING FIRST,4.WITH THE WIND,5.LEAPING INTO THE WIND,5,"5. LEAPING INTO THE WIND."#TaЖ"9. CANADA GEESE USALLY             WINTER?",1.MARYLAND,2.MAINE,3.SOUTH DAKOTA,4.MONTANA,5.MICHIGAN,1,"1. MARYLAND                        AND OTHER STATES"#√bЖ"10. MALLARDS USALLY                 WINTER?",1.MAINE,2.NEW HAMSHIRE,3.MARYLAND,4.NEW YORK,5.RHODE ISLAND,3,"3. MARYLAND                        AND OTHER STATES"$ЩcЖ"11. WOOD DUCKS USALLY               WINTER?",1.DELAWARE,2.NEW YORK,3.WYOMING,4.ALABAMA,5.KANSAS,4,"4. ALADAMA                         SOUTH EAST U.S.."%6dЖ"12. PINTAILS USALLY                 WINTER?",1.NEW YORK,2.MAINE,3.MARYLAND,4.KANSAS,5.MINNESTA,3,"3. MARYLAND                        AND OTHER STATES"%ЇeЖ"13. CANVASBACK NEST                 WHERE?",1.MARYLAND,2.TENNESSEE,3.ARIZONA,4.NEVADA,5.NORTH DAKOTA,5,"5. NORTH DAKOTA                    AND OTHER STATES                PLUS CANADA"&ИfЖ"14.  	y&':ГCOPYRIGHT (C) T&D SOFTWARE 1988&B
:Г**** FOREIGN OBJECTS&Z:Г**** Bryan Larsen&m:Г**** Box 427&О:Г**** Redvers, Sask, Canada&б:Г**** S0C 2H0&м:Г****&╜
Х 200,&H3DFF'Ю:З:З:З:З"   PLEASE WAIT FOR MACHINE         LANGUAGE POKES.":З:З:З'X│&H3E00'(LN│990')2АY│1е25'h<НA$:ЕA$│"*"з110:ДCH│CHл Й("&H"лA$):ТX, Й("&H"лA$):X│Xл1:ЛY'uFLN│LNл10'ГPЗ Л(255);'│ZНA$:Е Й("&H"лA$)┤▓CH зЗ"ERROR IN LINE";LN:С'┬dCH│0:Бе 50(nЗ@256:З:З"       COPYRIGHT (C) 1988                 BRYAN LARSEN(sАX│1е6:З:Л('xЗ"1) NORMAL"(DВЗ"2) COCO II HIGH SPEED"(bМЗ"3) COCO III HIGH SPEED"(ЪЦЙ A:ЕA│2зТ65495,0:ДЕA│3зТ65497,0:ДТ65494,0:Т65496,0(маТ &H3F52,&HFF(█кТ&H3F05,&H88:Т&H3F09,0:Т&H3F0A,0:Т&H3F0B,0(°┤Е Ж(49152)┤▓68зТ&H3E03,6)╚╣ Г0│&H3E00)╥╚4,1:┐1,1:╝0:┴5,0)&▄┴ 1)QцА X│0 е 256 й 32:╗(X,0)м(Xл1,191),╜,BF)YЁЛ X)w·╔"O3L8GGEAL4GEO1L255T255")И
A│ Г0( Д(8)))Ч
ЕA▓0 з 300)а
╔"B")л
"Бе 260)╠
,SC│ Ж(&H3F09)н256л Ж(&H3F0A)*
6╔"L2T4O2EO1C":Ю:З"YOUR SCORE WAS"SC:ЕSC▓HS з HS│SC*

@З:З:З*%
JЗ"HIGH SCORE  IS"HS*/
TЗ:З:З*8
^SC│0*l
hЗ"HIT ENTER (SOFTLY) TO PLAY AGAIN":╗ЙA$:Бе 160*║
|Ж 7E,3E,5,E,0,BD,B3,ED,10,BE,3E,3,FD,3F,6,17,0,FA,F6,3F,5,54,54,54,C3,987+

ЖЖ 17,20,F3,3E,3,1F,1,FC,3F,5A,ED,84,30,88,20,FC,3F,5C,ED,84,30,88,20,FC,3F,A84+b
РЖ 5E,ED,84,30,88,20,FC,3F,60,ED,84,30,88,20,FC,3F,62,ED,84,30,88,20,FC,3F,64,C10+▒
ЪЖ ED,84,30,88,20,FC,3F,66,ED,84,B6,3F,7,80,1,C6,4,3D,CB,1,F3,3E,3,C3,1,AA3,
дЖ 0,1F,1,FC,3F,6A,ED,84,30,88,20,FC,3F,6C,ED,84,30,88,20,FC,3F,6E,ED,84,30,B48,Y
оЖ 88,20,FC,3F,70,ED,84,30,88,20,FC,3F,72,ED,84,30,88,20,FC,3F,74,ED,84,30,88,C6A,л
╕Ж 20,FC,3F,76,ED,84,30,88,20,FC,3F,78,ED,84,B6,3F,B,27,1A,BE,3E,3,30,89,1,A38,√
┬Ж 0,7F,3F,B,CC,C0,0,6F,82,6F,82,ED,83,BC,3E,3,26,F5,20,11,BE,3E,3,30,89,9A8-H
╠Ж 1,0,7C,3F,B,6F,82,BC,3E,3,26,F9,8D,1F,FC,3F,9,C3,0,1,FD,3F,9,4F,F6,912-Ш
╓Ж 3F,5,54,54,54,C3,17,0,F3,3E,3,1F,1,E6,84,4F,BD,B4,F4,39,30,A9,17,0,EC,9A1-у
рЖ 83,ED,89,1,0,BC,3E,3,26,F5,39,88,0,0,0,0,0,0,B6,1,57,81,F7,26,11,790.3
ъЖ C6,FF,F7,1,57,B6,3F,5,81,11,23,5,80,20,B7,3F,5,B6,1,58,81,F7,26,11,C6,9E7.Г
ЇЖ FF,F7,1,58,B6,3F,5,81,CF,24,5,8B,20,B7,3F,5,B6,1,59,81,F7,26,16,C6,FF,AF1.╧
■Ж F7,1,54,FC,3F,9,83,0,1,FD,3F,9,CC,3,E8,83,0,1,26,FB,39,20,8,22,88,8C0/Ж 82,82,82,82,22,88,22,88,A,A0,0,0,55,55,41,41,1,40,15,54,1,40,41,41,55,6F4/oЖ 55,0,0,20,B3,C6,F,16,FA,58,10,26,F4,96,17,FA,43,10,93,1B,27,7,D,9D,26,835/xЖ"*"6,FF,AF1.╧
■Ж F7,1,54,FC,3F,9,83,0,1,FD,3F,9,CC,3,E8,83,0,1,26,FB,39,20,8,22,88,8C0/Ж 82,82,82,82,22,88,22,88,A,A0,0,0,55,55,41                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ╚╞├┬┬
╞┴╟┼┼!┴#$%&'()*+╞-╟/╞2╟:╚56789├╞<┴╟      TRIOBAS4ЧWRITEINSBAS╟WRITE-UPBAS
╔PPINS   BAS	PICPAK  BAS;PICPAKMLBINDIR     BASЭCOVER   BAS=CVR-MOD BINwFOREIGN BAS |CHESS   BAS"WF      BASdWHAMMY3 BASADVTUT  BASSADVSAM  BAS1bCIRCLE  BAS,EDU TRIOBAS4ЧWRITEINSBAS╟WRITE-UPBAS
╔PPINS   BAS	{PICPAK  BAS;PICPAKMLBINAIR     BINЦLOTTOTUTBAS.tLOTTO   BAS0XLOTTODATDAT
 3И                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 V&'
:ГCOPYRIGHT (C) T&D SOFTWARE 1988&-Ю&8Бж 464&OЗ@5н32л13,"CHESS";&mЗ@7н32л10,"FUNDAMENTALS";&МЗ@9н32л9,"BY: D VILLIARD";&ЧБж 460'
Ю:З"CHESS FUNDAMENTALS IS A PROGRAM THAT WAS DESIGNED TO TEACH YOU  THE BASIC FUNDAMENTALS OF CHESS."'2	З:З"THE PROGRAM HAS THE FOLLOWING   MODULES"'С
З:З"<1> THE CHESSBOARD              <2> THE CHESSMEN                <3> THE CHESS OPENING"'ЬБж 460(CЗ"YOU CAN LEARN THE CHESS         FUNDAMENTALS BY FOLLOWING THE   INSTRUCTIONS THAT APPEARS ON THESCREEN OR YOU CAN ALSO USE A    CHESSBOARD AND SOME CHESSMEN TO"(r
З"MAKE LEARNING CHESS FUNDAMENTALSEASIER."(╥З:З"NOW IF YOU ARE READY, WE WILL   START BY SHOWING YOU WHAT THE   CHESSBOARD LOOKS LIKE."(▌Бж 460(уХ(юБж 464(∙Бж 460)АЗ:З"NOW IF YOU ARE READY WE WILL    GO TO THE MAIN MENU OF THE      PROGRAM. WHILE IN THE MAIN MENU YOU CAN SELECT THE MODULE YOU")┬З"WANT BY PRESSING THE NUMBER THATCORRESPONDS TO THE MODULE.")═Бж 460)╘:Г)┌Ю*З"********************************"**З"*       *** MAIN MENU ***      *"*RЗ"*       <1> CHESSBOARD         *"*zЗ"*       <2> CHESSMEN           *"*вЗ"*       <3> CHESS OPENING      *"*╩З"*       <4> QUIT               *"*ЄЗ"*  PLEASE MAKE YOUR SELECTION  *"+З"********************************";+2 R$│ Т:Е R$│"" з 32+Q!И  Й(R$) Бе 35,151,365,459+["Бе 32+b#Ю5+{$З" THE CHESSBOARD ";+Р%А I│1 е 1000:Л I+╔&З:З"IN THIS MODULE WE WILL LOOK AT  THE CHESSBOARD.",2'З:З"WHEN YOU SEE SOME GRAPHICS AND  THE REMARKS ON THE BOTTOM       <PRESS ANY KEY TO CONTINUE>    ",К(З"PLEASE STUDY THE GRAPHICS       CAREFULLY <BEFORE> PRESSING A   KEY TO CONTINUE.",Х)Бж 460,Ў*Ю:З"ON THE NEXT SCREEN YOU WILL SEE THE CHESSBOARD AGAIN. THIS TIME CHECK FOR THE FOLLOWING"-╒+З"<1> 64 SQUARES                  <2> 32 LIGHT COLORED SQUARES        AND 32 DARK COLORED SQUARES <3> A LIGHT COLORED SQUARE IN       THE LOWER RIGHT HAND CORNER <4> NUMBERS AND LETTERS ON SIDE     AND BOTTOM OF BOARD".M,З"<5> BLACK WRITTEN ON TOP OF THE     BOARD                       <6> WHITE WRITTEN ON THE BOTTOM     OF THE BOARD".X-Бж 460.^.Х.i/Бж 464.t0Бж 460.о1Ю:З"THE CHESSBOARD CONSIST OF THREE TYPES OF SQUARES".┤2З/	3З"<1> HORIZONTALS                 <2> VERTICALS                   <3> DIAGONALS"/J4З:З"HORIZONTALS GO FROM LEFT TO     RIGHT AND RIGHT TO LEFT"/Н5З:З"ON THE NEXT SCREEN YOU WILL SEE AN EXAMPLE OF HORIZONTALS"/Ш6Бж 460/Ю7Ю/н8A$│ Л(207)/╝9B$│ Л(192)/╩:З:З:З:З:З/ъ;З:З"           HORIZONTALS"0$<З д8);A$;A$;B$;B$;A$;A$;B$;B$;A$;A$;B$;B$;A$;A$;B$;B$0d=З:З"IN CHESS HORIZONTALS ARE CALLED          *** RANKS ***"0o>Бж 4600ъ?Ю:З"VERTICALS GO FROM THE TOP OF    THE BOARD TO THE BOTTOM AND FROMTHE BOTTOM OF THE BOARD TO THE  TOP OF THE BOARD."1,@З:З"ON THE NEXT SREEN YOU WILL SEE  AN EXAMPLE OF VERTICALS."17AБж 4601=BЗ1_CЗ:З д8);A$;A$;"    VERTICALS"1oDЗ д8);B$;B$1EЗ д8);A$;A$1ПFЗ д8);B$;B$1ЯGЗ д8);A$;A$1пHЗ д8);B$;B$1┐IЗ д8);A$;A$1╧JЗ д8);B$;B$2KЗ:З" IN CHESS VERTICALS ARE CALLED          *** FILES ***"2LБж 4602pMЮ:З"DIAGONALS GO FROM ONE CORNER OF THE BOARD TO THE OTHER CORNER   OF THE BOARD."2vNЗ2╗OЗ"DIAGONALS CAN GO FROM LEFT TO   RIGHT AND FROM RIGHT TO LEFT."2┴PЗ2яQЗ"DIAGONALS ARE EITHER BLACK OR   WHITE."30RЗ:З"ON THE NEXT SCREEN YOU WILL SEE AN EXAMPLE OF DIAGONALS"3;SБж 4603ATЮ3MUЗ:З:З:З3pVЗ:З д6);A$;A$;"     DIAGONALS"3АWЗ д8);A$;A$3СXЗ д10);A$;A$3вYЗ д12);A$;A$3│ZЗ д14);A$;A$3─[З д16);A$;A$3╒\З д18);A$;A$3ц]З д20);A$;A$3ё^Бж 4604╪_Ю:З"NOW THAT YOU KNOW THAT          HORIZONTALS ARE CALLED RANKS    AND THAT VERTICALS ARE CALLED   FILES, WE WILL LOOK INTO THE    MATTER OF THE LETTERS AND       NUMBERS THAT YOU SAW ON THE     BOTTOM AND SIDE OF THE BOARD."5i`З:З"THE LETTERS AND NUMBERS ARE     USED TO IDENTIFY EACH SQUARE.   BY USING THE LETTERS AND        NUMBERS, EACH SQUARE IS GIVEN   A NAME."5taБж 4605╤bЮ:З"EACH SQUARE IS IDENTIFIED BY    THE LETTER OF THE FILE AND THE  NUMBER OF THE RANK."6cЗ:З"IF YOU REMEMBER YOU SAW THE     FOLLOWING:"6dЗ" 8"6eЗ " 7"6%fЗ " 6"60gЗ " 5"6;hЗ " 4"6FiЗ " 3"6QjЗ " 2"6\kЗ " 1"6wlЗ "   A B C D E F G H"6ВmБж 4606їnЮ:З"THE SQUARES ARE IDENTIFIED BY   FIRST USING THE LETTER FOR THE  FILE FOLLOWED BY THE NUMBER OF  THE RANK."7)oЗ:З"THE LOWER LEFT HAND CORNER IS   CALLED  A1"7ZpЗ"THE LOWER RIGHT HAND CORNER IS  CALLED H1"7ЛqЗ"THE UPPER LEFT HAND CORNER IS   CALLED A8"7╝rЗ"THE UPPER RIGHT HAND CORNER IS  CALLED H8"7╟sБж 4608MtЮ:З"WHEN YOU SEE DIAGRAMS OF THE    CHESS BOARD, THE DIAGRAM IS     ALWAYS SHOWN WITH WHITE ON THE  BOTTOM AND BLACK ON THE TOP."8иuЗ:З"ON THE NEXT SCREEN YOU WILL SEE THE BOARD AS IF YOU WERE PLAYINGTHE WHITE PIECES."8│vБж 4608╣wЮ8╙xЗ"             BLACK"8№yЗ" A8  B8  C8  D8  E8  F8  G8  H8 ";9%zЗ" A7  B7  C7  D7  E7  F7  G7  H7 ";9N{З" A6  B6  C6  D6  E6  F6  G6  H6 ";9w|З" A5  B5  C5  D5  E5  F5  G5  H5 ";9а}З" A4  B4  C4  D4  E4  F4  G4  H4 ";9╔~З" A3  B3  C3  D3  E3  F3  G3  H3 ";9ЄЗ" A2  B2  C2  D2  E2  F2  G2  H2 ";:АЗ" A1  B1  C1  D1  E1  F1  G1  H1 ";:5БЗ"             WHITE":wВЗ:З"LOOKING AT THE BOARD IF YOU ARE PLAYING THE WHITE PIECES":ВГБж 460;ДЮ:З"IF YOU WERE LOOKING AT THE      BOARD AS IF YOU WERE PLAYING    THE BLACK PIECES, THE NAMES OF  THE SQUARES WOULD REMAIN THE    SAME.";aЕЗ:З"HOWEVER, YOU WOULD HAVE TO THINKBACKWARD AS THE NEXT SCREEN WILL SHOW.";lЖБж 460;ИЗЮ:З"             WHITE";▓ИЗ " H1  G1  F1  E1  D1  C1  B1  A1 ";;▄ЙЗ " H2  G2  F2  E2  D2  C2  B2  A2 ";<КЗ " H3  G3  F3  E3  D3  C3  B3  A3 ";<0ЛЗ " H4  G4  F4  E4  D4  C4  B4  A4 ";<ZМЗ " H5  G5  F5  E5  D5  C5  B5  A5 ";<ДНЗ " H6  G6  F6  E6  D6  C6  B6  A6 ";<оОЗ " H7  G7  F7  E7  D7  C7  B7  A7 ";<╪ПЗ " H8  G8  F8  E8  D8  C8  B8  A8 ";<єРЗ "             BLACK"=5СЗ:З"LOOKING AT THE BOARD IF YOU ARE PLAYING THE BLACK PIECES"=@ТБж 460=uУЮ:З"THAT CONCLUDES THE MODULE ON THECHESSBOARD."=·ФЗ:З"IF YOU ARE NOT SURE THAT YOU    UNDERSTOOD EVERYTHING ABOUT     THE CHESSBOARD, SIMPLY PRESS<1> WHEN YOU SEE THE MAIN MENU.">ХБж 460>ЦБе 22>ЧЮ4>5ШЗ" *** THE CHESSMEN *** ";>JЩА I│1 е 2000:Л I>PЪЮ>xЫЗ"CHESS IS PLAYED WITH 32 CHESSMEN">кЬЗ:З"EACH PLAYER HAS 16 PIECES AS    FOLLOWS:"?[ЭЗ:З"1 KING                          1 QUEEN                         2 ROOKS                         2 KNIGHTS                       2 BISHOPS                       8 PAWNS"?fЮБж 460?ДЯЗ"          *** KING ***"@ZаЗ"HE IS MOST IMPORTANT. THE GAME  ENDS WITH HIS CAPTURE. WHEN THATHAPPENS IT IS CALLED CHECK-MATE.HOWEVER, A KING IS NOT VERY     STRONG AND IF LISTED IN ORDER OFPOWER WOULD COME SOMEWHERE CLOSETO THE BOTTOM."AбЗ:З"HE CAN MOVE ONE SQUARE ONLY BUT IN ANY DIRECTION AS LONG AS IT  DOES NOT PUT HIM IN CHECK. THIS MEANS THAT HE SPENDS MOST OF HISGAME-LIFE BEING CLOSELY GUARDED."AвБж 460A-гЗ"         *** QUEEN ***"BдЗ"SHE IS THE NEXT MOST IMPORTANT  AND CERTAINLY THE MOST POWERFUL.SHE CAN ALSO MOVE IN ANY        DIRECTION, ALONG RANKS OR FILE  AND DIAGONALLY, OVER ANY NUMBER OF SQUARES AS LONG AS THERE IS  NO OTHER PIECE IN THE WAY."BXеЗ:З"THE QUEEN ALWAYS STARTS THE GAMEON THE SQUARE OF HER OWN COLOR."BЛжЗ:З"THE QUEEN HAS A VALUE OF        7 POINTS."BЦзБж 460B┤иЗ"          *** ROOK ***"CЩйЗ"ALTHOUGH THIS PIECE LOOKS LIKE  A CASTLE THE PROPER NAME OF THISPIECE IS ***ROOK***. THIS PIECE CAN MOVE ALONG RANKS OR FILES   ONLY. IT CANNOT MOVE DIAGONALLY.HOWEVER, THE DISTANCE IT CAN    TRAVEL IS ONLY LIMITED BY ANY"C┌кЗ"OTHER PIECE WHICH GET IN THE WAYOR THE EDGE OF THE BOARD."D
лЗ:З"THE ROOK HAS A VALUE OF         5 POINTS."DмБж 460D7нЗ"         *** BISHOP ***"D╛оЗ:З"AT THE START OF A GAME YOU HAVE A BISHOP ON BLACK AND A BISHOP  ON WHITE. THE BISHOP REMAINS ON THE SAME COLOR AS HE STARTED."EХпЗ:З"THIS IS ANOTHER STRONG ATTACKINGOR DEFENDING PIECE. HE CAN MOVE IN ANY DIAGONAL DIRECTION, AND  THE DISTANCE IT CAN TRAVEL IS   ONLY LIMITED BY ANY OTHER PIECE THAT GET IN THE WAY, OR THE END OF THE BOARD."Eа░Бж 460E╙▒З:З"THE BISHOP HAS A VALUE OF       3 POINTS."E▐▓Бж 460E¤│З"         *** KNIGHT ***"F┤ЗFк╡З"THE KNIGHT LOOKS LIKE A HORSE   AND FOR THAT REASON MANY PLAYERSOFTEN HAVE CALLED THIS PIECE A  HORSE. HOWEVER, THE PROPER NAME FOR THIS PIECE IS ***KNIGHT***."GА╢З"THE KNIGHT IS THE ONLY, REPEAT, THE ONLY PIECE THAT CAN JUMP    OTHER PIECES ON THE BOARD. NO   OTHER PIECE CAN STAND IN ITS WAYUNLESS IT IS ONE OF HIS OWN MEN OCCUPYING THE SQUARE ON WHICH ITWANTS TO LAND."GЛ╖Бж 460G∙╕З"THE MOVE IT MAKES IS (L) SHAPED.-TWO SQUARES IN ONE DIRECTION   AND ONE IN ANOTHER, OR VICE     VERSA."H,╣З:З"THE KNIGHT HAS A VALUE OF       3 POINTS."H7║Бж 460HU╗З"          *** PAWN ***"I?╝З:З"A PAWN IS NOT VERY POWERFUL IN  ITSELF, A PAWN IS USED IN THE   VANGUARD OF THE ATTACK; IN A    SENSE, TO CREATE A NUISANCE.    ON THE FIRST MOVE, HE CAN       ADVANCE FORWARD ALONG HIS OWN   FILE, EITHER ONE OR TWO SQUARES."IJ╜Бж 460I ╛З:З"SUBSEQUENTLY, HE IS CONFINED TO ONE SQUARE ONLY PER MOVE. THE   ONLY TIME HE DEVIATES FROM HIS  FILE IS WHEN HE CAPTURES AN     OPPONENT. THEN HE CAPTURES      DIAGONALLY."J
┐Бж 460Jж└З"A PAWN CANNOT TRAVEL BACKWARDS, OR IN ANY OTHER DIRECTION.      HOWEVER, IF HE SURVIVES TO REACHTHE OPPOSITE SIDE OF THE BOARD, HE IS THEN PROMOTED."Kh┴З:З"IN THE SAME MOVE HE CAN BE      EXCHANGED FOR A QUEEN, ROOK,    BISHOP OR A KNIGHT. WHICHEVER   THE SUCCESSFUL PLAYER CHOOSES,  MUCH WILL DEPEND ON THE STATE   OF THE GAME AT THE TIME."Ks┬Бж 460LZ├З"THERE IS NOTHING TO STOP HIM    FROM HAVING TWO QUEENS, THREE   ROOK, BISHOPS OR KNIGHTS. THE   EXCHANGE MUST BE MADE ON THE    ARRIVAL OF THE PAWN ON THE      OPPOSITE SIDE OF THE BOARD, IT  CANNOT BE MADE AT A LATER TIME."LМ─З:З"THE PAWN HAS A VALUE OF         1 POINT."LЧ┼Бж 460Lє╞З"FOR THE REMAINDER OF THE PROGRAMTHE FOLLOWING WILL BE USED TO   IDENTIFY THE PIECES."M╟З:З"PIECE        WHITE        BLACK"Mт╚З:З"KING         WK           BK    QUEEN        WQ           BQ    ROOK         WR           BR    KNIGHT       WN           BN    BISHOP       WB           BB    PAWN         WP           BP"N╔З"EMPTY SQUARE **           **"N╩Бж 460Nk╦З"IF YOU REMEMBER THE PREVIOUS    MODULE ON THE CHESSBOARD EACH   SQUARE HAD A NAME."N╝╠З:З"ON THE NEXT SCREEN YOU WILL SEE THE PROPER SETUP FOR THE CHESS  PIECES."O-═З:З"PLEASE NOTICE THAT THE <WQ> IS  LOCATED ON THE <D1> SQUARE AND  THE <BQ> IS LOCATED ON THE <D8> SQUARE."O8╬Бж 460O>╧ЗOP╨З д14)"BLACK"OО╤З" BR ";" BN ";" BB ";" BQ ";" BK ";" BB ";" BN ";" BR ";O╠╥З" BP ";" BP ";" BP ";" BP ";" BP ";" BP ";" BP ";" BP ";OЎ╙Z$│" **  **  **  **  **  **  **  ** "P	╘З Z$;Z$;Z$;Z$;PG╒З" WP ";" WP ";" WP ";" WP ";" WP ";" WP ";" WP ";" WP ";PГ╓З" WR ";" WN ";" WB ";" WQ ";" WK ";" WB ";" WN ";" WR"PХ╫З д14)"WHITE"Pа╪Бж 460Pт┘З"YOU WILL NOW SEE SOME SCREENS   OF THE BOARD WITH A PIECE."Qе┌З"WHEN YOU SEE THE SCREEN TRY AND COUNT ALL OF THE SQUARES THAT   THE PIECE CAN MOVE TO. ON THE   NEXT SCREEN YOU WILL BE ASKED   THE NUMBER OF MOVES THE PIECE   CAN MAKE. IF YOUR ANSWER IS"R
█З"CORRECT YOU WILL PROCEED TO THE NEXT PIECE, IF IT IS WRONG YOU  WILL REVIEW THAT PIECE AGAIN."R▄Бж 460R▌ХR&▐Бж 464R:▀З@9н32л12,"WK";REрБж 460RwсЗ:З"HOW MANY SQUARES CAN THE KING   MOVE TO?"RДтЗ:Бж 359RЯуЕ A│8 Бе 228 :Д Бе 221R║фЮ:З"          CORRECT"R└хЗR▀цЗ"B2-B3-B4-C2-C4-D2-D3-D4"RъчБж 460RЁшХR√щБж 464SъЗ@7н32л14,"WQ";SыБж 460SLьЗ:З"HOW MANY SQUARES CAN THE QUEEN  MOVE TO?"SYэЗ:Бж 359StюЕ A│27 Бе 239 :Д Бе232SРяХ:Ю:З"       VERY GOOD"SЦЁЗS▓ёЗ"A5-B5-C5-E5-F5-G5-H5"S╬ЄЗ"D1-D2-D3-D4-D6-D7-D8"SчєЗ"A2-B3-C4-E6-F7-G8"TЇЗ"A8-B7-C6-E4-F3-G2-H1"TїБж 460TЎХTўБж 464T3°З@11н32л8,"WR";T>∙Бж 460Tp·З:З"HOW MANY SQUARES CAN THE ROOK   MOVE TO?"T{√Бж 359TЧ№Е A│14 Бе 253 :Д Бе 246T▓¤Ю:З:З"    OUTSTANDING"T╕■ЗT╘ З"A2-A3-A4-A5-A6-A7-A8"TЁ
З"B1-C1-D1-E1-F1-G1-H1"T√

Бж 460U

ХU
Бж 464U 
З@9н32л12,"WB";U+
Бж 460U]
З:З"HOW MANY SQUARES CAN THE BISHOP MOVE TO?"Uh
Бж 359UД
Е A│11 Бе 265 :Д Бе 258UЯ
	Х:Ю:З:З"    WONDERFUL"Uе

ЗU├
З:З"A1-B2-D4-E5-F6-G7-H8"U╓
З"A5-B4-D2-E1"Uс

Бж 460Uч
ХUЄ
Бж 464V
З@7н32л14,"WN";V
Бж 460VC
З:З"HOW MANY SQUARES CAN THE KNIGHT MOVE TO?"VN
Бж 359Vi
Е A│8 Бе 277 :Д Бе 270VВ
Ю:З:З"    EXCELLENT"VС
З:З"C7-E7"VЮ
З"B6-F6"Vл
З"B4-F4"V╕
З"C3-E3"V├
Бж 460V╔
ХV╘
Бж 464Vщ
З@10н32л14,"WP";VЇ
Бж 460W;
З"IF THIS WAS THE PAWN FIRST MOVE HE COULD MOVE TO THE FOLLOWING:"W╕
 З"<1> D3                          <2> D4                          <3> EITHER OF THE ABOVE         <4> NONE OF THE ABOVE"Wя
!З:Й"PRESS THE NUMBER AND THEN THE   <ENTER> KEY";AX

"Е A│3 Бе 291 :Д Бе 283XF
#Х:Ю:З:З"THAT CONCLUDES THE BASIC MOVES  OF THE PEICES."XЦ
$З:З"HOWEVER, THEIR ARE STILL TWO    SPECIAL MOVES THAT YOU SHOULD   LEARN."X╫
%З:З"THOSE TWO MOVES ARE             CASTLING AND EN-PASSANT"Y
&З:З"WE WILL DISCUSS BOTH OF THESE   IN DETAIL."Y
'Бж 460Y2
(Х:Ю:З"        CASTLING"Z
)З:З"CASTLING IS THE ONLY MOVE IN    CHESS WHERE A PLAYER IS ALLOWED TO MOVE TWO PIECES ON THE SAME  MOVE. THE PIECES INVOLVED ARE   THE KING AND ONE OF THE ROOKS.  CASTLING IS PERMITTED ONLY ONCE BY EACH PLAYER DURING A GAME."Z$
*Бж 460ZЙ
+З"YOU CAN CASTLE ONLY IF:         1. YOU HAVE NOT PREVIOUSLY MOVED   THE KING OR ROOK INVOLVED."Zщ
,З"2. THERE ARE NO OTHER PIECE        BETWEEN THE KING AND ROOK.   3. KING IS NOT IN CHECK."[N
-З"4. NO ENEMY PIECE IS               THREATHENING THE SQUARES THE    KING HAS JUST PASSED OVER."[Y
.Бж 460[Х
/З"WHEN YOU ARE CASTLING ALWAYS    MOVE THE KING FIRST."\?
0З:З"CASTLING IS PERFORMED BY MOVING THE KING TWO SQUARES TOWARD THE ROOK IT WILL EXCHANGE WITH AND  THE ROOK IS MOVED ONTO THE      SQUARE THE KING HAS JUST PASSED."\┌
1З:З"KEEP IN MIND THAT AT THE START  OF A GAME THAT THE KING IS ON   E1 AND THE ROOKS ARE LOCATED ON A1 AND H1 IF YOU ARE PLAYING    THE WHITE PIECES."\х
2Бж 460]E
3З"YOU CAN CASTLE EITHER ON THE    KING SIDE OF THE BOARD OR THE   QUEEN SIDE OF THE BOARD."]╗
4З:З"CASTLING ON KING SIDE:          KING IS MOVED TO C1 AND THE     ROOK THAT WAS LOCATED ON A1 IS  MOVED TO D1."^1
5З:З"CASTLING ON QUEEN SIDE:         KING IS MOVED TO G1 AND THE     ROOK THAT WAS LOCATED ON A8 IS  MOVED TO F1."^<
6Бж 460^г
7З"ON THE NEXT SCREEN YOU WILL SEE THE BOARD AND THE ORIGINAL      POSITION OF THE KING AND ROOKS."^о
8Бж 460^┤
9Х^┐
:Бж 464^╙
;З@11н32л8,"WR";^ш
<З@11н32л16,"WK";^¤
=З@11н32л22,"WR";_
>Бж 460_]
?Х:З"ON THE NEXT SCREEN YOU WILL SEE THE BOARD AFTER CASTLING ON THE QUEEN SIDE."_h
@Бж 460_s
AБж 464_И
BЗ@11н32л12,"WK";_Э
CЗ@11н32л14,"WR";_▓
DЗ@11н32л22,"WR";_╜
EБж 460_├
FХ`
GЗ"ON THE NEXT SCREEN YOU WILL SEE THE BOARD AFTER CASTLING ON THE KING SIDE."` 
HБж 460`+
IБж 464`?
JЗ@11н32л8,"WR";`T
KЗ@11н32л18,"WR";`i
LЗ@11н32л20,"WK";`t
MБж 460a^
NХ:З"BEFORE WE LOOK AT EN-PASSANT IT WOULD BE A GOOD IDEA TO LET YOU KNOW THAT WHEN YOU CAPTURE A    PIECE IT MEANS THAT YOUR PIECE  LANDS ON THE SQUARE OCCUPIED BY YOUR OPPONENT AND THE OPPONENT  PIECE IS REMOVED FROM THE BOARD."aо
OЗ:З"EN-PASSANT IS A CAPTURE AND IT  CAN ONLY BE DONE AT CERTAIN     TIMES."a╣
PБж 460b4
QЗ"EN-PASSANT CAN ONLY HAPPEN IF   THE WHITE PAWN HAS ADVANCED TO  RANK 5 OR IF BLACK PAWN HAS     ADVANCED TO RANK 4."c
RЗ:З"EXAMPLE:IF WHITE HAS A PAWN ON  D5 AND BLACK MOVES A PAWN FROM  C7 TO C5 OR A PAWN FROM FROM E7 TO E5. AT THAT TIME WHITE CAN   CAPTURE THE ADVANCING PAWN ON C5BY SAYING EN-PASSANT AND PLACINGHIS PAWN ON C6 AND REMOVING THE"c0
SЗ"BLACK PAWN."c;
TБж 460c╗
UЗ"IF BLACK ADVANCED TO E5 THEN    WHITE CAN CAPTURE THE PAWN BY   PLACING HIS PAWN ON E6 AND      REMOVING THE BLACK PAWN."d
VЗ:З"ON THE NEXT SCREEN WE WILL LOOK AT HOW BLACK WOULD CAPTURE BY   EN-PASSANT."d
WБж 460e
XЗ"IF BLACK HAS A PAWN ON RANK 4   EXAMPLE C4 AND WHITE TRIES TO   MOVE A PAWN TO EITHER B4 OR D4  THEN BLACK CAN CAPTURE THE PAWN BY PLACING HIS PAWN ON THE FILE OF THE ADVANCING PAWN EITHER B3 OR D3 AND REMOVING THE WHITE    PAWN."eЮ
YЗ:З"ON THE NEXT SCREEN YOU WILL SEE THE BOARD WHERE BOTH BLACK AND  WHITE CAN CAPTURE BY EN-PASSANT IF THE OPPONENT TRIES TO MOVE   TWO SQUARES."eй
ZБж 460e┤
[Бж 464e╔
\З@10н32л10,"WP";e▐
]З@10н32л14,"WP";eЄ
^З@8н32л12,"BP";f
_З@7н32л14,"WP";f
`З@5н32л12,"BP";f.
aЗ@5н32л16,"BP";f9
bБж 460fy
cХ:З"THAT CONCLUDES THE MODULE ON THEMOVES OF THE CHESSMEN."f∙
dЗ:З"IF YOU ARE NOT SURE THAT YOU    UNDERSTOOD EVERYTHING ABOUT THE MOVES, SIMPLY PRESS <2> WHEN    YOU SEE THE MAIN MENU."g
eБж 460g
fБе 22g{
gЙ"PRESS THE NUMBER THAT CORRESPONDTO THE MOVES AVAILABLE TO THE   PIECE AND THEN PRESS THE <ENTER>KEY";AgБ
hРgм
iЗ@15н32л3,"PRESS ANY KEY TO CONTINUE";g┼
jR$│ Т:Е R$│"" Бе 362g╦
kЮg╤
lРg╪
mЮ4g°
nЗ" * THE CHESS OPENING * ";h

oА I│1 е 2000:Л Ih
pЮh╞
qЗ:З"THE CHESS OPENING IS NORMALLY   THE FIRST 8 TO 15 MOVES. HOW YOUPLAY THE CHESS OPENING WILL     OFTEN DETERMINE HOW YOU WILL    DO IN THE MIDDLE GAME AND THE   END GAME."hЎ
rЗ:З"HOW DO YOU MAKE GOOD OPENING    MOVES?"iC
sЗ:З"THERE ARE 10 PRACTICAL RULES    WHICH ARE USUALLY WORTH STICKINGTO."iN
tБж 460ie
uЗ"THE RULES ARE":Зj
vЗ"1. OPEN WITH EITHER THE KING OR    QUEEN PAWN.                  2. WHEREVER POSSIBLE, MAKE A       GOOD DEVELOPING MOVE WHICH      THREATENS SOMETHING."jж
wЗ"3. DEVELOP KNIGHTS BEFORE YOUR     BISHOPS.                     4. PICK THE MOST SUITABLE SQUARE   FOR YOUR PIECE AND DEVELOP IT   THERE ONCE AND FOR ALL."jч
xЗ"5. MOVE ONLY ONE OR TWO PAWNS IN   THE OPENING, NOT MORE."jЄ
yБж 460k╫
zЗ:З"6. DO NOT BRING YOUR QUEEN OUT     TO EARLY.                    7. CASTLE AS SOON AS POSSIBLE,     PREFERABLY ON THE KING SIDE. 8. PLAY TO GET CONTROL OF THE      CENTER.                      9. ALWAYS TRY TO MAINTAN AT"l<
{З"   LEAST ONE PAWN IN THE CENTER.10.DO NOT SACRIFICE WITHOUT A      CLEAR AND ADEQUATE REASON."lG
|Бж 460lз
}З:З"FINALY, YOU SHOULD ALWAYS ASK   YOURSELF THESE 2 QUESTIONS ANY  TIME YOU MOVE A PIECE."l█
~З:З"1. HOW DOES IT AFFECT THE          CENTER?"m/
З:З"2. HOW DOES IT FIT IN WITH THE     DEVELOPMENT OF MY OTHER         PIECES?"m:
АБж 460mи
БЗ"THERE ARE CERTAIN SYMBOLS THAT  YOU SHOULD KNOW BEFORE WE LOOK  AT THE OPENING. THEY ARE LISTED BELOW:"m─
ВЗ:З"SYMBOL     MEANING"n~
ГЗ" +         CHECK                 !         GOOD MOVE             !!        OUTSTANDING MOVE      ?         WEAK MOVE             ??        BLUNDER               X         CAPTURE"n┌
ДЗ" OO        CASTLE KING SIDE      OOO       CASTLE QUEEN SIDE     MATE      CHECKMATE"nх
ЕБж 460o*
ЖЗ"IN THIS MODULE YOU WILL SEE SOMEMOVES MADE BY ACTUAL PLAYERS."o─
ЗЗ:З"YOU SHOULD USE A CHESSBOARD AND SOME CHESSMEN AND MAKE THE MOVESON YOUR BOARD. DOUBLE CHECK     YOUR MOVES <BEFORE> PRESSING A  KEY TO CONTINUE."p=
ИЗ:З"IN MOST CASES ONE PLAYER WILL   FOLLOW THE OPENING RULES WHILE  THE OTHER PLAYER WILL DEVIATE   FROM THE RULES."pH
ЙБж 460pы
КЗ"AT THE END OF THE MOVES YOU WILLBE GIVEN THE RESULT. WHEN YOU   SEE THE RESULT, TRY AND FIGURE  OUT THE REASON FOR THE RESULT.  WHEN YOU THINK YOU KNOW THE"qЕ
ЛЗ"REASON, <PRESS> A KEY TO SEE THEBOARD TO CHECK IF YOU MADE THE  CORRECT MOVES. AFTER YOU HAVE   CHECKED YOUR MOVES, PRESS A KEY TO SEE THE REASON."qс
МЗ:З"NOW IF YOU ARE READY WE WILL    LOOK AT THE FIRST EXAMPLE OF    THE CHESS OPENING."qь
НБж 460r
ОХ:Ю:З"EXAMPLE # 1"r
ПЗ:З"WHITE","BLACK"r2
РЗ"1. D2-D4","G8-H6"rJ
СЗ"2. B1-C3","D7-D5"rb
ТЗ"3. C1-D2","B8-C6"rz
УЗ"4. E2-E3","C8-F5"rТ
ФЗ"5. G1-E2","C6-B4"rл
ХЗ"6. A1-C1","F5XC2!"r╔
ЦЗ"7. C1XC2??","B4-D3MATE"r╘
ЧБж 460rс
ШХ:Бж 464rЇ
ЩЗ@4н32л8,"BR";s
ЪЗ@4н32л14,"BQBKBB";s 
ЫЗ@4н32л22,"BR";s7
ЬЗ@5н32л8,"BPBPBP";sQ
ЭЗ@5н32л16,"BPBPBPBP";se
ЮЗ@6н32л22,"BN";sy
ЯЗ@7н32л14,"BP";sН
аЗ@8н32л14,"WP";sе
бЗ@9н32л12,"WNBNWP";s╟
вЗ@10н32л8,"WPWPWRWBWNWPWPWP";sр
гЗ@11н32л14,"WQWKWB";sї
дЗ@11н32л22,"WR";t
еБж 460t
жЮ:З"EXAMPLE # 2"t*
зЗ"WHITE","BLACK"tB
иЗ"1. E2-E4","E7-E5"tZ
йЗ"2. G1-F3","F7-F6"tr
кЗ"3. F3XE5","F6XE5"tМ
лЗ"4. D1-H5+","E8-E7?"tж
мЗ"5. H5XE5+","E7-F7?"t└
нЗ"6. F1-C4+","F7-G6?"t┌
оЗ"7. E5-F5+","G6-H6?"tє
пЗ"8. D2-D4+","G7-G5"u
░З"CHECK IS FROM BISHOP ON C1"u-
▒З"9. H2-H4","H6-G7"uF
▓З"10.F5-F7+","G7-H6"uZ
│З"11.H4XG5MATE"ue
┤Бж 460ur
╡Х:Бж 464uЛ
╢З@4н32л8,"BRBNBBBQ";uг
╖З@4н32л18,"BBBNBR";u╝
╕З@5н32л8,"BPBPBPBP";u╨
╣З@5н32л18,"WQ";uф
║З@5н32л22,"BP";u°
╗З@6н32л22,"BK";v
╝З@7н32л20,"WP";v 
╜З@8н32л16,"WP";v4
╛З@9н32л14,"WP";vL
┐З@10н32л8,"WPWPWP";vc
└З@10н32л18,"WPWP";v{
┴З@11н32л8,"WRWNWB";vР
┬З@11н32л16,"WK";vе
├З@11н32л22,"WR";v░
─Бж 460wB
┼Ю:З:З"THAT CONCLUDES THE MODULE ON THECHESS OPENING. YOU NOW SHOULD   HAVE SUFFICIENT KNOWLEDGE ABOUT CHESS TO PLAY A GOOD GAME OF    CHESS."wм
╞З:З"IF YOU WANT TO LEARN MORE ABOUT CHESS THEN I RECOMMEND THAT YOU PURCHASE ANY GOOD BOOK ON CHESS."w╖
╟Бж 460xJ
╚Ю:З:З"PLAY AGAINST THE COMPUTER IN    chess master, LOCATED ON ISSUE  #37 FOR THE COCO 1, 2 AND 3 OR  hr chess  ON ISSUE #69 FOR THE  COCO 3."xU
╔Бж 460x_
╩Бе 22xe
╦КxР
╠З@15н32л3,"PRESS ANY KEY TO CONTINUE";xи
═K$│ Т:Е K$│"" з 460xо
╬Юx┤
╧Рx║
╨Юx╟
╤А Y│4е11x╓
╥А X│8 е 23x▐
╙Н CxЄ
╘З@32нYлX, Л(C);x¤
╒Л X:ЛYyC
╓Ж 207,207,192,192,207,207,192,192,207,207,192,192,207,207,192,192yЙ
╫Ж 192,192,207,207,192,192,207,207,192,192,207,207,192,192,207,207y╧
╪Ж 207,207,192,192,207,207,192,192,207,207,192,192,207,207,192,192z
┘Ж 192,192,207,207,192,192,207,207,192,192,207,207,192,192,207,207z[
┌Ж 207,207,192,192,207,207,192,192,207,207,192,192,207,207,192,192zб
█Ж 192,192,207,207,192,192,207,207,192,192,207,207,192,192,207,207zч
▄Ж 207,207,192,192,207,207,192,192,207,207,192,192,207,207,192,192{-
▌Ж 192,192,207,207,192,192,207,207,192,192,207,207,192,192,207,207{?
▐З@4н32л6,"8";{Q
▀З@5н32л6,"7";{c
рЗ@6н32л6,"6";{u
сЗ@7н32л6,"5";{З
тЗ@8н32л6,"4";{Щ
уЗ@9н32л6,"3";{м
фЗ@10н32л6,"2";{┐
хЗ@11н32л6,"1";{р
цЗ@12н32л8,"A B C D E F G H";{ў
чЗ@3н32л13,"BLACK";|
шЗ@13н32л13,"WHITE";|
щР7,207,192,192,207,207{?
▐З@4н32л6,"8";{Q
▀З@5н32л6,"7";{c
рЗ@6н32л6,"6";{u
сЗ@7н32л6,"5";{З
тЗ@8н32л6,"4";{Щ
уЗ@9н32л6,"3";{м
фЗ@10н32л6,"2";{┐
хЗ@11н32л6,"1";{р
цЗ@12н32л8,"A B C D E F G H";{ў
чЗ@3н32л13,"BLACK";|
шЗ@1;}`З@9н32л6,"3";}%jЗ@10н32л6,"2";}8tЗ@11н32л6,"1";}Y~З@12н32л8,"A B C D E F G H";}pИЗ@3н32л13,"BLACK";}ИТЗ@13н32л13,"WHITE";}ОЬР7,207,192,192,207,207|╕.З@4н32л6,"8";|╩8З@5н32л6,"7";|▄BЗ@6н32л6,"6";|юLЗ@7н32л6,"5";}VЗ@8н32л6,"4"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	&':ГCOPYRIGHT (C) T&D SOFTWARE 1988&x
└1:Т65497,0:М M1(40),M2(40),M3(40),M4(40),M5(40),M6(40),M7(40),M8(40),M9(40)&РИ Ё Бе 70:И я Бе 70&ЪБе 50&к(Т 65496,0:С&─2у0,0:у1,7:у2,11:у3,18&╫<:Г************'HFф0:Ю:З"********************************":З"DESCRIPTION             LETTER":З"-----------             ------"(PЗ"GYROSCOPE                   A":З"FLOWER                      B":З"FULL SCREEN PATTERN 1       C":З"SCREEN PATTERN 2            D":З"RING                        E":З"OFFSET PATTERN              F"(XZЗ"CUSTOM CIRCLES              G":З"CIRCLE-IN-CIRCLE PATTERN    H"(╩dЗ:З"<R>---RGB     <O>---COMPOSITE":З"********************************";:A$│"COPYRIGHT 1988  J. MOSLEY-------")nАT│1 е 100:ЛT:N$│ О(A$,29):L$│ П(A$,1):A$│L$лN$:З@481,A$;)pxI$│ Т:Е I$│"" з 110 :Д Е I$│"R" з у 1,38:у2,11:у3,16:а100,1 :Д Е I$│"O" з у 1,7:у2,11:у3,17:а 100,1*ВЕ I$│"A" з W│1 :Д Е I$│"B" з W│2 :Д Е I$│"C" з W│3 :Д Е I$│"D" з W│4 :Д Е I$│"E" з W│5 :Д Е I$│"F" з W│6 :Д Е I$│"G" з W│7 :Д Е I$│"H" з W│8 :Д W│0*МЕ W│0 з 120*DЦИ W Бж 170,310,500,560,640,780,810,1000*Pац:Бе 70*Yкф4:ц*o┤АT│30 е м30 й м.8*Б╛A│6.2832нTо60*ж╚щ(70н Е(A)л320,70н Х(A)л96),40,2*н╥ЛT*├▄АT│30 е м30 й м.8*╒цA│6.2832нTо60*√Ёщ(180н Е(A)л320,25н Х(A)л96),40,3+·ЛT+
АT│30 е м30 й м.3+*
A│6.2832нTо60+P
щ(230н Е(A)л320,90н Х(A)л96),25,1+W
"ЛT+d
,в44539:Р+m
6ф4:ц+У
@А T│96 е 191 й 4:щ(320,T),10,3:ЛT+и
JАT│30 е м30 й м1+║
TA│6.2832нTо60+▀
^щ(20н Е(A)л320,10н Х(A)л96),20,1+ц
hЛT+№
rА T│30 е м30 й м1,
|A│6.2832нTо60,3
Жщ(50н Е(A)л320,30н Х(A)л96),40,2,:
РЛT,P
ЪА T│30 е м30 й м3,b
дA│6.2832нTо60,И
ощ(110н Е(A)л320,60н Х(A)л96),20,1,П
╕ЛT,ж
┬А T│10 е м10 й м.5,╕
╠A│6.2832нTо60,▀
╓щ(180н Е(A)л320,80н Х(A)л102),20,3,ц
рЛT,є
ъв44539:Р,№
Їф4:ц-"
■А T│1 е 639 й 60:А U│1 е 191 й 40-bщ(T,U),30,2:щ(Tл30,Uл20),30,2:щ(Tл30,U),30,3:щ(T,Uл20),30,3-lЛ U,T-еАT│0 е 10:ч1:ъ(0лT,0л(Tо2))м(639мT,191м(Tо2)),╜,B:ЛT-▓&в44539:Р-╗0ф4:ц-╟:X│0:Y│5."Dч2:ъ(X,0)м(639,Y),╜:ч1:ъ(Xл2,0)м(639,Yл2),╜:Е X▓637 ▒ Y▓189 з 590 :Д X│Xл8:Y│Yл5:Бе580.2NX│639:Y│186.КXч2:ъ(X,191)м(0,Y),╜:ч1:ъ(Xм2,191)м(0,Yм2),╜:Е X┤2 ▒ Y┤7 з 610 :Д X│Xм8:Y│Yм5:Бе 600.│bАT│.001 е 1 й .2:щ(320,96),60,3,T:ЛT/lї"C3BM320,96;NU23NR23ND23L23":ч3:ъ(359,79)м(281,113),╜:ъ(281,79)м(359,113),╜/vв44539:Р/Аф 4:ц/0КАT│60 е м60 й м1/CФA│6.2832нTо120/iЮщ(260н Е(A)л320,60н Х(A)л96),50,2/pиЛT/Е▓АT│60 е м60 й м1/Ш╝A│6.2832нTо120/├╞щ(80н Е(A)л320,(480о26)н Х(A)л96),15,1/╩╨ЛT/▀┌АT│60 е м60 й м1/ЄфA│6.2832нTо1200ющ(20н Е(A)л320,(120о26)н Х(A)л96),4,30#°ЛT00в44539:Р09ф4:ц0╔C│ Д(3):X│ Д(320)м1:Y│ Д(96)м1:Q│ Д(60):щ(X,Y),Q,C:щ(X,191мY),Q,C:щ(639мX,Y),Q,C:щ(639мX,191мY),Q,C:ъ(320,0)м(320,191),╛:ъ(0,96)м(639,96),╛0р Е  Т│"" з 790 :Д Р1*Ю:Й"NUMBER OF CIRCLE PATTERNS (40MAX.):::";CN1!4А T│1 е CN1X>Й"STARTING POINT FOR CIRCLE       (0-60):::";M1(T)1ПHЙ"END POINT FOR CIRCLE            (-60-0)::";M2(T)1╔RЙ"INCREMENT FOR CIRCLE            (.01-120):::";M3(T)2
\Й"HORIZONTAL RADIUS               (0-280):::";M4(T)29fЙ"HORIZONTAL CENTER               (0-639):::";M5(T)2ppЙ"VERTICAL RADIUS                 (0-90):::";M6(T)2иzЙ"VERTICAL CENTER                 (0-191):::";M7(T)2рДЙ"CIRCLE RADIUS                   (0-800):::";M8(T)3!ОЙ"CIRCLE COLOR---> 0=BLACK  1=RED 2=BLUE  3=GREEN :::";M9(T)3(ШЛT31вф4:ц3?мАT│1 е CN3^╢А H│M1(T) е M2(T) й мM3(T)3q└A│6.2832нHо1203и╩щ(M4(T)н Е(A)лM5(T),M6(T)н Х(A)лM7(T)),M8(T),M9(T)3▓╘Л H,T3└▐в 44539:Р3╔шф4:ц4FЄN│2:Бж 1020:Бж1080:N│3:Бж 1050:Бж1080:N│1:Бж 1020:Бж1080:N│2:Бж 1050:Бж1080:N│3:Бж 1020:Бж1080:N│1:Бж1050:Бж1080:Бе 10104T№X│180:Y│04hщ(320лY,96),X,N4СЕ X┤1 з Р :Д X│Xо9н8:Y│YлXо8:Бе 10304ЯX│180:Y│04│$щ(320мY,96),X,N4▄.Е X┤1 з Р :Д X│Xо9н8:Y│YлXо8:Бе 106058АT│1 е 1000:Е  Т│"" з ЛT :Д Бе 705BРБж 1050:Бж1080:N│3:Бж 1020:Бж1080:N│1:Бж1050:Бж1080:Бе 10104T№X│180:Y│04hщ(320лY,96),X,N4СЕ X┤1 з Р :Д X│Xо9н8:Y│YлXо8:Бе 10304ЯX│180:Y│04│$щ(320мY,96),X,N4▄.Е X┤1 з Р :Д X│Xо9н8:Y│YлXо8:Бе 106058АT│1 е 1000:Е  Т│"" з ЛT :Д БеWAIT A SECOND. WHY AM I  DESCRIBING A ROCK!":Бе 5006q]Е CM│2 ░ CO│1 ░ O(2)│LO з З"TELESCOPE TAKEN":O(2)│0:Бе 5006╤bЕ CM│2 ░ CO│2 ░ O(2)│0 з З"CRASH! BREAK! A LENS FALLS OUT!":O(5)│LO:O(6)│LO:O(2)│100:Бе 5007gЕ CM│2 ░ CO│3 ░ O(2)│0 з З"IT HAS MANY LENSES IN IT.":Бе 5007MhЕ CM│5 ░ CO│1 ░ O(5)│LO з З"LENS TAKEN.":O(5)│0:Бе 5007ЕiЕ CM│5 ░ CO│2 ░ O(5)│0 з З"DROPPED.":O(5)│LO:Бе 5007┬jЕ CM│5 ░ CO│3 ░ O(5)│0 з З"IT IS A CRYSTAL LENS.":Бе 5008lЕ CM│3 ░ CO│1 ░ O(3)│LO з З"LIGHT GUN TAKEN!":O(3)│0:Бе  q&':ГCOPYRIGHT (C) T&D SOFTWARE 1988&<
Х:Х5000:М A$(72)&M╚3,1:╝3:┐1,0&┘╞"BM46,20;S6C1RFR2FR2FR2FR2FR2FR4FR4FR11ER4ER3ER2ER2EU2H3L4G2LG2LG2LG2LG2LG2LM-18,+15GL2GL3HL2HL2H2LH2U4E3R2ER7FR2FR2FR2M+19,+15RF2R23"'(╞"BM102,44;GL2GL2G3D3FRFR5ERERERERU2HUUH2"'з2╞"BM102,44;F3R2ER2ER2ER2ERERERERERERNL6NR18M+8,-10BM-10,+10M-2,+4G2DGDFDFDFR6ERERERM+14,-20BM-12,+18RDFDFDR6ERERERM+7,-3ERERERL2GLGLGLD2F3R5E3UH4R2F2R4E3"(<╞"BM94,90;H2L6G2D8F2R6E2U2H2L6BM+16,+6;M+8,-12;BM+10,+2M-6,+7R8NR2ND3U9BM+12,+0;R6F2D8G2L6H2BM+10,-3L8H2U3E2"(cF╞"BM112,115;S4;ND9R4F2DG2NL3F2DG2L4;BM+15,+0;U4M+4,-6;BM-8,+0;M+4,+6"(▀P╞"BM40,135;S8;L5GLG5D2FR2NE8BURFR2ENE2FR2ENE2FR2E2BM+3,+2ENE5H2LBM-2,+2FR3UFR3;E3DR3G2R5;E3L2GF2R3;E3BM-1,+2FR2NE3G4L4")oZ╞"BM135,135;R6F2G7L4H3L2G2FR2E8;BM+4,+8R2E3L2GF2R2;BM+11,-7R7EUL2G9L2HE2R2F5R2;BM-1,-2E3BEEBM-3,+4FR2;E4BDFDGL2HBDBR5;E6HLGD5FR3;E3L2GF2R4")ЖdP$│"PRESS ANY KEY")пnАX│1е72:Н A$(X):Бж120:а10,1:ЛX:Бе150)▀xЕ  О(A$(X),1)│"@"з A$(X)│"    "л Р(A$(X),2)*(ВЕ  З(A$(X))┤24 ▒ A$(X)│"" з A$(X)│A$(X)л б(32,32):A$(X)│ О(A$(X),24)*.МР*FЦ╞"BM50,170;S4;G4F4"*оа╞"BM60,170;S4;ND9R4FD4GL3;BM+9,+3U9R4FD4GNL3FD2;BM+6,+0U9R4BM-1,+4L2BM+0,+5R3;BM+6,-1FR3EU2H4UER3F"+?к╞"BM100,178FR3EU2H4UER3FBM+12,-1ND9R5D6NL4D3BM+6,+0U9F6NU6D3BM+9,+0U5NH4E4BM+12,+0D9BM+5,+0H5E4BM+6,+0NR4D5NR3D4R4BM+9,+0U5NH4E4BM+9,+0F4G4"+J┤в44539+Щ╛АX│1е72 й12:Ю3:P│36:АY│0е11:Z│XлY:З@P,A$(Z);:P│Pл32:ЛY:З@457,P$;:в44539:ЛX,╚Ю3:З@76,"CHOOSE:";:З@137,"1) READ AGAIN  ";:З@169,"2) PRINT COPY  ";:З@201,"3) LOAD 'LOTTO'";:З б(54,175);:ЙQ:И Q Бе190,220,250,'╥Бе200,~▄З#м2,д20)"LOTTO 6/49 INFORMATION":З#м2:АX│1е36:З#м2,д10)A$(X);д40)A$(Xл36):ЛX:З#м2-=цЗ#м2,д10)"P.S. I do not have a SYSTEM nor do I believe in them.":З#м2,д15)"This is for fun only.  Comments may be sent to":З#м2,д15)"Audrey De Lisle  2218-31 Ave. San Francisco Ca 94116"-ФЁЗ#м2,д25)"Please enclose postage and your address if you":З#м2,д25)"need a reply."-б·Ю3:╚0:└1-┬№З@96,"    TAPE OR DISK  T/D"-р¤I$│ Т:Е I$│""з 253 :Д 254-ў■Е I$│"T"з Ч"LOTTO". Е I$│"D"з О"LOTTO".
Бе253.▐
Ж @'LOTTO' IS A UTILITY,--NOT A SYSTEM--FOR THE,CALIFORNIA LOTTO 6/49.,IT CREATES AND PRINTS A,DATA FILE AND FREQUENCY,CHART. IT ALSO GENERATES,RANDOM NUMBERS WHICH YOU,CAN USE TO TRY YOUR LUCK/▓
Ж EITHER TO BET OR TO PLAY,BY CHOOSING SIX NUMBERS,AND THEN GENERATING THE,RANDOM NUMBERS.,@'LOTTO 6/49'--AS THE,TITLE SUGGESTS--IS BASED,ON MATCHING 6 NUMBERS,CHOSEN FROM 1-49. TWICE,WEEKLY 7 NUMBERED PING-0г
Ж PONG BALLS ARE POPPED,OUT OF A MACHINE.  THE,FIRST 6 ARE THE REGULAR,NUMBERS. THE SEVENTH IS,A BONUS NUMBER USED ONLY,WHEN A PLAYER HAS CHOSEN,5 NUMBERS CORRECTLY.,@PRIZES ARE BASED ON,THE TOTAL MONEY BET EACH,TIME AND SINCE IT IS ALL1}
"Ж "COMPUTERIZED, THE AMOUNT",OF THE PRIZES AND NUMBER,OF WINNERS IS KNOWN VERY,SOON. THE PRIZE FOR EACH,CATEGORY IS SHARED WHEN,THERE IS MORE THAN ONE,WINNER. THE GRAND PRIZE,IS PAID IN TWENTY ANNUAL,INSTALLMENTS.2q
,Ж @THE GRAND PRIZE IS,USUALLY SEVERAL MILLION,OR MORE SINCE IT ACCUMU-,LATES IF THERE ARE NO,WINNERS. THE OTHER CATE-,GORIES ARE AS FOLLOWS--,2) 5 CORRECT + BONUS NO.,3) 5 CORRECT,4) 4 CORRECT,A CONSOLATION PRIZE ($5),FOR 3 CORRECT IS PAID3[
6Ж IMMEDIATELY.,@I HAVE INCLUDED THE,DATA FILE FOR CALIFORNIA,FROM WEEK 1 TO LATEST,AVAILABLE.THOSE WHO HAVE,'SYSTEMS' CAN USE THE,DATA TO PRACTICE.,@BONUS NUMBERS ARE,MARKED WITH A 'B'.,@I USE A RADIO SHACK,PRINTER.  THERE ARE NO4D
@Ж SPECIAL CODES.,,@YOU CAN CREATE YOUR,OWN FILES. IF YOUR STATE,USES FEWER NUMBERS OR,DOES NOT USE A BONUS NO.,DON'T WORRY--JUST PRESS,<ENTER>--IT STILL WORKS.,@SOME OF YOU MIGHT,LIKE TO CHANGE THE RANGE,EDIT LINE 56 C(X)=RND(#)4p
JЖ REPLACE 49 WITH YOUR NO.,,@GOOD LUCK!YOU CAN CREATE YOUR,OWN FILES. IF YOUR STATE,USES FEWER NUMBERS OR,DOES NOT USE A BONUS NO.,DON'T WORRY--JUST PRESS,<ENTER>--IT STILL WORKS.G)фЕ O(4)│0 ░ W│0 з З"A ROBOT SHELL":N│1GdщЕ O(4)│0 ░ W│1 з З"A ROBOT SHELL (YOU'RE WEARING)":N│1GВюЕ O(5)│0 з З"A LENS-":N│1GлєЕ N│0 з З"NOTHING BUT YOUR COURAGE."G╢°Бе 500G▀╕Ю:З"*******************************"Hs╜АX│1 е 2:╔"V20T20AP4EP4AP4EP4FP4CP4FP4CP4":Л:З"YOU WAKE UP ON A STRANGE PLANET.WHILE YOU HAVE SLEPT, YOU MADE  A TRIP THROUGH TIME AND SPACE!!"Hв┬А X│1 е 2:╔"T20DP4GP4DP4GP4AP4EP4FP4CP4":ЛH╔╟З"*******************************"IФ╠╔"O3T5L8CO2GO3CO2GO3CO2GO3L4CO2L8;11;AL4GL8AGL4FO3L8CO2GO3CO2GO3CO2GO3L4CL8D+DO2L4A+O3L8DO2A+O3L4CO3L8CO2GO3CO2GO3CO2GO3L4CO2L8;11;T4AL4GL8AT3GL4FL8A+T2DFA+FDO1L50T5V-2CV-2CV-2CV-2CV-2CV-1CV-1CV-1C"I╝╤З"CONGRADULATIONS--- YOU HAVE WON!"Iр╓АDLAY│1 е 1000:Л:Ю:З"PROLOUGE-"JС█З"AFTER AWAKING ON THE PLA UG:Г <LOTTO> DATA FOR CALIF.LOTTERY COPYRIGHT (C) T&D SOFTWARE 1988Q
Бе 61╥Ю3:З@76,"CHOICES:";:З@130,"1) VIEW FILE"л б(16,32);:З@162,"2) PRINT FILE"л б(15,32);:З@194,"3) CREATE/ADD TO FILE"л б(7,32);ВЗ@226,"4) SAVE FILE"л б(16,32);:З@258,"5) OCCURRENCE SEARCH"л б(8,32);:З@290,"6) GENERATE RANDOM NUMBERS  ";:З@322,"7) END"л б(22,32);:З@394,"CHOOSE 1-7";:ЙQ:ЕQ┤1 ▒ Q▓7 з2аИ Q Бе 6,13,30,40,46,54,5иЪ:К%Ю6:З@76,"CHOICES:";:З@132," 1) VIEW NUMBERS        ";:З@164," 2) VIEW FREQUENCY TABLE";:З@236,"CHOOSE";:ЙQ:И Q Бе 7,10,2░Ю:АX│1е N й10:Ю:З@4,"DATE  6 NUMBERS + BONUS NO.":АY│0е9:Z│XлY:З═"### ";Z;:З═"%   % ";L$(Z,0);:А W│1е6:З═"% %";L$(Z,W);:ЛW:ЗL$(Z,7):ЛYяЗ@450,"PRESS <ENTER> OR <Q> TO QUIT":╗Й Q$:ЕQ$│"Q"з9 :Д ЛXў	Бе2}
A│0:Ю:АX│1е49:A│Aл1:R1│R(X,0):R2│R(X,1):R3│R1лR2:З═"###";X;:З Л(223);:З═"### %% ### %% ###";R1,"+",R2,"=",R3:Е A│14 ▒ X│49з11:Д12дA│0:З@457,"PRESS ANY KEY":в44539:Ю░Л X:Бе2w
Ю8:З@70,"PRINT FILE AND CHART ";:З@131," 1) PRINT NUMBERS"л б(9,32);:З@163," 2) PRINT FREQUENCY TABLE ";:З@195," 3) RETURN TO MENU"л б(8,32);:З@267,"CHOOSE";:ЙQ:ЕQ┤1 ▒ Q▓3 з 13 :Д И Q Бе 14,23,2Ю:З@66,"SELECT ITEM TO START AND END",,," DEFAULTS:",," TO START WITH 1  PRESS <ENTER>"," TO END WITH LAST PRESS <ENTER>",,," OTHERWISE TYPE A NUMBER"@Й" START NO.";S:Е S┤1 з S│1 :Д Е S▓N з 15qЙ" END NO.";T: ЕT┤1 з T│N :Д Е T┤S ▒ T▓N з16ЬЙ" PRINT HEADING (Y/N)";Q$:ЕQ$│"N"з 21щЗ#м2,д10)"LOTTO 6/49 -- CALIFORNIA LOTTERY NUMBERS "L$(S,0)" TO "L$(T,0)3З#м2:З#м2,д9)"ITEM   DATE    6 NUMBERS + BONUS NO.":З#м2,д9) б(51,45)hАX│ S е T:Е S┤10з TB│11:Д Е S▓99 з TB│9 :Д TB│10┌З#м2,дTB);:З#м2,═"### ";X;:З#м2,═" %   %  ";L$(X,0);:А W│1е6:З#м2,═" % % ";L$(X,W);:Л W:З#м2,"   ";L$(X,7):ЛXтБе2Ю4:З@70,"PRINT LOTTO NUMBERS";:З@136,"FREQUENCY CHART";kЗ#м2,д10)"LOTTO FREQUENCY CHART "L$(1,0)" TO "L$(N,0)" = "N" TIMES":З#м2ХА X│1е49:R1│R(X,0):R2│R(X,1):R3│R1лR2▒Е X┤10 з TB│11 :Д TB│10З#м2,дTB)X;:З#м2,═"### %% ### %% ###  ";R1,"+",R2,"=",R3;:Е R1│0 з 28 :Д АY│1 е R1:З#м2,"X";:Л YBЕ R2│0 з 29 :Д А Y│1 е R2:З#м2,"B";:Л YRЗ#м2:ЛX:Бе2wЮ5:З@69,"CREATE OR ADD TO LIST";╔З@134," 1) ADD  2) CREATE ";:З@203,"CHOOSE";:ЙQ:Е Q│2з N│0 :Д Е Q┤1 ▒ Q▓2 з 2 N│Nл1:Е N▓200з N│200:Ю6:З@139,"FILE FULL";:З@457, _&':ГCOPYRIGHT (C) T&D SOFTWARE 1988&}
Ю:З"SAMPLE ADVENTURE- FIRST RUN ,   THEN STUDY THE LISTING":З:З:З"BY MIKE SNYDER"&Х2Й"PRESS <ENTER>";A$&м_LO│2:O(1)│8:O(2)│6&╫dЮ:Е LO│2 з З"YOU ARE IN YOUR BEDROOM."& iЕ LO│4 з З"YOU ARE IN THE KITCHEN."'!nЕ LO│5 з З"THIS IS THE HALL."'NsЕ LO│6 з З"YOU ARE IN THE STORAGE ROOM."'sxЕ LO│8 з З"YOU ARE IN A CLOSET."'З╚З"YOU SEE-":N│0'е═Е O(1)│LO з З"A COAT":N│1'─╥Е O(2)│LO з З"A KNIFE":N│1'ш·Е N│0 з З"NOTHING INTERESTING."' 
,А X│1 е 4:D(X)│0:Л(
1Е LO│8 ▒ LO│5 з D(1)│1(5
6Е LO│4 ▒ LO│5 з D(3)│1(P
;Е LO│2 ▒ LO│5 з D(2)│1(k
@Е LO│6 ▒ LO│5 з D(4)│1(u
^C$│""(П
cЕ D(1)│1 з C$│C$л"N-"(й
hЕ D(2)│1 з C$│C$л"S-"(├
mЕ D(3)│1 з C$│C$л"E-"(▌
rЕ D(4)│1 з C$│C$л"W-"(ў
ЖЗ "YOU CAN GO-";:З C$)
ЇЙ"OKAY-";A$).
∙Е A$│"N" ░ D(1)│1 з LO│LOм3:Бе 100)U
■Е A$│"S" ░ D(2)│1 з LO│LOл3:Бе 100)|Е A$│"W" ░ D(4)│1 з LO│LOм1:Бе 100)гЕ A$│"E" ░ D(3)│1 з LO│LOл1:Бе 100)▀
Е O(1)│LO ░  О(A$,7)│"GET COA" з З"TAKEN":O(1)│0:Бе 500*'Е O(1)│0 ░  О(A$,3)│"DRO" ░  Ю(A$,"COA") з З"DON'T DROP IT!":Бе 500*rЕ O(1)│0 ░  О(A$,3)│"LOO" ░  Ю(A$,"COA") зЗ"IT IS A WARM COAT.":Бе 500*╔Е O(1)│0 ░  О(A$,3)│"WEA" ░  Ю(A$,"COA") зЗ"AHH. NICE.":W│1:Е O(2)│0 з 5000 :Д 500+!Е O(2)│LO ░  О(A$,7)│"GET KNI" з З"TAKEN":O(2)│0:Е W│1 з 5000 :Д 500+0&Е A$│"I" ▒ A$│"INV" з1000+HДЗ"YOU CAN'T!":Бе500+_шЮ:З"YOU HAVE-":N│0+ИэЕ O(1)│0 ░ W│1 зЗ"WEARING COAT.":N│1+мЄЕ O(1)│0 ░ W│0 з З"A COAT.":N│1+╩ўЕ O(2)│0 з З"A KNIFE":N│1+с№Е N│0 зЗ"NOTHING!"+ы
Бе500,^ИЮ:З"YOU WIN. THE OBJECT WAS THE WEARTHE COAT AND GET THE KNIFE. NOT,MUCH OF A PLOT, BUT WHAT DO YOU EXPECT!":КИэЕ O(1)│0 ░ W│1 зЗ"WEARING COAT.":N│1+мЄЕ O(1)│0 ░ W│0 з З"A COAT.":N│1+╩ўЕ O(2)│0 з З"A KNIFE":N│1+с№Е N│0 зЗ"NOTHING!"+ы
Бе500,^ИЮ:З"YOU WIN. TH                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "PRESS ANY KEY";:в44539:Бе39В!Ю:З"ITEM NO."N:Й"DATE (MO-DD)";L$(N,0):Е  З(L$(N,0))┤5з Е  Ю(1,L$(N,0),"-")│2з L$(N,0)│" "лL$(N,0)╚"А X│1е6:З"NUMBER"X:Й L$(N,X):Е  З(L$(N,X))┤2з L$(N,X)│" "лL$(N,X)	#ЛX:Й"BONUS NO.";L$(N,7):Е  З(L$(N,7))┤2з L$(N,7)│" "лL$(N,7)k$Ю:З@64,"ITEM NO."N:З@128,"DATE: "L$(N,0),,,,:АX│1е6:ЗL$(N,X);" ";:ЛX:З:З:З"BONUS NO.="L$(N,7)н%З:З"PRESS <ENTER> IF CORRECT","TYPE R TO REDO":ЙQ$:ЕQ$│"R"з33Ў&З"PRESS <ENTER> TO DO MORE","TYPE Q TO QUIT":ЙQ$:Е Q$│"Q" з 39 :Д 32'Ю3:З@107,"-WORKING-";:Бж81:Бе2B(Ю2:З@67,"SAVE FILE TO TAPE OR DISK";Ж)З@136,"tAPE/dISK/mENU";:ЙQ$:Е Q$│"T"з DV│м1:Д Е Q$│"D"з DV│1:Д2 0*З@193,"PRESET FILE NAME-PRESS <ENTER>";:З@257,"OTHERWISE, TYPE YOUR FILE NAME";:З@289," (8 CHAR.-NO DISK EXTENSION)  ";:З@321, б(32,159);:Й F$:Е F$│""з F$│"LOTTODAT" Ш+Е DV│1з F$│F$л"/DAT":Д З@419,"PREPARE TAPE AND RECORDER";:З@451,"PRESS ANY KEY WHEN READY ";:в44539 ь,Ю4:З@107,"-SAVING-";:Щ"O",#DV,F$:З#DV,N:АX│1е N:А Y│0е 7:З#DV,L$(X,Y):ЛY,X:Ъ#DV Ї-Бе2!_.Ю6:З@65,"SEARCH FOR LAST 20 OCCURRENCES";:З@104,"OF ANY NUMBER";:З@168,"TYPE NUMBER";:ЙB:ЕB┤1▒ B▓49з46!З/Ю6:АX│0е20:D$(X)│"":N$(X)│"":ЛX:Z│0!╜0АX│N е 1 йм1:АY│1е7:Е  Й(L$(X,Y))│B з49:Д ЛY:Бе51"1Z│Zл1:ЕZ▓20з52:Д N$(Z)│ И(X):D$(Z)│L$(X,0):Е Y│7з D$(Z)│D$(Z)л"B""2ЗN$(Z);"  ";D$(Z),"-3Е Z▓20з52:Д ЛX"Ъ4Е Z│0 з З@73,"NO OCCURRENCES";:З@136,"PRESS <ENTER>";:ЙQ$:Бе2::Д З@456,"PRINT LIST (Y/N)";:ЙQ$:ЕQ$│"N"з2"Ї5З#м2,д10)"LAST 20 OCCURRENCES OF "B:З#м2:А X│0е Zм1:З#м2,д15)N$(X);"  ";D$(X):ЛX:Бе 2#U6Ю:З@67,"GENERATE 6 RANDOM NUMBERS":X│ Д(м Я):З:Й"USE PRINTER(Y/N)";Q$:Е Q$│"Y"зDV│м2 :Д DV│0#b7АX│1 е 7#В8C(X)│ Д(49):Е X▓1з 57 :Д 58#з9А Y│1 е Xм1:Е C(X)│C(Y) з56:Д ЛY#п:Л X#∙;Ю:З@96:А X│1е6:З#DV,д5)C(X);:ЛX:З#DV:З#DV:З#DV,д5)"BONUS NO. IS "C(7)$:<З@357,"GENERATE MORE NUMBERS?":Й"(Y/N)";Q$:Е Q$│"Y"з 55 :Д 2$z=└1:Х:Х10000:М L$(200,7),R(49,1),D$(20),N$(20):P$│"L8V25O1A"$╡>Ю: АX│1120е1151: ТX,128:ЛX:АX│1344е1375:ТX,128:ЛX:Бж76$·?A$│ Л(207):A1$│ Л(143):B$│A$лA$:B1$│A1$лA1$:C$│A$лB$:C1$│A1$лB1$%К@SW│0:Бж66:Т1283,76:╔ P$:SW│1:Бж76:Бж66:Т1287,79:╔ P$:SW│2:Бж76:Бж66:Т1291,84:╔ P$:SW│3:Бж76:Бж66:Т1295,84:╔ P$:SW│4:Бж76:Бж66:Т1299,79:╔ P$%╫AЗ@282,"6/49":З@313,"CALIF.":З@399,"BY":З@425,"AUDREY DE LISLE":Бж76:Бе70&\BЗ@159,A$:Бж80:З@159,A1$:З@156,B$:З@ 72 
10-18
 4
 9
33
36
39
47
25
10-25
 8
21
32
35
36
38
47
11-1
20
30
32
43
44
47
23
11-8
 5
 7
12
21
32
45
13
11-15
 4
 5
18
41
47
48
42
11-22
11
16
21
26
27
47
 8
11-29
 2
10
19
23
26
30
22
12-6
15
18
22
24
28
49
30
12-13
 3
13
17
19
41
47
16
12-20
 3
 5
22
33
36
37
49
12-27
 1
 7
21
33
38
42
16
 1-3
 4
14
27
30
37
41
 1
 1-10
 4
18
21
33
34
40
 6
 1-17
13
20
21
28
35
36
31
 1-24
 8
10
13
21
35
48
12
 1-31
 8
14
22
24
25
39
31
 2-7
 9
16
26
36
40
47
12
 2-14
22
25
26
39
41
45
32
 2-21
 3
15
21
24
27
34
 2
 2-28
 6
20
37
40
46
49
33
 3-7
 2
 4
 9
18
22
28
35
 3-14
 1
12
22
33
45
49
17
 3-21
 1
 4
13
18
27
28
20
 3-28
10
14
16
24
38
40
43
 4-4
 2
 3
 8
23
24
31
43
 4-11
17
20
21
33
39
49
13
 4-18
 2
15
26
31
35
47
 1
 4-25
 3
 8
11
23
41
42
 4
 5-2
 1
 2
15
17
23
42
30
 5-9
12
15
23
30
31
33
29
 5-16
 1
 3
 9
18
34
42
25
 5-23
 6
12
18
29
37
39
34
 5-30
 3
 8
13
19
23
36
 9
 6-6
 3
 5
 9
13
25
26
20
 6-13
 1
11
29
39
47
48
33
 6-20
 5
13
15
37
41
43
28
 6-27
 8
10
12
26
28
29
22
 7-4
 4
 6
 7
21
24
33
37
 7-11
11
13
16
20
26
48
41
 7-18
14
25
26
36
40
41
21
 7-25
 3
 5
26
31
46
48
18
 8-1
 2
12
16
31
41
49
 3
 8-8
16
20
24
33
35
36
12
 8-15
 3
 6
11
19
20
45
23
 8-22
12
18
26
28
32
37
 9
 8-29
 1
 3
 6
31
35
42
24
 9-6
 5
13
16
32
42
47
39
 9-13
 3
 8
23
25
48
49
19
 9-19
 2
19
20
22
31
45
 1
 9-26
13
24
27
35
41
42
14
 9-30
 1
10
21
26
35
47
 2
10-3
 4
18
25
31
35
38
28
10-7
 7
 9
23
32
36
44
42
10-10
22
23
35
36
40
45
14
10-14
 9
17
19
25
36
47
29
10-17
13
17
31
34
39
42
30
10-21
 4
11
17
21
45
47
36
10-24
 4
 9
22
26
32
42
15
10-28
13
14
16
17
41
43
47
10-31
17
20
31
33
42
46
 5
11-4
24
27
30
33
39
47
 8
11-7
 9
15
17
29
38
45
47
11-11
 4
 6
 7
15
26
49
23
11-14
 8
10
14
35
38
44
26
11-18
 2
12
36
39
44
47
22
11-21
 8
13
34
35
36
48
30
11-25
 5
16
32
35
42
45
46
11-28
 2
 5
10
18
22
39
 7
12-2
12
22
36
40
41
48
28
12-5
 3
 8
28
31
38
40
 2
12-9
 7
12
21
23
28
45
29
12-12
 1
12
17
18
25
34
42

 7
15
26
49
23
11-14
 8
10
14
35
38
44
26
11-18
 2
12
36
39
44
47
22
11-21
 8
13
34
35
36
48
30
11-25
 5
16
32
35
42
45                                                                                                                                                                                                                                                                 /Ф&╚
:ГEDUCATION TRIO (C) 1988         FROM T&D SOFTWARE                                               TRIO INCLUDES "TEMP",           "COINBOX" AND "MULTABLE"        ALL WRITTEN BY BILL BERNICO     &╙Х 2000&сМ N$(100)'╕Ю:З"  EDUCATIONAL TRIO OF PROGRAMS":АX│1024е1055:ТX, Ж(X)м64:Л:З@100,"1). TEMPERATURE TUTOR":З@164,"2.) COINBOX ADDITION":З@228,"3.) MULTIPLICATION TABLES":З@292,"4.) EXIT TO BASIC":З@360,"(SELECT 1, 2, 3 OR 4)'╦S$│ Т:ЕS$│""з5'ьS│ Й(S$):И S Бе 8,97,237,377'їБе 5(PA│0:CA│0(	SP$│"BR6()
A$│"U4E2F2D2NL4D2BR3(EB$│"U6R3FD1GNL3FDGL3BR7(`C$│"BRHU4ER2FBD4GL2BR6(v
D$│"U6R3FD4GL3BR7(СE$│"NR4U3NR2U3R4BR3BD6(░G$│"BRHU4ER2FBD2NLD2GL2BR6(╚H$│"U3NU3R4NU3D3BR3(сI$│"BRRNRU6NLRBR4BD6(ЄL$│"NU6R4BR3)M$│"U6F2E2D6BR3)N$│"U6FDF2DFNU6BR3)7O$│"BRHU4ER2FD4GL2BR6)OP$│"U6R3FDGL3BR7BD3)hR$│"U6R3FDGL2NLF3BR3)ЗS$│"BUFR2EUHL2HUER2FBR3BD5)аT$│"BR2U6NL2R2BR3BD6)║U$│"BUNU5FR2ENU5BR3BD)╘W$│"NU6E2NUF2U6BR3BD6)ёY$│"BU6D2F2ND2E2U2BR3BD6*N$(0)│"BRHU4ER2FD4GL3BR6*(N$(1)│"BRRNRU6GBR6BD5*GN$(2)│"NR4UERE2UHL2GBR7BD5*f N$(3)│"BUFR2EH2E2HL3BR7BD6*Ж!N$(4)│"BR3U2NRL3UE3D4BR4BD2*з"N$(5)│"BUFR2EU2HL3U2R4BR3BD6*═#N$(6)│"BR4BU5HL2GD4FR2EUHL3BR7BD3*х$N$(7)│"UE4UL4BR7BD6+	%N$(8)│"BRHUEHUER2FDGNL2FDGL2BR6+-&N$(9)│"BRBUFR2EU4HL2GDFR2BR4BD3+D'N$(10)│N$(1)лN$(0)+V(PD$│"BR2NUBR5+t)QM$│"BR2BU6ER2FDG2BD2DBR5+Д*╚4,1:╝:┐1,0+в+╞"BM196,30S8"лT$лE$лM$лP$+╠,╞"BM210,50S4"лN$(1)лN$(9)лN$(8)лN$(8)+т-╞"BM217,75"лB$лY$+■.╞"BM210,85"лB$лI$лL$лL$,#/╞"BM200,95"лB$лE$лR$лN$лI$лC$лO$,=0╞"BM212,115"лA$лN$лD$,`1╞"BM203,135"лA$лN$лD$лR$лE$лW$,Ж2╞"BM200,145"лB$лA$лR$лT$лE$лL$лS$,в3╗(184,191)м(191,0),╜,BF,┬4╞"BM115,70NL7D120R30U120NR7,ш5АX│1е11:╞"D5NR2D5NR7":Л:╞"D5NR2D5-6╞"L30":╞"U5NL2U5":АX│1е11:╞"NL7U5NL2U5":Л-37┬(130,45),30,1,1,.35,.16-G8╞"BM160,191"лO$-a9╞"BM160,173"лN$(2)лO$-{:╞"BM160,153"лN$(4)лO$-Х;╞"BM160,133"лN$(6)лO$-п<╞"BM160,113"лN$(8)лO$-╦=╞"BM160,93"лN$(1)лO$лO$-ъ>╞"BM160,73"лN$(1)лN$(2)лO$.?╞"BM86,183"лN$(1)лO$.@╞"BM86,163"лN$(3)лO$.5A╞"BM86,143"лN$(5)лO$.NB╞"BM86,123"лN$(7)лO$.gC╞"BM86,103"лN$(9)лO$.ЕD╞"BM80,83"лN$(1)лN$(1)лO$.хE╞"BM7,9"лW$лH$лA$лT$лSP$лI$лS$лSP$лT$лH$лE$:╞ SP$лT$лE$лM$лP$лE$лR$лA$лT$лU$лR$лE$:╞SP$лQM$/FT│ Д(24):Е T▓24 з T│24/?G╞"BM115,190C1":АX│1е T:╞"R29UL29UR29UL29UNR29U":аXл100,1:Л/`HXX│10:YY│60:X│12:Y│55:AZ$│""/kIIK$│ Т/КJ╗(XX,YY)м(XXл15,YYл1),╜,BF/йK╗(XX,YY)м(XXл15,YYл1),╛,BF/╕LА Q│1е30:Л/╟MЕIK$│""з730NI│ К(IK$):Е I▓47 ░I┤58 зAZ$│AZ$лIK$:Бж88:XX│XXл15:Бе730lOЕ I│13 з82 :Д Е I│8 ░  З(AZ$)▓1 зZ│ З(AZ$)м1:AZ$│ Р(AZ$,1,Z):XX│XXм15:╗(12,55)м(58,30),╛,BF:Бж88:Бе730пPЕ I│8 ░  З(AZ$)▓0 з AZ$│"":XX│XXм15:╗(12,55)м(58,30),╛,BF:Бе730╣QБе 730▄RQ│ Й(AZ$):Е Q│(Tн5) з 83 :Д 841ВSа1,2:а200,1:╞"BM4,120"лC$лO$лR$лR$лE$лC$лT$:CA│CAл1:PA│PAл1:╗(4,189)м(70,180),╛,BF:╞"BM5,188"лN$(CA)ллSP$лR$лI$лG$лH$лT$:АX│1е1000:ЛX:╗(0,170)м(30,155),╛,BF:Бе862Tа22,2:а1,2:╞"BM4,120"лW$лR$лO$лN$лG$:WA│WAл1:TW│TWл1:╗(4,179)м(70,170),╛,BF:╞"BM5,178"лN$(WA)лSP$лW$лR$лO$лN$лG$:АX│1е1000:ЛX:╗(0,170)м(30,155),╛,BF2JUЕ WA│10зЮ:З"TOO MANY WRONG. YOU LOSE":Бе922hVЕ PA│10зЮ:З"YOU WIN":Бе922╖W╗(116,70)м(144,190),╛,BF:╗(7,42)м(65,65),╛,BF:╗(3,120)м(55,110),╛,BF:Бе 702ьXЕ  З(AZ$)▓3 з AZ$│ Р(AZ$,1, З(AZ$)м1):XX│XXм15:Р3
Y╞"BM=X;,=Y;C3S8"3<ZАN│1е З(AZ$):Z$│ Р(AZ$,N,1):Z│ Й(Z$):╞ N$(Z):Л:╞"S4":Р3|[╗(0,150)м(40,191),╛,BF:╞"BM5,188"лN$(CA)лSP$лR$лI$лG$лH$лT$3╖\З"DO YOU WANT TO TRY THIS PROGRAM ONE MORE TIME? (Y/N)3═]IK$│ Т:ЕIK$│""з933▐^Е IK$│"Y"з О3я_Е IK$│"N"з 43∙`Бе 934aC│0:T│0::ГC0INBOX4bП40cНI$:Е I$┤▓"LETTERS"з994bdН LE$:НDR$:Е LE$┤▓"END"зN$( К(LE$))│DR$:Бе1004peЖ LETTERS4МfЖ0,"BR3BRHU4ERFD4GNLBR24вgЖ1,"BR3R2U6NGD6R24╛hЖ2,"BR3BU5ER2FDGL2GD2R44▀iЖ3,"BR3BU5ER2FDGNLFDGL2NHBR34ўjЖ4,"BR3BR3U6G3R4BD35kЖ5,"BR3BUFR2EU2HL3U2R4BD656lЖ6,"BR3BU3R3FDGL2HU4ER2BD6BR5OmЖ7,"BR3BU6R4DG3D2BR35tnЖ8,"BR3BRHUER2EUHL2GDFR2FDGNL2BR5ТoЖ9,"BR3BRR2EU4HL2GDFR3BD35▓pЖ$,"BR7BU2GL2HU3ER2NFLNU2D75╚qЖ*,"BR4BUUBU3UBD65сrЖA,"BR3U5ER2FD2NL4D36sЖB,"BR3RU6NLR2FDGNL2FDGNL3BR6 tЖC,"BR3BR4BU5HL2GD4FR2EBD6<uЖD,"BR3RU6NLR2FD4GNL2BR6VvЖE,"BR3U6NR4D3NR3D3R46nwЖF,"BR3U3NR3U3R4BD66ОxЖG,"BR3BUU4ER3BD4NLD2L3NHR36жyЖH,"BR3U3NU3R4NU3D36└zЖI,"BR3R2U6NL2NR2D6R26▄{ЖJ,"BR3F1R1E1U5NL1R1BD66є|ЖK,"BR3U3NU3RNE3F37}ЖL,"BR3NU6R47~ЖN,"BR3U6F4NU4D276ЖO,"BR3BRHU4ER2FD4GNL2BR7NАЖR,"BR3U6R3FDGL3RF37mБЖS,"BR3BUFR2EUHL2HUER2FBD57ЕВЖT,"BR3BU6R4L2D6BR27ЯГЖU,"BR3BUNU5FR2ENU5BD7╖ДЖW,"BR3NU6E2UDF2NU67╤ЕЖX,"BR3UE4NUG2H2NUF4D7юЖЖY,"BR3BU6DF2E2NUG2D3BR27№ЗЖ END,END8И╚4,1:╝:┐1,08KЙЮ:З"      COINBOX ADDITION":З:З:З:Й"WHAT IS YOUR NAME";WN$8_КЮ:З"WELL, ";WN$8УЛЗ"HOW MANY PROBLEMS DO YOU WANT   TO TRY";:Й HM8дМЕ HM┤1 з 1388║Н╚4,1:╝1:┐1,0:┴0,19 О╞"BM38,43ND150R40ND150R43ND150R44ND150R45ND150R55ND150L217D25NR217D28NR217D26NR217D35NR217D34R21799П╞"BM29,35NU4NR4ND4L49OР┬(27,55),9:в433459kС╞"BM22,58":A$│"1":Бж2219ВТ┬(26,82),10:в433459ЯУ╞"BM24,79NR5D3R4FD3GL3HU9╢Ф┬(28,110),8:в433459▄Х╞"BM25,107NGD6NRL2BR6HU4ER2FD4GL29ЇЦ┬(23,140),13:в43345:&Ч╞"BM17,135NGR3FD3G4D2R5BR8BU10L5D4R4FD4GL3HU2:>Ш┬(20,175),16:в43345:tЩ╞"BM11,169NR6D5R5FD5GL4HU2BR10BD2U10ER4FD10GL4HU2:КЪ┬(55,33),9:в43345:жЫ╞"BM50,36":A$│"1":Бж221:╜Ь┬(98,32),10:в43345:┌Э╞"BM96,29NR5D3R4FD3GL3HU:ёЮ┬(142,34),8:в43345;Я╞"BM139,31NGD6NRL2BR6HU4ER2FD4GL2;/а┬(185,29),13:в43345;aб╞"BM179,24NGR3FD3G4D2R5BR8BU10L5D4R4FD4GL3HU2;yв┬(232,26),16:в43345;пг╞"BM224,20NR6D5R5FD5GL4HU2BR10BD2U10ER4FD10GL4HU2<'дА L│1е26:И L Бж 196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220<QеB$│"BM=H;,=V;":A$│ И(AM)л"$":Бж 221:Л<Бж╞"BM48,8":A$│"SECONDS TO STUDY CHART":Бж221<МзБж 195<аиА CD│10 е 0 йм1<тй╞"BM22,8C0":A$│ И(CD):Бж221:Бж195:╞"BM22,8C1":A$│ И(CD):Бж221<ыкЛ CD=лА X│1 е 1300:Л X=м╗(2,8)м(220,2),╛,BF=4н╗(38,43)м(255,191),╛,BF=Ьо╞"BM38,43C0ND150R40ND150R43ND150R44ND150R45ND150R45ND150L217D25NR217D28NR217D26NR217D35NR217D34R217=═п╞"BM7,8":A$│"ENTER THE CORRECT ANSWER":Бж221=▌░А XX│1 е HM=ы▒RD│ Д(25)>Z▓И RD Бж196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220>k│C$│"":H│Hл16>б┤A$│"$":B$│"BM=H;,=V;":Бж221:H│Hм16:ЕRD│25 з H│Hм3>║╡B$│"BM=H;,=V;":Бж221?╢A$│ Т:ЕA$│""з182:ДЕA$│ Л(8)з Бж189:Бе178:Д Е A$│ Л(13) з Бе 185:Д Е A$┤"0"▒ A$▓"9" з 182?T╖C$│C$лA$:ЕRD│25 ░ З(C$)▓3з185:Д Е RD┤▓25 ░ З(C$)▓2 з 185?d╕Бж221:Бе182?Ъ╣T│Tл1:Е Й(C$)│AM з A$│"CORRECT":C│Cл1:ДA$│"WRONG"?╫║A$│A$л"* YOUR SCORE"л И( Б(Cн100оT)):B$│"BM10,20":Бж 221?ы╗А X│1 е 500:Л X@╝Бж 189:╞"C0":Л XX:Бе 193@?╜Е RD│25 з ╗(Hм4,Vл2)м(Hл35,Vм10),╛,BF:╞"C0":Бе 191@_╛╗(Hм2,Vл2)м(Hл25,Vм10),╛,BF@y┐╗(8,11)м(170,22),╛,BF@└Р@К┴Бе 226@з┬в 43345:А X│1 е 50:Л X:Р@╜├А X│1 е 535:Л X:Р@╥─H│47:V│57:AM│2:Р@ч┼H│86:V│57:AM│6:Р@№╞H│47:V│84:AM│6:РA╟H│125:V│57:AM│11:РA)╚H│84:V│84:AM│10:РA@╔H│41:V│111:AM│11:РAW╩H│170:V│57:AM│26:РAn╦H│125:V│84:AM│15:РAЕ╠H│84:V│111:AM│15:РAЬ═H│42:V│142:AM│26:РA│╬H│215:V│57:AM│51:РA╩╧H│170:V│84:AM│30:РAт╨H│125:V│111:AM│20:РA∙╤H│84:V│142:AM│30:РB╥H│41:V│176:AM│51:РB'╙H│215:V│84:AM│55:РB?╘H│170:V│111:AM│35:РBW╒H│125:V│142:AM│35:РBn╓H│84:V│176:AM│55:РBЖ╫H│215:V│111:AM│60:РBЮ╪H│170:V│142:AM│50:РB╢┘H│125:V│176:AM│60:РB╬┌H│215:V│142:AM│75:РBц█H│170:V│176:AM│75:РB ▄H│218:V│177:AM│100:РC▌╞ B$:А J│1 е  З(A$)C+▐X$│( Р(A$,J,1))CP▀Е X$│▓"$" ░ X$┤│"Z"з╞ N$( К(X$))CgрЕ X$│" "з╞"BM+7,0"CДсЛ J:в43345:A$│"":B$│"":РCЯтЮ:З"NOT BAD, "WN$;"...C╝уЗ"OUT OF ";HM;"PROBLEMS,C╘фЗ"YOU GOT";C;"RIGHTDхЗ"FOR A SCORE OF"; Б((Cн100)оT):C│0:T│0DцЗ@263,"WOULD YOU LIKE TO:D7чЗ:Зд9)"1.) TRY AGAINDIшЗд9)"2.) QUITDaщIK$│ Т:Е IK$│""з233DtъЕ IK$│"1"з 137DЕыЕ IK$│"2"з 4DРьБе 233Dмэ:ГMULTIPLICATION TABLESE`юЮ:З@6,"multiplication":Т1044,32:З@21,"tables";:З@66,"HOW MANY SECONDS DO YOU WANT     TO STUDY THE CHART BEFORE         BEGINNING THE PROGRAM?         CHOOSE A NUMBER  (10-60)EАяа191,1:З@264,"";:Й S:а191,1EгЁЕ S┤10 ▒ S▓60з З@266,"":Бе 239EщёЗ@322,"HOW MANY PROBLEMS DO YOU        WISH TO TRY (1-100)";:Й TPEЇЄБж 375FєЗ@36,"4  6  8 10 12 14 16 18  20";FBЇЗ@68,"6  9 12 15 18 21 24 27  30";FjїЗ@100,"8 12 16 20 24 28 32 36  40";FУЎЗ@131,"10 15 20 25 30 35 40 45  50";F╝ўЗ@163,"12 18 24 30 36 42 48 54  60";Fх°З@195,"14 21 28 35 42 49 56 63  70";G∙З@227,"16 24 32 40 48 56 64 72  80";G7·З@259,"18 27 36 45 54 63 72 81  90";G`√З@291,"20 30 40 50 60 70 80 90 100";Gz№АX│1344е1442:ТX,32:ЛXGФ¤АX│1469е1535:ТX,32:ЛXG▌■АST│S е 1йм1:З@419,ST"SECONDS TO START TIME ";:в43345:АU│1е700:ЛU,STGч Бж375H
З@387,"RIGHT:";RA;:З@419,"WRONG:";WA;H

Q│WAлRAH-
Е Q│0 з 260HB
E│ Б((RAоQ)н100)Hn
З@433,E;"% RIGHT";:З@401,TP;"PROBLEMS";HЗ
Е E│0 з A$│"":Бе 276Hв
Е E┤50 з A$│"F-":Бе276H╝
Е E┤60 з A$│"F":Бе276H╫
Е E┤65 з A$│"D-":Бе276Hё
	Е E┤70 з A$│"D":Бе276I

Е E┤74 з A$│"D+":Бе276I'
Е E┤77 з A$│"C-":Бе276IA
Е E┤80 з A$│"C":Бе276I\

Е E┤83 з A$│"C+":Бе276Iw
Е E┤86 з A$│"B-":Бе276IС
Е E┤90 з A$│"B":Бе276Iм
Е E┤93 з A$│"B+":Бе276I╟
Е E┤96 з A$│"A-":Бе276Iс
Е E┤98 з A$│"A":Бе276IЎ
Е E┤101з A$│"A+"J
З@451,"TOTAL:"Q;:З@466,"GRADE: "A$Jl
АH│1376е1504й32:ТH,32:ЛH:АY│1377е1505й32:ТY,32:ЛY:АG│1407е1535й32:ТG,32:ЛGJж
З@327,"WHAT IS THE ANSWER":АX│1344е1375:ТX, Ж(X)м64:ЛJ╨
PP│ Д(2):Е PP│1 з 326 :Д Е PP│2 з 280KШ
P│ Д(45):И P Бе 281,282,283,284,285,286,287,288,289,290,291,292,293,294,295,296,297,298,299,300,301,302,303,304,305,306,307,308,309,310,311,312,313,314,315,316,317,318,319,320,321,322,323,324,325Kм
SP│36:N│4:Бе369K└
SP│39:N│6:Бе369K╘
SP│42:N│8:Бе369Kщ
SP│45:N│10:Бе369K■
SP│48:N│12:Бе369L
SP│51:N│14:Бе369L(
SP│54:N│16:Бе369L=
 SP│57:N│18:Бе369LR
!SP│60:N│20:Бе369Lf
"SP│68:N│6:Бе369Lz
#SP│71:N│9:Бе369LП
$SP│74:N│12:Бе369Lд
%SP│77:N│15:Бе369L╣
&SP│80:N│18:Бе369L╬
'SP│83:N│21:Бе369Lу
(SP│86:N│24:Бе369L°
)SP│89:N│27:Бе369M

*SP│92:N│30:Бе369M"
+SP│100:N│8:Бе369M8
,SP│103:N│12:Бе369MN
-SP│106:N│16:Бе369Md
.SP│109:N│20:Бе369Mz
/SP│112:N│24:Бе369MР
0SP│115:N│28:Бе369Mж
1SP│118:N│32:Бе369M╝
2SP│121:N│36:Бе369M╥
3SP│124:N│40:Бе369Mш
4SP│132:N│10:Бе369M■
5SP│135:N│15:Бе369N
6SP│138:N│20:Бе369N*
7SP│141:N│25:Бе369N@
8SP│144:N│30:Бе369NV
9SP│147:N│35:Бе369Nl
:SP│150:N│40:Бе369NВ
;SP│153:N│45:Бе369NШ
<SP│156:N│50:Бе369Nо
=SP│164:N│12:Бе369N─
>SP│167:N│18:Бе369N┌
?SP│170:N│24:Бе369NЁ
@SP│173:N│30:Бе369O
ASP│176:N│36:Бе369O
BSP│179:N│42:Бе369O2
CSP│182:N│48:Бе369OH
DSP│185:N│54:Бе369O^
ESP│188:N│60:Бе369P

FP│ Д(36):И P Бе327,328,329,330,331,332,333,334,335,336,337,338,339,340,341,342,343,344,345,346,347,348,349,350,351,352,353,354,355,356,357,358,359,360,361,362P
GSP│196:N│14:Бе369P-
HSP│199:N│21:Бе369PC
ISP│202:N│28:Бе369PY
JSP│205:N│35:Бе369Po
KSP│208:N│42:Бе369PЕ
LSP│211:N│49:Бе369PЫ
MSP│214:N│56:Бе369P▒
NSP│217:N│63:Бе369P╟
OSP│220:N│70:Бе369P▌
PSP│228:N│16:Бе369Pє
QSP│231:N│24:Бе369Q	
RSP│234:N│32:Бе369Q
SSP│237:N│40:Бе369Q5
TSP│240:N│48:Бе369QK
USP│243:N│56:Бе369Qa
VSP│246:N│64:Бе369Qw
WSP│249:N│72:Бе369QН
XSP│252:N│80:Бе369Qг
YSP│260:N│18:Бе369Q╣
ZSP│263:N│27:Бе369Q╧
[SP│266:N│36:Бе369Qх
\SP│269:N│45:Бе369Q√
]SP│272:N│54:Бе369R
^SP│275:N│63:Бе369R'
_SP│278:N│72:Бе369R=
`SP│281:N│81:Бе369RS
aSP│284:N│90:Бе369Ri
bSP│292:N│20:Бе369R
cSP│295:N│30:Бе369RХ
dSP│298:N│40:Бе369Rл
eSP│301:N│50:Бе369R┴
fSP│304:N│60:Бе369R╫
gSP│307:N│70:Бе369Rэ
hSP│310:N│80:Бе369S
iSP│313:N│90:Бе369S
jSP│316:N│100:Бе369S5
k╔"T50CDEFGABO4CDEFGAB"SR
lЗ@104,"do you want to:";Sm
mЗ@168,"1.) TRY AGAIN";SЖ
nЗ@200,"2.) GIVE UP";Sв
oЗ@264,"ENTER (1 OR 2)";S┘
pIN$│ Т:Е IN$│""з368:ДЕ IN$│"1"з О :Д Е IN$┤▓"1"з 4T

qTA│WAлRA:Е TA│TP з 363З@SP,"";:╗ЙA$T
rЗ@SP,"";:╗ЙA$T 
sA│ Й(A$)T\
tЕ A│N з RA│RAл1:а100,1:а150,1:а200,1:АC│1е2000:ЛC:Бе255TЧ
uЕ A┤▓N з WA│WAл1:а100,1:а60,1:а20,1:АC│1е2000:ЛC:Бе255Tв
vБе 369UI
wЮ:З@0,"1   2  3  4  5  6  7  8  9  10":АX│1024е1055:ТX, Ж(X)м64:Л:З@32,"2";:З@64,"3";:З@96,"4";:З@128,"5";:З@160,"6";:З@192,"7";:З@224,"8";:З@256,"9";:З@288,"10";UЛ
xАX│1056е1312й32:ТX, Ж(X)м64:Л:АX│1057е1313й32:ТX, Ж(X)м64:Л:РUУ
yЮ:К5Tв
vБе 369UI
wЮ:З@0,"1   2  3  4  5  6  7  8  9  10":АX│1024е1055:ТX, Ж(X)м64:Л:З@32,"2";:З@64,"3";:З@                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                188,B$:Бж80:З@156,B1$:З@188,B1$:З@184,C$:З@216,C$:З@248,C$:Бж80:З@184,C1$:З@216,C1$:З@248,C1$&╡CЕ SW│0 з Q│226 :Д Е SW│1з Q│230 :Д Е SW│2з Q│234 :Д Е SW│3 з Q│238 :Д Е SW│4 з Q│242'DА X│246 е Q йм1:З@X,C$:З@Xл32,C$:З@Xл64,C$:З@Xл3,A1$:З@Xл36,A1$:З@Xл68,A1$:ЛX'
EР'6FЙ"LOAD FILE (Y/N)";Q$:ЕQ$│"Y"з71:Д 2'КGЮ7:З@72,"tAPE/dISK/mENU";:ЙQ$:ЕQ$│"T"▒ Q$│"t"з DV│м1:Д ЕQ$│"D"▒ Q$│"d"з DV│1:Д2(4HЗ@129,"PRESET FILE NAME-PRESS <ENTER>";:З@193,"OTHERWISE, TYPE YOUR FILE NAME";:З@225," (8 CHAR.-NO DISK EXTENSION)  ";:З@257, б(31,239);:Й F$:Е F$│""з F$│"LOTTODAT"(ЬIЕ DV│1 з F$│F$л"/DAT":Д З@355,"PREPARE TAPE AND RECORDER";:З@451,"PRESS ANY KEY WHEN READY";:в44539(яJЮ4:З@107,"-LOADING-";:Щ"I",#DV,F$:Й#DV,N:АX│1е N:АY│0е7:Й#DV,L$(X,Y):ЛY,X:Ъ#DV)KЮ3:З@107,"-WORKING-";:Бж84:Бж81:Бе2)"LАY│1е2)ЮMАX│1088е1117й6:ТX,207:а1,1:ЛX:АX│1088е1117й6:ТX,143:ЛX:а1,1:АX│1059е1087й6:ТX,207:а1,1:ЛX:АX│1059е1087й6:ТX,143:ЛX:а1,1*NАX│1024е1054й6:ТX,207:ЛX:а1,1:АX│1024е1054й6:ТX,143:ЛX:а1,1:АX│1059е1087й6:ТX,207:ЛX:а1,1:АX│1059е1087й6:ТX,143:ЛX:а1,1*#OЛY:Р*4PАX│1е20:ЛX:Р*НQАX│1 е 49:АY│0е1:R(X,Y)│0:ЛY,X:АX│1 е N:А Y│1 е 6:V│ Й(L$(X,Y)):R(V,0)│R(V,0)л1:ЛY,X*╛RА X│1 е N: V│ Й(L$(X,7)):R(V,1)│R(V,1)л1:Л X*─SР+TАX│1 е N:Е  З(L$(X,0))┤5 з Е  Ю(1,L$(X,0),"-")│2з L$(X,0)│" "лL$(X,0)+IUЛX:АX│1е N:АY│1е7:Е  З(L$(X,Y))┤2з L$(X,Y)│" "лL$(X,Y)+TVЛY,X:Р:АX│1 е N:А Y│1 е 6:V│ Й(L$(X,Y)):R(V,0)│R(V,0)л1:ЛY,X*╛RА X│1 е N: V│ Й(L$(X,7)):R(V,1)│R(V,1)л1:Л X*─SР+TАX│1 е N:Е  З(L$(X,0))┤5 з Е  Ю(1,L$(X,0),"-")│2з L$(X                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	&:
В COPYRIGHT (C) T&D SOFTWARE 1988     picture packer&I
╚0:Бе60000&ЙХ200,15499:М IP(20):BD$│ Л(175):Е Ж(186)│14 з DN│1 :Д DN│м1&┐Е  Ж(15500)│48 ░  Ж(15501)│141 ░  Ж(15502)│0 з 40&ъ#Е DN│1 з ╙M"PICPAKML" :Д ЧM "PICPAKML"& (S│15670:UA│15744')2Ю:З@169,"PICTURE PACKER";:З@238,"USE"'/4З'n6З"         H. HALF SCREEN                  F. FULL SCREEN"'л8HF│1:VF│1:IP(2)│1:IP(4)│1:DY│8:DX│28:BD$│ Л(159):Бж 1000'╔<K$│ Т:ЕK$│"H" з PK│0:Бе70'у>ЕK$┤▓"F" з 60 :Д PK│1'№F┐0:Ю:З:З:BD$│ Л(175)(5HЗ"      I/O DEVICE  = ";:Е DN│1 з З"DISK" :Д З"TAPE"(nJЗ"      SCREEN MODE = ";:Е PK│0 з З"HALF" :Д З"FULL"(tKЗ)XLЗ"      C. CHANGE I/O DEVICE            L. LOAD A NORMAL                   GRAPHICS PICTURE             V. VIEW THE PICTURE             P. PACK PICTURE INTO               COMPRESSED FORM              S. SAVE PACKED PICTURE")АMЕ DN│1 з З"      D. DISK DIRECTORY")ХNЗ"      Q. QUIT")┐PIP(3)│1:VF│1:HF│1:DX│28:DY│14:Бж 1000)╒ZK$│ Т:ЕK$│"" з 90)ц\ЕK$│"C" з100)°]ЕK$│"L" з 110*^Е K$│"V" з 120*_Е K$│"P" з 130*1`Е K$│"S" з 200*DaЕ K$│"Q" з 990*^bЕ DN│1 ░ K$│"D" з 800*hcБе 90*НdЕ DN│1 з DN│м1:Бе70 :Д DN│1:Бе70*иnБж 10000:Е F$│"" з 70 *─pЕ DN│1 з ╙M F$ :Д ЧM F$*╬wБе 70*┌x╚4:┐1,0*ьzЕ  Т│"" з 122*ЎББе 70+ВТ 277,PK:в 15500+ДБж 2000+ФЖЮ0:VF│1:HF│1:DX│25:DY│5:IP(2)│1:Бж 1000::З@196," PACKED TO";:З═" #### ";UB;:З"BYTES  ";:З@260,"     <HIT ANY KEY>     ";+жЙЕ  Т│"" з 137+░ЛБе 70+╝╚Бж 2000+╒╥Бж 10000:ЕF$│"" з 70,▄Е DN│1 з ╪M F$,S,SлUB,S :Д ШM F$,S,SлUB,S,

+Бе 70,b Ю0:VF│1:HF│1:DY│3:DX│30:BD$│ Л(239):Бж1000:З@226,"DIRECTORY-SELECT DRIVE (0-3)";,y*K$│ Т:ЕK$│"" з 810,Ч,Е K$│" " ▒ K$│ Л(13) з 70,▒4K│ Й(K$):ЕK$│"0" з840,╟>Е K┤1 ▒ K▓3 з 810,╤HЮ:╬ K,уRЕ  Т│"" з 850,эГБе 70-:▐BD$│ Л(191):Ю0:З@230," OK TO QUIT? (Y/N) ";:VF│1:HF│1:DY│3:DX│21:Бж 1000-Q▀K$│ Т:ЕK$│"N" з 70-eрЕ K$┤▓"Y" з 991-kчК-ЗшЕ VF з BY│ Б((16мDY)о2)-гщЕ HF з BX│ Б((32мDX)о2).ъА YC│0 е DYм1:P│(YCлBY)н32лBX:ЕYC│0 ▒ YC│DYм1 ▒ IP(YC)┤▓0 з З@P, б(DX,BD$); :ДЗ@P,BD$;:З@PлDXм1,BD$;.ыЛ.*ёАI│1е20:IP(I)│0:Л:Р.H╨SZ│ Ж(15742):FM│ Ж(15743).[┌Е FM┤▓0 з 2100.{фЕ SZ│0 з UB│3072 :Д UB│6144.Б3Р.Ь4UB│ Ж(UA)н256л Ж(UAл1).вЧР.╥'Ю0:DY│3:DX│28:VF│1:HF│1:BD$│ Л(159):Бж 1000.є'З@228,"filename: ";:╗ Й F$:Р. ъ`└4:Бе20лDXм1,BD$;.ыЛ.*ёАI│1е20:IP(I)│0:Л:Р.H╨SZ│ Ж(15742):FM│ Ж(15743).[┌Е FM┤▓0 з 2100.{фЕ SZ│0 з UB│3072 :Д UB│6144.Б3Р.Ь4UB│ Ж(UA)н256л Ж(UAл1).вЧР.╥'Ю0:DY│3:DX│28:VF│1:HF│1:BD$│ Л(159):Бж 1000.є'З@228,"filename: ";:╗ Й F$:Р. ъ`└4:Бе20                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &9
В COPYRIGHT (C) T&D SOFTWARE 1988     cover program&CХ 200&{
Е Ж(14000)│188 ░  Ж(14001)│188 ░  Ж(14002)│188 з 22&лЕ  Ж(186)│14 з ╙M "CVR-MOD" :Д ЧM "CVR-MOD"&╞IS$│" COCO ISSUE #73 "&сDT$│"   JULY 1988    "''A│ Э(IS$):A│ Ж(Aл2)н256л Ж(Aл3):АI│0е16:G│ Ж(AлI):Е G┤64 з G│Gл64'8Т14500лI,G:Л'~A│ Э(DT$):A│ Ж(Aл2)н256л Ж(Aл3):АI│0е16:G│ Ж(AлI):Е G┤64 з G│Gл64'ПТ14700лI,G:Л'лS1│1024:S2│1200:S3│1100(Т 3584,S1о256:Т3585,S1 ░ 255:Т3586,S2о256:Т3587,S2 ░ 255:Т3588,S3о256:Т 3589,S3 ░ 255( Бж 4000(7-Т3600,14000о256:Т3601,14000 ░ 255(]/Т3602, Д(7)н16:Т3603,( Д(17)м1)н2(~0Т 3604,SPо256:Т3605,SP ░ 255(К2в 15000(Ц7Бж 4000(╝<Т3600,14192о256:Т3601,14192 ░ 255(Ў>Т3602, Д(7)н16:Т3603,( Д(17)м1)н2:Е  Д(3)│1 з Т3603,0)@Т3604,SPо256:Т3605,SP ░ 255)"Fв 15000):KЕ  Д(5)│1 з Бж 5000)ЧPSC│SCл1:Е SC│3 з SC│0:Бе28 :Д S1│1024л Д(8)н32:S2│1024л Д(12)н32:S3│1024л Д(10)н32:Бе 30*KаP│ Д(5):ЕP│1зТ3590,5:Т3591,1:Т3592,1 :ДЕP│2 зТ3590,5:Т3591,1:Т3592,7 :ДЕP│3зТ3590,7:Т3591,6:Т3592,4 :ДЕP│4 зТ3590,0:Т3591,7:Т3592,5 :ДТ3590, Д(8)м1:Т3591, Д(8)м1:Т3592, Д(8)м1*^SP│ Д(20)н50:Р*√И┐0:Ю:З@40,"T & D SOFTWARE";:З@71,"HOLLAND MICHIGAN";:З@130,"REPRODUCTION OF ANY OF THE       FOLLOWING IS PROHIBITED.":З@194,"T & D SOFTWARE SHALL HAVE"+ЩТЗ@226,"NO LIABILITY OR RESPONSIB-      ILITY TO CUSTOMER WITH RE-       SPECT TO ERROR, LOSS, OR         DAMAGES CAUSED BY THESE               PROGRAMS."+╘ЬЗ@421,"COCO CASSETTE NO. 73                  JULY 1988+ъбЕ  Д(2)│1 з ┐ 0,1+√жАTD│0е2000:Л,
oР6,"NO LIABILITY OR RESPONSIB-      ILITY TO CUSTOMER WITH RE-       SPECT TO ERROR, LOSS, OR         DAMAGES CAUSED BY THESE               PROGRAMS."+╘ЬЗ@421,"COCO CASSETTE NO. 73                  JULY 1988+ъбЕ  Д(2)│1 з ┐ 0,1+√жАTD│0е2000:Л,