╬& В"TEACHER'S AIDE"&@В"STEVE BLYN,COMPUTER ISLAND,NY,1983&}МA$(30),B$(30),C$(30),D$(30),E$(30),F$(30),G$(30),H$(30)&б(Ю:З" THE NAME OF YOUR CLASS"&▓2З б(32,175);&┴<А T│ 1е 30&ўFН A$(T),B$(T),C$(T),D$(T),E$(T),F$(T),G$(T),H$(T)'PЕ A$(T)│"END" з 100'ZЛ T''dЗ@77,"MENU"'8nЗ б(32,191);'UxЗ:З "1. ALL INFORMATION"'|ВЗ:З"2. INFORMATION ON ONE STUDENT"'ЪМЗ:З"3. END THE PROGRAM":З'вЦЙ A'╕аЕ A┤1 ▒ A▓3 з 150'╚кЕ A│3 з Ю:К'╪┤Е A│2 з 350'ь╛Е A│1 з АT│1е30'є╚Ю5(╥З"#";T;" ";A$(T)(▄З б(32,175);(/цЗ"D.O.B. :";B$(T)(EЁЗ"ADDRESS:";C$(T)([·З"PHONE #:";D$(T)(qЗ"MATH :";E$(T)(ЗЗ"READING:";F$(T)(ЭЗ"WEIGHT :";G$(T)(│"З"HEIGHT :";H$(T)(╒,З@422,"PRESS ENTER TO GO ON";)6Е A$(T)│"END" з Ю:З"THIS IS THE END OF YOR LIST":а180,10:а210,10:О))@WAIT$│ Т)>JЕ WAIT$│"" з 320)FTЛ T)e^Ю5:З"WHICH STUDENT";:Й AN$)дhП:АT│1е30:НA$(T),B$(T),C$(T),D$(T),E$(T),F$(T),G$(T),H$(T))┐rЕ A$(T)│"END" з Бе 480)ё|Е  О(A$(T),5)│ О(AN$,5) з З б(32,255); :Д 470*ЖЗ"NAME :";A$(T)*РЗ"D.O.B. :";B$(T)*2ЪЗ"ADDRESS:";C$(T)*HдЗ"PHONE #:";D$(T)*^оЗ"MATH :";E$(T)*t╕З"READING:";F$(T)*К┬З"WEIGHT :";G$(T)*з╠З"HEIGHT :";H$(T):Бе 490*о╓ЛT*┌рЗ@352," STUDENT NOT FOUND ON THIS LIST"+ъЗ@418," PRESS nEXT OR mENU OR eND";+ЇWAIT$│ Т+#■Е WAIT$│"M" з О+9Е WAIT$│"N" з 350+OЕ WAIT$│"E" з Ю:К+ZБе 490+г&Ж CLAUS SANTA,1/1/01,1 NORTH POLE AVENUE,999-1234,10.7,12.8,300,5'8"+ц0Ж CLEAR CHRIS,8/3/71,75 THIRD STREET,856-2640,5.8,7.6,108,5'2",,:Ж COMPUTER CHIP,10/10/70,1 TANDY CENTER,765-4321,7.2,6.8,150,5'9",uDЖ KEYBOARD KARL,4/5/71,135 TYPEWRITER LANE,456-4567,6.7,8.7,138,5'4",╗NЖ ROMPACK RANDY,12/18/70,245 DISK DRIVE,234-5678,5.8,7.6,128,5'3",═XЖ END,,,,,,,,-?Бж 9600:Бж 9700:Ю:З:HP│C(3)лC(7)лC(8)л(PLм                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┤&} Ю:З:З:З" HERE IS ONE MORE VERSION OF POLYGON. IT WILL DRAW A FIGURE, AND THEN DO SOME ODD THINGS TO IT.&эЗ:З" IF THE WAIT FOR THE " Л(34)"ODD THINGS" Л(34)" GROWS TOO BORING, PRESS " Л(34)"F." Л(34)'З:З" PRESS ANY KEY TO RESTART.'6(З:З:З" (PRESS =ENTER= TO START)'L2Е Т│ Л(13)з60:Д50'~<В POLYGON VAR. 17'ОF╚4,1:╝:┐1,1'жPPI│3.14159:M│ Д(90)'╝ZАT│0е2нPI й PIо75'═dR│ Х(MнT)н95($nX1│ Х(T)нRл128:Y1│ Е(T)нRл96:A│TлPIо3:R2│ Х(MнA)н95:X2│ Х(A)нR2л128:Y2│ Е(A)нR2л96(4xЕ Т│"F"з155(GВТ65494,0:Бе150(VМТ65495,0 (pЦ╗(X1,Y1)м(X2,Y2),╜:ЛT(vЫВ(Га╚3:Бе180(Кк╚2(Ю┤┐1,1:Т65314,248(│╛Е Т│""Бе180:ДО60,З@422,"PRESS ENTER TO GO ON";)6Е A$(T)│"END" з Ю:З"THIS IS THE END O                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 & :ГD/BAS& Х1000&%МP$(35,2)&+Ю&W(З"DISK#1 RAINBOW 830815 :"; г(0);"FREE"&c2АZ│3е11&u<▀0,17,Z,A$,B$&ЕFX$│A$:Бж110&ХPX$│B$:Бж110&ЬZЛZ&жdБе190&╢nАJ│1е128й32&└xR│Rл1&╫ВP$(R,1)│ Р(X$,J,8)&■МЕ О(P$(R,1),1)│ Л(255)зR│Rм1:Бе190'#СЕ О(P$(R,1),1)│ Л(0)зR│Rм1:Бе170'<ЦP$(R,2)│ Р(X$,Jл8,3)'UаЕP$(R,2)│"DAT"зR│Rм1'\кЛJ'b┤Р'm╛АK│1еR'Х╚З═"##";K;:З")";P$(K,1);"/";P$(K,2),'в═ЕK│R зЗ,'й╥ЛK'╡╫LCN│480'╓▄З@LCN,"SELECT A PROGRAM";:ЙP'ЄцЕP┤1▒P▓R зLCN│448:Бе220(ЁPROG$│P$(P,1)л"/"лP$(P,2)(·╙PROG$,R198,"EVERYTIME IT APPEARS";:З@228,"YOU PUT 2 INTO THE PISHKA";:З@458,"HIT ANY KEY";(Е┤Е  Т│"" з 180(Р╛Бе 430(Ъ╚╚ 1,3(е╥Бж 560(─▄╞ "BM144,60;R68D68BL52U60")Qц╞ "BM12,100;R8BL4D12BR8U12R8D12BU8L8BR12BU4D12BU6E6BG6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "8CаЗ:З"EXAMPLE: 100DATA SCRIPT,WILL,HELP,YOU,LEARN,TO,SPELL":К8iиЗ:З" YOU STUDIED ";N;" WORDS."8Е░Е Z│1 ▒ Z│3 ▒ Z│5 з22728м╕З:З" YOU REMOVED ";N1;" WORDS."8└└N2│ Б(N1н100оN)8с╚З:З"THAT IS ";N2;" PERCENT."9╨З" ":Е N2▓75з З"VERY ";9#╪Е N2▓50з З"WELL DONE ";N$;"."9WрЗ" ":З"YOU TOOK "; Б( Яо360)о10;" MINUTES."9sшЕ Z│1 ▒ Z│3 ▒ Z│5 з23369ЖЁА T│0е5000:Л T9Р°Ю:N│09Я П:А T│0е D9─ Н M$:Е L(T)│м1 з З M$;" ";:N│Nл19╠ Л T9Ё З:З:З"YOU REMOVED ";N;" WORDS.": З:З"I HOPE WE WILL PLAY AGAIN SOON.": (К:@ 0:Гprint diagrap combinations:T 8Е D1(S)┤▓3з2376:m @Е D1(Sл1)│8з2480:Гch:В HЕ D1(S)┤▓19з2392:Ы PЕ D1(Sл1)│8з2480:Гsh:░ XЕ D1(S)┤▓23з2408:╔ `Е D1(Sл1)│8з2480:Гwh:▐ hЕ D1(S)┤▓20з2424:ў pЕ D1(Sл1)│8з2480:Гth; xЕ D1(S)┤▓3з2440;% АЕ D1(Sл1)│11з2480:Гck;= ИЕ D1(S)│17з2480:Гqu;R РЕ D1(S)┤▓19з2464;l ШЕ D1(Sл1)│23з2480:Гsw;s а:Г;y иР;О ░╞";XLT$(D1(S));";Ш ╕S│Sл1;к └А T│0е100:Л T;░ ╚Р57)┴И:Г*PLAY)╘ТЖ 16,142,0,104)°ЬЖ 166,159,41,195,171,159,41,198*жЖ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 F2D7U7E2RF2D6FR":Гm/8╚LT$(14)│"E2U6EFD8U7E2R3F2D6FR":Гn/d╨LT$(16)│"E2D2FD8LU18D3E3RF2D5G2L3R7":Гp/Ж╪LT$(18)│"RE2U7F2DFR3ED5FR":Гr/┤рLT$(19)│"RE2UE2UEU2F2RD2RD3G2L3H2F2R6":Гs/▌шLT$(20)│"R4URU14RD4L5R8L3D10RDR3":Гt0ЁLT$(22)│"E3U6D6F3E3U5EBD8BF":Гv0-°LT$(23)│"E3U6D6F2DUE2F2DUE2U5EBD9BR":Гw0[LT$(24)│"EBU4U3ERF3D3G3BRBE7UHG3D3F3R":Гx0ОLT$(26)│"E2U4E3R5F2D2G4F2D6LDL3UHUE2R2UER3":Гz0╞LT$(25)│"C7R2E2U7D6F2RE2U6D16LDL3UHU2E2R2UER2C6":Гy0╠Р0ч :Гdisplay/proof script0√(╝5:╚3,1:╝5:┐1,110╞"BM10,50;S8;C7"18D│01%@А T│1е101/HD│Dл11APА Q│0е100:Л Q1RX╞";XLT$(D);"1Z`Л T1kh╞"BM10,100;"1xpА T│1е101ВxD│Dл11ФАА Q│0е100:Л Q1еИ╞";XLT$(D);"1нРЛ T1╛Ш╞"BM10,150;"1╩аА T│1е61╘иD│Dл11ц░А Q│0е100:Л Q1ў╕╞";XLT$(D);"1 └Л T2 ╚╞ SP$2╨А T│0е1000:Л T2"╪Р25р:Гinstructions2@шЮ:┐0,02eЁЗ@132,"please tell me your name"2s°З@266,"";2|Й N$2ВЮ2╦З@96,"DO YOU WANT NORMAL(1) OR DOUBLE(2) SPEED"2ьЗ" ";:Й Z3* З:З" HOW LONG DO YOU WANT TO PLAY, IN MINUTES"3G(З" ";:Й T13V0T1│T1н36003d8Т 65494,03y@Е Z│2з Т 65495,13БHЮ:З3╗PЗ"MAKE YOUR SELECTION AS INDICATED BELOW."4XЗ"1. SPELL THE WORD BY DISPLAYINGINDIVIDUAL LETTERS IN SEQUENCE."4I`З"2. SPELL THE WORD AND PREVENT REDISPLAY BY PRESSING SPACEBAR."4РhЗ"3. DISPLAY THE WORD, THEN TYPE THE LETTERS USING THE KEYBOARD."4╣pЗ"4. DITTO 3 + PREVENT REDISPLAY.";5xЗ"5. FLASH THE WORD, THEN TYPE THE LETTERS USING THE KEYBOARD."5)АЗ"6. DITTO 5 + PREVENT REDISPLAY.";5RИЗ:З"SELECT 1, 2, 3, 4, 5 OR 6 ";:Й Z5АРЕ Z│1 ▒ Z│2 ▒ Z│3 ▒ Z│4 ▒ Z│5 ▒ Z│6 з19525ЛШБе17605СаР5ки:Гget keyboard input5╠░Е Z│5 ▒ Z│6 з ╝5:Гremove word5▄╕╞"BM10,140"5ч└а220,15∙╚А S│1е  З(D$)6╨Е D1(S)│0з S│Sл1 6╪А T│0е70066рIN$│ Т:Е IN$│""з20406\шЕ  К(IN$)│64лD1(S)з а177,1:Бе20566vЁ┐1,0:АQ│0е50:Л Q:┐1,16~°Л T6Йа175,16Ю╞";XLT$(D1(S));"6жЛ S6п┐1,06┴ А T│0е300:Л T6╩(┐1,16╨0Р6ш8:Гprevent redisplay6є@а220,37HА T│0е5007"PЕ  Т┤▓""з L(DL)│м1:N1│N1л1:Р7*XЛ T70`Р7Ah:Гend lesson7OpТ 65494,07UxЮ7oАЗ@68,"THANK YOU, ";N$7ИЕ N┤▓0з22167└РЗ:З" BUT YOU HAVE FORGOTTEN TO ENTER DATA."8ШЗ:З" ENTER DATA BETWEEN LINES 88 AND 788.)│"D2G1BE1BU2BR12"/*'ЬL$(29)│"D1BU1R1BR11"/P'бL$(30)│"BE1U6BR2D6BR2U6BU1BL5BD8"/V'жР/┴5,0:╔"T5L12O5GFEO1DCBA":АT│1 е 10:╗(PX,PY)м( Д(255), Д(25)л75),╜:а  Д(10),3:ЛT:АT│1 е 3:а  Д(50),1:┐1,0:а5,1:┐1,1:ЛT:АT│1 е 250:ЛTч0Бе 571Е PX▓114 ░ PX┤140 з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  W& В ** TEXT CREATOR **&3В ** MAIN PROGRAM **&[Ю:Х 500:М L$(30):М F(40):М W(40,30)&hБж 10000&sБж 200&#Бж 7000&Н(А R│L е M&ж-Y│(Rм1)нKлK:Y$│ И(Y)&┬2╞ "S"лS$л"BM"лC$л","лY$&╓7Q│ Б(80о Й(S$))&ф<А C│1 е Q&ЁAБж 9000' FW$│W$лA$:N│ К(A$)м64'KN│ К(A$)м64'2PЕ N│м54 з M│R:Бе 145'IUЕ N│30 з ╝:Ю:Бе 30'lZЕ N│м51 з W(C,R)│29:C│Q:Бе 130'Я_Е (N┤1 ░ N┤▓м20 ░ N┤▓м18 ░ N┤▓м32) ▒ N▓26 з 65'▓dЕ N│м20 з N│28'┼iЕ N│м18 з N│29'╪nЕ N│м32 з N│27'хsW(C,R)│N'°x╞ "S"лS$лL$(N)(}X│Cн Й(S$)н3л2:C$│ И(X)(ВЛ C('ЗC$│"2"(/МЛ R(=СЮ:Бж 8000(CЦК(JЫ:Г(h╟В ** YOUR PROGRAM HERE **(r╚╚ 4,1(~═╝:┐ 1,0(в╥G1$│"R10U1L10U1":G2$│"U4R1D4R1"(╛╫╞"BM115,70"лG1$лG1$лG1$(╨▄╞"BM+4,0"лG2$(рс╞"BM-22,-4"(єцА H│40 е 2 йм4)ы╞"R"л И(H)л"BU3L"л И(Hм2))ЁЛ H).їА N│1 е 2000:Л N)4·Р): !)MWВ ** INPUTS **)WXW$│"")s]Й"LETTER SIZE (1-8)";S$)КbЙ"STARTING LINE";L)Шg╚ 4:┐ 1,0)йlX│2:C$│ И(X))╜qM│ Б(72о Й(S$)))╬vK│ Й(S$)н2л2)╘{Р)┌А!)Ї?В ** PRINT RESULTS ***@З#м2,"FOR YOUR PROGRAM "*$EЗ#м2,"S$ =";S$*5JЗ#м2,"L =";L*TOЗ#м2,"TEXT LETTERS WERE -"*bTА R│L е M*kYЗ#м2*y^А C│1 е Q*РcЕ W(C,R)│0 Бе 8045*╕hЗ#м2,"L$("л Р( И(W(C,R)),2,2)л"),";*└mЛ C*╔rЗ#м2*╤wЛ R*╫|Р*▌Б!*Ў#'RE нн CURSOR УROL нн+#(─(Xм2,Yм8)м(Xл16,Yл16),F,G+#-A$│ Т+3#2Е A$┤▓"" з 9035+X#7╞"S"лS$л"C1;BM"лC$л","лY$лL$(30)+}#<╞"S"лS$л"C0;BM"лC$л","лY$лL$(30)+Ь#A┼(Xм2,Yм8)м(Xл16,Yл16),F,╜+и#FБе 9005+═#K┴ 1,0:┼(Xм2,Yм8)м(Xл16,Yл16),F,╜+╙#PР+┌#U:Г+ў'В ** DATA FOR LETTERS **,'L$(1)│"U8R8D4L8BR8D4BR4",4'L$(2)│"U8R8D4L8BR8D4L8BR12",N'L$(3)│"U8R8BD8L8BR12",g'L$(4)│"U8R8D8L8BR12",Е'$L$(5)│"U8R8BD4L8BD4R8BR4",в')L$(6)│"U8R8BD4L8BD4BR12",├'.L$(7)│"U8R8BD4L4BR4D4L8BR12",у'3L$(8)│"U8BR8D8BU4L8BD4BR12"-'8L$(9)│"BU8R8BL4D8BL4R8BR4"- '=L$(10)│"U4BU4BR8D8L8BR12"-?'BL$(11)│"U8BR8G4L4BR4F4BR4"-W'GL$(12)│"U8BD8R8BR4"-p'LL$(13)│"U8F4E4D8BR4"-К'QL$(14)│"U8F8U8BD8BR4"-д'VL$(15)│"U8R6D8L6BR12"-┴'[L$(16)│"U8R8D4L8BD4BR12"-▀'`L$(17)│"U8R8D8H4BG4R8BR4"-¤'eL$(18)│"U8R8D4L8BR4F4BR4"."'jL$(19)│"BU4U4R8BD4L8BR8D4L8BR12".='oL$(20)│"BU8R8BL4D8BR8".X'tL$(21)│"U8BR8D8L8BR12".w'yL$(22)│"BU8D4F4E4U4BD8BR4".Ф'~L$(23)│"U8BR8D8H4G4BR12".м'ГL$(24)│"E8BL8F8BR4".╔'ИL$(25)│"BU8F4E4BG4D4BR8".у'НL$(26)│"BU8R8G8R8BR4".ї'ТL$(27)│"BR12"/'ЧL$(28 ▒&Ю7:З@236," SCRIPT ";&/З@504,"plaxton";&6:Г&V :Гdata to be input prior to&v(:Гlesson. must be at least&Х0:Г11 words, but fewer than&╖8:Г151, all of which must have&╪@:Гten (10) or fewer letters.&ф Ж STOP1& (:Гinitialize variables'0X│ Д(м Ян Я)'48М LT$(32),L(150),D1(12),D1$(11)'S@:Гpreset max # of displays'lHА X│0е150:L(X)│3:Л X'ИPБж1344:Гgenerate script'гXБж1568:Гdisplay script'╝`Бж1760:Гintroduction'╧hП:D│0:N│0:N1│0'ъpН D$:Е D$│"STOP1" з896'·xD│Dл1:Бе880(А Я│0(И:Гrandomly get word(-РЕ  Я▓T1 з2152(<ШDL│ Д(D)м1(LаП:А X│0е DL(UиН D$(]░Л X(}╕:Гdisplay most of the words(Ы└:Гbut allow lesson to end(д╚DS│0(▒╨А X│0е D(├╪Е L(X)┤1з Л X(╥рDS│DSлL(X)(┌шЛ X(єЁЕ DS┤10з Бж2152:Гend)°Е L(DL)│┤0з920:Д L(DL)│L(DL)м1)/:Гflash printed word)>Ю( Д(9)м1))TЗ@235," ";D$;" ";)eА T│0е40:Л T)w А S│1е  З(D$))Ф(:Гdisplay word in script)е0╚3,1:╝5:┐1,1)▓8╞"C6;S8")┬@╞"BM10,100")╘HА S│1е  З(D$))юPD1$(S)│ П( О(D$,S),1)*XЕ D1$(S)│"*" з D1(S)│0:Бе1128*(`D1(S)│ К(D1$(S))м64*0hЛ S*CpD1(S)│0:Гspace*UxА S│1е  З(D$)*jА╞";XLT$(D1(S));"*rИЛ S*ДРА S│0е200:Л S*ЛШ╝5*▒аЕ Z┤3 з ╞"BM10,100" :Д ╞"BM10,50"*├иА S│1е  З(D$)*┘░Бж2352:Гdiagraph?*ю╕╞";XLT$(D1(S));"+└Е D1(S)│0 з1240+ ╚а175,1+╨А T│0е500:Л T+'╪Л S+Bр:Гreinforce whole word+NшА S│1е4+WЁ┐1,0+i°А T│0е100:Л T+r┐1,1+ДА T│0е100:Л T+МЛ S+иN│Nл1:Гcount # of words+╦ Е Z▓2 з Бж1960:Гinput required+·(Е Z│2▒ Z│4▒ Z│6з Бж2104:Гprevent redisplay,0Бе904:Гget another word,,8:Гgenerate script,H@LT$(0)│"BM+11,0":Гspace,xHLT$(1)│"C7RE3F3R2E2G2L2H3U4E2R3FRUD9RC6":Гa,дPLT$(2)│"RE5U9H2GD14UE5R2FD4G2L4HFR6":Гb,╤XLT$(11)│"RE5U9H2GD14UE5R2FD2GL5R2F3R":Гk, `LT$(4)│"E2F2R3E2BL7U3E2R4FH2U7EFD13F2":Гd-%hLT$(3)│"RE2BE5RUHL3G2D5F2R3EF":Гc-JpLT$(5)│"C7R3E4U3H2G2D3F4R2C6":Гe-qxLT$(6)│"R4E4U9H3GD22F2E2U3H4R5":Гf-ШАLT$(9)│"C7R4URU8BUUDBDD8RDR4C6":Гi-╦ИLT$(15)│"C7E2F2R2E2U5H2L2G2D5U5BRRFR4BD6C6":Гo-ЇРLT$(21)│"C7R2E2U7D7F2RE2U7D8FRC6":Гu.,ШLT$(7)│"E3F2R2EBUBL4LU4E2R2F2D14LDL3UHU2E2R2UER":Гg.XаLT$(8)│"R2E3U2RU9H2GD15U5E2R3F2D4FR":Гh.МиLT$(17)│"E3F2R2EBUBL4LU4E2R2F2D14F2E2U3H4R3":Гq.└░LT$(10)│"R3E4URURU2BUUDBDD14LDL3UHUE2R2UER2":Гj.ф╕LT$(12)│"R4E4U10H2G2D10F4R3":Гl/└LT$(13)│"E2U6EFD8U7E2R ·&r :ГREADBIN -- READS BINARY DISK FILES AND PRINTS INFO BY KEVIN DAVIDSON EASLEY, SC&ЕЙ"FILENAME";F$&ХЩ"D",1,F$,1&д(╨1,1  з C$&м2R│1&╢<─#1,R&═FЕ  К(C$)│255 з 190&┘P─#1,Rл1&ъZL│256н К(C$)&Ўd─#1,Rл2'nL│Lл К(C$)'x─#1,Rл3'"ВA│256н К(C$)'.М─#1,Rл4'=ЦA│Aл К(C$)'dаЗ "START: "; Ь(A),"LENGTH: "; Ь(L)'pкR│RлLл5'z┤Бе 60'Ж╛─#1,Rл3'Ч╚E│256н К(C$)'г╥─#1,Rл4'▓▄E│Eл К(C$)'╥цЗ "LAST ADDRESS: " Ь(AлLм1)'єЁЗ "EXECUTION ADDRESS: " Ь(E)'∙·К48)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 б&v :ГMACDATA V1.0 MACHINE LANGUAGE TO BASIC DATA CONVERTER BY KEVIN DAVIDSON&~╤ 2&ХЙ "BINARY FILE";B$&л(Й "BASIC FILE";D$&│2D│2&╬<Й "BEGINNING LINE #";B&тFЙ "INCREMENT";I&єPЩ "D",1,B$,1'ZЩ "O",D,D$'d╨ #1,1  з C$'nR│1'6xБж 320 :ГGET FILE INFO'KВЗ#D, Р( И(B),2);'iМЗ#D," 'BEGIN LOAD AT &H";'wЦЗ#D, Ь(X)'БаB│BлI'СкА J │ 1 е L'Ь┤Бж 490'з╛Бж 290'н╚Л'║╥LL│LлXл1'┼▄Бж 320'╓цЕ LL│X з 170'▐ЁC│0'э·А J│LL е X'°Бж 290'■Л( Бе 170(b"Е  Ъ(D)│0 з З#D, Р( И(B),2);" DATA ";:B│BлI :Д Е  Ъ(D)▓200 з З#D:Бе 290 :Д З #D,",";(w,З#D, Р( И(C),2);(}6Р(З@Бж490(ПJF│C(ЪTБж 490(ж^L│256нC(▒hБж 490(╗rL│LлC(╞|Бж 490(╥ЖX│256нC(▌РБж 490(чЪX│XлC(■дЕ F│255 з 430 :Д Р)оЗ#D)╕З#D, Р( И(B),2);)>┬З#D," 'BEGIN EXECUTION AT &H";)L╠З#D, Ь(X))W╓Ъ#D,#1)s█З "LAST LINE # USED:";B)yрК)Гъ─#1,R)НЇR│Rл1)Ъ■C│ К(C$))аР  а(CX,CY)┤▓0 з ┬(160,64),10,5,.25:├(160,64),5,5:Д ┬(CX,CY), Д(10)л30,5,.35:├(CX,CY),5,5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  U&! :ГQUICK-REFERENCE DIRECTORY&<:Г BY: PAUL SELIG, JR.&C:Г&U(:Г INITIALIZE&i2:ГVARIABLE LIST&З<:Г PC=# OF FILENAMES READ&кF:Г P1$=FILENAME WITHOUT DISK #&├P:Г Z$=CURRENT DISK #&рZ:Г PP$=TEMPORARY STORAGE&Ўd:Г P=CURRENT PAGE'n:Г TC=NUMBER OF DISKS READ'6x└1:Х18000:МP$(736):PC│0:TC│0'ЕВЮ:З б(32,172); Л(128);" QUICK REFERENCE DIRECTORY "; Л(128); б(32,163);'ХМЗ б(64,128)'╚ЦЕ TC│10 з З"10 DISKS READ!":АX│1е1000:ЛX:Бе360( аа1,1:╗Й"MOUNT DISK IN DRIVE '0' & ENTER THE DISK NUMBER: ";Z$(кTC│TCл1(*┤ЕZ$│"END" з 360(F╛:ГREAD IN THE DIRECTORY(R╚АS│3е11(d╥▀0,17,S,A$,B$(v▄АX│1е128 й 32(РцP1$│ Р(A$,X,12):Бж300(ЧЁЛX(й·АX│1е128 й 32(├P1$│ Р(B$,X,12):Бж300(╩ЛX(╤ЛS(█"Бе150(ў,Е О(P1$,1)│ Л(255)з 150)6Е О(P1$,1)│ Л(0)зР)9@P1$│ О(P1$,8)л"."л Р(P1$,9,12)л" "лZ$)PJP$(PC)│P1$:PC│PCл1)VTР)p^:ГSORT THE ARRAY P$()){hЮ0:B│1)ЦrB│2нB:ЕB┤│(PCм1) з 370)н|B│ Б(Bо2):ЕB│0з450)├ЖАI│1е(PCм1)мB:C│I)ўР:ГNOTE: ENTER lowercase USING THE SHIFT-0!!*ЪD│CлB:ЕP$(C)┤│P$(D)з440*&дЗ@0,"sorting";*YоPP$│P$(C):P$(C)│P$(D):P$(D)│PP$:C│CмB:ЕC▓0з410*f╕ЛI:Бе380*s┬а1,20:Ю0*г╠З@0,"sort"; Л(128);"complete";:АX│1е1000:ЛX+ ╓Ю:З"BE SURE PRINTER IS CONNECTED, SELECTED, AND TURNED ON. WHEN READY, HIT THE [ENTER] KEY":З:З+р╗ЙA$++ъЮ0:З@0,"printing";+8ЇАP│0 е 4+y■:ГCHR$(31) IS THE EXPANDED PRINT (40 CHARS/LINE) MODE+л:ГCHR$(30) IS THE RETURN TO NORMAL CODE+█З#м2, Л(31)д12)"QUICK-FIND DIRECTORY" Л(30)+чЗ#м2,"",5&З#м2,"FILENAME.EXT DISK"д31)"FILENAME.EXT DISK"д62)"FILENAME.EXT DISK",Г0З#м2,"------------ ----"д31)"------------ ----"д62)"------------------",╖::ГPRINT THE DATA IN A THREE COLUMN FORMAT,╒DАX│0л(Pн165) е 54л(Pн165),ўNЗ#м2,P$(X),P$(Xл55),P$(Xл110)-XЕ PC┤X з О- bЛX-=l:ГCHR$(12) IS THE FORM FEED CHARACTER-MvЗ#м2, Л(12)-TАЛP ^ `R `R N XH" XH & P RJ& RJ " H J:, J: 0 B D:2 D: 0 H J>, J> ( P RJ& RJ " T VH VH  ^                                                                                                                                                                                                                                                                 " :Г****TAPE DIRECTORY****6/83):Г0:ГK(:ГBY: RICHARD T. MEUSEe2:Г 125 LEBANON ST.В<:Г MELROSE, MA. 02176ЪF:Г (617)665-6061бP:ГиZ:Г│dБж 490═nАX│1061е1082:ТX,255:ЛъxАX│1061е1413й32:ТX,255:ЛВАX│1413е1434:ТX,255:Л"МАX│1434е1082йм32:ТX,255:Л<ЦЗ@9,"TAPE DIRECTORY";aаЗ@32н2л6," * (1)XXXXXXXX ";ЖкЗ@32н3л6,"

(2)XXXXXXXX ";л┤З@32н4л6," (3)XXXXXXXX ";╨╛З@32н5л6," (4)XXXXXXXX ";ї╚З@32н6л6," (5)XXXXXXXX ";╥З@32н7л6," (6)XXXXXXXX ";?▄З@32н8л6," (7)XXXXXXXX ";dцЗ@32н9л6," (8)XXXXXXXX ";КЁЗ@32н10л6," (9)XXXXXXXX ";░·З@32н11л6," * (0)XXXXXXXX ";▄З@32н13л3,"<>";З@32н14л1,"<