є
Ю:З@202,"TAPE CATALOG",З @271,"BY"HЗ @329,"STEVE SULLIVAN"e(АX│0е154:НA:ТXл16128,A:ЛЧ2Ю:З@225,"DO YOU WANT A PRINTOUT? (Y/N)":A$│ Т╨<A$│ Т:ЕA$│"Y"зТ16127,255:ДЕA$│"N"зТ16127,0:Бе100:Д60FЗ@192:╗Й" WHAT'S THE TITLE OF YOUR TAPE?  >> ";A$ZPЗ#м2, Л(31):В CHR$(31) is the control code for large characters onn the LP. VIIkZЗ#м2,A$:З#м2ТdЮ:З@231,"PRESS <&> TO BEGIN":A$│ ТкnA$│ Т:Е A$┤▓"&"з110╗xЮ:╣ Г0│16128╚ВA│ Г0(0)╬МКаЦЖ 189,169,40,142,1,218,159,126,173,159,160,4,173,159,160,6,38,250,173,159,160,0,129,3,16,39,0,121,150,124,129,255,39,99,129,0,38,230,134,52,183,255,33,15,111,142,1,218,198,8,166,128,173,159,160,2,90,38,247УаЖ 134,13,173,159,160,2,142,1,218,16,142,4,13,198,8,166,128,189,63,118,167,160,90,38,246,182,62,255,129,255,38,173,134,254,151,111,142,1,218,198,8,166,128,173,159,160,2,90,38,247,134,13,173,159,160,2,126,63,8,129,96,34,5,129,64,37,4,57,128ЄкЖ 96,57,139,64,57,134,96,198,8,16,142,4,13,167,160,90,38,251,126,63,8,134,52,183,255,33,57,38,246,18                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 iX│ Д(м Я)O	Ю:З" ENTER ADVENTURE NAME":ЙNM$:Е  З(NM$)▓8 з NM$│ О(NM$,8)|
Ю:Й"PLACE TAPE, PRESS PLAY, &<ENTER>";X$РЮ:З"LOADING---"ЯЧM"",10000о2АX│474е481╔<Y│ Ж(X):Е Y│32 з Y│143╫FТ Xл559,Y▀PЛ X∙ZA│ Ж(487)н256л Ж(488)dB│ Ж(126)н256л Ж(127)м1/nC│ Ж(157)н256л Ж(158)ysЮ:З"PRINTING ADDRESSES FOR ";NM$:З#м2,,,"ADDRESSES FOR "NM$:З#м2:З#м2ЭxЗ#м2,,,"       DECIMAL","  HEX"┴ВЗ#м2,,,"       -------","  ---"тМЗ#м2,,,"START: "A,"   " Ь(A)ЦЗ#м2,,,"  END: "Bм10000,"   " Ь(Bм10000)<аЗ#м2,,,"ENTRY: "Cм10000,"   " Ь(Cм10000)oгАP│1 е 4:З#м2:ЛP:З#м2,,,"DICTIONARY":З#м2:З#м2деЮ:З"SEARCHING RAM---":З@416,"FROM "Aл10000"TO "B╖кАI│Aл10000 е B─┤AA│ Ж(I)▐╣З@240, Л( Д(128)л127)·╛Е AA│32 з З#м2,  Л(AA);:╚Е AA▓32 ░  AA┤122 з З#м2,  Л(AA);:З@480,"ADDRESS="I;:а100,1A╥ЛI^▄Ю:З"DICTIONARY COMPLETE"dсКЗ#м2деЮ:З"SEARCHING RAM---":З@416,"FROM "Aл10000"TO "B╖кАI│Aл10000 е B─┤AA│ Ж(I)▐╣З@240, Л( Д(128)л127)·╛Е AA│32 з З#м2,  Л(AA);:╚X)=PAGE NUMBER OF LISTING"*
6З*B
@З " (99) AD-DICT"," (64) AHHA"*f
JЗ"(136) ACCOUNT"," (58) DATING"*М
TЗ" (40) HANGMAN"," (14) HOMONYMS"*▓
^З" (18) INCOMTAX","(204) MARQUEE"*╓
hЗ"(110) PREFIX","(207) PRNTCHG"*▄
rЗ+
|З"   PRESS ANY KEY TO CONTINUE"+
ЖЕ  Т│""з390+
РЮ+=
ЪЗ "  (XX)= PAGE NUMBER OF LISTING"+C
дЗ+l
оЗ " (96) TAPECAT *"," (96) TAPECATB"+Р
╕З" (49) THE-WORD","(132) VROOM"+╖
┬З" (34) OUTPOST5","(160) PLUGNPOW"+▄
╠З"(190) BANNER +","(190) SIGN +",
╓З"(102) FRACTION","(148) TAX-HIST",	
ъЗ, 
ЇЗ "  +=JANUARY 83",D
■З"  *=MACHINE LANGUAGE PROGRAM",JЗ,НЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU",▓З "  PRESS (BREAK) TO EXIT MENU",╬&Е  Т│"" з 550 :Д Бе 240,▐0З б(32,45);02) FRACTION","(148) TAX-HТ│"" з 550 :Д Бе 240-#0З б(32,45);З"(198) SPELLING","(204) DRAGBYTE,e
ЇЗ"","(218) INVADERS*",Й
■З"  *=MACHINE LANGUAGE PROGRAM",ПЗ,╥З "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU",ўЗ "  PRESS (BREAK) TO EXIT MENU"-&Е                                                                                                                                                                                                                                                                  4A2084210843E08EEB58C6208C7359C620"0:A$(2)│"746318C5C0F463E8420074631ACDE0F463EA4A207460E0C5C0F9084210808C6318C5C08C6318A8808C635AEE208C544546208C54421080F844E443E039084210E00410410400E10842138023AA4210800111F410000000000000001C17C5E0843D18C5C0001F0841E0085F18C5C0001D1F41C0"0ЇDA$(3)│"0191E42100001F1785C0843D18C62020184211C0100421498084232E4A2061084211C0003D5AD6A0003D18C620001D18C5C0003D1F4200001F178420003D184200001F0707C0023C8420C0002318C5C0002318A880002B5AD5C00022A22A2000231784C0003E2223E0"0·NР85F18C5C0001D1F41C0"0ЇDA$(3)│"0191E42100001F1785C0843D18C62020184211C0100421498084232E4A2061084211C0003D5AD6A0003D18C620001D18C5C0003D1F4200001F178420003D184200001F0707C0023C8420C0002318C5C0002318A880002B5AD5C00022A22A2000231784C0003E2223E0"0·NР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 п
:Г*** DIRECTORY STASH ***>:Г* DIRSAV HIDES A SPARE *`:Г* DIRECTORY UP IN GRAN 68 *В:Г* DIRGET GETS THE SPARE ANDв:Г* REWRITES THE REAL ONE *─:Г********  DIRSAV **********єЮ(0):З @64," DIRECTORY SAVE AND RESTORE ";(Й "     <ENTER> S OR R ";A$-2Е A$│"R" Бе 250 :Д 55F7Е A$│"S" Бе 60 :Д 56U8Ю(0):Бе 40Е<Ю(0):З "<ENTER> TO SAVE SECOND DIRECTORY ";ОFЙ B$жdХ 600:▀0,17,2,A$,B$┐n Р (A$,68,1)│ Л(198)╓xр 0, 17, 2, A$, B$юВр 0, 34, 11, A$, B$М▀ 0, 17, 3, A$, B$Цр 0, 34, 12, A$, B$4а▀ 0, 17, 4, A$, B$Lкр 0, 34, 13, A$, B$c┤▀ 0, 17, 5, A$, B${╛р 0, 34, 14, A$, B$Т╚▀ 0, 17, 6, A$, B$к╥р 0, 34, 15, A$, B$┴▄▀ 0, 17, 7, A$, B$┘цр 0, 34, 16, A$, B$▀ЁК
·Ю(0):Й "<ENTER> TO RESTORE DIRECTORY ";C$)
:Г****** DIRGET *******J
:Г* GETS THE SPARE DIRECTORYh
":Г* AND REWRITES THE OLD.Б
,Х 600:▀0,34,11,A$,B$Ш
6р 0, 17, 2, A$, B$░
@▀ 0, 34, 12, A$, B$╟
Jр 0, 17, 3, A$, B$▀
T▀ 0, 34, 13, A$, B$Ў
^р 0, 17, 4, A$, B$
h▀ 0, 34, 14, A$, B$%
rр 0, 17, 5, A$, B$=
|▀ 0, 34, 15, A$, B$T
Жр 0, 17, 6, A$, B$l
Р▀ 0, 34, 16, A$, B$Г
Ър 0, 17, 7, A$, B$Й
дКм
о:Г*BEWARE* OF I AND 1, O AND 0╟
Jр 0, 17, 3, A$, B$▀
T▀ 0, 34, 13, A$, B$Ў
^р 0, 17, 4, A$, B$
h▀ 0,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 BAD SPACE CADET!";/ЬР//жЗ @ 236,"GOTCHA!";/5░Р/S║З @ 233,"BITE THE DUST!";/Y─Р/u╬З @ 235,"YOU BLEW IT!";/Ь╪З @ 229,"GONE BUT NOT FORGOTTEN!";/втР/┤ьВ PRINT SCORE/╝ЎЮ 3/▀З @ 360,HS;"ALIENS DESTROYED";0
З @ 391,A;" OUPOSTS REMAINING";0+З @420,SB;"SMART BOMBS IN ARSENAL";0;K$│ Т:K$│""0s(Е A│0 з З @453,"ALIENS HAVE DESTROYED YOU";:Бж 13500▓2Е HS│15 з З @449,"YOU HAVE SAVED THE FEDERATION";: Бж 13500╕<Р0╙F┐ 0,1:А X│1 е 1000:Л X0юP┐ 0,0:А X│1 е 2000:Л X0ЎZЮ 31!dЗ @ 230,"ANOTHER MISSION (Y/N) ";:Й C$1EnЕ  О(C$,1)┤▓"Y" з Т 65494,0:Ю:К1WxHS│0:A│5:SB│11МВЗ @64,"CHANGE SKILL LEVEL (1-10)";:Й SL:TR│15мSL1ТМРTHE FEDERATION";: Бж 13500╕<Р0╙F┐ 0,1:А X│1 е 1000:Л X0юP┐ 0,0:А X│1 е 2000:Л X0ЎZЮ 31!dЗ @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 &$
:Г''''''''''''''''''''''''''''&G:Г        * S I G N *        '&j:Г      BY DAVID STEYER      '&Н(:Г     SEPTEMBER 24,1982     '&░2:Г''''''''''''''''''''''''''''&║<Х 250&╥FМ A$(3),D$(4),E$(6)&▌PБж 550'ZЮ:З" * S I G N *   BY: DAVID STEYER "'[dЙ"80 OR 132 COLUMN PRINTER (8/13)";LG:Е LG│8 з LG│80 :Д Е LG│13 з LG│132 :Д 100'╠nЙ"HOW MANY LINES";LN:Е LN┤1 з 110 :Д Е LN▓10 з З"ARE YOU SURE YOU WANT"LN"LINES";:Й Z$:Е  О(Z$,1)┤▓"Y" з 110(.xМTX$(LN):З:З"ENTER TEXT (" Б((LGм2)о7)"CHARACTERS PER  ROW )":З"       "л б( Б((LGм2)о7),"*")(<ВАI│1 е LN(лМЗ"LINE"I;:╗ Й TX$(I):Е  З(TX$(I))▓ Б((LGм2)о7) з З"TOO LONG, TRY AGAIN":Бе 140 :Д Е TX$(I)│"" з TX$(I)│" "(│ЦЛ I(┴аA$│A$(RY)(╙к╚4,1:╝1:┐ 1,0(Ё┤╗(0,0)м(LGм1,LNн8л2),╛,B(■╛АJ│1 е LN)╚А I│1 е  З(TX$(J)))1╥A│ К( Р(TX$(J),I,1))м32)m▄Е A┤24 з RY│0 :Д Е A┤47 з RY│1 :Д Е A┤70 з RY│2 :Д RY│3)}цA│Aм(RYн23))КЁА X│0 е4)б·Е A│0 з Y│0:Бе 270)╨
Y│ Й("&H"л Р(A$(RY),((Aм1)н10)л(Xн2)л1,2)))х
D$(X)│"        "*
Е Y▓127 з Y│Yм128:D$(X)│"1       "*<
"Е Y▓63 з Y│Yм64:D$(X)│ О(D$(X),1)л"1      "*k
,Е Y▓31 з Y│Yм32:D$(X)│ О(D$(X),2)л"1     "*Щ
6Е Y▓15 з Y│Yм16:D$(X)│ О(D$(X),3)л"1    "*─
@Е Y▓7 з Y│Yм8:D$(X)│ О(D$(X),4)л"1   "*ю
JЕ Y▓3 з Y│Yм4:D$(X)│ О(D$(X),5)л"1  "+
TЕ Y▓1 з Y│Yм2:D$(X)│ О(D$(X),6)л"1 "+9
^Е Y▓0 з D$(X)│ О(D$(X),7)л"1"+A
hЛ X+W
rE$(0)│ О(D$(0),5)+y
|E$(1)│ П(D$(0),3)л О(D$(1),2)+С
ЖE$(2)│ Р(D$(1),3,5)+│
РE$(3)│ П(D$(1),1)л О(D$(2),4)+╒
ЪE$(4)│ П(D$(2),4)л О(D$(3),1)+э
дE$(5)│ Р(D$(3),2,5),
оE$(6)│ П(D$(3),2)л О(D$(4),3),&
╕АX│0 е 6:А Y│1 е 5,[
┬Е  Р(E$(X),Y,1)│"1" з ╛(Yл(Iм1)н7л2,2лXл(Jм1)н8),e
╠Л Y,X,m
╓Л I,u
рЛ J,И
ъА Y│0 е LNн8л2,Щ
ЇА X│0 е LGм1,╒
■Е  а(X,Y)│0 зЗ#м2,"O"л Л(8)л"+"л Л(8)л"#"; :Д З#м2," ";,▀Л X,Y-6З#м2,"    *  S  I  G  N  *     BY: DAVID STEYER 1982   RAINBOW MAGAZINE"; б(10,10)-<К./&A$(0)│"6318C03180528000000002B60DA8007568E2D5C0C644444C6045288AC9A0111000000008884208208208422200011DF710000109F210000000C611000001F000000000003180004444400074675CC5C023084211C074426443E0744260C5C01195F10840FC21E0C5C07461E8C5C0FC44442100"/"0A$(1)│"7462E8C5C07462F0C5C003180630006300C611000888820820003E0F8000820822220074444200807442DAD98022A31FC620F463E8C7C074610845C0F46318C7C0FC21E843E0FC21E8420074610BC5C08C63F8C62071084211C038842149808CA98AR-PUFF.,NOUN8N?Ж RED RYDER BRINGS HORSE          SCENTS,WITH HIM.,PREPOSITION8ЕDЖ THE MISSING MISSLE WASN'T      ,MISSING ME!,VERB8╙IЖ I THOUGHT THE THOUGHT HE       THOUGHT WAS A THOUGHT,OF ME.,PREPOSITION8хNЖ END,END,END9SЮ:З@192,D$;:З " THAT'S ALL THE QUESTIONS9?XЗ" TOTAL RIGHT="RлR1;" TOTAL WRONG="WлW19Е]З" TYPE 'R' TO REVIEW QUESTIONS    AGAIN OR PRESS 'ENTER' TO END"9ОbЗ D$9иgIN$│ Т:Е IN$│"" з 6159┴lП:А T│1 е 43:Н XX$:Л9ЇqCT│0:Ю:Е IN$│"R" з ╔ T$лP$лQ$:R1│0:W1│0:Бе 240:vЮ:З@234,"THE END";:а 50,2:а 1,5:КIGHT="RлR1;" TOTAL WRONG="WлW19Е]З" TYPE 'R' TO REVIEW QUESTIONS    AGAIN OR PRESS 'ENTER' TO END"9ОbЗ D$9иgIN$│ Т:Е IN$│"" з 6159┴lП:А T│1 е 43:Н XX$:Л9ЇqCT│0:Ю:Е IN$│"R" з ╔ T$лP$лQ$:R1│0:W1│0:Бе 240:vЮ:З@23                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ч&
:ГPOKE 65495,1&*Ю 0:└ 4:╚ 1,1:╝ 3&`З @64,"WHAT IS YOUR SKILL LEVEL (1-10)";:Й SL:Ю 0&Б(З @70,"YOU HAVE 5 OUTPOSTS";&а2З @135,"DESTROY INVADERS";&┼<З @164,"TO SAVE THE FEDERATION";&╥FTR│15мSL&┌PA│5&щZМ S(20,10)'
dSP│5:SX│127:IX│5:IY│5:IZ│1:SZ│5'nБж 650'"x┐ 1,0'6В╟ 3 е 1:╟ 4 е 2'AМБж 560'RЦX│ Н(0)н3л33'cаY│ Н(1)н2л33'|кБж 250:H│0:В NOT HIT'е┤Е  Т┤▓""░ SB▓0  з S│1:Бж 860:SB│SBм1'╡╛F│ Ж(65280)'╨╚Е Fо2│ Б(Fо2) з Бж 310(V╥Е H│1 з а 100,1:X│SX:Y│SY:Бж 840:SY│10:SX│ Д(255)л1:IX│( Д(20)л5):╟ 3 е 1:╟ 4 е 2:АX│1е900:ЛX:HS│HSл1:Бж 1260:А X│1е2000:ЛX:┐ 1,0(u▄RN│ Д(2):Е RN│2 з IX│IXнм1(Йц╟ 3 е 1:╟ 4 е 2(ФЁБе 140(л·В DRAW CROSS HAIRS(╖
C$│"C4"(╓
R$│C$л"BM"л И(X)л","л И(Y)(▀
╞ R$(ї
"╞ "N;U9NR9ND9NL9"(√
,Р)
6В FIRE ROUTINE)
@LC│4)"
J┴ LC,3)8
T╗(120,95)м(X,Y),╜)N
^╗(134,95)м(X,Y),╜)a
hC$│"C1":Бж 270)q
rLC│1:┴ LC,3)Й
|╔"V31;T255O5CO4BAG")а
ЖБж 520:В CHECK HIT)ж
РР)║
ЪВ DRAW A SAUCER)с
дSZ│SZлIZ:Е SZ▓20 ▒ SZ┤5 з IZ│IZнм1)ў
о┬ (SX,SY),SZ,4,.3*	
╕├ (SX,SY),4,4*
┬Р*-
╠В CHECK FOR SMARTBOMB HIT*A
╓А J│SXм9 е SXл9*[
рЕ  а(J,SY)│LC з H│1:Р*c
ъЛ J*k
ЇH│0*q
■Р*ЕВ CHECK FOR HIT*НH│0*│Е  В(XмSX)┤TR ░  В(YмSY)┤TR з H│1*╣&Р*╩0В MOVE ARRAY+
:Е  В(SXм127)┤20 ░  В(SYм95)┤20 з Бж 970:SY│30:SX│ Д(205)л25+ DSX│SXлIX:SY│SYлIY+YNЕ SY┤30 з IY│ Д(15)л5 :Д Е SY▓180 з IY│( Д(15)л5)нм1+yXЕ SX┤25 з IX│ Д(20)л5:SX│25+аbЕ SX▓240 з IX│( Д(20)л5)нм1:SX│240+┤lЕ SY┤25 з SY│25+┐vБж 410+┼АР+╤КВ STARS+█Ф╚ 1,3+уЮ╝ 3,иSB│1:В ONE SMARTBOMB PER OUTPOST,▓А X│1 е 255 й 3,9╝╜( Д(255)л1, Д(191)л1,2),A╞Л X,T╨┬ (127,95),9,2,g┌├ (127,95),1,2,Аф┬ (127,192),100,2,.5,Фю├ (127,162),2,2,в°А X│1 е 5,┬J│ Д(255):K│ Д(50):Y│ Д(20),╤┬(J,K),Y,2,с├ (J,K),2,2,щ Л X,є*╚ 1,1,¤4┐ 1,0->Р-HВ FIRE2 ROUTINE-RS│2-)\┐ 1,1-9fа 1,5:┐ 1,0-ApC│1-OzА E│1 е S-cДА R│1 е 100 й 7-rО┬(X,Y),R,C-zШЛ R-ВвC│3-КмЛ E-б╢Бж 460:В CHECK HIT-з└Р-╛╩В STATION BLOWS UP-╚╘A│Aм1-ь▐╔"T255;O4CCCCCCCCCCCCCCCCCCCCC"-ЇшЮ 0-№ЄC│4.№X│127:Y│95.А K│1 е 2.$ST│1.5.,J│1.A$J│JлST:ST│STл.05.Q.┬ (X,Y),J,C.c8Е J┤53 з 1060.kBC│3.sLЛ K.ЗVА K│1 е 500:Л K.м`┐ 0,1:Ю 4:Бж 1150:Бж 1280:Бж 650.╢j┐ 1,0.╝tР.╔~RM│ Д(5).юИИ RM Бе 1170,1190,1210,1230,1240/ТЗ @ 229,"TOO &Х 50,32384:Х500&{
Ж 8E,4,0,C6,80,A6,84,81,60,26,2,E7,84,A6,80,8C,6,0,26,F1,8E,4,0,A6,84,8B,10,A7,80,8C,6,0,26,F5,39&╕А X│32384 е 32418:Н PP$:B│ Й("&H"лPP$):ТX,B:Л:╣ Г0│32384&╛Ю&╟З@32&р#А T│1 е 8:Н WD$(T):Л'>(V$│ Л(175):W$│" ":H$│"AG":I$│"GA":J$│"FE":G$│"EF":МX(200):T$│H$лI$лJ$:╔"V25;O5;T150;L255"'G-╔ T$'u2З д5) б(6,175)W$V$V$W$W$W$V$V$W$ б(5,175)'~7╔ T$'┤<З д7)V$лV$лW$лW$лW$лV$лV$лW$лW$лW$лV$лV$лW$лV$лV$'╜A╔ T$'°FЗд7)V$лV$лW$лW$лW$лV$лV$лV$лV$лV$лV$лV$лW$лV$лV$лV$лV$(
K╔ T$(7PЗ д7)V$лV$лW$лW$лW$лV$лV$лW$лW$лW$лV$лV$лW$лV$лV$(@U╔ T$(~ZЗд7)V$лV$лW$лW$лW$лV$лV$лW$лW$лW$лV$лV$лW$лV$лV$лV$лV$лV$(Н_╔ H$лJ$лI$(УdЗ(вi╔ H$лJ$лI$(№nЗ д2)V$лV$лW$лW$лW$лV$лV$лW$лV$лV$лV$лV$лV$лV$лW$лV$лV$лV$лV$лV$лV$лW$лV$лV$лV$лV$лV$)YsЗ д2)V$лV$лW$лW$лW$лV$лV$лW$лV$лV$лW$лW$лV$лV$лW$лV$лV$лW$лW$лV$лV$лW$лV$лV$лW$лW$лV$лV$)bx╔ T$)┐}З д2)V$лV$лW$лW$лW$лV$лV$лW$лV$лV$лW$лW$лV$лV$лW$лV$лV$лW$лW$лV$лV$лW$лV$лV$лW$лW$лV$лV$)╚В╔ T$*%ЗЗ д2)V$лV$лW$лV$лW$лV$лV$лW$лV$лV$лW$лW$лV$лV$лW$лV$лV$лV$лV$лV$лV$лW$лV$лV$лW$лW$лV$лV$*.М╔ T$*ИСЗ д2)V$лV$лV$лV$лV$лV$лV$лW$лV$лV$лV$лV$лV$лV$лW$лV$лV$лW$лW$лV$лV$лW$лV$лV$лV$лV$лV$*ЧЦ╔ H$лJ$лI$*╡ЫА T│1024 е 1055:Т T,147:Л*╛а╔ T$*сеА T│1055 е 1535 й 32:Т T,154:Л*ък╔ T$+
пА T│1024 е 1505 й 32:Т T,149:Л+┤╔ T$+9╣А T│1505 е 1534:Т T,156:Л:╔ T$+C╛╔"V0"+q├Т 65494,0:А T│1 е 31:A│ Г(0):╔ "V+"лH$:ЛT+к╚А T│1 е 400:Л:╔"GGGGFFFFFEEEEEDDDDDDCCCCCBBBBBAAAAA"+╛═T1│1024:T2│1504+ч╥А T│0 е 511 й 32:З @T,"":╔I$лH$лJ$:Л+ї╫Т 65494,0,▄CT│0:CO│1,1сА T│64 е 192 й 32:З@T:╔"V20;O5;A":Л:З@0,;,БцD$│ б(32,131):K$│"":CH$│"":CH│0:P$│"V20;L255;O3;AAAA":Q$│"BBBB":C1$│ Л(175),┼ыЕ CO│1 з Зд10)"THE WORD:":ЗD$;:З:З " YOUR NAME  ";:Й NM$:Ю:CO│0,█ЁЕ WлR│10 з Бе 450-їЗ "    NAME THE PART OF SPEECH:":З D$;-+·CT│CTл1:CT$│ И(CT)л".":З CT$" ";-D Н A$,B$,C$:A$│A$л" "-]
Е A$│"END " з Бе 595-╙
	A│ Ю(B$," ")м1:Е A┤5 ░ A▓0 з 270 :Д Е A│┤1 з A│ Ю(B$,".")м1 :Д Е A│┤1 з A│ Ю(B$,"!")м1 :Д Е A│┤1 з A│ Ю(B$,"?")м1-у
L$│ О(B$,A).
З A$;:P│ Ж(136):P1│ Ж(137):З B$.'
З@485,"RIGHT="R"  WRONG="W;.5
А T│1 е A.L
"X(T)│ Ж(P1л1023лT).T
'Л T.b
,Т 65495,0.p
1А F│1 е 2.Щ
6А T│1 е A:Т P1л1023лT,X(T)м64:Л:╔ Q$.┐
;А T│1 е A:Т P1л1023лT,X(T):Л:╔ P$.ч
@А T│1 е A:Т P1л1023лT,X(T)м64:Л:Л F.ї
EТ 65494,0/(
JЗ@218:А T│1 е 8 й 2:З д1)WD$(T);д17)WD$(Tл1):Л/Й
OЖ 1. NOUN,2. VERB,3. PRONOUN,4. PREPOSITION,5. ADJECTIVE,6. ADVERB,7. CONJUNCTION,8. ARTICLE/Щ
TЗ:З@384,D$;/█
YЗ"   ";:Q│ Ж(137):Q1│ Ж(136): З "PRESS NUMBER OF YOUR CHOICE"/є
^З D$;:BL$│"V0;L1;A"0
cY│(1024лQ)л2540N
hK$│ Т:ТY,128:╔ BL$: ТY,202:╔ BL$:Т Y,197:╔ BL$:ТY,128:Е K$│"" з 3600\
mCH│ Й(K$)0t
rЕ CH┤1 ▒ CH▓8 з 3600М
wЕ CH│1 з CH$│"NOUN"0д
|Е CH│2 з CH$│"VERB"0┐
БЕ CH│3 з CH$│"PRONOUN"0▐
ЖЕ CH│4 з CH$│"PREPOSITION"0√
ЛЕ CH│5 з CH$│"ADJECTIVE"1
РЕ CH│6 з CH$│"ADVERB"14
ХЕ CH│7 з CH$│"CONJUNCTION"1O
ЪЕ CH│8 з CH$│"ARTICLE"1b
ЯЕ CH$│C$ з 4251v
дЕ CH$┤▓C$ з 4351Ё
йЗ@357, б(21,175);:╔"V20L50O5"л I$:R$│"RIGHT":R1$│"right":А T│1 е 8:З@365,R$;:З@365,S$;:З@365,R1$;:╔G$:Л:А T│1 е 200:Л2

оR│Rл1:Бе 2252t
│З@357, б(21,255);:а 10,2:W$│"WRONG":W1$│"wrong":А T│1 е 8:З@365,W$;:З@365,S$;:З@365,W1$;:а 1,1:Л:А T│1 е 200:Л2╥
╕Ю0:LK$│ О(C$,1):Е LK$│"A" ▒ LK$│"E" ▒ LK$│"I" ▒ LK$│"O" ▒ LK$│"U" з AN$│"AN " :Д AN$│"A "3;
║З@128," "A$;B$:ЗD$;:З д2)NM$":":З"(";L$") IS "AN$;C$:З:ЗD$;:З д2)"PRESS <ENTER> TO CONTINUE  ";:Й Z$3N
╜W│Wл1:Ю:Бе 2253o
┬Ю:Зд7)NM$"'S ";"SCORE:":ЗD$;3е
╟З" THAT IS" R"RIGHT OUT OF" RлW"       QUESTIONS"3л
╠З3╘
╤З" YOUR PERCENTAGE IS"Rо(RлW)н100"%"3▌
╓З D$4
█З" PRESS <ENTER> TO CONTINUE ";:╗ЙZ$4"
рW1│W1лW:R1│R1лR:W│0:R│04-
хБе 2254e
ъЖ TO,COIN A PHRASE YOU NEED       SOME  CENTS.,VERB4Ю
яЖ ROSCO RESCUED THE,RAVISHING     REDHEAD.,ADJECTIVE4р
ЇЖ THE RAIN IN,SPAIN FALLS         MAINLY ON THE SPANISH.,NOUN5
∙Ж PINTOS ARE,SPOTTY               PERFORMERS.,ADJECTIVE5a
■Ж  YOU CAN FINISH THIS QUIZ,OR     FLUNK THE COURSE!,CONJUNCTION5ОЖ RED RYDER HAS ,HORSE SCENTS.,ADJECTIVE5╖Ж HE SAID THE MINE WAS,MINE.,PRONOUN5ў
Ж HERBIE WENT BANANAS AND WOW     WHAT,A FRUITCAKE!,ARTICLE6)Ж,HOPE SPRINGS ETERNAL IN THE     WORLD.,NOUN6MЖ COME TO ME WITH,ZEAL !,ADVERB6ПЖ THE SPINX SWORE THE SPHERE      WAS SWAYING,SWEETLY.,ADVERB6╞!Ж STANLEY WASHED AND,DRIED        THE DISHES.,VERB7&Ж "HE HITS, HE RUNS,",HE SLIDES    HE RIPS HIS PANTS!,PRONOUN7/+Ж ,SICK BEARS GET HIVES.,ADJECTIVE7v0Ж CREEPY CRAWLING CRITTERS        CATCH,UNDER GARTERS.,PREPOSITION7│5Ж I,BELIEVE YOU DON'T ALWAYS      CARE FOR GRAMMER.,VERB8:Ж TERINA TOOTH-FAIRY FLEW         FOR FREEDOM ON A               ,POWDE ╡&
:ГPRNTCHG&:ГTED BLATT&.:Г3 KIM DR&K(:ГBOURBONNAIS ,IL. 60914&Z2Х350,15999&m<АX│16000е16308&yFНA:ТX,A&АPЛX&┼Z╗Й"READY CASSETTE / PRESS PLAY AND RECORD / ENTER WHEN READY";B$&чdШM"PRNTCHG",16000,16308,16000'
nЖ 220,25,253,62,135,32,8,18,18,18'3xЖ 18,18,18,18,18,252,62,135,195,0']ВЖ 1,253,62,135,166,159,62,135,129,135'ДМЖ 39,12,220,31,16,179,62,135,16,39'мЦЖ 1,10,32,227,220,31,253,62,137,252'╙аЖ 62,137,131,0,1,253,62,137,252,62'√кЖ 137,195,0,4,253,62,139,166,159,62(%┤Ж 137,167,159,62,139,252,62,137,131,0(K╛Ж 1,16,179,62,135,39,2,32,216,252(t╚Ж 62,135,253,62,141,252,62,141,131,0(Ь╥Ж 1,253,62,141,166,159,62,141,129,0(┴▄Ж 39,2,32,237,252,62,141,131,0,3(ъцЖ 253,62,141,166,159,62,141,129,0,38)ЁЖ 11,252,62,141,195,0,1,253,62,141)6·Ж 32,9,252,62,141,195,0,4,253,62)_
Ж 141,236,159,62,141,195,0,4,237,159)Ж
Ж 62,141,253,62,141,16,147,31,36,2)н
Ж 32,235,252,62,135,195,0,1,253,62)╪
"Ж 135,134,35,167,159,62,135,252,62,135*

,Ж 195,0,1,253,62,135,134,172,167,159*(
6Ж 62,135,252,62,135,195,0,1,253,62*S
@Ж 135,134,50,167,159,62,135,252,62,135*{
JЖ 195,0,1,253,62,135,252,62,135,253*д
TЖ 62,137,134,0,183,62,139,252,62,137*╠
^Ж 195,0,1,253,62,137,166,159,62,137*ё
hЖ 129,58,39,13,129,0,39,9,129,32+
rЖ 39,231,124,62,139,32,226,182,62,139+?
|Ж 129,0,38,4,134,32,32,2,134,44+g
ЖЖ 167,159,62,135,220,31,195,0,4,221+Н
РЖ 31,220,27,195,0,4,221,27,220,29+░
ЪЖ 195,0,4,221,29,126,62,143,5762,137,166,159,62,137*ё
hЖ 129,58,39,13,129,0,39,9,129,32+
rЖ 39,231,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Ь?╜й(О
┌Я~нЯанЯа&·нЯаБ'yЦ|Б 'cБ&цЖ4╖ !oО
┌╞жАнЯаZ&ўЖ
нЯаО
┌О
╞жА╜?vзаZ&Ў╢> Б &нЖ■ЧoО
┌╞жАнЯаZ&ўЖ
нЯа~?Б`"Б@%9А`9Л@9Ж`╞О
заZ&√~?Ж4╖ !9  ?6,62,143,5762,137,166,159,62,137*ё
hЖ 129,58,39,13,129,0,39,9,129,32+
rЖ 39,231,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 of operations,Gross profit*,Windfall tax credit,Total income*,Advertising,Amortization/╦ТЖ Bad debts,Bank service charges,Car and truck expenses,Commissions,Depletion,Depreciation,Dues and publications0IЬЖ Employee benefit programs,Freight,Insurance,Interest on business debts,Laundry & cleaning,Legal & professional expenses0╗жЖ Office supplies & postage,Pension and profit-sharing plans,Rent on business property,Repairs,Supplies,Taxes16░Ж Travel and entertainment,Utilities and telephone,Wages,Windfall Profit Tax withheld,Other expenses,Total deductions*1H║Ж Net profit*1Y─:ГForm 1040'1п╬Ж "DEPENDENTS","SALARIES, ETC.",INTEREST & DIV.,REF. S & L TAXES,ALIMONY RECEIVED2╪Ж BUSINESS INCOME,CAPITAL GAIN,40% CAPITAL GAIN,SUPPL. GAINS,F. T. PENS. & AN.2dтЖ P. T. PENS. & AN.,"RENTS, ROY., ETC.",FARM INCOME,UNEMPLOY. COMP.,OTHER INCOME,TOTAL INCOME2╞ьЖ MOVING EXPENSE,EMPLOYEE BUS. EXP.,IRA PAYMENTS,KEOGH PAYMENTS,INTEREST PENALTY,ALIMONY PAID3%ЎЖ DISABILITY INCOME,OTHER ADJUSTMENTS,TOTAL ADJUSTMENTS,ADJ. GROSS INCOME,AGI - DEDUCTIONS3ЛЖ EXEMPT. X $1000,TAXABLE INCOME,TAX FROM SKED Y,ADDITIONAL TAXES,TOTAL (35 & 36),CONTR. TO CAND.3Ў
Ж CREDIT FOR ELDERLY,CHILD CARE EXP.,INVESTMENT CREDIT,FOREIGN TAX CREDIT,WORK INC. CREDIT,JOBS CREDIT4KЖ RES. ENERGY CREDIT,TOTAL CREDITS,BALANCE (37-46),SELF-EMPLOY. TAX,MINIMUM TAX 4нЖ INV. CR. REC. TAX,SOC. SEC. ON TIPS,TAX ON IRA,ADV. INC. CREDIT,TOTAL TAX,INC. TAX WITHHELD5
(Ж EST. TAX PAYMENTS,EARNED INC. CREDIT,AMOUNT FORM 4868,EXC. SOC. SEC. TAX,CREDIT FUELS TAX5u2Ж INV. CO. CREDIT,TOTAL TAX PAYMENTS,TAX OVERPAID,AMOUNT TO REFUND,AMOUNT TO CREDIT,BALANCE DUE IRS5Ж<:ГSchedule A5щFЖ 1/2 INS. PREMIUMS,MEDICINE AND DRUGS,"1% OF F.1040, L.31",LINE 2 - LINE 3,BAL. OF INS. PREM.69PЖ OTHER M&D EXPENSES,TOTAL (LINES 4-6),"3% OF F.1040, L.31",LINE 7 - LINE 86ЭZЖ TOTAL M&D EXPENSES,ST.&LOC. INC. TAX,REAL ESTATE TAX,SALES TAX,PERSONAL PROP. TAX,OTHER TAXES6ёdЖ TOTAL TAXES,MORTGAGE INTEREST,CR. CARD INTEREST,OTHER INTEREST,TOTAL INTEREST7InЖ CASH CONTRIBUTIONS,OTHER CONTRIBUT.,CARRYOVER,TOTAL CONTRIBUTIONS,CASUALTY LOSSES7ТxЖ CASUALTY REIMB.,LINE 25 - LINE 26,SMALLER-$100/L.27,TOTAL CASUALTY7ыВЖ TAX RET. PREP. FEE,OTHER DEDUCTIONS,TOTAL MISC. DED.,TOTAL M&D EXPENSE,TOTAL TAXES8hМЖ TOTAL INT. EXPENSE,TOTAL CONTRIBUT.,TOTAL CASUALTY,TOTAL MISC. DED.,TOTAL LINES 33-38,ZERO BR. AMOUNT,TOTAL DEDUCTIONS8yЦ:ГSchedule C8ьаЖ GROSS RECEIPTS,COST/OPERATIONS,GROSS PROFIT,WIND.PROF.CREDIT,TOTAL INCOME,ADVERTISING,AMORTIZATION,BAD DEBTS9eкЖ BANK SERVICE CHG.,CAR EXPENSES,COMMISSIONS,DEPLETION,DEPRECIATION,DUES & PUBL.,EMPLOYEE BENEFITS,FREIGHT,INSURANCE9у┤Ж BUSINESS INTEREST,LAUNDRY,LEGAL & PROF.EXP.,OFFICE SUPPLIES,PENSION PLANS,RENT,REPAIRS,SUPPLIES,TAXES,TRAVEL, UTILITIES:'╛Ж WAGES,WINDFALL TAX,OTHER EXPENSES,TOTAL DEDUCTIONS,NET PROFIT:0╚Ю: К:?╥└ 1: Бе 30OYEE BENEFITS,FREIGHT,INSURANCE9у┤Ж BUSINESS INTEREST,LAUNDRY,LEGAL & PROF.EXP.,OFFICE SUPPLIES,PENSION PLANS,RENT,REPAIRS,SUPPLIES,TAXES,TRAVEL, UTILITIES:'╛Ж WAGES,WINDFALL TAX,OT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
дЖ 119,   546, 16,  761
оЖ 160,  1234, 19, 119K
╕Ж 202,  2013, 22, 160e
┬Ж 246,  2937, 25, 202
╠Ж 299,  4037, 29, 246Щ
╓Ж 352,  5574, 33, 299│
рЖ 458,  7323, 39, 352═
ъЖ 600, 11457, 44, 458ч
ЇЖ 856, 17705, 49, 600

■L│L(34)н4оQUARо100: П,Н W,X,Y,Z: Е L┤│W з T│XлYн(LмZ) :Д 520ЩL(35)│TнQUARо4: З"TAX FROM TAX TABLE": З═ F1$; L(35): Й"ENTER ADDITIONAL TAXES";L(36): L(37)│L(35)лL(36)л:ГTax Creditsь&L(46)│0: А I│38 е 45: L(46)│L(46)лL(I): Л: L(47)│L(37)мL(46)■0:ГOther Taxes?:L(54)│0: Е L(11)│▓32400 з L(48)│3029.40 :Д L(48)│.0935нL(11)dDА I│47 е 53: L(54)│L(54)лL(I): ЛwN:ГTax PaymentsеXL(62)│0: А I│55 е 61: L(62)│L(62)лL(I): Л┴b:ГRefund or Balance Due )lX│L(62)мL(54): Е X┤0 з L(63)│0: L(64)│0: L(65)│0: L(66)│Xнм1 :Д L(63)│X: L(64)│L(63)мL(65): L(66)│0 avА I│63 е 66: З═ F3$; I; D2$(I); L(I);: Л: Бж 720: Р sА:ГReview Data ┐КБж 750: З SKED$: З"PRESS 1 TO DISPLAY REVIEW","PRESS 2 TO PRINT REVIEW" юФK│ Й( Т): Е K┤1 ▒ K▓2 з 660 :Д Е K│1 з 690!6ЮЗ#м2,  Л(18) Л(13) Л(14)д8)SKED$; Л(13): А I│FIRST(1) е LAST(PAGES)!КиЗ#м2, ═ F4$;I;D1$(IлSKIP);L(IлSKIP): Л: З#м2,д14)"* = COMPUTER ENTRY" Л(12);: Р!▌▓А N│1 е PAGES: Ю: А I│FIRST(N) е LAST(N): З═ F3$;I;D2$(IлSKIP);L(IлSKIP);: Л I!є╝Бж 720: З: Л N: Р! ╞:ГPause" ╨З@485,"PRESS 1 TO CONTINUE";"L┌Е  Т┤▓"1" з 730 :Д З@485, б(19," ");: Р"aф:ГForm Selection"╖юЗ"PRESS NUMBER OF DESIRED FORM    1. FORM 1040",,"2. SCHEDULE A",,"3. SCHEDULE C""ї°K│ Й( Т): Е K┤1 ▒ K▓3 з 760 :Д Ю: И K Бж 780, 820, 860: Р#:ГForm 1040#,SKED$│"FORM 1040": SKIP│0: PAGES│6#|FIRST(1)│7: FIRST(2)│21: FIRST(3)│31: FIRST(4)│37: FIRST(5)│47: FIRST(6)│54#╩ LAST(1)│21: LAST(2)│31: LAST(3)│37: LAST(4)│47: LAST(5)│54: LAST(6)│66: Р#█*:ГSchedule A$4SKED$│"SCHEDULE A": SKIP│66: PAGES│4$:>FIRST(1)│1: FIRST(2)│11: FIRST(3)│21: FIRST(4)│33$pHLAST(1)│10: LAST(2)│20: LAST(3)│32: LAST(4)│41: Р$БR:ГSchedule C$л\SKED$│"SCHEDULE C": SKIP│107: PAGES│3$╙fFIRST(1)│1: FIRST(2)│5: FIRST(3)│20$№pLAST(1)│5: LAST(2)│19: LAST(3)│33: Р%z:ГLine Descriptions%DДА I│1 е 12: Н W,X,Y,Z: Л :Г(Skip Tax Table)%ЖОА I│7 е ENTRIES: Н D1$(I): Л: А I│6 е ENTRIES: Н D2$(I): Л: Р%ЦШ:ГForm 1040&вЖ "Wages, salaries, tips, etc.",Interest and dividends,Refunds of state and local taxes,Alimony received&xмЖ Business income*,Capital gain,40% capital gain not on line 12,Supplemental gains,Fully taxable pensions & ann.&щ╢Ж Part. taxable pensions & ann.,"Rents, royalties, etc.",Farm income,Unemployment compensation,Other income*'g└Ж Total income*,Moving expense,Employee business expenses,Payments to IRA,Payments to Keogh,Interest penalty,Alimony paid'╫╩Ж Disability income,Other adjustments,Total adjustments*,Adjusted gross income*,Adj. gr. inc. - deductions*(=╘Ж Exemptions X $1000,Taxable income*,Tax from Schedule Y*,Additional taxes,Total (lines 35 & 36)*(п▐Ж Contributions to candidates,Credit for the elderly,Child care expenses,Investment credit,Foreign tax credit)шЖ Work incentive credit,Jobs credit,Residential energy credit,Total credits*,Balance (line 37 - line 46)*)ЗЄЖ Self-employment tax*,Minimum tax,Tax from invest. credit recomp.,Social security on tips,Tax on IRA)Є№Ж Adv. earned income credit,Total tax*,Income tax withheld,Estimated tax payments,Earned income credit*oЖ Amount paid with Form 4868,Excess Social Security tax,Credit for fuels tax,Reg. invest. co. credit,Total tax payments**╤Ж Tax overpaid*,Overpayment to be refunded*,Overpayment to credit next  year,Balance due IRS**т:ГSchedule A+a$Ж Half of insurance premiums,Medicine and drugs,"1% oF Form 1040, Line 31*",Line 2 - Line 3*,Balance of insurance premiums+╟.Ж Other medical & dental expenses,Total (Lines 4-6)*,"3% of Form 1040, Line 31*",Line 7 - Line 8*,D8Ж Total medical & dental expenses,State & local income taxes,Real estate tax,Sales tax,Personal property tax,Other taxes,╡BЖ Total taxes*,Home mortgage interest,Credit and charge card interest,Other interest,Total interest expense*-5LЖ Cash contributions,Contributions other than cash,Carryover from prior years,Total contributions*,Casualty or theft losses-лVЖ Insurance or other reimbursement,Line 25 - Line 26*,Smaller of $100 or Line 27*,Total casualty or theft losses*.$`Ж Tax return expenses,Other deductions,Total miscellaneous deductions*,Total medical & dental expenses*,Total taxes*.ЯjЖ Total interest expense*,Total contributions*,Total casualty or theft losses*,Total miscellaneous*,Total Lines 33-38*.╦tЖ Zero bracket amount,Total deductions*.▄~:ГSchedule C/VИЖ Gross receipts or sales,Cost b
В "RANDOM HOMONYMS"+:Г STEVE BLYN\:Г COMPUTER ISLAND,STATEN ISLAND, N.Y., 1982Ш(H│ Д(м Я)  :ГTHIS LINE IS FOR EXTENDED BASIC USERS ONLY┤2CR│0 :ГCORRECT EXAMPLES═<L│10 :Г# OF EXAMPLES▀FМ A$(L),B$(L)юPА W│ 1 е LZН A$(W),B$(W): ЛdR│  Д(L)3nЕ L│0 з 300 :ГNO MORE EXAMPLESIxA$│A$(R):B$│B$(R)eВA$(R)│A$(L):B$(R)│B$(L)ПМL│Lм1  :ГREMOVES THE PREVIOUS EXAMPLEмЦЮ  Д(8):З@12,"homonyms";╨а З@96,"A HOMONYM FOR "A$;" IS";ёкА T│200 е 250 й10: а T,2:Л T·┤Й C$
╛Е C$│B$ Бж 220#╚Е C$┤▓B$ з Бж 2601╥П: Бе 100N▄З@237,"CORRECT";:CR│CRл1Yца200,8ЕЁЗ@386,"PRESS <ENTER> TO CONTINUE";:Й E$Н·Ю:Р▒
З@224,"SORRY,THE ANSWER IS ";B$╝
а 50,5ш
З@386,"PRESS <ENTER> TO CONTINUE";:Й E$ю
"Р

,Ю0:А T│80е10йм5:аT,1:ЛT+
6З@70," THIS ROUND IS OVER ";P
@З@198," YOU HAD ";CR;" CORRECT";t
JЗ@358," PLAY AGAIN (Y/N)";:Й F$Ю
TЕ F$│"Y" з О :Д Е F$│"N" з 350 :Д 330│
^Ю:З"BYE FOR NOW"╞
hЖ HORSE,HOARSE╓
rЖ SAIL,SALEц
|Ж HERE,HEAR∙
ЖЖ KNIGHT,NIGHT
РЖ RIGHT,WRITE
ЪЖ SEE,SEA(
дЖ NEW,KNEW9
оЖ NOSE,KNOWSM
╕Ж THROUGH,THREW]
┬Ж BLUE,BLEWAIN (Y/N)";:Й F$Ю
TЕ F$│"Y" з О :Д Е F$│"N" з 350 :Д 330│
^Ю:З"BYE FOR NOW"╞
hЖ HORSE,HOARSE╓
rЖ SAIL,SALEц
|Ж HERE,HEAR∙
ЖЖ KNIGHT,NIGHT
РЖ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &Dx
:Г'INCOMeTAX''                 Lane P. Lester, Ph.D.          Liberty Baptist College          Lynchburg, VA 24506РБе 1490 :Г(PCLEAR1)ьХ 1000: Ю: ENTRIES│140: М L(ENTRIES),D1$(ENTRIES),D2$(ENTRIES),FIRST(7),LAST(7): Бж 900@(F1$│"$$##,###.##": F2$│"$$##,###.##+": F3$│"##.%" л  б(16," ") л "%$$##,###.##"}2F4$│ б(10," ") л  "##. %" л  б(32," ") л "% $$##,###.##"т<Ю: З"PRESS NUMBER OF DESIRED FUNCTION1. INPUT RECORDED DATA","2. ENTER DATA",,"3. CALCULATE TAX"FЗ"4. REVIEW DATA",,"5. RECORD DATA",,"6. END"^PK│ Й( Т): Е K┤1 ▒ K▓6 з 80 :Д Ю: И K Бж 90,160,200,650,90,1480: Бе 60zZ:ГRecorded Data RoutineЮdЗ"PRESS 1 FOR DISK, 2 FOR TAPE"╪nDEV│ Й( Т): Е DEV┤1 ▒ DEV▓2 з 110 :Д Е DEV│2 з DEV│м1ўxЕ K│1 з TR$│"I" :Д TR$│"O"KВЩ TR$,DEV,"TAXRECRD": Е K│5 з А I│1 е ENTRIES: З#DEV, И(L(I)): Л: Ъ: а 200,2: РЙМА I│1 е ENTRIES: Й#DEV, L$: L(I)│ Й(L$): Л: Ъ: а 200,2: РЪЦ:ГEnter DataоаБж 750: З SKED$кЗ@32,"WHICH LINE NUMBER, '0' TO STOP";: Й L: Е L│0 з Р :Д I│LлSKIP: З@32,D2$(I): З═ F1$;L(I)d┤Й"AMOUNT";AMOUNT: L(I)│L(I)лAMOUNT: З═ F1$;L(I): Бж 720: З@64, б(97," "): Бе 170x╛:ГCalculate Taxе╚Й"WHICH QUARTER IS BEING EVALUATED";QUAR╗╥:ГBusiness Income0▄L(110)│L(108)мL(109): L(112)│L(110)лL(111): L(139)│0: А I│113 е 138: L(139)│L(139)лL(I): Л: L(140)│L(112)мL(139)Cц:ГTotal Income~ЁL(11)│L(140): L(21)│0: А I│7 е 20: L(21)│L(21)лL(I): ЛЧ·:ГIncome Adjustments╪
L(30)│0: А I│22 е 29: L(30)│L(30)лL(I): Л: L(31)│L(21)мL(30)Є
:ГItemized Deductions4
L(69)│.01нL(31): Е L(69)▓L(68) з L(70)│0 :Д L(70)│L(68)мL(69)П
"L(73)│L(70)лL(71)лL(72): L(74)│0.03нL(31): ЕL(74)▓L(73) з L(75)│0 :Д L(75)│L(73)мL(74)ф
,L(76)│L(67)лL(75): L(82)│L(77)лL(78)лL(79)лL(80)л L(81): L(86)│L(83)лL(84)лL(85);
6L(90)│L(87)лL(88)лL(89): L(93)│L(91)мL(92): Е L(93)┤100 з L(94)│L(93) :Д L(94)│100l
@Е L(93)▓L(94) з L(95)│L(93)мL(94) :Д L(95)│0╕
JL(98)│L(96)лL(97): L(99)│L(76):L(100)│L(82): L(101)│L(86): L(102)│L(90)
TL(103)│L(95): L(104)│L(98): L(105)│L(99)лL(100)лL(101)лL(102)лL(103)лL(104)?
^Е L(106)▓L(105) з L(107)│0 :Д L(107)│L(105)мL(106)U
h:ГTax ComputationЧ
rL(32)│L(31)мL(107): L(33)│L(6)н1000нQUARо4: L(34)│L(32)мL(33)▒
|:ГTax Table Y (Joint)╩
ЖЖ  34,     0,  0,  0ф
РЖ  55,     0, 12, 34 ¤
ЪЖ  76,   252, 14, 55"##,###.##";UT81З"PHONE     ";:З═"##,###.##";PH8U$З"MORTGAGE  ";:З═"##,###.##";MG8y.З"INSURANCE ";:З═"##,###.##";IS8Э8З"CASH      ";:З═"##,###.##";CS8┴BЗ"MISC.     ";:З═"##,###.##";MI9
LЗ"TOTAL     ";:З ═"##,###.##";FDлMDлCCлCRлUTлPHлMGлISлCSлMI9VЗ"PRINT THIS? (Y/N)"95`CH$│ Т:Е CH$│"" з 11209PjЕ CH$│"Y" з 1140 :Д 309qtЙ "TODAY'S DATE (M/D/Y)";TD$9╢~З#м2:З#м2, "********** YEAR SUMMARY AS OF "TD$" **********":З#м29╔ИW$│"##,###.##"9ЁТЗ#м2, "FOOD      ";:З#м2, ═ W$; FD:ЬЗ#м2, "MEDICAL   ";:З#м2, ═ W$; MD:>жЗ#м2, "CHILD CARE";:З#м2, ═ W$; CC:e░З#м2, "CREDIT CD.";:З#м2, ═ W$; CR:М║З#м2, "UTILITIES ";:З#м2, ═ W$; UT:│╜З#м2, "PHONE     ";:З#м2, ═ W$; PH:┌─З#м2, "MORTGAGE  ";:З#м2, ═ W$; MG;
╬З#м2, "INSURANCE ";:З#м2, ═ W$; IS;(тЗ#м2, "CASH      ";:З#м2, ═ W$; CS;OьЗ#м2, "MISC.     ";:З#м2, ═ W$; MI;ЦёЗ#м2:З#м2, "TOTAL     ";:З#м2, ═ W$; FDлMDлCCлCRлUTлPHлMGлISлCSлMI;кЎЗ#м2:З#м2:Бе 30;┼'З"ARE YOU SURE? (Y/N)";с'SR$│ Т:Е SR$│"" з 10010;є'$Е SR$│"Y" з Р;¤'.Бе 30<'╪AM│ Й( Р(C$(K),23,8))<<'┘З  О(C$(K),23);:З ═ "####.##";AM<G'тT│TлAM<Q'ьR│Rл1<W'ЎР<p(<:Г PAGING SUBROUTINE<Р(=З"CONTINUE (C) OR MENU (M)"<м(@CJ$│ Т:Е CJ$│"" з 10304<▌(AЕ CJ$│"C" з 10310 :Д Е CJ$│"M" з 30 :Д 10304<х(FR│0<ы(KЮ<ё(PР=
(аCH$│ Т:Е CH$│"" з 10400=%(кЕ CH$│"Y" з Р :Д 30=<)h:Г PRINTER ROUTINE=V)mAM│ Й( Р(C$(K),23,8))=Е)sЗ#м2,  О(C$(K),23);:З#м2, ═ "#####.##"; AM=Р)|T│TлAM=Ц)ЖР=╖)╠З#м2,  б(44,"*"):З#м2:З#м2:Р=ф*0З@336,"TOTAL";:З@343, ═"####.##";T:T│0:Р>"*°З#м2:З#м2,  б(23," ");:З#м2, ═ "####.##";T:З#м2:T│0:Бе 30>J.рТ 65495,0:SP│1:Ю:З"SORTING BY DATE">R.ъT│0>b.ЇА L│1 е Xм1>╦.■F$│ О(C$(L),2):NX$│ О(C$(Lл1),2):M1$│ Р(C$(L), Ю(C$(L),"/")л1,2):M2$│ Р(C$(Lл1), Ю(C$(Lл1),"/")л1,2)?/Е 31н( Й(F$)м1)л Й(M1$)┤│31н( Й(NX$)м1)л Й(M2$) з 12070?-/E$│C$(L):C$(L)│C$(Lл1):C$(Lл1)│E$?5/T│1?=/&Л L?_/0З@128, "PASS NO. "SP;:SP│SPл1?q/:Е T│1 з 12010?/DТ 65494,0?╛/NЗ:З"SEARCH COMPLETED":Й "HIT ENTER FOR MAIN MENU";PE:Бе 30?ю6░Ю:З"CORRECT AN ENTRY":Й "WHAT CHECK NO.";NC@6╡З"CURRENT DATA"@6║А K│1 е X@36─Е  Й( Р(C$(K),6,7))│NC з 14027@;6╔Л K@H6╦Бж 10200@e6╬З"CORRECTED ENTRY NO. "K@┤6╙Й"DATE ";DT$:Й "CHECK NO.";CN$:Й "PAYEE";P$:Й "ACCOUNT";AC$:Й "AMOUNT";AM$A6╪C$(K)│DT$л б(5м З(DT$)," ")л б(5м З(CN$)," ")лCN$л" "лP$л б(8м З(P$)," ")л" "лAC$л" "лAM$A,6▌З"CORRECTED":Бж 10200AJ6тЗ"IS THIS CORRECT? (Y/N)"Af6ьCM$│ Т:Е CM$│"" з 14060AВ6ЎЕ CM$│"Y" з 30 :Д 14030AТFPЮ:А K│1 е XAЯFZБж 10200A╡FdЕ R▓12 з Бж 10300A╜FnЛ KAтFxЙ "HIT ENTER FOR MENU"; PE:Бе 30AЎN Ю:З"ACCOUNTS":ЗBСN*З"FD=FOOD":З"MD=MEDICAL":З"CC=CHILD CARE":З"CR=CREDIT CARDS":З"CS=CASH":З"UT=UTILITIES":З"PH=PHONE":З"IS=INSURANCE":З"MG=MORTGAGE":З"MI=MISCELLANEOUS"B╖N4Й "HIT <ENTER> FOR MENU";PE:Бе 30AтFxЙ "HIT ENTER FOR MENU"; PE:Бе 30AЎN Ю:З"ACCOUNTS":ЗBСN*З"FD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╝&
:Г COLOR ACCOUNTANT&5:Г (C) BY MIKE HIMOWITZ&L:Г 825 WILLIAM ST.&h:Г BALTIMORE, MD. 21230&└:Г FOR PERSONAL USE OF RAINBOW READERS ONLY. ALL OTHER COPYWRITE RESTRICTIONS APPLY':ГDELETE LINES 1-6 AND OTHER REMARKS BEFORE RUNNING. POKE 25,6:HEW BEFORE LOADING'!
Х 6000'/М C$(200)'7A│1'▒R│0:T│0:Ю:З"COLOR ACCOUNTANT":З:З"1. ENTER CHECKS FROM KEYBOARD":З"2. ENTER CHECKS FROM TAPE":З"3. SAVE DATA ON TAPE"((З"4. LIST CHECKS BY MONTH":З"5. LIST CHECKS BY ACCOUNT":З"6. LIST CHECKS BY PAYEE"(2*З"7. YEAR SUMMARY":З"8. SORT BY DATE"(t-З"A. CORRECT ERROR":З"B. LIST ALL CHECKS":З"C. LIST ACCOUNTS"(Н<CH$│ Т:Е CH$│"" з 60(г>Е CH$│"B" з 18000(╣?Е CH$│"A" з 14000(╧@Е CH$│"C" з 20000)	AИ  Й(CH$) Бе 100, 200, 300, 400, 500, 700, 900, 12000)FБе 30)dБе 105).iА X│A е 200)4nЮ)HsЗ "ENTRY NO. "X)ntЗ"HIT <ENTER> TO RETURN TO  MENU")ЧuЕ X▓199 з З "THIS IS THE LAST CHECK")┬xЗ:Й "DATE (M/D ONLY)";D$:Е D$│"" з 160)Ё{Е  З(D$)▓5 з З"MONTH AND DAY ONLY":Бе 115*7}Й "CHECK NO. ";CN$:Й "PAYEE";P$:Й "ACCOUNT "; AC$:Й "AMOUNT $";AM$*GP$│ О(P$,8)*gВЗ:З"IS THIS CORRECT? (Y/N)"*ЗY$│ Т:Е Y$│"" з 135*ТМЕ Y$│"Y" з 150*ШПЮ*░СЗ"CORRECTED":Бе 115+ЦC$(X)│D$л б(5м З(D$)," ")л б(5м З(CN$)," ")лCN$л" "лP$л б(8м З(P$)," ")л" "лAC$л" "лAM$+ЩЕ CH$│"A" з 30+'ЫЛ X+7аX│Xм1:A│Xл1+AеБе 30+Р╚Ю:З"INPUT FROM TAPE":Бж 10000:З"PREPARE RECORDER":Й "AND PRESS <ENTER>";PE+м╥Щ "I", #м1, "CHECKS 82"+╕╫Й#м1, X+╞▄А K│1 е X+╫цЙ #м1, C$(K)+ЁыЗ@480,"ENTRY NO. "K;+°ЁЛ K,·Ъ #м1, A│Xл1,
Бе 30,b
,Ю:З"SAVE ON TAPE":Бж 10000:З"PREPARE RECORDER":Й "AND PRESS <ENTER>";PE,
6З"RECORDING" X "ENTRIES",Ы
@Щ "O", #м1, "CHECKS 82",з
JЗ#м1, X,╡
TА K│1 е X,┼
YЗ#м1, C$(K),▀
[З@480, "ENTRY NO. "K;,ч
^Л K,Ў
hЪ#м1:Бе 30-
РЮ:З"LIST CHECKS BY MONTH":Бж 10000-%
ХT│0-<
ЪЙ "MONTH (1-12)";M-S
ЯЕ M┤1 ▒ M▓12 з 410-m
дЗ"SCREEN OR PRINTER?"-
жЗ"(S) OR (P)"-Щ
йCH$│ Т:Е CH$│"" з 425-╟
оЕ CH$│"S" з 435 :Д Е CH$│"P" з 465 :Д 425-╫
│Ю:А K│1 е X-·
╕Е  Й( О(C$(K),2))│M з Бж 10200.
╜Е R▓10 з Бж 10300.
┬Л K.A
╟З@336,"TOTAL";:З @342,═"#####.##"; T.c
╠З"PRINT THIS? (Y/N)":Бж 10400.k
╧T│0.п
╤З#м2:З#м2, "********** ALL CHECKS IN MONTH "M" **********":З#м2.╙
╓Ю:З"PRINTING MONTH "M:А K│1 е X.Ў
█Е  Й( О(C$(K),2))│M з Бж 10600.■
рЛ K/.
хЗ#м2:З#м2,  б(22," ");:З#м2, ═ "#####.##";T/K
ъЗ#м2:З#м2:Бж 10700:Бе 30/М
ЇЮ:З"LIST CHECKS BY ACCOUNT":З"YEAR, MONTH OR RETURN (Y/M/R)"/ж
∙CH$│ Т:Е CH$│"" з 505/╙
■Е CH$│"Y" з 515 :Д Е CH$│"M" з 570 :Д 30/¤З"ENTIRE YEAR":Й "WHICH ACCOUNT?";CA$0
Ю:А K│1 е X01
Е  Р(C$(K),21,2)│CA$ з Бж 102000GЕ R▓10 з Бж 103000OЛ K0xЗ@336,"TOTAL";:З@342, ═ "#####.##";T0Ъ!З"PRINT THIS? (Y/N)":Бж 104000в$T│00╥&З#м2:З#м2, "ALL CHECKS TO ACCOUNT "CA$:З#м20р+А K│1 е X10Е  Р(C$(K),21,2)│CA$ з Бж 1060013Л K1G5З#м2:З#м2,  б(22," ");:З#м2, ═ "#####.##";T:З#м2:Бе 301w:Й "WHICH MONTH (1-12)";M:Е M┤1 ▒ M▓12 з 5701Т?Й "WHICH ACCOUNT ";CA$1вDЮ:А K│1 е X1┌IЕ  Й( О(C$(K),2))│M ░  Р(C$(K),21,2)│CA$ з Бж 102001ЁNЕ R▓10 з Бж 103001°SЛ K2#XБж 10800:З"PRINT THIS? (Y/N)":Бж 104002]]З#м2:З#м2, "CHECKS TO ACCOUNT "CA$ " IN MONTH "M:З#м22kbА K│1 е X2гgЕ  Й( О(C$(K),2))│M ░  Р(C$(K),21,2)│CA$ з Бж 106002йlЛ2╢vБе 110002я╝Ю:З"LIST BY PAYEE":З"MONTH, YEAR, OR RETURN (M/Y/R)"3	┴CH$│ Т:Е CH$│"" з 70536╞Е CH$│"M" з 720 :Д Е CH$│"Y" з 800 :Д 303f╨Й "WHICH MONTH (1-12)";M:Е M┤1 ▒ M▓12 з 7203~╒Й "WHICH PAYEE";CA$3О┌Ю:А K│1 е X3═▀Е  Й( О(C$(K),2))│M ░  Р(C$(K),12,  З(CA$))│CA$ з Бж 102003уфЕ R▓10 з Бж 103003ыюЛ K4єБж 10800:З"PRINT THIS? (Y/N)":Бж 104004ЎT│04U°З#м2:З#м2, "CHECKS PAID TO "CA$ " IN MONTH "M:З#м24c¤А K│1 е X4бЕ  Й( О(C$(K),2))│M ░  Р(C$(K),12, З(CA$))│CA$ з Бж 106004йЛ K4╢Бж 110004╘ Й "PAYEE";CA$:Ю:А K│1 е X4■%Е  Р(C$(K),12, З(CA$))│CA$ з Бж 102005*Е R▓10 з Бж 103005/Л K5G>Бж 10800:З"PRINT THIS? (Y/N)":Бж 104005OAT│05|CЗ#м2:З#м2, "ALL CHECKS PAID TO "CA$:З#м25КHА K│1 е X5┤MЕ  Р(C$(K),12, З(CA$))│CA$ з Бж 106005╝RЛ K5╔WБж 110005чДЮ:З"YEAR TO DATE SUMMARY"6ИFD│0:MD│0:CC│0:CR│0:UT│0:PH│0:MG│0:IS│0:MI│0:CS│06AЙА K│1 е X:AM│ Й( Р(C$(K),23,8))6WОZ$│ Р(C$(K),21,2)6pШЕ Z$│"FD" з FD│FDлAM6ЙЭЕ Z$│"MD" з MD│MDлAM6ввЕ Z$│"CC" з CC│CCлAM6╗зЕ Z$│"CR" з CR│CRлAM6╘мЕ Z$│"CS" з CS│CSлAM6э▒Е Z$│"UT" з UT│UTлAM7╢Е Z$│"PH" з PH│PHлAM7└Е Z$│"IS" з IS│ISлAM78┼Е Z$│"MG" з MG│MGлAM7Q╩Е Z$│"MI" з MI│MIлAM7Y▐Л K7}шЗ"FOOD      ";:З═"##,###.##";FD7бЄЗ"MEDICAL   ";:З═"##,###.##";MD7┼№З"CHILD CARE";:З═"##,###.##";CC7щЗ"CREDIT CD.";:З═"##,###.##";CR8
З"UTILITIES ";:З═ у$
:ГRAINBOW ON TAPE MONTHLY MENU7╚3,1:╝:┐0,1:Ю0кRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"ч(┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25 2╞"S4BM116,126C3L50"<├(100,124),3,3NFАI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛIdP╞"BM20,132C2R161"vZ├(75,130),2,2Цd┬(256,130),257,4,.45,.5,.25╢n┬(256,138),226,4,.56,.5,.25╩x╞"BM0,128C4R45"▄В├(15,126),4,4°М╗(0,126)м(256,147),╛,BFЦ╗(0,0)м(256,192),╛,B*а╗(0,0)м(256,22),╛,BFiк╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D"Е┤┬(176,90),8:┬(220,90),8│╛╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜┼╚├(176,70),3,3╥┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л▄╞"S12BM19,177C3"лRB$\ц╚3,1:┐1,1:АI│1е300:Л:┐1,0:АI│1е300:Л:┐1,1:А I│1 е 500:ЛIbЁЮВ·З"       RAINBOW  ON  TAPE"в
З"       (C) FALSOFT, 1983"и
Зэ
З "   YOU CAN LOAD THESE PROGRAMS       FROM OUR FEBRUARY ISSUE"є
"З
,З "  (XX)=PAGE NUMBER OF LISTING"
6ЗB
@З " (99) AD-DICT"," (64) AHHA"f
JЗ"(136) ACCOUNT"," (58) DATING"М
TЗ" (40) HANGMAN"," (14) HOMONYMS"▓
^З" (18) INCOMTAX","(204) MARQUEE"╓
hЗ"(110) PREFIX","(207) PRNTCHG"▄
rЗ
|З"   PRESS ANY KEY TO CONTINUE"
ЖЕ  Т│""з390
РЮ=
ЪЗ "  (XX)= PAGE NUMBER OF LISTING"C
дЗl
оЗ " (96) TAPECAT *"," (96) TAPECATB"Р
╕З" (49) THE-WORD","(132) VROOM"╖
┬З" (34) OUTPOST5","(160) PLUGNPOW"▄
╠З"(190) BANNER +","(190) SIGN +" 
╓З"(102) FRACTION","(148) TAX-HIST" 	
ъЗ  
ЇЗ "  +=JANUARY 83" D
■З"  *=MACHINE LANGUAGE PROGRAM" JЗ НЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU" ▓З "  PRESS (BREAK) TO EXIT MENU" ╬&Е  Т│"" з 550 :Д Бе 240 ▐0З б(32,45);02) FRACTION","(148) TAX-H                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 %Ё&-:ГAHHA**ANOTHER HAUNTED HOUSE ADVENTURE&?
:ГGEOFF WELLS&W:Г21-12 EAST AVE N.&n:ГHAMILTON-ONTARIO&Г:ГCANADA-L8L 5H2&Ш:Г(416) 529-1319&к:ГSPRING 1982&┤Х1000'
МMC$(3,6),IN$(4),FW$(40),SW$(39),FC$(40),SC$(39),OL(14,1),OD$(14),OK$(14)'АNF│1е4:IN$(NF)│"*":ЛNF'7АNF│1е60:НDUMMY$:ЛNF'Y(АNF│1е40:НFW$(NF),FC$(NF):ЛNF'{2АNF│1е39:НSW$(NF),SC$(NF):ЛNF'Ь<АX│1е3:АY│1е6:НMC$(X,Y):ЛY,X'╨FАNF│1е14:НOL(NF,0),OL(NF,1),OD$(NF),OK$(NF):ЛNF'▄ZX│1:Y│6(]dБж4000:D$│ Р(MC$(X,Y),1,6):L1│ Й( Р(MC$(X,Y),7,2)):L2│ Й( Р(MC$(X,Y),9,2)):L3│ Й( Р(MC$(X,Y),11,2)):L4│ Й( Р(MC$(X,Y),13,2))(inП:L$│""(ЩxАNF│1е4:НDUMMY$:ЕL1│NF зL$│DUMMY$:ЛNF :ДЛNF(═ВАNF│1е15:НDUMMY$:ЕL2│NF зL$│L$лDUMMY$:ЛNF :ДЛNF)
МАNF│1е18:НDUMMY$:ЕL3│NF зL$│L$лDUMMY$:ЛNF :ДЛNF)5ЦАNF│1е23:НDUMMY$:ЕL4│NF зL$│L$лDUMMY$:ЛNF :ДЛNF)ЯаOB$│"":АNF│1е14:ЕOL(NF,0)│X ░OL(NF,1)│Y зOB$│OB$л"-"лOD$(NF):ЛNF :ДЛNF:ЕOB$│""зOB$│" NOTHING SPECIAL")╝кЮ:P$│"YOU ARE "лL$:Бж500)╒┤P$│"I SEE"лOB$:Бж500)Є╛З"POSSIBLE DIRECTIONS  "*┐Е Р(D$,1,1)│"N"зЗ"NORTH ";*0└Е Р(D$,2,1)│"S"зЗ"SOUTH ";*N┴Е Р(D$,3,1)│"E"зЗ"EAST ";*l┬Е Р(D$,4,1)│"W"зЗ"WEST ";*И├Е Р(D$,5,1)│"U"зЗ"UP ";*ж─Е Р(D$,6,1)│"D"зЗ"DOWN ";*╣┼З:З б(32,"*");*▌╚G│ Д(10):ЕX│1░Y│4▒X│2░Y│1зG│Gл4+╔ЕG▓9зЗ"THE MISERS GHOST IS HERE"+╩Й"WHAT NOW BOSS";C$+─╥ЕC$│"N"з601:ДЕC$│"S"з602:ДЕC$│"E"з603:ДЕC$│"W"з604:ДЕC$│"U"з605:ДЕC$│"D"з606:ДЕC$│"LOOK"з160:ДЕC$│"HELP"з650:ДЕC$│"SAVE"з700:ДЕC$│"LOAD"з800:ДЕ О(C$,2)│"GO"зC$│"*GO"+ю╙Е О(C$,3)│"INV"з611:ДЕC$│"SCORE"з3600,╘ЕG▓9зЗ"THE GHOST CLAIMS ANOTHER VICTIM":К,^▄S│0:SP│0:АNF│1е З(C$):Е Р(C$,NF,1)│" "зS│NF:SP│SPл1:ЛNF :ДЛNF,ЖцЕS│0зЗ"          ---WHAT?---":Бе200,пЁЕSP▓1зЗ"ONLY TWO WORDS PLEASE":Бе200,ъ·LC$│ О(C$,Sм1):RC$│ П(C$, З(C$)мS):ЕRC$│"UP"зRC$│"*UP"-.
FC$(0)│"*":АNF│1е40:Е О(LC$,3)│FW$(NF)зFC$(0)│FC$(NF):ЛNF :ДЛNF-b
ЕFC$(0)│"*"зЗ"I DON'T RECOGNIZE THE VERB":Бе200-ж
SC$(0)│"*":АNF│1е39:Е О(RC$,3)│SW$(NF)зSC$(0)│SC$(NF):ЛNF :ДЛNF-ц
,ЕSC$(0)│"*"зP$│"I DON'T KNOW WHAT A "лRC$л" IS":Бж500:Бе200.&
6M│0:АNF│1е З(SC$(0)):Е Р(SC$(0),NF,1)│FC$(0)зM│99:ЛNF :ДЛNF.c
@ЕM│0зP$│"I DON'T KNOW HOW TO "лLC$л" A "лRC$:Бж500:Бе200.∙
JИ К(FC$(0))м64Бж1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300,3400,3500/
TЕ                                                                                                                                                                                                                                                                          ──├┼├├╞┴├┼┬╟"#$%┬├()╞╚,-─/╚1┼╞4├678├           TIONBAS5!DIRSAV  BAS
▓TAPECATBBAS
ЎAD-DICT BASlDDDICT BAS9l                                FEBMENU BAS цAHHA    BAS!єACCOUNT BAS┐DATING  BAS&фHANGMAN BAS'лHOMONYMSBASeINCOMTAXBASGMARQUEE BAS*KPREFIX  BAS+№PRNTCHG BAS╕TAPECAT BINжTAX-HISTBAS.JTHE-WORDBAS"VROOM   BAS0dOUTPOST5BASЪPLUGNPOWBAS2|BANNER  BAS3SIGN    BASFRACTIONBAS5!DIRSAV  BAS
▓TAPECATBBAS
ЎAD-DICT BASlDDDICT BAS9l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                R│1зR│0:Бе100:Д200/]
ЇЕ З(P$)▓32зP1$│ О(P$,32):P2$│ П(P$, З(P$)м32):ДЕ З(P$)│32зЗP$;:Р:ДЗP$:Р/Щ
■Е О(P2$,1)│" "зP2$│ П(P2$, З(P2$)м1):ЗP1$;:P$│P2$:Бе500/ьЕ П(P1$,1)│" "░ З(P1$)│32зЗP1$;:P$│P2$:Бе500:ДЕ П(P1$,1)│" "зЗP1$:P$│P2$:Бе5000P2$│ П(P1$,1)лP2$:P1$│ О(P1$, З(P1$)м1):Бе5200CYЕ Р(D$,1,1)│"N"зY│Yм1:Бе100:Д6070hZЕ Р(D$,2,1)│"S"зY│Yл1:Бе100:Д6070Н[Е Р(D$,3,1)│"E"зX│Xл1:Бе100:Д6070▓\Е Р(D$,4,1)│"W"зX│Xм1:Бе100:Д6070╫]Е Р(D$,5,1)│"U"зY│Yм3:Бе100:Д6070ў^Е Р(D$,6,1)│"D"зY│Yл3:Бе1001_З"YOU CAN'T GO THAT WAY":Бе2001ЕcIN$(0)│"":АNF│1е4:ЕIN$(NF)┤▓"*"зАI│1е14:ЕIN$(NF)│OK$(I)зIN$(0)│IN$(0)л"-"лOD$(I):ЛI:ЛNF :ДЛI:ЛNF :ДЛNF1▌dЕIN$(0)│""зIN$(0)│"YOU ARE NOT CARRYING ANYTHING":ДIN$(0)│"YOU ARE CARRYING"лIN$(0)1ёeP$│IN$(0):Бж5001√fБе2002nКЕX│2░Y│1зP$│"WHAT WAS WRITTEN IN THE BEGINNING MAY BE OF SOME HELP HERE" :ДP$│"I CAN BE OF NO ASSISTANCE HERE"2~ЛБж500:Бе2002й╝Ю:Й"READY TAPE<PLAY & RECORD>ENTER";E$34╞Щ"O",м1,"GAPADFIL":З#м1,X,Y,SC,F:АNF│1е4:З#м1,IN$(NF):ЛNF:АZ│1е3:АW│1е6:З#м1,MC$(Z,W):ЛW,Z:АNF│1е14:З#м1,OL(NF,0),OL(NF,1):ЛNF:Ъ:Бе1003V Ю:Й"READY TAPE<PLAY>ENTER";E$3с*Щ"I",м1,"GAPADFIL":Й#м1,X,Y,SC,Y:АNF│1е4:Й#м1,IN$(NF):ЛNF:АZ│1е3:АW│1е6:Й#м1,MC$(Z,W):ЛW,Z:АNF│1е14:Й#м1,OL(NF,0),OL(NF,1):ЛNF:Ъ:Бе10042шIN$(0)│"":АNF│1е4:ЕIN$(NF)│RC$ зIN$(0)│"YOU ALREADY HAVE THE "лRC$:ЛNF :ДЛNF4GщЕIN$(0)┤▓""з10504гэЕRC$│"BOOK"зP$│"IT CRUMBLES TO DUST AS YOU TOUCH IT":Бж500:OL(3,0)│м1:OL(3,1)│м1:B│м1:Р4╘ЄАNF│1е4:ЕIN$(NF)│"*"зIN$(0)│ И(NF):ЛNF :ДЛNF5№ЕIN$(0)│""зIN$(0)│"YOU CAN'T CARRY ANY MORE":Бе10505ВАNF│1е14:ЕRC$│OK$(NF)░OL(NF,0)│X ░OL(NF,1)│Y зIN$( Й(IN$(0)))│OK$(NF):OL(NF,0)│м1:OL(NF,1)│м1:IN$(0)│"":ЛNF :ДЛNF5нЕRC$│"CHEST"зMC$(2,1)│"******01111223"5▌ЕIN$(0)│""зR│1:ДIN$(0)│"I DON'T SEE A "лRC$5ыЗIN$(0):Р6gLIN$(0)│"":АNF│1е4:ЕIN$(NF)│RC$ зIN$(0)│"*":IN$(NF)│"*":АCK│1е14:ЕOK$(CK)│RC$ зOL(CK,0)│X:OL(CK,1)│Y:ЛCK :ДЛCK:ЛNF :ДЛNF6ЫVЕIN$(0)│""зЗ"YOU ARE NOT CARRING THAT":Р:ДR│1:Р7Z░ЕX│2░Y│2░RC$│"WALL"зЮ:З@40,"THIS ADVENTURE":З@106,"WRITTEN BY":З@169,"GEOFF WELLS":З@229,"21-12 EAST AVE NORTH":З@295,"HAMILTON ONTARIO":З@360,"CANADA L8L 5H2":З@424,"(416) 529-1319":З:Р7и▒ЕX│3░Y│2░RC$│"BUTTON"зЗ"IT SAYS **WARNING** DO NOT TOUCHTHIS BUTTON!!!":Р7╠║З"I DON'T HAVE MY GLASSES ON":Р7ЇЗ"USE N S E W U D FOR DIRECTIONS":Р8xБе3700::ГOPEN8▄Бе3700::ГCLOSE86@Бе3700::ГHIT ATTACK KILL8HдБе3700::ГLOCK8\Бе3700::ГUNLOCK8▓lЕRC$│"DRESSER"з1910:ДЕRC$│"BAG"з1920:ДЕRC$│"CHAIR"з1930:ДЕRC$│"BUTTON"з1940:Д37008рvЕX│1░Y│2з1911:ДЗ"I DON'T SEE A DRESSER":Р9w Р(MC$(1,2),1,1)│"N": Р(MC$(1,2),13,2)│"03":R│1:Р9HАЕX│1░Y│1з1921:ДЗ"I DON'T SEE ANY BAGS HERE":Р9АБ Р(MC$(1,1),3,1)│"E": Р(MC$(1,1),11,4)│"1822":R│1:Р9╢КЕX│3░Y│6з1931:ДЗ"I'D BE GLAD TO IF IT WAS HERE":Р9эЛ Р(MC$(3,6),11,2)│"17":OL(14,0)│3:OL(14,1)│6:R│1:Р:ФЕX│3░Y│2зЦ:ДЗ"WHAT BUTTON":Р:!╨Бе3700::ГCLIMB:34Бе3700::ГPLAY:ЕШЕX│2░Y│1░RC$│"AHHA"з2201:ДP$│"OK '"лRC$л"' ---NOTHING HAPPENED":Бж500:Р::ГSAY:йЩR│1:MC$(2,1)│"***W**01111215":Р:┌№ЕX│1░Y│5з2301:ДЗ"I CAN'T SEE IT FROM HERE":Р;M¤ЕB│0зP$│"IT SAYS--'KNOWLEDGE OF ESCAPE IS A WEIGHTY SECRET'":Бж500:Р:ДP$│"ALL I SEE IS A PILE OF DUST":Бж500:Р;^	`Бе3700::ГRUB;Ш	─ЕX│2░Y│5з Р(MC$(2,5),1,1)│"N":R│1:ДЗ"YOURS OR MINE":Р;┌	┼ЕF│0з Р(MC$(2,5),13,2)│"10":Р:ДЕF│м1з Р(MC$(2,5),13,2)│"11":Р;э
(Бе3700::ГTOUCH;■
МБе3700::ГASK<
ЁБе3700::ГJUMP<"TБе3700::ГSWIM<4╕Бе3700::ГKICK<GБе3700::ГSMASH<lАЕX│1░Y│2з3201:ДЗ"WHAT MIRROR?":Р<▒БM│0:АNF│1е4:ЕIN$(NF)│"TOWEL"зM│99:ЛNF :ДЛNF:ЕM│0зЗ"WITH WHAT?":Р<чВ Р(MC$(1,2),2,1)│"S": Р(MC$(1,2),11,2)│"03":R│1:Р=фЕX│1░Y│4з3301:ДЕX│3░Y│4з3304:ДЗ"ON WHAT":Р=SхIN$(0)│"":АNF│1е4:ЕIN$(NF)│"PRYBAR"зIN$(0)│"*":ЛNF :ДЛNF=zцЕIN$(0)│""зЗ"YOU DON'T HAVE ONE":Р=шчP$│"YOU HAVE DISCOVERED THE ROTTING CORPSE OF THE OLD MISER. THE SHOCK HAS SCARED YOU TO DEATH!!":Бж500:К>/шIN$(0)│"":АNF│1е4:ЕIN$(NF)│"FUSE"зIN$(0)│"*":IN$(NF)│"*":ЛNF :ДЛNF>WщF│м1: Р(MC$(2,5),13,2)│"11":З"OK":Р>Ф
HIN$(0)│"":АNF│1е4:ЕIN$(NF)│"CHEESE"зIN$(0)│"*":ЛNF :ДЛNF>┬
IЕIN$(0)│""зЗ"YOU DON'T HAVE ANY CHEESE":Р>█
JЗ"IT WAS POISONED":К>ю
мБе3700::ГDRINK?GЕX│1░Y│6░SC│100зЗ"CONGRATULATIONS-YOU HAVE WON":К:ДЗ"YOUR PRESENT SCORE IS";SC:Бе200?ltЗ"I AM NOT PROGRAMED FOR THAT":Р?ФаЕX│1░Y│3з4001:ДЕX│2░Y│4░F│0з4002:ДР@бM│0:АNF│1е4:ЕIN$(NF)│"CHEST"зM│99:ЛNF :ДЛNF:ЕM│0зР:ДY│6:SC│100:З"THE FLOOR GIVES WAY-YOU ARE":АNF│1е14:З"FALLING!!!!":ЛNF:Р@BвЗ"YOU HAVE FALLEN AND BROKEN YOUR NECK":К@f'Ж IN A ,ON THE ,AT THE ,IN THE A]'Ж LARGE CLOSET. THERE IS A COBWEB IN THE CORNER ,SMALL BEDROOM. THERE IS A ,SMALL ,BRIGHT & SUNNY CONSERVATORY ,FRONT PORCH OF A ,BOTTOM ,PANELED HALLWAY ,LARGE DAMP BASEMENT. ,UPPER LANDING ,LONG ,DUSTY ,SMALL STUFFY CLOSET ,MASTER BEDROOM. A╖'Ж LARGE AIRY KITCHEN ,LARGE LIVING ROOM. THERE IS A PORTRAIT HANGING ON THE WALL AND Bн'$Ж WITH A ,VERY DUSTY MIRROR ON ONE WALL ,LARGE DARK OPENING WHERE THE MIRROR USED TO BE ,SECRET ROOM.,STUFFY ,SINISTER ,OF A ,FOOTPRINTS IN THE DUST LEAD TO ,THERE IS A WINE RACK ON THE FAR WALL AND ,OF THE RICKERTY ,NARROW CORRIDOR. ,DINGY C$'%Ж A HUGE FOUR-POSTER BED ,BATHROOM. ,NARROW DINING ROOM. ,A CHAIR ,AN OVERTURNED CHAIR ,AND A PASSAGE TO THE EAST D'.Ж HUGE SPIDER SITTING IN THE CENTRE.,AND AN UGLY DRESSER OPPOSITE.,AND A DRESSER BESIDE AN OPEN CLOSET.,THE FLOOR CREAKS LOUDLY AS YOU WALK ACROSS IT.,FLAGSTONE FLOOR.,LIBRARY.,OLD MANSION.,WINDING STAIRCASE.,THE NORTH.Dш'/Ж A DARK HOLE IN THE NORTH WALL.,A LIGHTED PASSAGE RUNNING NORTH.,A PILE OF BONES NEAR THE ENTRANCE.,OLD STAIRS.,YOU FEEL CLOSE TO SOMETHING IMPORTANT.,ATTIC FULL OF OLD BOXES.,SINGLE SHELF AT EYE LEVEL.,DOMINATES THE ROOM.E╖'0Ж THERE ARE RED STAINS IN THE TUB.,TABLE IN THE CORNER AND A FUSE BOX ON THE WALL.,THERE ARE SIX CHAIRS AT THE TABLE. SKELETONS ARE SEATED AT FIVE OF THEM.,IN FRONT OF THE FIREPLACE.,HIDDEN IN THE REAR.F!'1Ж ATTIC FULL OF OLD BOXES. THE EXIT HAS SUDDENLY CLOSED. YOU ARE TRAPPED. WHAT DO YOU SAY ABOUT THAT.GN Ж GET,A,TAK,A,DRO,B,PUT,B,LOO,C,EXA,C,RUN,D,WAL,D,*GO,D,OPE,E,CLO,F,HIT,G,ATT,G,KIL,G,LOC,H,UNL,I,MOV,J,LIF,J,TIL,J,TWI,J,PUS,J,PUL,J,SHO,J,CLI,K,PLA,L,SAY,M,REA,N,RUB,O,TUR,P,TOU,Q,ASK,R,JUM,S,SWI,T,KIC,U,SMA,V,WIP,W,TRY,X,USE,X,EAT,Y,DRI,ZHu0Ж CLO,C,COB,CQ,SPI,CGQ,MIR,CJQW,DRE,CJQ,FLO,CQ,PED,CJQV,BOO,ACEJNQ,MON,CQ,AHH,M,WAL,CNQ,STA,CK,BON,CJQSU,WIN,CQVZ,RAC,CJKQV,CHA,CQV,FLA,CJU,BAG,CEJQ,HEA,CJPQ,PRY,ABCJQUWX,CHE,ABCEFJQV,CHA,CJQV,POR,CJQV,KEY,ABCJQUX,SKE,CGJQUV,TAB,CJOQUVWH}u1Ж BUT,CJOQ,SHE,CQV,BED,CJQUV,CHE,ABCEFHIJQUVY,FUS,ABCJNQX,TOW,ABCQ,KNI,ABCJQ,NOR,D,SOU,D,EAS,D,WES,D,*UP,D,DOW,DH▌Ь@Ж *S****01010101,**E***01020202,N*****01030404,******01040105,N*E***01030506,**E***02050607I=ЬAЖ ***W**01111215,*SEW**01101114,N*E**D02091013,*S****01080912,*SEW**01070809,N***U*03060708IЭЬBЖ *S****01120116,NS*W**04131317,N**W**01031418,*S****01140119,NS*W**01101520,N*****01151621J;├PЖ 1,1,A BLACK GARMENT BAG HANGING IN THE BACK,BAG,1,4,A LOOSE FLAGSTONE IN THE CORNER,FLAGSTONE,1,5,A PEDESTAL WITH A TATTERED BOOK LYING OPEN ON IT,BOOKK├QЖ 2,1,A HEAVY SEA CHEST STUFFED FULL OF MONEY,CHEST,2,2,SOMETHING SCRALLED ON THE NORTH WALL,WALL,2,4,A RUSTY PRYBAR,PRYBAR,2,5,A MANGY MOOSE HEAD ON THE NORTH WALL,HEAD,2,6,A FABULOUS CRYSTAL CHANDELIER,CHANDELIERKы├RЖ 3,1,A SHINY NEW FUSE,FUSE,3,2,A BIG RED BUTTON BESIDE THE BED,BUTTON,3,3,A TATTERED SCRAP OF TOWEL,TOWEL,3,4,A BLOODSTAINED KNIFE,KNIFE,3,5,A LARGE WEDGE OF CHEDDAR CHEESE,CHEESE,-1,-1,A SMALL BRASS KEY,KEYBULOUS CRYSTA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 с&"
:Г  *** AUTOMATIC DATING ***&>:Г       BY:  JORGE MIR&Z       DATE$│"10/21/82"&c:Г  &pБж 10000&У:Г****************************&┤:Г STEPS 10 THROUGH 9999 ARE&╒:Г RESERVED FOR YOUR PROGRAM&°	:Г****************************&■'К''A│ Ж(27)н256л Ж(28)'4'B│ Ж(&H200)н256л Ж(&H201)'B'$Е A│B з Р'b'.Т&H200, Ж(27):Т&H201, Ж(28)'t'3Е B┤&H600 з Р'Д'8X│ Э(DATE$)'г'BЮ:З@168,"LATEST REVISION:"'┤'LЗ д11) DATE$'▀'VЗ@481,"(PRESS <ENTER> FOR NO CHANGE)";'√'`З@264,"ENTER NEW DATE:"('jЗ д11)"";:╗ Й D$:Е D$│""з Р(>'tЕ  З(D$)┤8 з D$│D$л" ":Бе10100(U'~Е  З(D$)│8 з 10140(n'ИЗ:З д11)"TRY AGAIN!"(Х'Та200,1:А D│1е500:ЛD:а200,1:Бе10050(п'ЬY│ Ж(Xл2)н256л Ж(Xл3)(╓'жА X│1е8:Т Y, К( Р(D$,X,1)):Y│Yл1:Л(▄'░Р`З@264,"ENTER NEW DATE:"('                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 и&#
:Г                          '&E:Г       HANGMAN            '&g:Г                          '&Й(:Г DOUG L'HOMMEDIEU    5/82 '&л2:Г                          '&╠<М WRD$(10),GWRD$(10),BAD$(9)&╪FWRITE│0&▐PЮ&ЎZЗ @ 11,"HANGMAN": З'-dЗ "1 - ONE PLAYER(COMPUTER PICKS       THE WORDS)"'QnЗ "2 - TWO PLAYERS(TAKE TURNS)"'lxЗ @ 160, "TYPE 1 OR 2"'ХВP$│ Т: CPICK│ Д(122): Е P$│"" Бе 130'еМPLRS│ Й(P$)'╟ЦЕ PLRS ┤▓1 ░ PLRS ┤▓ 2 Бе 120'▌аЕ PLRS │ 2 Бе 230(кЗ "COMPUTER WILL RANDOMLY PICK A"(*┤З "WORD HAVING FROM 2 TO 10 LTRS."(K╛З "YOU MUST GUESS THE WORD."(s╚З "YOU CAN HAVE NINE WRONG GUESSES"(Т╥З "BEFORE YOU ARE HUNG!!!"(Э▄Бе 320(╢цЮ: З @11,"HANGMAN":З(┌ЁЗ "PLAYER #1 INPUTS A WORD - A")
·З "LETTER AT A TIME(2 TO 10 LTRS)")&
З "AFTER THE LAST LETTER SIMPLY")?
З "PRESS <ENTER>.":З)c
З"PLAYER #2 TAKES OVER AT THAT")Й
"З"TIME TO GUESS THE WORD. PLAYER")п
,З"#2 CAN HAVE NINE WRONG GUESSES")╠
6З"BEFORE HE IS HUNG !!!")є
@З"-------------------------------"*
JЗ "1 - EASIER(DUP. LETTERS APPEAR)"*D
TЗ "2 - HARDER(MUST GUESS EVERY LTR)"*_
^З @ 448, "TYPE 1 OR 2"*x
hE$│ Т: Е E$│"" Бе360*И
rEASY│ Й(E$)*й
|Е EASY ┤▓1 ░ EASY ┤▓ 2 з 350*╪
ЖЗ @ 352, "*******************************"+
РЗ @ 384, "1 - HELP REMEMBERING WRONG LTRS"+.
ЪЗ @ 416, "2 - NO HELP REMEMBERING"+I
дЗ @ 448, "TYPE 1 OR 2"+b
оH$│ Т: Е H$│"" Бе430+r
╕HELP│ Й(H$)+Х
┬Е HELP ┤▓ 1 ░ HELP ┤▓ 2 Бе 420+Ы
╠Ю+╬
╓А I│1 е 10: WRD$(I)│" ": GWRD$(I)│ Л(128): Л I+т
рЕ PLRS│2 Бе 640,
ъВ ***COMPUTER PICKS WORD***,
ЇЗ @ 172, "COMPUTER",4
■З @ 203, "IS PICKING",LЗ @ 236, "THE WORD",`CPICK │  Д(122),rА I│1 е CPICK,&Н CWORD$,З0Л I,Н:П,аDKNT│ З(CWORD$),▓NА I │ 1 е KNT,╧XWRD$(I) │  Р(CWORD$,I,1),╫bЛ I,тlБе 850-vВ ***PLAYER #1 PICKS WORD***-BАЗ @ 6, "INPUT THE WORD, ONE              LETTER AT A TIME"-hКЗ "    TYPE <ENTER> WHEN DONE": З-vФА I│1е 10-ПЮЗ "LETTER #";I;"- ";-┤иWRD$(I)│ Т:Е WRD$(I)│"" з Бе 680-╒▓Е I│1 ░ WRD$(I)│ Л(13) Бе740-Ў╝Е I│2 ░ WRD$(I)│ Л(13) Бе740.╞А K│65 е 90.2╨Е WRD$(I)│ Л(K) ▒ WRD$(I)│ Л(13) Бе 750.:┌Л K.WфЗ "LETTERS ONLY": Бе 670.eюЗ WRD$(I).Б°Е WRD$(I)│ Л(13) Бе 780.ЙЛ I.ХKNT│Iм1.пЗ:З"THE WORD IS  - ";.╬ А I│1 е KNT:З WRD$(I);:Л I.ї*З: З"             - RIGHT ? (Y/N)"/4YN$│ Т: Е YN$│"" Бе820/%>Е YN$│"N" Бе 460/;HЕ YN$┤▓"Y" Бе 800/ARЮ/e\А I│1 е 9: BAD$(I)│ Л(128): Л I/yfЗ @ 7,"HANGMAN"/ПpА I│35 е 387 й 32/йzЗ @ I,  б(16, Л(128))/▒ДЛ I/╩ОЗ@ 449, Л(128);"  ";/юША I│2 е KNT:З  Л(128);"  ";:Л I/√вЗ:MISS│00мВ ***MAIN LOOP***0>╢Е HELP│2 Бе1040   :ГNO HELP REMEMBERING'0I└INDX│00\╩BAD$(MISS)│GS$0s╘З @ 214, "-WRONG-"0Ж▐А I│0е128 й 640ЪшА K│278е284 й 30кЄINDX│INDXл10─№З @ (KлI), BAD$(INDX)0╤Л K: Л I0юЗ @ 480,"GUESS LETTER-";1
GS$│ Т:Е GS$│"" Бе 10501$А N│1 е KNT15.Е WRD$(N)┤▓GS$ Бе 11801B8А IS│1е31eBА IK│227е245 й 9: а IK,1: Л IK1nLЛ IS1ОVЕ GWRD$(N)┤▓ Л(128) Бе 11801г`GWRD$(N)│WRD$(N)1│jА K│1 е KNT1┘tЗ @(449л((Kм1)н3)),═"%%";GWRD$(K)1с~Л K1эИWRITE│12ТЕ EASY│2 Бе 1200  :ГNOT THE EASY WAY'2ЬЛ N2:жВ ***END MAIN LOOP ***2Q░Е WRITE│0 з Бе13202]║WRITE│02m─А I│1 е KNT2М╬Е GWRD$(I)│ Л(128) Бе 10402Ф╪Л I2▓т╔"O4L8CEGL4O5CO4L8GL4O5C"2▄ьЗ @416,"YOU WIN. PLAY AGAIN? (Y/N/C)"2°ЎYN$│ Т: Е YN$│"" Бе12703
Е YN$│"Y" Бе 4603 
Е YN$│"C" Бе8037Е YN$┤▓"N" Бе 12703=К3M(MISS│MISSл13j2А I│50е2 й м8: а I,1:Л I3е<И MISS Бе 1360,1390,1520,1570,1610,1670,1710,1750,18103╡FЗ "ERROR":К3─PВ **BASE**3№ZЗ @ 388, Л(223); б(5, Л(220)); Л(223); б(8, Л(128))4dБе 9404nВ **UPRIGHT**4=xЗ @ 359, Л(175);  б(11, Л(128))4`ВЗ @ 327, Л(175); б(11, Л(128))4ДМЗ @ 295, Л(175);  б(11, Л(128))4иЦЗ @ 263, Л(175);  б(11, Л(128))4╠аЗ @ 231, Л(175);  б(11, Л(128))4ЁкЗ @ 199, Л(175);  б(11, Л(128))5┤З @ 167, Л(175);  б(11, Л(128))57╛З @ 135, Л(175); б(11, Л(128))5[╚З @ 103, Л(175);  б(11, Л(128))5}╥З @ 71, Л(175); б(11, Л(128))5Я▄З @ 39, Л(175); б(11, Л(128))5кцБе 9405╛ЁВ **TOP/NOOSE**5╫·З @ 40, б(6, Л(172))5°З @ 46, Л(175); б(4, Л(128))6З @ 78, Л(175); б(4, Л(128))6$Бе 94065"В ** HEAD **6f,З@ 109, Л(150); Л(156); Л(153); б(3, Л(128))6Ш6З @ 141, Л(153); Л(147); Л(150); б(3, Л(128))6г@Бе 9406▓JВ **BODY**6╘TЗ @ 174, Л(191); б(4, Л(128))6Ў^З @ 206, Л(191); б(4, Л(128))7hЗ @ 238, Л(191); б(4, Л(128))7:rЗ @ 270, Л(175); б(4, Л(128))7E|Бе 9407XЖВ **LEFT LEG**7zРЗ @ 301, Л(166); б(5, Л(128))7ЬЪЗ @ 332, Л(150); б(6, Л(128))7здБе 9407╗оВ **RIGHT LEG**7▌╕З @ 303, Л(169); б(3, Л(128))7 ┬З @ 336, Л(153); б(2, Л(128))8
╠Бе 9408╓В **LEFT ARM**81рЗ @ 204, Л(150)8EъЗ @ 205, Л(188)8YЇЗ @ 206, Л(191)8s■З @ 207, б(4, Л(128))8~Бе 9408ЪВ **RIGHT ARM - HUNG!**8╝З @ 207, Л(188); б(3, Л(128))8▐&З @ 208, Л(153); б(2, Л(128))8є0Е HELP│2 Бе 18709:З @ 212, "-ALL WRONG-"9DЗ @ 412, GS$9;NЗ @ 416,"YOU'RE HUNG!";9KXА K│1 е KNT9tbЗ @ (449л((Kм1)н3)), ═ "%%"; WRD$(K)9|lЛ K9Нv╔"O1L2GFEDC"9▒АЗ @ 428, " PLAY AGAIN? (Y/N/C)"9╬КYN$│ Т: Е YN$│"" Бе 19309уФЕ YN$│"Y" Бе 4609∙ЮЕ YN$ │ "C" Бе 80:иЕ YN$ ┤▓ "N" Бе 1930:▓К:4╝В *** 100 WORD LIST ***:Л╞Ж NOTEBOOK,NEWSPAPER,HORSE,POOL,SWIMMING,COMPUTER,CRAFTSMAN,BOOK,FLOWER,PIANO,SONG:у╨Ж PICTURE,GLASS,STOVE,MICROWAVE,OVEN,TYPEWRITER,CASSETTE,ELEPHANT,POTS,KITCHEN,VASE;`┌Ж CHURCH,SUIT,TENNIS,FOOTBALL,BASEBALL,TELEVISION,TELEPHONE,BIBLE,CHRISTIAN,TENT,GIRAFFE,TOWEL,PAINT,WATCH,SOAP,REINDEER;┌фЖ ELECTRICITY,CHECK,HOLIDAY,SHUTTLE,CHAIR,COOKIE,PANCAKE,WAFFLE,SODA,LIGHT,LION,DOLLAR,GAME,PILLOW,NUMBER,NAME,SCHOOL<OюЖ CANDLE,TABLE,SHAMPOO,DOG,CAT,COW,FARMER,COOK,BARN,DOUGHNUT,BICYCLE,UNIVERSITY,JUNIOR,DOCTOR,DENTIST,SPACE,RAIN<╠°Ж SUNSHINE,DANCE,RAINBOW,FLOUR,DRESSES,CLASSROOM,LOCKER,ROCKER,CLOCK,CAMERA,ZEBRA,ZOO,BEAR,TIGER,MOUSE,FISH,AQUARIUM,MAN=BЖ FISHERMAN,BEACH,PARK,SHELL,LOCK,ROCK,OVERHEAD,HEAD,MACHINE,BUSH,RESTAURANT,MONKEY,TRUCK,STREET,CLOUD,STORE,SHIP=гЖ SAILBOAT,COUCH,BUILDING,COACH,TERMINAL,BOY,GIRL,FRIEND,ENEMY,HAND,FOOT,LEG,ARM,FINGER,SHOEBEAR,TIGER,MOUSE,FISH,AQUARIUM,MAN=BЖ FISHERMAN,BEACH,PARK,SHELL,LOCK,ROCK,OVERHEA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 H&
:ГMARQUIS&%:ГMORTON GOLDBERG&<:Г143 PEARL STREET&]:ГNEWTON,MASSACHUSETTS 02158&fЮ(8)&uА H│0 е 63&ВЬ(H,0,3)&К$Л H&Щ)А V│0 е 31&з.Ь(63,V,3)&п3Л V&┬8А H│63 е 0 йм1&╨=Ь(H,31,3)&╪BЛ H&ыGА V│31 е 0 йм1&°LЬ(0,V,3)'QЛ V'VА H│3 е 60'[Ь(H,2,1)'$`Л H'3eА V│3 е 29'AjЬ(60,V,1)'IoЛ V'\tА H│60 е 3 йм1'jyЬ(H,29,1)'r~Л H'ЕГА V│29 е 3 йм1'ТИЬ(3,V,1)'ЪНЛ V'нТА H│7 е 56 й 2'╕ЧЭ(H,6)'└ЬЛ H'╙бА V│8 е 24 й 2'▀жЭ(57,V)'члЛ V'·░А H│56 е 6 йм2(╡Э(H,26)(║Л H(!┐А V│24 е 7 йм2(,─Э(6,V)(4╔Л V(@╬В ("T")(O╙А H│9 е 13(\╪Э (H,12)(d▌Л H(tтА V│13 е 18(БчЭ (11,V)(ЙьЛ V(ХёВ ("H")(еЎА H│17 е 20(▓√Э (H,15)(║
Л H(╩
А V│12 е 18(╫

Э (16,V)(▀
Л V(я
А V│12 е 18(№
Э (21,V))
Л V)
#В ("E")) 
(А H│25 е 27)-
-Э (H,12))5
2Л H)E
7А H│25 е 27)R
<Э (H,15))Z
AЛ H)j
FА H│25 е 27)w
KЭ (H,18))
PЛ H)П
UА V│12 е 18)Ь
ZЭ (24,V))д
_Л V)░
dВ ("E"))└
iА H│34 е 37)═
nЭ (H,12))╒
sЛ H)х
xА H│34 е 37)Є
}Э (H,15))·
ВЛ H*

ЗА H│34 е 37*
МЭ (H,18)*
СЛ H*/
ЦА V│12 е 18*<
ЫЭ (34,V)*D
аЛ V*P
еВ ("N")*`
кА V│12 е 18*m
пЭ (40,V)*u
┤Л V*Е
╣А V│12 е 18*Т
╛Э (46,V)*Ъ
├Л V*г
╚H│41*░
═Э (H,12)*╣
╥H│41*╞
╫Э (H,13)*╧
▄H│42*▄
сЭ (H,14)*х
цH│43*Є
ыЭ (H,15)*√
ЁH│44+
їЭ (H,16)+
·H│45+
 Э (H,17)+'H│45+4	Э (H,18)+@В ("D")+PА H│49 е 54+]Э (H,12)+eЛ H+u"А H│49 е 54+В'Э (H,18)+К,Л H+Ъ1А V│13 е 17+з6Э (50,V)+п;Л V+┐@А V│13 е 17+╠EЭ (54,V)+╘JЛ V+цOВ (ANIMATION)+∙TА H│5 е 56 й 2,YЬ(2лH,6,8),^Л H,#cА H│5 е 56 й 2,0hЭ(2лH,6),8mЛ H,KrА V│6 е 25 й 2,[wЬ(57,2лV,8),c|Л V,vБА V│6 е 23 й 2,ДЖЭ(57,2лV),МЛЛ V,ЯРА H│56 е 6 йм2,пХЬ(2лH,26,8),╖ЪЛ H,╩ЯА H│54 е 5 йм2,╪дЭ(2лH,26),рйЛ H,єоА V│24 е 6 йм2-│Ь(6,2лV,8)-
╕Л V-╜А V│24 е 6 йм2-*┬Э(6,2лV)-2╟Л V-=╠Бе 596-C╤К2,[wЬ(57,2лV,8),c|Л V,vБА V│6 е 23 й 2,ДЖЭ(57,2лV),МЛЛ V,ЯРА H│56 е 6 йм2,пХЬ(2лH,26,8),╖ЪЛ H,╩ЯА H│54 е 5 йм2,╪дЭ(2лH,26),рйЛ H,єоА V│24 е 6 йм2-│Ь(6,2лV                                                                                                                                                                                                                                                                 ∙&
:Г************&&:Г* HAM RADIO&6:Г*  PREFIX&G:Г* LOCATOR-&X:Г* BY:W4CNZ&j:Г*B.B.WITHAM&y:Г*   3501&М:Г*SEA GULL RD&Э:Г* VIRGINIA&п:Г* BEACH, VA&┐:Г*   23452&╥ :Г*804-3402628&х":Г* ALL RIGHTS&ў$:Г*  RESERVED'
&:Г************'-(Х700:М N$(350),Q$(350),B$(350)'@-:Г* PGM SELECT'В2Ю:З б(32,255):З"      CALL PREFIX LOCATOR":З б(32,255):а180,1(R<C$│"":F$│"":З@130,"CALLSIGN PREFIX OR COUNTRY      (P OR C)?";:АTM│1 е999:Л:З@130,"CALLSIGN PREFIX OR              (p OR  )?";:АTM│1 е500:Л:З@130,"CALLSIGN        OR COUNTRY      (  OR c)?";:АTM│1 е500:Л(gFA$│ Т:ЕA$│"" з60(ХPЕA$│"P" зЗ@193,"INPUT PREFIX:-":ЙC$:Бе110(─ZЕA$│"C" зЗ@193,"INPUT COUNTRY:-":ЙF$:Бе110(чdЕA$┤▓"P" ▒ A$┤▓"C" за10,5:Бе60(∙i:Г* READ DATA)nТ65495,0:АN│1 е295:НN$,Q$,B$)2xЕC$│N$ ▒ F$│Q$ з160)ZВЕN$│"END" ░ Q$│"END" ░B$│"END" з150)aМЛN)ХЦЮ:П:а5,5:З@136,"  NOT FOUND!":З б(32,128):Бе170)жЫ:Г* READ OUT)°аЮ:З@1,"FILE #:";N:З@165,N$;"=-";Q$"--":З@198,"BRG.-";B$:АTM│1е3:а180,1:а200,1*$кТ65494,0:З@262,"ANOTHER ENTRY (Y/N) ?";*9┤З@288, б(32,239)*P╛K$│ Т:ЕK$│"N" з230*t╚ЕK$│"Y" зП:Ю:а180,1:а200,1:Бе60*Д╥ЕK$│"" з190*О▄Бе170*Ыс:Г* EXIT*╛цЮ:З@174,"END":АTM│1 е999:Л:Ю:К*╨ы:Г* DATA LIST+sЁЖ A,USA,XX,AP,PAKISTAN,33,A2,BOTSWANA,110,A3,TONGA,265,A4,OMAN,050,A5,BHUTAN,20,A6,UNITED ARAB EMIRATES,50,A7,QATAR,50,A9,BAHRAIN,50,B,CHINA,344,BV,TAIWAN,344+ї·Ж CE,CHILE,175,CM,CUBA,203,CO,CUBA,203,CN,MORROCO,80,CP,BOLIVIA,170,CR9,MACAO,344,CT,PORTUGAL,64,CT2,AZORES,70,CT3,MADIERA,72,П
Ж CX,URUGUAY,163,C6,BAHAMAS,190,DA,W.GERMANY,47,DL,W.GERMANY,47,DU,PHILLIPINES,339,EA,SPAIN,62,EI,IRELAND,41,EL,LIBERIA,115,EP,IRAN,95,ET,ETHIOPIA,80-*
Ж F,FRANCE,51,FC,CORSICA,56,FG,GUADALOUPE,135,FM,MARTINIQUE,135,FO,CLIPPERTON,235,FP,ST.PIERRE-MIQ.,45,FS,ST.MARTIN,135,G,ENGLAND,40,GO,ISLE OF MAN,40-у
Ж GI,N.IRELAND,38,GJ,JERSEY,40,GM,SCOTLAND,35,GU,GUERNSEY,40,GW,WALES,40,HA,HUNGARY,38,HB,SUISSE,51,HB0,LICHTENSTIEIN,40,HC,ECUADOR,184,HC8,GALAPAGOS,200,HG,HUNGARY,38,HH,HAITI,175.?
"Ж HI,DOMREP,175,HK,COLUMBIA,176,HL,KOREA,335,HM,KOREA,335,HP,PANAMA,195,HR,HONDURAS,205.Ї
,Ж HS,THAILAND,0,HV,VATICAN,55,HZ,SAUDI ARABIA,96,H4,SOLOMAN IS.,283,I,ITALY,55,IS,SARDINIA,57,IT,SICILY,55,JA,JAPAN,331,JT,MONGOLIA,5,JW,SVALBARD,12,JY,JORDAN,95,J2,DJIBOUTI,60/F
6Ж J3,GRENADA,140,J6,ST LUCIA,140,J73,DOMINICA,140,J8,ST.VINCENTS,140,K,USA,XX/╙
@Ж KA,US IN JAPAN,331,KB6,HOWLAND/BAKER,280,KH1,HOWLAND/BAKER,280,KC4,ANTARCTICA,180,KC4,NAVASSA,170,KP1,NAVASSA,170,KC6,CAROLINE IS.,3150V
JЖ KG4,GTMO,200,KG6,MARIANAS,325,KH6,HAWAII,283,KH7,KURE,275,KJ6,JOHNSTON,284,KL7,ALASKA,323,KM6,MIDWAY,275,KP4,PUERTO RICO,1401$
TЖ KP6,JARVIS/PAL.,238,KH5,JARVIS/PAL.,238,KS6,AM. SAMOA,241,KH8,AM.SAMOA,241,KV4,VIRGIN IS.,160,KP2,VIRGIN IS.,160,KW6,WAKE,280,KH9,WAKE,280,KX6,MARSHALLS,278,LA,NORWAY,36,LJ,NORWAY,36,LU,ARGENTINA,1651o
^Ж LX,LUXEMBURG,40,LZ,BULGARIA,42,M1,SAN MARINO,55,N,USA,XX,OA,PERU,1812#
hЖ OD,LEBANON,93,OE,AUSTRIA,40,OH,FINLAND,33,OK,CZECH,46,OL,CZECH,46,ON,BELGIUM,40,OX,GREENLAND,30,OY,FAROES,36,OZ,DENMARK,38,PA,NETHERLANDS,46,PZ,SURINAM,140,P2,NEW GUINEA,2812h
rЖ SJ,SWEDEN,38,SM,SWEDEN,38,SP,POLAND,40,ST,SUDAN,81,SU,EGYPT,562№
|Ж SV,GREECE,52,S2,BANGLADESH,40,S79,SEYCHELLES,63,S8,TRANSKEI,XX,S9,SAO TOME/PRIN.,135,TA,TURKEY,40,TC,TURKEY,40,TF,ICELAND,35,TG,GUATEMALA,2133u
ЖЖ TI,COSTA RICA,197,TJ,CAMEROON,95,TL,C.AFR.REP.,90,TN,CONGO,92,TR,GABON,92,TT,CHAD,88,TU,IVORY COAST,95,TY,BENIN,XX4
РЖ TZ,MALI,90,T2,TAVALU,IXX,T3,KIRIBATI,XX,UA,USSR,36,UB5,UKRAINE,38,UC2,WH.RUSSIA,36,UD6,AZERBAIDZHAN,38,UF6,GEORGIA,38,UG6,ARMENIA,38,UH8,TURKMEN,364В
ЪЖ UI8,UZBEK,36,UJ8,TADZHIK,35,UL7,KAZAKH,35,UM8,KIRGHIZ,35,UNI,KARELO/FIN.,34,UO5,MOLDAVIA,35,UP2,LITHUANIA,365I
дЖ UQ2,LATVIA,35,UR2,ESTONIA,35,VE,CANADA,XX,VK,AUSTRALIA,260,VO1,NEWFOUNDLAND,35,V02,LABRADOR,15,VP1,BELIZ,213,VP2,LEEWD/WINDWD IS.,135,VP9,BERMUDA,100,VS6,HONGKONG,344,VU,INDIA,33,VY1,YUKON,3245Э
оЖ W,USA,XX,XE,MEXICO,235,XF,MEXICO,235,XT,VOLTA,92,XU,CAMBODIA,05,XV,VIETNAM,0065
╕Ж XW,LAOS,00,XZ,BURMA,08,YA,AFGHANISTAN,30,YB,INDONESIA,355,YC,INDONESIA,355,YD,INDONESIA,355,YI,IRAQ,45,YK,SYRIA,48,YN,NICARAGUA,200,YO,RUMANIA,456Ю
┬Ж YS,ELSALVADOR,220,YU,YUGOSLAVIA,80,YV,VENEZUELA,160,ZA,ALBANIA,82,ZB2,GIBRALTER,68,ZC,BR.CYPRUS,507
╠Ж ZD7,ST.HELENA,116,ZD8,ASCENSION,116,ZD9,TR D CUNHA,135,ZE,ZIMBABWE,110,ZF,CAYMAN IS.,190,ZK1,COOK IS.,253,ZK2,NIUE IS.,2537Ш
╓Ж ZL,NEW ZEALAND,251,ZP,PARAGUAY,161,ZS,S.AFR.,116,ZR3,NAMBIBIA,110,3A,MONACO,55,UA9,ASIAN USSR,10,UA0,ASIAN USSR,108
рЖ 3B8,MAURITIUS,90,3C,EQUATORIAL AFR.,89,3D2,FIJI IS.,260,3D6,SWAZILAND,110,3V,TUNIS,75,4K1,USSR ANTARCTIC,180,4S,SRI LANKA,108╚
ъЖ 5R,MADAGASCAR,90,5T,MAURITANIA,88,5U,NIGER,80,5V,TOGO,92,5W,W.SAMOA,260,5X,UGANDA,80,5Z,KENYA,78,6O,SOMALI,70,6W,SENEGAL,94,6Y,JAMAICA,190,7O,S.YEMEN,50,7P,LESOTHO,9093
ЇЖ 7X,ALGERIA,65,7Z,SAUDI ARABIA,45,8P,BARBADOS,135,8Q,MALDIVE,45,8R,GUYANA,137,9G,GHANA,93,9H,MALTA,619х
■Ж 9I,ZAMBIA,100,9J,ZAMBIA,100,9K,KUWAIT,40,9L,SIERRA LEONE,100,9M2,W.MALAYSIA,0,9M8,SARAWAK,355,9N,NEPAL,20,9Q,ZAIRE,100,9U,BURUNDI,100,9V,SINGAPORE,0,9Y,TRINIDAD-TOBAGO,150:▓Ж VP2A,ANTIGUA/BARBUDA,148,VP2K,ST.KITTS,148,VP2M,MONTSERRAT,145,VP2V,BR.VIRGIN IS.,140,3Y,NORWEGIAN ANTARCTICA,180,IC,CAPRI/ISCHIA,56,JR6,OKINAWA,330,8J,JAP.ANTARCTICA,180,CE9AA,CHILEAN ANTARCTIC,180;]Ж CE0A,EASTER IS.,195,D2,ANGOLA,100,D4,CAPE VERDE,102,EA8,CANARY,85,FY,FR. GUIANA,140,H4,SOLOMON IS.,275,IA,TUSCA,70,IC,CAPRI,70,JR6,OKINAWA,320,VK9,CHRISTMAS IS.,255;ЇЖ VP5,TURKS,135,VP8,FALKLAND,175,4U,UN-NEW YORK,10,5A,LIBYA,45,5B,CYPRUS,40,5H3,TANZANIA,85,5L,LIBERIA,100,5N,NIGERIA,90,3X,GUINEA,100,END,END,ENDFY,F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 G& 
:Г***INCOME TAX HISTORY***&3:ГBY J. D. RAY&O:Г   5065 FRANCE AVENUE&r(:Г   N. CHARLESTON, S.C. 29406&К2:Г   1-803-554-0637&г<Ю6:З@100, б(24,"*");&╔FЗ@132,"** INCOME TAX HISTORY **";&яPЗ@164,"**                    **";'ZЗ@196,"**   BY  J. D. RAY    **";';dЗ@228,"** COPYRIGHT (C) 1982 **";'QnЗ@260, б(24,"*");'bxАX│1е1000:ЛX'ЖВМ A(10),B(10),C(10),D(10),E(10)'УММ Z$(10)'─С:ГWAGES, PROFIT INCOME (LIST FROM 1978-1982)'°ЦЖ 8250.00, 8800.00, 9650.00, 12570.00, 14865.00(Ы:ГINTEREST INCOME(<аЖ  300.00, 600.00, 750.00,1200.00, 800.00(Xе:ГADJUSTED GROSS INCOME(ОкЖ 9000.00, 12320.00, 14350.00, 18900.00, 26900.00(оп:ГTOTAL ITEMIZED DEDUCTIONS(р┤Ж 3600.00, 4100.00, 3900.00, 4120.00, 3175.00(Ў╣:ГINCOME TAX PAID)#╛Ж 240.00, 340.00, 420.00,600.00, 1200.00)9├:ГBUSINESS PROFIT)o╚Ж 9785.13, 10900.00, 14039.00, 15756.00, 18350.00)З═:ГBUSINESS EXPENSES)║╥Ж  2000.00, 2575.00, 3125.00, 3600.00, 4120.00)╫╫:ГSELF-EMPLOYMENT INCOME*▄Ж 10985.13, 13000.00, 14100.00, 13750.00, 15150.00*(с:ГSELF-EMPLOYMENT TAX*ZцЖ  889.80, 1189.00, 1231.00, 1201.00, 1498.00*jы:ГSTATE TAX*ШЁЖ  110.24, 175.00, 320.00, 400.00, 320.00*д·АX│1е10*├
Н A(X),B(X),C(X),D(X),E(X)*╦
Л X+I
Ж WAGES, INTEREST INC.,A.G.I.,TOTAL ITEMIZED DED.,INCOME TAX,BUSINESS INC.,BUSINESS DED.,S.E. INCOME, S.E. TAX, STATE TAX+U
"АX│1е10+a
,Н Z$(X)+i
6Л X+o
@Ю+Р
JЗ@69,"WOULD YOU LIKE TO SEE"+Ъ
TL│130+ж
^АX│1е10+╢
hЗ@L,X;Z$(X)+┴
rL│Lл32+╔
|Л X+▄
ЖЗ@460,"(1-10)"+ф
РЙ X+Ў
ЪЕX┤0▒X▓10з400,
дИ X Бж430,#
оЮ:З@6,"INCOME TAX SUMMARY",B
╕З@47м Б( З(Z$(X))о2),Z$(X),W
┬A$│"$$##,###.##",w
╠З@100,"1978:   ";:З═A$;A(X),Ч
╓З@132,"1979:   ";:З═A$;B(X),╖
рЗ@164,"1980:   ";:З═A$;C(X),╫
ъЗ@196,"1981:   ";:З═A$;D(X),ў
ЇЗ@228,"1982:   ";:З═A$;E(X)-
■Бж 520-!T│A(X)лB(X)лC(X)лD(X)лE(X)-8A$│"$$##,###.##"  -VЗ@289,"TOTAL:   ";:З═A$;T-`&T│Tо5-0З@353,"AVERAGE: ";:З═A$;T -л:З@448,"DO YOU WANT TO SEE GRAPH? (Y/N)"-├DR$│ Т:Е R$│"" з 580-╙NЕR$│"Y"з610-уXЕR$│"N"з320.EbA│ Б(A(X)о1000)н3:B│ Б(B(X)о1000)н3:C│ Б(C(X)о1000)н3:D│ Б(D(X)о1000)н3:E│ Б(E(X)о1000)н3:G│D.YfЕ A▓150 з A│150.mgЕ B▓150 з B│150.БhЕ C▓150 з C│150.ХiЕ D▓150 з D│150.йjЕ E▓150 з E│150.╗vЕ A┤9з Бж 970.╥АЮ:╚3,1:┴3,2:╝:┐1,0.уКАY│25е175й15.∙Ф╗(50,Y)м(250,Y),╜/ЮЛY/
и┴ 1,2/▓АX│50е275 й50/2╝╗(X,25)м(X,175),╜/:╞Л X/_╨╞"S3;C3BM25,21L3R5L3U20L3R6" :ГI/}╒╞"C3BM37,21U20F20U20" :ГN/Ю┌╞"C3BM65,21R12L12U20R12" :ГC/┐▀╞"C3BM90,21U20R18D20L18" :ГO/рф╞"C3BM115,21U20RF8E8D20" :ГM0щ╞"C3BM140,21R10L10U11R10L10U10R10" :ГE0)ю╞"C3BM180,21U20L6R12" :ГT0Qє╞"C3BM196,21U20R12D10L12R12D11" :ГA0u°╞"C3BM215,21U4E12U4BL12D4F12D4"0С¤╞"S3;C3BM40,190U10" :Г10░╞"C3BM48,190U10L5D5R5" :Г90╠╞"C3BM57,190U5E6L8" :Г70ё╞"C3BM65,190U10R5D5L5R5D6L5" :Г81
╞"C3BM90,190U10" :Г11)╞"C3BM98,190U10L5D5R5" :Г91F╞"C3BM107,190U5E6L8" :Г71f ╞"C3BM120,190U10L5D5R5" :Г91А%╞"C3BM140,190U10" :Г11а*╞"C3BM148,190U10L5D5R5" :Г91╞/╞"C3BM154,190U10R6D5L6R6D6L6" :Г81ч4╞"C3BM165,190U10R6D10L6" :Г02
9╞"C3BM190,190U10" :Г12!>╞"C3BM198,190U10L5D5R5" :Г92GC╞"C3BM205,190U10R6D5L6R6D6L6" :Г82aH╞"C3BM214,190U10" :Г12{M╞"C3BM228,190U10" :Г12ЫR╞"C3BM236,190U10L5D5R5" :Г92┴W╞"C3BM242,190U10R6D5L6R6D6L6" :Г82т\╞"C3BM254,190L5U4R5U6L5" :Г23la╞"S2;C3BM5,175U2E8U2BL8D2F8D2":╞"C3BM20,175U10":╞"C3BM25,175U10R7D10L7":╞"C3BM33,175U10R7D10L7":ЕG▓9з╞"C3BM40,175U10R8D10L8" :ГX 10003Тf╞"S3;C3BM25,160R10U5L10U5R10" :Г53┤k╞"C3BM25,145U10R10D10L10" :Г03╧p╞"C3BM20,145U10G3" :Г14u╞"C3BM25,130R10U5L10U6R10" :╞"C3BM20,130U10G3" :Г154Bz╞"C3BM25,115U10R10D10L10":╞"C3BM20,115L7U4R7U6L7" :Г204~╞"C3BM25,100R10U5L10U6R10":╞"C3BM20,100L7U4R7U6L7" :Г254╣Д╞"C3BM25,85U10R10D10L10":╞"C3BM14,85R8U6L4R4U5L8" :Г304ЎЙ╞"C3BM25,70R10U5L10U6R10" :╞"C3BM14,70R8U6L4R4U5L8" :Г355,О╞"C3BM25,55U10R10D10L10":╞"C3BM18,55U10G6R8" :Г405cУ╞"C3BM25,40R10U5L10U6R10":╞"C3BM18,40U10G6R8" :Г455lШ┴4,25╝в╗ (50,175мA)м(100,175мB),╜:╗ м(150,175мC),╜:╗м(200,175мD),╜:╗м(250,175мE),╜5╤мR$│ Т:ЕR$│""з9405с╢ЕR$│"Y"з3205ч└К6B╩A│ Б(A(X)о100)н3:B│ Б(B(X)о100)н3:C│ Б(C(X)о100)н3:D│ Б(D(X)о100)н3:E│ Б(E(X)о100)н3:Р":╞"C3BM18,40U10G6R8" :Г455lШ┴4,25╝в╗ (50,175мA)м(100,175мB),╜:╗ м(150,175мC),╜:╗м(200,175мD),╜:╗м(250,175мE),╜5╤мR$│ Т:ЕR$│""з9405с╢ЕR$│"Y"з3205ч└К6B╩A│ Б(A(X)о100)н3:B│                                                                                                                                                                                                                                                                 
a& 
:ГVROOM'S DECISION PROCESS&':Г&A:ГBY STAN PEPPENHORST&Z(:ГMEMPHIS, TENNESSEE&a2:Г&g<Ю&НdЗ:З"    VROOM'S DECISION PROCESS"'nЗ:З:З"THIS PROGRAM AIDS THE MANAGER IN MAKING MAJOR DECISIONS.        SUBORDINATES MAY OR MAY NOT BE   INVOLVED."'\xЗ:З:З:З"ANSWER THE FOLLOWING QUESTIONS  WITH YES OR NO BY USING         'Y' OR 'N'."'qВА T│1 е 5000:Л T'xМ:Г'я╚A$│"IS THERE A QUALITY REQUIREMENT  SUCH THAT ONE SOLUTION IS       LIKELY TO BE MORE RATIONAL      THAN ANOTHER?"(C╥B$│"DO I HAVE SUFFICIENT INFORMATION TO MAKE A HIGH QUALITY          DECISION?"(g▄C$│"IS THE PROBLEM STRUCTURED?"(рцD$│"IS THE ACCEPTANCE OF THE        DECISION BY SUBORDINATES        CRITICAL TO EFFECTIVE           IMPLEMENTATION?")fЁE$│"IF I WERE TO MAKE THE DECISION  BY MYSELF, IS IT REASONABLY     CERTAIN THAT IT WOULD BE        ACCEPTED BY MY SUBORDINATES?")╚·F$│"DO SUBORDINATES SHARE THE ORGAN-IZATIONAL GOALS TO BE ATTAINED  IN SOLVING THIS PROBLEM?"*G
G$│"IS CONFLICT AMONG SUBORDINATES  LIKELY IN PREFERRED SOLUTIONS?  (THIS QUESTION IS IRRELEVANT TO INDIVIDUAL PROBLEMS.)"*Ю
H$│"DO SUBORDINATES HAVE SUFFICIENT INFORMATION TO MAKE A HIGH QUAL-ITY DECISION?"*е
:Г+
,J$│"1. SOLVE THE PROBLEM OR MAKE THE DECISION USING THE INFORMATION  AVAILABLE AT THE TIME."+p
6K$│"2. OBTAIN NECESSARY INFORMATION    FROM SUBORDINATES THEN DECIDE ON THE SOLUTION TO THE PROBLEM."+є
@L$│"3. SHARE THE PROBLEM INDIVIDU-     ALLY WITH SUBORDINATES.         OBTAIN IDEAS AND SUGGESTIONS    AND MAKE THE DECISION.",l
JM$│"4. SHARE THE PROBLEM WITH SUBOR-   DINATES AS A GROUP.  OBTAIN    IDEAS AND SUGGESTIONS AND MAKE  THE DECISION."-
TN$│"5. SHARE THE PROBLEM WITH SUBOR-   DINATES AS A GROUP.  GENERATE   AND EVALUATE ALTERNATIVES AND TOGETHER TRY TO REACH AGREEMENT ON A SOLUTION."-
^:Г-/
РЗ:З:З A$:Й A1$:Е A1$│"Y" з 500-╖
ЪЗ:З D$:Й D1$:З:Е D1$│"Y" з З E$ :Д 430:Й E1$:З:Е E1$│"Y" з З J$:З:З K$:А T│1 е 7500:Л T:Ю:З L$:З:З M$:З:З N$:А T│1 е 7500:Л T:Бе 10-ё
дЙ E1$:З:З:З:З:Е E1$│"N" з З N$:А T│1 е 7500:Л T:Бе 10.?
оЗ:З J$:З:З K$:А T│ 1 е 7500:Л T:З L$:З:З M$:З:З N$:А T│1 е 7500:Л T:Бе 10.J
ЇЗ:З B$.╪
■Й B1$:З:Е B1$│"Y" з З D$ :Й D1$:З:Е D1$│"N" з З F$ :Й F1$:З:З:Е F1$│"N" з З J$:З:З K$:А T│1 е 7500:Л T:З L$:З:З M$:А T│1 е 7500:Л T:Бе 10.ьЕ B1$│"N" з 800/VЕ F1$│"Y" з З H$:Й H1$:З:З:З J$:З:З K$:З:А T│1 е 7500:Л T:Ю:З L$:З:З M$:З:З N$:А T│1 е 7500:Л T:Бе 10/▄XЕ D1$│"Y" з З E$:Й E1$:З:Е E1$│"Y" з З F$:З:Й F1$:З:З:Е F1$│"N" з З J$:З:З K$:А T│1 е 7500:Л T:З L$:З:З M$:А T│1 е 7500:Л T:Бе 100PbЕ F1$│"Y" з З H$:Й H1$:З:З:Е H1$│"Y" з З J$:З:З K$:З:А T│1 е 7500:Л T:Ю:З L$:З:З M$:З N$:А T│1 е 7500:Л T:Бе 100лlЕ H1$│"N" з З J$:З:З K$:З:А T│1 е 7500:Л T:Ю:З L$:З:З M$:З:З N$:А T│1 е 7500:Л T:Бе 100є╝З F$:Й F1$:З:Е F1$│"Y" з З H$:Й H1$:З:З:З N$:А T│1 е 7500:Л T:Бе 101,╞З G$:Й G1$:З:Е G1$│"Y" з З M$:А T│1 е 7500:Л T:Бе 101S╨З L$:З:З M$:А T│1 е 7500:Л T:Бе 101н З C$:Й C1$:З:Е C1$│"Y" з З D$ :Д 900:Й D1$:З:Е D1$│"Y" з З E$:Й E1$:З:Е E1$│"N" з 7001Ї*З F$:Й F1$:З:Е F1$│"N" з З K$:З:З L$:З:З M$:А T│1 е 7500:Л T:Бе 102G4З H$:Й H1$:З:З K$:З:З L$:З:А T│1 е 7500:Л T:З M$:З:З N$:А T│1 е 7500:Л T:Бе 102▓ДЗ D$:Й D1$:З:Е D1$│"Y" з З E$:Й E1$:З:Е E1$│"N" з З F$:Й F1$:З:Е F1$│"N" з З M$:А T│1 е 7500:Л T:Бе 102ыОЕ F1$│"Y" з З H$:Й H1$:З:З N$:А T│1 е 7500:Л T:Бе 1036шЗ F$:Й F1$:З:Е F1$│"Y" з З H$:Й H1$:З M$:З:З N$:А T│1 е 7500:Л T:Бе 103VЄЗ M$:А T│1 е 7500:Л T:Бе 103\LКз З E$:Й E1$:З:Е E1$│"N" з З F$:Й F1$:З:Е F1$│"N" з З M$:А T│1 е 7500:Л T:Бе 102ыОЕ F1$│"Y" з З H$:Й H1$:З:З N$:А T│1 е 7500:Л T:Бе 1036шЗ F$:Й F1$:З:Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  y&$
:Г****************************&B:Г     BASIC HOME CONTROL&b:Г FOR PLUG'N POWER SYSTEMS&j(:Г &Й2:Г   (C) A.B. Trevor  1982&Р<:Г&│F:Г****************************&║P:Г&╦ZХ 100,&H2FFF&тdМ BTAB(16),CMD$(6)'nЖ 6,E,2,A,1,9,5,D,7,F,3,B,0,8,4,C'$xЖ CLR,ALL,ON,OFF,DIM,BR'4В╣ Г0│&H3000'bМА I│1 е 16:Н A$: BTAB(I)│ Й("&H"лA$): Л I'АЦА I│1 е 6: Н CMD$(I): Л I'ШаА I│&H3000 е &H3076'лкН A:Т I,A: Л I'▓┤:Г'╟╛Й"HOUSE CODE";H$'┘╚Е H$│"" з 220'ё╥HC│ К(H$)м К("A")л1(▄Е HC┤1 ▒ HC▓16 з а 99,5: Бе 190(*цЙ"UNIT      ";UN(NЁЕ UN┤1 ▒ UN▓16 з а 99,5: Бе 230(q·ARG│3н256лBTAB(HC)н16лBTAB(UN)(А
X│ Г0(ARG)(Х
Й"COMMAND   ";A$(д
А CD│0 е 5(╩
"Е  О(A$,2)│ О(CMD$(CDл1),2) з 340(╙
,Л CD(Ё
6З"? LEGAL COMMANDS ARE:")
@А I│1 е 6: З CMD$(I);" ";:Л I)
JЗ:Бе 270)H
TЕ CD▓3 з RP│2н Й( П(A$,1))л1 :Д RP│3)m
^ARG│RPн256лBTAB(HC)н16лCDл&H4000)|
hX│ Г0(ARG))Т
rЗ"--->DONE<---":З)Ь
|Бе190)╟
ЖЖ 189,179,237,237,141,0,113,132,63,167)Ё
РЖ 141,0,106,141,57,141,55,141,53,141*
ЪЖ 46,166,141,0,96,142,0,8,141,19*9
дЖ 166,141,0,86,73,142,0,1,141,9*_
оЖ 106,141,0,75,38,223,57,0,252,73*Д
╕Ж 37,6,141,13,141,16,32,4,141,12*л
┬Ж 141,5,48,31,38,239,57,49,140,233*╥
╠Ж 32,3,49,140,229,52,18,182,255,32*·
╓Ж 133,1,39,249,134,52,74,38,253,198+#
рЖ 3,166,164,183,255,32,134,178,74,38+I
ъЖ 253,127,255,32,28,0,90,39,8,134+n
ЇЖ 248,18,74,38,252,32,230,53,146+t
■К,4,141,12*л
┬Ж 141,5,48,31,38,239,57,49,140,233*╥
╠Ж 32,3,49,140,229,52,18,182,255,32*·
╓Ж 133,1,39,249,134,52,74,38,253,198+#
р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &$
:Г''''''''''''''''''''''''''''&G:Г      * B A N N E R *      '&j:Г      BY DAVID STEYER      '&Н(:Г     SEPTEMBER 10,1982     '&░2:Г''''''''''''''''''''''''''''&║<Х 250&╥FМ A$(3),D$(4),E$(6)&▌PБж 580'ZЮ:З"* B A N N E R * BY DAVID STEYER "'[dЙ"80 OR 132 COLUMN PRINTER (8/13)";LG:Е LG│8 з LG│80 :Д Е LG│13 з LG│132 :Д 100'зnЗ"CHARACTER HEIGHT ( 1 -"; Б(LGо10)")";:ЙHH:Е HH┤1 ▒ HH▓ Б(LGо10) з 110'эxЗ"CHARACTER WIDTH ( 1 - 10 )":Е LG│80 з З"(5 OR LESS RECOMMENDED)(
ВЙWD:Е WD┤1 ▒ WD▓10 з 120(>МЙ"INVERSE (Y/N)";Y$:Е Y$│"Y" з Y$│" " :Д Y$│"1"(lЦЗ"ENTER BANNER TEXT (32 CHARACTER LIMIT)"(wа╗Й TX$(ЧкЕ TX$│"" ▒  З(TX$)▓32 з 150(е┤A$│A$(RY)(╖╛╚4,1:╝1:┐ 1,0(╔╚Е Y$│" " з ╝0(▌╥А I│1 е  З(TX$)(Ў▄A│ К( Р(TX$,I,1))м32)2цЕ A┤24 з RY│0 :Д Е A┤47 з RY│1 :Д Е A┤70 з RY│2 :Д RY│3)BЁA│Aм(RYн23))O·А X│0 е4)f
Е A│0 з Y│0:Бе 280)Х
Y│ Й("&H"л Р(A$(RY),((Aм1)н10)л(Xн2)л1,2)))к
D$(X)│"        ")╤
"Е Y▓127 з Y│Yм128:D$(X)│"1       "*

,Е Y▓63 з Y│Yм64:D$(X)│ О(D$(X),1)л"1      "*0
6Е Y▓31 з Y│Yм32:D$(X)│ О(D$(X),2)л"1     "*^
@Е Y▓15 з Y│Yм16:D$(X)│ О(D$(X),3)л"1    "*Й
JЕ Y▓7 з Y│Yм8:D$(X)│ О(D$(X),4)л"1   "*│
TЕ Y▓3 з Y│Yм4:D$(X)│ О(D$(X),5)л"1  "*▄
^Е Y▓1 з Y│Yм2:D$(X)│ О(D$(X),6)л"1 "*■
hЕ Y▓0 з D$(X)│ О(D$(X),7)л"1"+
rЛ X+
|E$(0)│ О(D$(0),5)+>
ЖE$(1)│ П(D$(0),3)л О(D$(1),2)+V
РE$(2)│ Р(D$(1),3,5)+x
ЪE$(3)│ П(D$(1),1)л О(D$(2),4)+Ъ
дE$(4)│ П(D$(2),4)л О(D$(3),1)+▓
оE$(5)│ Р(D$(3),2,5)+╘
╕E$(6)│ П(D$(3),2)л О(D$(4),3)+ы
┬АX│0 е 6:А Y│1 е 5,)
╠Е  Р(E$(X),Y,1)│Y$ з ╛(Yл(Iм1)н8,3лX) :Д ╜(Yл(Iм1)н8,3лX),3
╓Л Y,X,;
рЛ I,U
ъА I│ З(TX$)н8 е 0 йм1,d
ЇА Y│1 е 10,Ы
■Е  а(I,Y)│0 з B$│B$л б(HH,"*") :Д B$│B$л б(HH," "),вЛY,╘А R│1 е WD:З#м2, б( Б(LGм З(B$))о2,32);B$:Л R,▐B$│"",ц&Л I-90З#м2,"    * B A N N E R *  BY: DAVID STEYER 1982   RAINBOW MAGAZINE"; б(10,10)-?:К.2DA$(0)│"6318C03180528000000002B60DA8007568E2D5C0C644444C6045288AC9A0111000000008884208208208422200011DF710000109F210000000C611000001F000000000003180004444400074675CC5C023084211C074426443E0744260C5C01195F10840FC21E0C5C07461E8C5C0FC44442100"/%NA$(1)│"7462E8C5C07462F0C5C003180630006300C611000888820820003E0F8000820822220074444200807442DAD98022A31FC620F463E8C7C074610845C0F46318C7C0FC21E843E0FC21E8420074610BC5C08C63F8C62071084211C038842149808CA98A4A2084210843E08EEB58C6208C7359C620"0XA$(2)│"746318C5C0F463E8420074631ACDE0F463EA4A207460E0C5C0F9084210808C6318C5C08C6318A8808C635AEE208C544546208C54421080F844E443E039084210E00410410400E10842138023AA4210800111F410000000000000001C17C5E0843D18C5C0001F0841E0085F18C5C0001D1F41C0"0ўbA$(3)│"0191E42100001F1785C0843D18C62020184211C0100421498084232E4A2061084211C0003D5AD6A0003D18C620001D18C5C0003D1F4200001F178420003D184200001F0707C0023C8420C0002318C5C0002318A880002B5AD5C00022A22A2000231784C0003E2223E0"0¤lР85F18C5C0001D1F41C0"0ўbA$(3)│"0191E42100001F1785C0843D18C62020184211C0100421498084232E4A2061084211C0003D5AD6A0003D18C620001D18C5C0003D1F4200001F178420003D184200001F0707C0023C8420C0002318C5C0002318A880002B5AD5C00022A22A2000231784C0003E2223E0"0¤lР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &/dВ FRACTIONS PROGRAM-ALLOWS USER TO SELECT&`nВ WHETHER THE COMPUTER WILL MAKE UP PROBLEMS&тxВ OR MERELY CHECK PROBLEMS. VARIABLES USED ARE N(#OF FRACTIONS PER PROBLEM), NU(NUMERATOR OF INTERMEDIATE OR FINAL FRACTION),'YВВ CD(DENOMINATOR OR COMMON DENOMINATOR),W(WHOLE NUMBER PART OF FRACTION),AN(NUMERATOR INPUT),BN(DENOMINATOR INPUT)'rМВ COUNTERS USED ARE:'єЦВ ZZ(ARRAY FOR AN AND BN)XT(AVOID REPEAT OF INSTRUCTIONS)K,L(LOCAL LOOP COUNTERS)TA,TB,AA(INTERMEDIATE VALUES FOR NU AND CD)(
аВ R$, DUMMY VARIABLES('кВ B(MAKE UP OR CHECK)(?┤В C(LIKE OR UNLIKE)(v╛В M PROBLEM MODE(ADD,SUB,MUL,DIV,COM DENOM,REDUCE)(З╚Е XT▓0 з 400(д╥Ю:З@72,"F R A C T I O N"(└▄З@200,"BY CROOKS, 2/82"(╤цА P│1е2000:Л(єЁЮ:З:З"WHAT KIND OF PROBLEMS?")·З"1-ADDITION")
З"2-SUBTRACTION")2
З"3-MULTIPLICATION")D
З"4-DIVISION")e
"З"5-FIND COMMON DENOMINATOR")М
,З"6-REDUCTION TO LOWEST TERMS":З:З)а
6Й "WHICH ONE";M)╚
@Ю:З"AM I GOING TO MAKE UP PROBLEMS")я
JЗ"OR CHECK YOURS. TYPE <1> FOR ME"*
TЗ"TO MAKE UP PROBLEMS OR <2> FOR"*.
^З"ME TO CHECK YOURS"*5
hЙB*F
rЕ M│6 Бе 400*m
|З:З"WILL THESE BE LIKE OR UNLIKE?"*И
ЖЙ "1=LIKE  2=UNLIKE";C*а
РXX│0:И B Бе 410,530*═
ЪBN(1)│ Д(8):AN(1)│ Д(6):В MAKE UP MODULE*ъ
дBN(2)│ Д(10):AN(2)│ Д(9)*Є
оN│2+
╕Е C│1 з 500+7
┬Е AN(2)оBN(2)▓AN(1)оBN(1) з BN(2)│BN(2)н2:Бе 450+W
╠Е M│6 з AN(1)│AN(1)н Д(6)н2+u
╓Е M│6 з BN(1)│BN(1)н Д(4)+о
рВ 3 PREVIOUS STATEMENTS GUARANTEES SIZE OF FRACTIONS+╣
ъБе 760+т
ЇЕ AN(1)┤AN(2) з AN(1)│AN(1)н2:Бе 500+Є
■BN(2)│BN(1)+¤Бе 760,В READ IN FRACTIONS,=Ю:Е XT┤▓0 з 620:В SKIP INSTRUCTIONS,b&З"WHICH FORM ARE YOUR PORBLEMS?",З0З"1-COMMON FRACTIONS (LIKE 1/2)",д:З"2-IMPROPER (LIKE 9/4)",└DЗ"3-MIXED (LIKE 3 4/7)",хNЗ"ALL OF YOUR FRACTIONS HAVE TO",■XЗ"BE THE SAME FORM."-bЙ "WHICH FORM";A-2lЮ:З"HOW MANY FRACTIONS IN"-HvЙ"THIS PROBLEM";N-^АЕ N▓4 ▒ N┤1 з 860-ИКZZ│1:В READ IN NUM AND DENOM IN ARRAY-ШФЕ A│3 з 800-йЮЕ ZZ│1 з 730-╥иЙ"GIVE ME THE NEXT NUMERATOR";AN(ZZ)-∙▓Й"GIVE ME NEXT DENOMINATOR";BN(ZZ).
╝Е ZZ│N з 760.╞ZZ│ZZл1.!╨Бе 660.L┌Й "GIVE ME THE FIRST NUMERATOR";AN(ZZ).tфЙ"GIVE ME FIRST DENOMINATOR";BN(ZZ).юБе 700.Ъ°В END OF ARRAY FORMING.╠И M Бж 1160,1320,1440,1570,1710,2130:В M=MODE.╪XT│XTл1.єБе 2210:В PRINT ANSWER/ В READ MIXED FRACTIONS/ *Е ZZ┤▓1 з 840/L4Й"GIVE ME THE FIRST WHOLE NUMBER";W(ZZ)/W>Бе 670/HЙ "GIVE ME NEXT WHOLE NUMBER";W(ZZ)/КRБе 670/п\Ю:З"INPUT ERROR. YOU EITHER PUT"/╤fЗ"A WRONG NUMBER OR A NUMBER"/ЎpЗ"GREATER THAN 4. SORRY.":Бе 6200zВ GET COMMON DENOM FOR ADD OR SUBTR 00ДЕ N┤▓2 з 9900IОЕ BN(1)┤▓BN(2) з 9400^ШЕ C│1 з DN│BN(1)0dвР0wмDN│BN(1)нBN(2)0Н╢AN(1)│BN(2)нAN(1)0г└AN(2)│BN(1)нAN(2)0╣╩BN(1)│DN:BN(2)│DN0─╘Бе 9300╒▐Е N▓3 з 10700√шЕ BN(1)│BN(2) ░ BN(2)│BN(3) з 9301ЄDN│BN(1)нBN(2)нBN(3)1"№А L│1 е N1;AN(L)│DNнAN(L)оBN(L)1CЛ L1bBN(1)│DN:BN(2)│DN:BN(3)│DN1m$Бе 9301б.Е BN(1)│BN(2) ░ BN(2)│BN(3) ░ BN(3)│BN(4) з 9301└8DN│BN(1)нBN(2)нBN(3)нBN(4)1╠BА L│1еN1хLAN(L)│DNнAN(L)оBN(L)1эVЛ L1№`А L │1 е N2	jBN(L)│DN2tЛ L2~Бе 93024ИВ SUBROUTINE TO ADD2BТNU│0:CD│02TЬЕ B┤▓1 з 12302РжЮ:З:З"HOW MUCH IS ";AN(1);"/";BN(1);"+";AN(2);"/";BN(2)2и░З:З:З"YOUR ANSWER?"2╛║Й "NUMERATOR=";NN2╓─Й"DENOMINATOR =";NP2с╬Бж 8902я╪А K│1 е N3тЕ A│3 з Бж 13003ьNU│NUлAN(K)3ЎЛ K3%CD│DN3+
Р3FAN(K)│W(K)нBN(K)лAN(K)3LР3i(В SUBROUTINE TO SUBTRACT3{2Е B┤▓1 з 13803╖<Ю:З:З"HOW MUCH IS ";AN(1);"/";BN(1);"-";AN(2);"/";BN(2)3╒FЗ:З"WHAT IS YOUR ANSWER?"3ыPЙ "NUMERATOR=";NN4ZЙ "DENOMINATOR=";NP4dБж 8904&nЕ A│3 з K│1:Бж 13004<xNU│AN(1):CD│BN(1)4PВЕ A│3 з Бж 13004`МNU│NUмAN(2)4fЦР4ГаВ SUBROUTINE TO MULTIPLY4ЫкЕ A│3 з K│1:Бж 13004▒┤NU│AN(1):CD│BN(1)4├╛Е B┤▓1 з 15204 ╚Ю:З:З"HOW MUCH IS ";AN(1);"/";BN(1);"X";AN(2);"/";BN(2)5╥З:З"YOUR ANSWER, PLEASE"51▄Й"NUMERATOR=";NN5IцЙ "DENOMINATOR=";NP5WЁА K│2 е N5k·Е A│3 з Бж 13005ЗNU│NUнAN(K):CD│CDнBN(K)5ПЛ K5ХР5░"В SUBROUTINE TO DIVIDE5╚,Е A│3 з K│1:Бж 13005▐6K│Kл1:ЕK▓N з 16205ъ@Бж 13005ЎJБе 15906TЕ B┤▓1 з 16806;^Ю:З:З"HOW MUCH IS ";AN(1);"/";BN(1);" DIVIDED"6[hЗ д9);"BY ";AN(2);"/";BN(2)6srЗ:З:З"YOUR ANSWER?"6Й|Й "NUMERATOR=";NN6бЖЙ "DENOMINATOR=";NP6┤РNU│AN(1)нBN(2)6╟ЪCD│BN(1)нAN(2)6═дР6чоВ FIND A COMMON DENOM6э╕Ю6■┬Е B│1 з 19107#╠Ю:З:З"GIVE ME YOUR DENOMINATORS"75╓Е Z┤▓0 з 18007VрЗ"PLEASE GIVE THEM TO ME IN"7yъЗ"ASCENDING ORDER. THAT MEANS"7ЯЇЗ"LOWEST FIRST AND HIGHEST LAST."7└■З"LIST ONLY DENOMINATORS..."7╪Й"ARE YOU READY";R$7ЄЕ  О(R$,1)│"N" з 18007■А K│1еN8 &З"DENOMINATOR-";K;"=":Й;BN(K)8(0Л K8d:Е BN(N)┤BN(Nм1) з З"NOT ASCENDING ORDER! REDO.":Бе 18308nDЮ:X│18НNИ N Бж 1970,1970,2030,20808╖XЕ XX│1 з З"I CAN'T FOR THOSE NUMBERS"8╞bCD│BN(N)нX8╠lР8цvЗ"WHAT IS THE COMMON"9АЗ"DENOMINATOR FOR 1/";BN(1);" AND 1/";BN(2)9КЗ:З97ФЙ "YOUR ANSWER= ";NP9?ЮX│19KиБе 18709y▓Е(XнBN(2)оBN(1))│ Б(XнBN(2)оBN(1)) з 20209Г╝X│Xл19Ю╞Е X▓BN(1)нBN(2) з 20109к╨Бе 19709╘┌З"ICAN'T FOR ";BN(1);"AND";BN(2):XX│19┌фР:-юЕ (XнBN(3)оBN(1))│ Б(XнBN(3)оBN(1)) ░ (XнBN(3)оBN(2))│ Б(XнBN(3)оBN(2)) з 2070:7°X│Xл1:`Е X▓BN(3)нBN(2)нBN(1) з XX│1:Бе 2070:lБе 2030:rР:ш Е(XнBN(4)оBN(1))│ Б)XнBN(4)оBN(1)) ░ (XнBN(4)оBN(2))│ Б(XнBN(4)оBN(2)) ░ (XнBN(4)оBN(3))│ Б(XнBN(4)оBN(3)) з 2120:Є*X│Xл1;!4Е X▓BN(4)нBN(3)нBN(2)нBN(1) з XX│1:Бе 2120;->Бе 2080;3HР;YRЮ:З:З"REDUCE TO LOWEST TERMS":З:З;n\ЗAN(1);"/";BN(1);МfЗ:З"YOUR ANSWER, PLEASE?";вpЙ "NUMERATOR=";NN;║zЙ "DENOMINATOR=";NP;├ДXT│1;┘ОNU│AN(1):CD│BN(1);▀ШР<вВ PART OF PROBLEM MODULE60001 REM AND OUTPUT ROUTINE<YмВ THIS PORTION REDUCES THE COMPUTER'S ANSWER TO LOWEST TERMS<n╢Е XX│1 з Бе 2460<└Е M│5 з 2550<Э╩Е NU┤│CD з AA│NU :Д AA│CD<м╘А K│2 е AA<╟▐Е NUоK│ Б(NUоK) з 2640<╧шЛ K<ьЄВ CHECK FOR MIXED NUMBER=№Е NU│┤CD з 2340=3	TA│ Б(NUоCD):В TA IS WHOLE NR PART OF FRACTION=S	TB│NUмTAнCD:В NEW NUMERATOR=Г	ZA│1:В ZA IDENTIFIES A WHOLE NUMBER PRESENT=Ф	$Е B│1 з 2530=ж	.Е ZA│0 з 2400=╕	8Е TB│0 з 2670=╤	BЕ B│2 з Ю :Д Бе 2400=Ї	LЗ:З:З"THE FINAL ANSWER SHOULD"> 	VЗ"BE ";TA;TB;"/";CD;" OR IN OTHER FORM">2	`Е NU│0 з 2690>b	jЗ:З:Е CD│1 з З:З"THE ANSWER IS ";NU:Бе 2430>Ж	tЗ:З:З"THE ANSWER IS ";NU;"/";CD>ж	~В PROBLEM COUNTING ROUTINES>▓	ИБж 2700>╗	ТZA│0>═	ЬА LL│1е2000:Л>ъ	жБж 2800:В ENDING ROUTINE?	░З:З:З"PRESS <BREAK> TO STOP"?)	║З"OR CHANGE PROBLEM TYPE"?A	─АML│1е1000:Л:Бе 400?e	╬Е  О(R$,1)│"Y" з XT│XTл1:Бе 400?z	╪З:З:З"THE END":К?Я	тЮ:З:З"YOUR ANSWER IS ";NN;"/";NP?л	ьБе 2350?╡	ЎЮ:З:З?▀
З:З"YOU SPECIFIED ";N;" DENOMINATORS"?ё

З"THEY WERE:"?¤
А K│1еN@
З"D-";K;"=";BN(K)@
(Л K@A
2З"THEIR COMMON DENOMINATOR IS";CD@^
<З:З"YOUR ANSWER WAS ";NP@j
FБе 2430@Е
PЕ CDоK│ Б(CDоK) з 2660@С
ZБе 2280@н
dNU│NUоK:CD│CDоK:Бе 2260@╩
nЗ:З:З"THE ANSWER IS ";TA@╓
xБе 2430@№
ВЗ:З:З"THE ANSWER IS ZERO":Бе 2440A
МВ CORRECT ANSWER COUNTERA+
ЦЕ B┤▓1 з 2790AX
аK1│K1л1:В NUMBER OF PROBLEMS IN THIS SETAk
кЕ ZA┤▓0 з 2770A
┤Е M│5 з Бе 2880Aе
╛Е NU│0 з Е NN│0 з K2│K2л1:Бе 2790A╠
╚Е NU│NN ░  CD│NP з K2│K2л1:Бе 2790Aє
╥Е TB│0 з Е TA│NN з K2│K2л1:Бе 2790B
▄Е NU│NN ░  CD│NP з K2│K2л1:Бе 2790B 
цРB4
ЁЕ K1┤▓10 з 2870BР
·А TY│1е1000:Л TY:Ю:З:З"THAT CONCLUDES TEN PROBLEMS.":З:З"YOU GOT ";K2;" OF THEM RIGHT!"BаА L1│1 е K2B┤а 100л Д(100),4B║ЛB╚"K1│0:K2│0Bё,З:З:Й "PRESS <ENTER> TO CONTINUE";POBў6РC
@Е NP│CD з K2│K2л1CJБе 2800B4
ЁЕ K1┤▓10 з 2870BР
·А TY│1е1000:Л TY:Ю:З:З"THAT CONCLUDES TEN PROBLEMS.":З:З"YOU GOT ";K2;" OF THEM RIGHT!"BаА L1│1 е K2B┤а 100л Д(100),4B║ЛB╚"K1│0:K2│0Bё,З:З:Й "PRESS <ENTER> TO CONTINUE";POBў6РC
@Е N                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 iX│ Д(м Я)O	Ю:З" ENTER ADVENTURE NAME":ЙNM$:Е  З(NM$)▓8 з NM$│ О(NM$,8)|
Ю:Й"PLACE TAPE, PRESS PLAY, &<ENTER>";X$РЮ:З"LOADING---"ЯЧM"",10000о2АX│474е481╔<Y│ Ж(X):Е Y│32 з Y│143╫FТ Xл559,Y▀PЛ X∙ZA│ Ж(487)н256л Ж(488)dB│ Ж(126)н256л Ж(127)м1/nC│ Ж(157)н256л Ж(158)ysЮ:З"PRINTING ADDRESSES FOR ";NM$:З#м2,,,"ADDRESSES FOR "NM$:З#м2:З#м2ЭxЗ#м2,,,"       DECIMAL","  HEX"┴ВЗ#м2,,,"       -------","  ---"тМЗ#м2,,,"START: "A,"   " Ь(A)ЦЗ#м2,,,"  END: "Bм10000,"   " Ь(Bм10000)<аЗ#м2,,,"ENTRY: "Cм10000,"   " Ь(Cм10000)oгАP│1 е 4:З#м2:ЛP:З#м2,,,"DICTIONARY":З#м2:З#м2деЮ:З"SEARCHING RAM---":З@416,"FROM "Aл10000"TO "B╖кАI│Aл10000 е B─┤AA│ Ж(I)▐╣З@240, Л( Д(128)л127)·╛Е AA│32 з З#м2,  Л(AA);:╚Е AA▓32 ░  AA┤122 з З#м2,  Л(AA);:З@480,"ADDRESS="I;:а100,1A╥ЛI^▄Ю:З"DICTIONARY COMPLETE"dсКЗ#м2деЮ:З"SEARCHING RAM---":З@416,"FROM "Aл10000"TO "B╖кАI│Aл10000 е B─┤AA│ Ж(I)▐╣З@240, Л( Д(128)л127)·╛Е AA│32 з З#м2,  Л(AA);:╚=PAGE NUMBER OF LISTING"*
6З*D
@З "(164) GRAFXXX","(84)  FINALDEM"*e
JЗ"(84)  XPAD1","(84)  XPAD2"*Ж
TЗ"(84)  XPAD3","(84)  XPAD4"*з
^З"(84)  XPAD5","(84)  XPAD6"*╚
hЗ"(84)  XPAD7","(84)  XPAD8"*╬
rЗ*Є
|З"   PRESS ANY KEY TO CONTINUE"+
ЖЕ  Т│""з390+
РЮ+/
ЪЗ "  (XX)= PAGE NUMBER OF LISTING"+5
дЗ+[
оЗ"(174) TRIGSHOW","(50)  DUNGEON"+
╕З"(54)  D-ADVNTR","(170) SAR27"+ж
┬З"(130) RNDWALK1","(130) RNDWALK2"+╦
╠З"(166) BASIC64K","(74)  INVITE"+Ё
╓З"(126) RAINDEX","(111) MATHPAL",
рЗ"(80)  DUPER","(136) CHEMBOND",
ъЗ,?
ЇЗ "   PRESS ANY KEY TO CONTINUE",Q
■Е  Т│"" з 510,WЮ,~З "  (XX)= PAGE NUMBER OF LISTING",ДЗ,и&З"(49)  TARTAN","(122) HOBBIT*",╠0З"(92)  EDUCATE","(106) INMAN1",Є:З "(106) INMAN2","(95)  RBOWCHEK"-DЗ "(26)  RANDOLF"-NЗ-2XЗ"  *=MACHINE LANGUAGE PROGRAM"-8bЗ-{lЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"-аvЗ "  PRESS (BREAK) TO EXIT MENU"-╝АЕ  Т│"" з 640 :Д Бе 240-╠КЗ б(32,45);"(106) INMAN2","(95)  RBOWCHEK"-DЗ "(26)