' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ƞ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*` 255 38400 103,1+104,8<(2048,0:100B)V2(4);"RUN ED+"\<|d1010,172:1011,3:1012,166nI940964:J:I,J::x 32,234,3,162,0,189,189,3,240,6,32,237,253,232  208,245,0,141,132,210,213,206,197,196,0 >`p>pap|>|>`>|~>`p>DDDDDDD>@2>@>@"D"> @?p@x?6?|9?`=?~B?xpQ?@a?x`p|9`p6:|9:`=:|~B:`p:pqx~:|:`:|~:`p::88|9>`=>|~B3@3p45x@@5|D5p5|5`5|~5`p66|96`=6|~B6`p6|6`6|~6`p6 67p@`x 67|97`=7|~B7`pQ7S7l7@r7 7p@`x7|7@7|7p8|D49xx?9@D9p9|9`9|~@C $$$Dt/ @/p@`x//|/~?/pp41x;1x@1@D1p1|1`?1~~1pp62|92`=2|~B2`p2|2`2|~2`p2@a3p@`x63|93`=3|~B3`pQ388D|8D^3@caqk3@ d#DCt3`Gp3p@`x33|3x+0pAA`x +6+|9+`=+|~B+`pQ+DdD_+"k+@D`'d't+ @+p@`x+|++xpG-D-|-`-~-xp6.|9.`=.|~B.`p.|.`.|~.`p./pA`x /6/|9/`=/|~B/`pQ/!DD$DD_/"k/D%xA|p6&|9&`=&|~B&`p&|&`&|~&`p'pA`x6'|9'`='|~B'`pQ'D<<|_'ac!k'@# d#$t' @'p@x '|'@|pG)D)|)@p|?)p6*|9*`=*|~B*`p*|*`*|~*`pxC??x?@?p?x?``?>|A??~?* |px~G!T!x!xp6"|9"`="|~B"`p"|"`"|~"`p#pA`x6#|9#`=#|~B#`pQ#!DD(DD_#"k#@m#@ $$$t# @#p@x?#|#@p|?#p#G%>>>@$>3>~5>pT>W>A\>_>>>0>`@>>|>@>~>`>> >>A@A>A >!>??0? $?-?`7?~B?`T?|W?B [?!_?b?@@g?!i?A m?!??`?0??`|x~?~|?~A??`|x~|`;8`;;  ;`AA ;`|A?"~###@@$#,#|4#|7#~B#`T#0W# @ _#b#e#!i#qcqcq q1ii   Yq&e Yq(e Yq`< C E L U `|p~_ ~a x?e |Ai ~`|p~r xxG?   ~ ?p ~  @  `|x~x~ x? |A@`||~~ !$!-!~?          άŠΠȬӠéٍč̠ՠŠ٠ĠխΠӠҠҠΠŮŠՠҠӠŠȠŠ̠Ġ˭Рˮ̠ŠԠҠҠҠҠԠ͠ŠŬŮՠҠ̠ōҠӠϠԬٍĠΠՠĠΠϭ٠ŠĬǭōà͠ϠŠĠӍŠծŠŠƠӠ͠ӍĠĠӠԠ٠+cH ٥vHv +hvhيL!+ `Ġ٬L(<ՠҩŠҠΠ͠ӬҍϠŠӠԠҠΠϠˍ     - ";::" ":@@21:3:"I:J:K:M - MOVE CURSOR TO CHOOSE MENU"o@23:5:"A - ADD MENU D - DELETE MENU"@5:"E - EDIT MENU R - RETURN";@1:LEND MENU PROG.";?1:???:12:"MENU NAMES ON FILE"]?12:"------------------"?5:3:"001 - 010";:16:"011 - 020";:29:"021 - 030"?I110:J13?(I6):(3(J1)13):"__________":: @19:6:"PLEASE TYPE DESIRED COMMAND DEVELOPER";>1:>H>18:958:19:12:"DATA ENTRY COMMANDS"y>2:"RTN - NEXT ENTRY ESC - STOP ENTRY">14:"OPERATION TYPES">4:"A - BASIC PROG. U - USER PROG.">4:"B - BINARY PROG. D - BOOT DISK"?13:"E - "&=13:18:"A";:28:"6";:39:"1"/=1:5=v=18:958:19:6:"PLEASE TYPE DESIRED COMMAND - ";::" ":=21:6:"J:K - DISPLAY NEXT ELEMENT"=8:"I - ENTER NAME/TITLE"=8:"M - ENTER ELEMENT/OPERATION" >8:"R - RETURN TO MENUENT NUMBER :":11:"PROMPT :"X<13:"OPERATION TYPE :";:21:"SLOT :";:31:"DRIVE :"n<15:"NAME :":<4:13:"__________";:31:"_________"<VU(1)6:VU(2)11:VU(3)15<I13:VU(I):10:"______________________________":=9:18:"114:9:"3 -- DISK SECTOR CHANGE"I;16:9:"4 -- BOOT 13 SECTOR DISK"w;20:9:"PLEASE TYPE A NUMBER - ";::" ";:;;:14:"MENU PARAMETERS";14:I115:"-";::;:4:"MENU NAME :";:24:"DATE :"<6:"TITLE :":9:"ELEM:18:8:"6 -- RETURN TO MAIN MENU"S:21:9:"PLEASE TYPE A NUMBER - ";::" "[::a:::6:14:"DISK UTILITIES":UL$"":UL14:I1UL:UL$UL$(45)::7:14:UL$:10:9:"1 -- FILE DEVELOPER":12:9:"2 -- DISK COPY"";MMANDS"9UL$"":UL1649I1UL:UL$UL$(45):D95:13:UL$l98:8:"1 -- COMPRESSED CHARACTERS"910:8:"2 -- STANDARD CHARACTERS"912:8:"3 -- EMPHASIZED PRINT"914:8:"4 -- DOUBLE STRIKE PRINT"916:8:"5 -- NORMAL PRINT"%L$#89:9:"1 -- FILE DEVELOPER"E811:9:"2 -- MENU GENERATOR"l813:9:"3 -- BOOT 13 SECTOR DISK"815:9:"4 -- DISK COPY"817:9:"5 -- RETURN TO MAIN MENU"821:9:"PLEASE TYPE A NUMBER - ";::" "8:9:4:13:"PRINTER CO"6 1"97}10:1:"B";:3:"3";:6:"MUFFIN";:38:"6 1"l7~12:1:"B";:3:"4";:6:"BOOT13";:38:"6 1"724:8:"PRESS RETURN TO CONTINUE - ";::" ";::1:7:5:14:"DISK UTILITIES"7UL$"":UL147I1UL:UL$UL$(45):86:14:U-----------------"?6w3:1:"T";:3:"E";:38:"S";:40:"D";\6x3:14:"OPERATION NAME"6y4:1:"-";:3:"-";:38:"-";:40:"-";6z4:14:"--------------"6{6:1:"A";:3:"2";:6:"COPYA";:38:"6 1"7|8:1:"B";:3:"1";:6:"FID";:38:#5n13:9:"4 -- WORD PROCESSING"H5o15:9:"5 -- GRAPHICS PROGRAMS"i5p17:9:"6 -- ENTERTAINMENT"5q19:9:"7 -- RETURN TO DOS"5r23:9:"PLEASE TYPE A NUMBER - ";::" "5s:5t5u:1:10:"MENU OPERATION SUMMARY"6v2:10:"-----4c19:35:"A":35:" "(4dI12000:14e25574fX4g:3:13:"SYSTEM MAIN MENU"i4hUL$"":UL164iI1UL:UL$UL$(45):4j4:13:UL$4k7:9:"1 -- DISK UTILITIES"4l9:9:"2 -- PRINTER COMMANDS"5m11:9:"3 -- INVESTMENT PROGRAMS"7:12:T0$;:29:T0$$3U8:13:T1$43V17:6:T3$D3W20:8:T4$O3XI16g3Y(I15):26:CS$(I)m3Z{3[LS13583\I11000::503]20:213^20:35:"A":35:" "3_173`:12:10:"DEMONSTRATION PROGRAM":3aI11000:3b17**"!2LT3$"CRANE SOFTWARE INC.":2MT4$"COPYRIGHT 1981"f2NCS$(1)" /==":CS$(2)" / !"2OCS$(3)" / !":CS$(4)" /---/ !"2PCS$(5)" / O / !":CS$(6)"/---/ A"2Q:4:13:T1$2R5:12:T0$;:29:T0$2S6:11:T2$3T"1"!1?VT15:HT10:A$M$(3,K):8,1@431:21AV1BVU(1)11:VU(2)11:VU(3)15:427j1C9:18:M$(0,K)1D11:10:M$(1,K)1E13:18:M$(2,K)1F15:10:M$(3,K)1G1H1IT1$"":T0$(42)1JI116:T1$T1$T0$:2KT2$"** MENU GENERATOR 427:09:9:18:M$(0,K):16::J1500::9:18:M$(0,K)X0:VT11:HT10:A$M$(1,K):8g0;J1500:0<:13:18:M$(2,K);:16::J1500::13:18:M$(2,K)0=:13:28:"6":16::J1500::13:28:"6"1>:13:39:"1":16::J1500::13:39:05"%/.:I14:(22I):8:S$(I):3//LS2:344S/017:" GIVE YOUR APPLE"n/119:" A LIFT"y/21:21/320:35:"A":35:" ":21/419:35:"A":35:" ":21/5:(4):(4);"RUN ED"/6/743808VU(1)11:VU(2)11:VU(3)15:DS."(.'19:"MENU GENERATOR RUNS ON A"T.(21:"48K APPLE II PLUS UNDER DOS 3.3."o.)17:TV400:22:KC273.*S$(1)" CRANE SOFTWARE, INC.".+S$(2)"16835 ALGONQUIN, SUITE 611".,S$(3)"HUNTINGTON BEACH, CA. 92649"/-S$(4)" (714) 846-803:"MENU GENERATOR COMES COMPLETE WITH A"S-"5:"PROGRAM DISK, BACK-UP DISK AND"-#7:"40 PAGE INSTRUCTION MANUAL FOR $39.95."-$11:"THE MANUAL WILL HELP YOU DEVELOP"-%13:"SEVERAL MENUS, INCLUDING DISK UTILITIES".&15:"AND PRINTER COMMANDOS COMMANDS":,15:"OPERATIONS FOR ANY SLOT AND DRIVE"_,17:"ERROR PROCESSING ROUTINES",19:"DISPLAY UP TO NINE ELEMENTS PER MENU",21:"RUN MULTIPLE MENUS",23:"DOCUMENTED CODE FOR EACH MENU PROGRAM", 20:TV800:22:KC266*-!:N NUMBER PRODUCES ONE OF"?+7:" THE FOLLOWING OPERATIONS:"^+9:" RUN BASIC PROGRAMS"+" RUN MACHINE LANGUAGE PROGRAMS"+" BOOT DISKS TO RUN PROTECTED PROGRAMS"+" EXECUTE USER ENTERED BASIC STATEMENTS" ," EXECUTE USER ENTERED 1:"WRITE A MENU PROGRAM IN BASIC."L*15:"IT WILL STORE THIS PROGRAM ON"r*17:"ANY DISK THAT YOU SPECIFY."*18:TV400:22:KC256**::"MENU PROGRAM FEATURES INCLUDE:":*3:"FORMATTED AND CENTERED DISPLAY"+5:"ENTRY OF OPTIO OPERATION NAME"H)19:"THE PRINTOUT WILL HELP YOU LINK"w)21:"VARIOUS MENUS TOGETHER IN A SYSTEM.") 17:TV500:22:KC248) ) :7:"AT YOUR REQUEST, MENU GENERATOR WILL") 9:"COMPILE YOUR INPUTS AND AUTOMATICALLY"#* 1:(17:TV600:22:KC238#(V(:3:"MENU GENERATOR WILL SUPPLY A FORMATTED"(5:"PRINTOUT OF ALL MENUS IN YOUR DATA BASE."(7:"THIS INCLUDES:"(11:"MENU: NAME DATE TITLE"(13:" ELEMENT: PROMPT TYPE SLOT DRIVE")15:" (5)"GAMES":E$(6)"GRAPHICS":E$(7)"HOME MGMT":E$(8)"INCOME TAX":E$(9)"INVESTMENT"'F$(0)"MEDICAL":F$(1)"PRINTER":F$(2)"STOCKS":F$(3)"SYSTEM":F$(4)"WORD PROC"'446:7'I09:3:E$(I):'7:I04:16:F$(I):(:9:3:"DOS_______"FROM"1&16:"ONE SCREEN, BY MOVING THE CURSOR"`&18:"OVER THE DESIRED MENU NAME AND THEN"&20:"ENTERING THE PROPER COMMAND."&18:TV500:22:KC237&E$(0)"ACCOUNTS":E$(1)"BUSINESS":E$(2)"DOS":E$(3)"EDUCATION":E$(4)"FINANCIAL"T'E$%384:17:TV300:22:KC236%%\%::4:"MENU GENERATOR";::" STORES YOUR INPUTS"%6:"IN A DATA BASE. YOU CAN USE THIS DATA"%8:"ANY TIME TO DEVELOP NEW MENUS OR TO "%10:"CHANGE EXISTING ONES."&14:"YOU ACCESS THE DATA BASE MENU HAS BEEN"?$9:"ALTERED WITH TWO ADDITIONAL ELEMENTS,"m$11:"ONE MODIFICATION AND ONE DELETION."$15:"THE ORIGINAL AND MODIFIED DISK"$17:"UTILITIES MENUS ARE AS FOLLOWS..."$18:TV400:22:KC190$407:18:TV300:22:KC22918:M$(0,K)#18:1:958F#20:"A NEW OPTION WILL BE ADDED TO"i#22:"RETURN TO THE MAIN MENU"#19:TV100:22:KC190,229#K3#321:19:I11000:#KK1:K5226#K5:310:TV100:22:KC190#$:7:"THE DISK UTILITIES1000::"M$(0,K)"5"P":9:18:M$(0,K):16::J1500::9:18:M$(0,K)a"18:1:958"21:"THE PROGRAM MUFFIN WILL BE DELETED""19:TV100:22:KC190,221"K2:321:M$(0,K)(95):I12000: #:9:18:M$(0,K):16::J1500::9:19:TV100:22:KC190,209;!K13:321:19:I11000::[!K4:310:TV200:22:KC190l!18:1:958!20:"THE DISK COPY OPTION WILL BE MOVED"!22:"TO THE END OF THE ELEMENTS"!19:TV100:22:KC190,216 "K113:K4K1:321:19:I1OUSLY DEVELOPED.", 17:TV400:22:KC189: 418:431f 4:13:C$(0);:31:C$(1):6:10:C$(2)s K0:321 TV100:22:KC190 18:1:958 20:"A NEW OPTION TO RUN MENU GENERATOR" 22:"WILL BE INSERTED AFTER FILE DEVELOPER"!"USING MENU GENERATOR'S SINGLE FORM"S8:"DATA ENTRY SCREEN, IT IS EASY TO ADD"10:"EDIT, DELETE AND SORT MENU ELEMENTS."14:"TO ILLUSTRATE THESE CAPABILITIES,"16:"FOUR CHANGES WILL BE MADE TO THE DISK" 18:"UTILITIES MENU PREVIED."*19:"YOU CAN ALSO SUMMARIZE THE"S21:"OPERATIONS THAT YOUR NEW MENU"t23:"PROGRAM WILL PERFORM."|18TV500:22:KC145407:17:TV300:22:KC176372:18:TV300:22:KC188M$(0,1)"2":M$(0,2)"3"$:6:6::3:"MENU GENERATOR";::" HAS TWO TOOLS FOR"_5:"CHECKING YOUR INPUTS BEFORE IT"7:"WRITES YOUR MENU PROGRAM TO DISK."11:"YOU CAN EXAMINE THE MENU SCREEN"13:"DISPLAY, WHICH IS AUTOMATICALLY"15:"FORMATTED AND CENTER:HT10:A$C$(2):8:I1500:=431:TV100:22:KC145,176HK03UK0174o19:36::"J"::19:VU(1)11:VU(2)11:VU(3)15:4279:18:M$(0,K):I11000:19:36::"M"::19:I11000:310:TV100:22:KC145,176:OUR NEW DISK UTILITIES MENU."017:TV300:22@KC131,176U431:I12000:z19:36::"I"::19:I12000:438::4:13:" "::I11000:VT4:HT13:A$C$(0):8:I1500:VT4:HT31:A$C$(1):8:4:40:" ":I1500:VT6U GENERATOR"WM$(0,5)"6":M$(1,5)"RETURN TO MAIN MENU":M$(2,5)"A":M$(3,5)"SYSTEM"e418:431x18:TV200:22KC13118:1:95819:"THE I AND M KEYS ARE FOR DATA ENTRY."21:"LET 'DOS' BE THE DISK FILE NAME FOR"23:"Y)"DISK COPY":M$(2,1)"A":M$(3,1)"COPYA"sM$(0,2)"3":M$(1,2)"DISK SECTOR CHANGE":M$(2,2)"B":M$(3,2)"MUFFIN"M$(0,3)"4":M$(1,3)"BOOT 13 SECTOR DISK":M$(2,3)"B":M$(3,3)"BOOT13" M$(0,4)"1":M$(1,4)"MENU GENERATOR":M$(2,4)"D":M$(3,4)"MENTOR, YOU ENTER DATA "H23:"FOR YOUR MENU ON THE FOLLOWING FORM...."[17:TV200:22gKC113mC$(0)"DOS":C$(1)"14-MAY-82":C$(2)"DISK UTILITIES"M$(0,0)"1":M$(1,0)"FILE DEVELOPER":M$(2,0)"B":M$(3,0)"FID")M$(0,1)"2":M$(1,1LLUSTRATED"75:"BY DEVELOPING A SMALL MENU TO RUN"i7:"THE FOLLOWING DOS 3.3 UTILITY PROGRAMS:"~11:16:"B FID"13:16:"A COPYA"15:16:"B MUFFIN"17:16:"B BOOT13"18:TV200:22KC11321:"USING MENU GENERA"DATA BASE STORAGE FOR UP TO 150 MENUS."U|B$(10)"PRINTOUT OF MENUS IN DATA BASE."}::"MENU GENERATOR'S FEATURES INCLUDE:":~I010:(2(I1)1):B$(I);:1:""20TV800:22KC110 :3:"THESE FEATURES WILL BE IB$(4)"EXAMINE MENU SCREEN AND OPERATIONS"ZwB$(5)" BEFORE MENU PROGRAM IS WRITTEN."xB$(6)"GENERATION OF MENU TO ANY SLOT & DRIVE."yB$(7)"STORAGE OF MENU INPUTS IN A DATA BASE."zB$(8)"ADD, EDIT & DELETE MENUS WITH DEFAULTS."({B$(9)::"2"::19:I12000:"n3951oTV300:22=pKC104CqwrB$(0)"COMPLETE MENU DEFINITION BY FILLING OUT"sB$(1)" ONE SCREEN FORM."tB$(2)"ADD, EDIT, DELETE & SORT MENU OPTIONS."uB$(3)"AUTOMATIC DEFINITION OF MENU DISPLAY."+v24:"OTHER PROGRAMS OR OPERATIONS.";:18cTV100:22GdKC92,104Ye20:958:17nf370:I12000:g23:32::"1"::19:I12000:h384iTV300:22jKC92,110k21:32::"5"::19:I12000:l359:I12000:m23:32A MATTER OF SECONDS.?W18:"FOR EXAMPLE, BOOTING A DISK CAN"mX20:"AUTOMATICALLY RUN YOUR FIRST MENU."uY17ZTV400:22[KC67\]359^TV300:22_KC79`20:958:18a22:"FROM THIS MENU, YOU CAN QUICKLY ACCESS")bNKC49O;P:4:"MENU GENERATOR CAN SAVE YOU TIME"TQ5:I132:"-";::tR6:"OPERATING YOUR APPLE."S7:I121:"-";::T10:"BY LINKING MENUS TOGETHER IN A SYSTEM,"U12:"YOU CAN ACCESS ANY PROGRAM OR OPERATION"V14:"IN N FORM."5G11:"THE MENUS CAN RUN OTHER PROGRAMS,"eH13:"BOOT DISKS AND EXECUTE USER SUPPLIED"I15:"COMMANDS OR FUNCTIONS."J19:"MOST MENUS CAN BE CREATED IN LESS THAN"K21:"TEN MINUTES, WITHOUT PROGRAMMING!"L18MTV400:22"$=I03:(2I17):1:A$(I):195>J1700::X?I47:(2I9):20:A$(I):19i@J1700::xATV200:22BKC49CD::3:"WITH MENU GENERATOR";::","E5:"YOU CREATE CUSTOM COMPUTER MENUS"F7:"BY FILLING OUT ONE SCREEGRAMS FOR:"!9I133:"-";::1:I12000:;A$(0)"DISK UTILITIES":A$(1)"PRINTER COMMANDS":A$(2)"WORD PROCESSING":A$(3)"DATA MANAGEMENT"<A$(4)"PROGRAM ORGANIZATION":A$(5)"GRAPHICS DISPLAYS":A$(6)"EQUIPMENT CONTROL":A$(7)"COMMUNICATIONSV700:22 0KC35 1J 2:2:"MENU GENERATOR AUTOMATICALLY WRITES"u 34:"COMPUTER MENU PROGRAMS IN BASIC." 47:"IT IS EASY TO USE, EFFICIENT AND" 59:"REQUIRES NO PROGRAMMING." 6TV200:22 7KC35 813:"YOU CAN DEVELOP MENU PRO DISPLAYED,": )12:"THE FOLLOWING COMMANDS ARE ACTIVE:"j *17:"RIGHT ARROW : ADVANCE TO NEXT SCREEN" +19:"LEFT ARROW : RETURN TO PREVIOUS SCREEN" ,21:"SPACE BAR : PAUSE AT PRESENT SCREEN" -23:"ESCAPE : EXIT DEMO " .18 /T KB27ġ:309& !I9I91:I9TV26, "2 #d $:2:"THIS DEMONSTRATION WILL DESCRIBE SOME" %4:"OF THE MANY BENEFITS AND FEATURES OF" &6::"MENU GENERATOR": '8:"YOU HAVE COMPLETE CONTROL OF THE DEMO!" (10:"AFTER EACH SCREEN IS6,200:7,25:784:9 I1502255:6,I:7,30:784::_ I2251505:6,I:7,30:784::e s 16368,0 I90:KC0 TM20000 KB(16384) KB12833 KBKB128 KB32TVTM:16368,0:33 KB8KC1: KB21KC2:500: 255 I1(A$)? R(1):R1200R10:J1R1:n VT:(HT1I):(A$,I,1);::(HTI):" ":v 16 :VT:(HTI1):"_": 6,50:7,10:784: 6,200:7,75:784:6,125:7,75:784: 6,125:7,75:784:6,200:7,75:784: 86 **** MENU GENERATOR DEMONSTRATION PROGRAM ****s COPYRIGHT 1982 BY CRANE SOFTWARE, INC. ** 09-MAY-82 **~:LS1I784797:J:I,J: 166,7,164,6,173,48,192,136,208,253,202,208,245,9632835 :VT:HT:" "::I1                                   ϠΠŠԠנӍϠˠˬӠŠéٮ芊ӠƠϠˠҍŮ1ŮŠĠٍŠ٬ԬĠӍƠŠӠĮՠ٠ҠԠˠӠϠύȠϠ˿šˍӠ̠ӠΠӠōǠŠӠƠϠˍҠšԍŠӠ٠Ҡ٠čӠĠ̠ƠΠ͍Үˢ͠͠ԍҩĠ͠ӠӮōŠӠӠ٠ӠٍӠĠȠȠ٠ӍӮՠ̍Π٠ΠˮˍӠŠΠĠҍĠӠΠՠč٠ŠŠҠӍ̠ҠŠƠҍȮȠŠƠˠӍΠŭĠŮŠҀ+YH ٥vHv +hvhيL!+ `Ġ٬L(<ԠӠ˿ˠŠӠĠ΍ˠŠӠ٠ɭ     ŬŠɬŠɬčԠŠĠӠƠŠҠîϬӠàٍРӠàٍeˠǠϮҠԮȬŬŠɬŠɬčԠŠĠӠƠŠҠîϬӠéٍҠԮȬƠӠϠӠȠč٠͠ŠĠӍŠ٠ŮӠٍŠƠԠϠŠҠӍĠŠӮϠˠŠӠˠƍϠԠŠĠĠӍΠŠŮ٠ӍŠȠŠӮŠĠԠŠӠƠӬîӻҬϮŠԠӠĠӠԠŠ٠Ů׍ӠԠҠǠſٍϠӠҠӮō͠ӠΠˠŠɠ͍ȠŠϠΠŠˠӮ٠ϠӠȠٍϠԠŬŠ٠ĠǠ٠ƍנ͠Į٢٠ӠԠĠŮӍΠźԠ̠Ŭ٬Ġ٠ҠӠӠԠӍӡŧӠӠ͠ӠӮՠΠŠЍӠҠƬҠӠҠٍŠՠנϠӠӠˍŠɠͮϠˠ̠ύΠΠΠŠɠΠŠ΍ŮϠŠӠƠϠˠōҠ٠ҠӠՠǀ+H ٥vHv +hvhيL!+ `Ġ٬L(<ǠӍӠՠĠΠՠĠРύˠŬՠŠ٠ōϠŠ    ǠϮҠԮȬӠà٠ԠӠà٠Ӡà٠qϠРҠˠҮϠϬ΍ӠŠΩٮԧӠ̠ŠӠϠԮ١ӠéٍĬȬӠà٠ĠϺϠˠŠϭԠΠͬՠϠԠŠŠΠƠǠϠӍŠŠ̠ӍΠŠҠϮŠŠǠΠӠͩԠӠϠˠ̠ԠՠŠƠŠӠŠƭǠčӠŠŮŠƠ͍̠ŠՠӠΠנύĠȠԠҠΠĬҠ׍ϠԮՠ٠ϠԠϠԍ٠Š٠ǠŠԩٮźƠՠϠԠƠάǠōǠԠҠ̠Ԡ٠ǍϠҭҠĮՠ̠΍ŠϠԠϠˠϠԠˮӠՠŠ٠άϠˠӍխάǠԠ٠ŠύŮӠ٠ԡƠՠŠΠԢҍĠĠŠĠ٠ƠŠԍӬԠӠŠҠٍԠӠϠŠԠҍҠҠĠӠήŠŠԠӠŬӠŠéٮĠ٠ӠԠ΍٠ԡŠŠРĠΠԠӍȠŠӠƠՠŠͮŠŠǠΠŠč٠٠ǠŠԩ٠΍ŠǠŠΩҠӮ+H ٥vHv +hvhيL!+ `Ġ٬L(<ӠӠҠҠԠōŠΩ٠ӠԠЍŠ  ΠϬӠéٍGٍ*ӠĠҠӠĠӍҠǠĠǠƠҠӮŠ͠ϠӍȠ̠ĠӬӠӠԬĠŠӮРˠ̠ҠŠӬ+NH ٥vHv +hvhيL!+ `Ġ٬L(<ӠөӠŠ٠͠ӠՠŠˠǠ͠ө  GLE BROS. MICRO SOFTWARE ===============================X$"]")::::" ":958::/ 'Z1PAUSE:: 'T(36)1:255:T:A$;G$;:T:I115::868:I1100::T:A$:F2āI1PAUSE: '8!5=============================== DOS BOSS (DEMO) BY BERT KERSEY AND JACK CASSIDY COPYRIGHT (C) 1981 BEA!Z16:S(16336)::(#200:I1(A$):VPOZ(37)1:HPOZ(36)1:VPOZ:HPOZ:(A$,I,1);:VPOZ1:HPOZ:"-";:VPOZ::SP:#I3801:32,I:33,40I::: #255:V:1:958::A$"]CATALOG":I1(A$)::X$(A$,I,1):X$;::" ";:J1100500("::"AN ENTERTAINING COLLECTION OF TRICKS, SUGGESTIONS AND PROGRAM LISTINGS TO TRY ON YOUR APPLE. HOURS OF GOOD READING!":9999:9999:9999 I124::I$255:PAUSE0%D$(4)*:D$;"RUN ED"@:255:4!I38:I:1:868::PLE LEARNING TOOL!"::"PLUS..."::" BEAGLE BROS. APPLE COMMAND CHART "::"ALL APPLESOFT, INTEGER & DOS COMMANDS & THEIR FUNCTIONS ON AN 11 X 17 POSTER. DISCOVER & EXPERIMENT WITH NEW COMMANDS!":"PLUS...":|:" BEAGLE BROS. APPLE TIP BOOK! TOMATIC)";:1::1:100:" RUN STAR TREK ":SP:9999:9999:SP:9100:"WITH YOUR DOS BOSS DISKETTE, YOU WILL RECEIVE...":::" THE DOS BOSS BOOK ":""EXCELLENTLY-WRITTEN COVERAGE OF ALL DOS BOSS FEATURES & POSSIBILITIES-- A GREAT AP6:" SELECT:";::9999lSP:23:1:"PRESSING ONE KEY RUNS, BRUNS OR EXECS THE SELECTED PROGRAM AUTOMATICALLY!";:21:9999:20038:A$"<-(YOU TYPE 1 LETTER.)":I(A$)11:(A$,I,1);"";::I1500:0:15:"C";G$;:9999::12:19:"<-(AUI37:I:1:868::3XSP:"RUNNING DOS BOSS'S MENU PROGRAM WILL CATALOG ANY DISK AND LET YOU SELECT PROGRAMS WITH ";:A$"ONE KEYPRESS":9000:"!"]V8:9200b9999:10:FLAG1:460:FLAG0:I1019::I:1:" ";::(I55)::6:" ":" BINARY "::" SHAPE TABLE":" HEX CONVERTER":::" TEXT "::" ADDRESS FILE":" NAMES FILE":D:" INTEGER "::" STAR TREK":" NUMBERS GAME":::" APPLESOFT "::" HELLO":" OLD RECIPES":" MISC.INSTRUCTIONS":" SLIPPERY DIGITS";W9999:9999:9:8500:5:SP:"YOU CAN ALSO CATALOG BY FILE TYPE...":V9:9200:200::" APPLESOFT ":0" HELLO":" OLD RECIPES":" MISC.INSTRUCTIONS":" SLIPPERY DIGITS":99996SP:5:868:4:A$"ALL FOUR":9000:" FILE TYPES IF YOU LIKE!":V6:9200a:200::WITH OR WITHOUT":23:"VOLUME NUMBER":255:9999:11:15:" ";:9999:868:12:8689999:SP:8500:5:1:"FILE CODES CAN ALSO BE ALTERED.":A$"]]>!!--]]>":J12:I1322:222::50,63(J1)192:I:2:(A$,I12,1):8600:::9999:9999X&99921";G$9999:SP:7:868:"INVERSE OR FLASHING IF YOU WANT!":255:9999::11:1:868:"****************";:1:I150::G$;" WORK DISK A ";:868::9999255:9999:11:A$"V=254":I16:15:" ";:15:J150::A$;:J150::XSP:" <-":"*I 040 NUMBERS GAME"$FLAGı.99998500:3:SP:"DOS BOSS CAN TITLE YOUR CATALOGS BY REPLACING APPLE'S USUALLY UNNECESSARY":Q$"DISK VOLUME"Q$" HEADING...":9999255::11:1:"DISK VOLUME 254";::I1555::1:G$;"FRANK'S DISK #V9:9200:"DISK VOLUME 254"::I1500:222:"*A 010 HELLO":" A 051 OLD RECIPES":" I 044 STAR TREK":" T 055 ADDRESS FILE":"*T 003 NAMES FILE""*B 008 SHAPE TABLE":" B 006 HEX CONVERTER":"*A 013 MISC.INSTRUCTIONS":"*A 080 SLIPPERY DIGITSXAMPLES OF CREATIVE POSSIBILITIES.":9999:9999`9100:SP::12:" CATALOG FORMATS "::9999:"APPLE'S CATALOG BECOMES MUCH MORE USEFULAND FLEXIBLE WITH DOS BOSS!"::"LET'S MAKE SOME IMPROVEMENTS WITH DOS BOSS'S MENU FEATURES...":9999*ESSAGES TO HELP PROTECT YOUR PROGRAM!"J:"BOOTING YOUR DISK OR RUNNING YOUR PROGRAM IS ALL THAT IS REQUIRED TO INSTALL ";:A$"YOUR":9000:" NEW DOS IN ";:A$"ANYONE'S":9000:" APPLE!"/T:SP:"THE DOS BOSS DOCUMENTATION BOOK HAS MANYE SOMEONE TYPES:"::"]";:I1200::"SAVE (PROGRAM NAME)"::" HE WILL GET A"6255:16:"------------";:(37):16:A$"NOT COPYABLE!":10000:(37):29:" MESSAGE."'@SP::"BECAUSE YOU HAVE ALTERED THE "Q$"SAVE"Q$:"COMMAND AND APPROPRIATE ERROR MRP!":G$;:10000:"SP:"DOS BOSS LETS YOU RENAME ANY DOS COMMANDOR ERROR MESSAGE ANYTHING YOU WANT!":9999:9999:I2411:I:868:J155:::1,SP:"WITH DOS BOSS, YOU CAN "Q$"SAVE-PROTECT"Q$" A PROGRAM THAT HAS BEEN RUN..."::9999N." IFTLE FUN TOO...":'9999:I119::H 6:"WHY NOT CHANGE...":255:A$" FILE NOT FOUND":10000:SP::" TO"::A$" TRY AGAIN!":10000:9999:"OR...":9999::A$" DISK FULL":10000::SP:" TO":9999::A$" *** BUNTAX ERROR":10000:9999::SP:"WITH DOS BOSS, CHANGE IT TO"::A$" DOS ERROR":10000SP::"(TO DISTINGUISH IT FROM A ";:A$"BASIC":9000:" ERROR.)":9999::"DOS BOSS GIVES YOU ENDLESS POSSIBILITIESFOR NOT ONLY IMPROVING DOS, BUT HAVING A LIT":q 9:A$"EXEC":9000:" CAN BE RENAMED ";:A$"E":9000:".":::"ANYTHING YOU WANT; USE YOUR IMAGINATION!" 9999:34,6:::8:" ERROR MESSAGE CHANGES ":I115::::10ZSP:"APPLE'S NORMAL DOS ERROR MESSAGE IS...":9999:255::A$" SY00:" TO ";:A$"CAT":9000:" OR ";:A$"MENU":9000:"."::"THIS WILL SAVE KEYSTROKES EVERY TIME YOUCATALOG AND HELP PREVENT TYPING ERRORS." 9999:::"ONE-CHARACTER COMMANDS ARE POSSIBLE TOO:":A$"LOAD":9:9000:" CAN BE RENAMED ";:A$"L":9000:".99:9999c I1324:1:I:868:25I:868:J150:::255::1:9:" DOS COMMAND CHANGES ":SP ::"DOS BOSS WILL PERMIT YOU TO CHANGE ANY OF APPLE'S 28 DOS COMMANDS."::9999::"FOR EXAMPLE..."::9999: "YOU CAN CHANGE ";:A$"CATALOG":90"- DOS COMMANDS" 10:"- ERROR MESSAGES":10:" AND":10:"- CATALOG DISPLAYS"::"...ACCORDING TO YOUR PREFERENCES AND YOUR PARTICULAR APPLICATIONS." :"THIS DEMONSTRATION WILL ILLUSTRATE JUST A ";:A$"FEW":9000:" OF THE POSSIBILITIES.":99:1:15:": :":15:" DOS BOSS ":15:": :":::10::"DOS EDITOR & FORMATTER":14:A$"BY BEAGLE BROS":9000:".": 9999::SP:"DOS BOSS GIVES YOU CONTROL OVER APPLE'S DISK OPERATING SYSTEM, ALLOWING YOU TO RESTRUCTURE:"::10::!=============================== DOS BOSS (DEMO) BY BERT KERSEY AND JACK CASSIDY COPYRIGHT (C) 1981 BEAGLE BROS. MICRO SOFTWARE =============================== 2SP111:PAUSE999:111,9997G$(7):Q$(34)d16300,0::::SP         ٍӠàٍҬĠԠҬȍȠ٠ĠӮŠ̠̠̠ҠȠ٠ŠӬîЮϮؠӭ٬ˠӠéٍΠŠԠŠ٠٠ĠӠōӠԠӠӠΠ͠ŠŠŠŮōǠĠǠҠΠɭӠӮŠ̠Ӡ΍٠ΠҬŀ+H ٥vHv +hvhيL!+ `Ġ٬L(<Š̩Š̠Ӡ٠ōԠ٠Ƞ٠ŠȠ  NAMESCNERRFIXSTKPAUSECTRLNPCTRLDIBEEPVWXXRV[P RZO7@F@X@IG-@IOO f\ L!\\^\ \ ʱO 4PH3PH` 3, O`  e)e٢5,L }  O*% } O% }̰  M`$0 ` Нȱ `,` `,@ AA`O~O`γ 5B)qCHANGEPREVADDERASEOPENCLOSE4:XNNOOOȹO_ O@# OO ) ( , ީM ; OmOOLN u L@OL=O, ީ" ޠ $0 " ƥƌ$0 " ' ",а H OhDVЗ٭1,70,42,71,42,72,42,MhjjMEM)M)Mi j L\M Ȋ LM i i kl,M08` HH񅸩M% ,M$M ߅ hh,MM R䘠 M L0M,M0  i  `ȱ M,MLkMHȱ Hȱ h h`1,8'OOOOHHH Jhhh`΄ B Ϊȱ` ŠĠϠ٠̠ ĠĠ ĠȠ ϠӠƠ ԠƠ,4242(68,42,68,41,69,42,69,4z#   ˠ ՠ: ծΠàϮӠĠ  ϠӮʠ àϮӠ ̮ΠӠӠ ӮΠנϠ Ӡ    ѵ ٠ȮΠĮʠàϮΠàϠ ī   Š̠Š&ѱѲ ѳ Ѵ ȠԠ"Ϡ" ͠"Ԡ!Ԡ ˠ" 4 $0 )/,K'.0 .0$0  $ $$0$0 'ILK C C) %Ie`LAK`LL LKLNLG@ C K Ce` KK`'''ɎɐLKAL`H)h`h&A[(&0:& &+ -&.`&,#&YN 8` C BLJ CLJ J` C8` C$ KLJ C CK$ $0 K) C8 M$ Hȱ h LJ$0I dFFGnGFGG:GCGLGTG\GeGG XI*0Ʀƥ XILJI`,dF C CLM $LEH$0LEHLEHI  C C% e8(J C `,,HH ,0hhɛ,APɉɄ ,A ` `wY$W,dF$$0dF)>JH CHeh`@ YIhhLG$3HH H + Hȱ h H hhIi`$0 L ```)  e `)e`aFbF` 8G$%9Ge9G:G  e έ8GLGLG RHcW RHPX RHRF RHJ> RHA5 RH.6 RHG VHG RHG VHG ELE HeL A G CELEL`` H˥HHʆ YIhh HH ChhέLcFiΐcF`΅ȱ΅΅ CٍdFJ C)HE HE@ HL6F8 H< 8F H0H HFF F) 8jȄhLGδFLG8G8G9G,dF C C MWT:G C:G m:G  &0 &[YL ;L IH BhɍHɈLD L#E8 M$0$0 L$ ȥ ` L+ ` CE Eȱ΅ȱ΅LG C& I H,F88LLLDEdFHj CEh)> IH IH`aFbFF CH<  -+hLLDsLLDLLD&: ) 榤ꤦ &S. &.Ȅ 0L ;L8 L,A& LLD& %IOK5L qȥq` CLLL VCLLL` C VC` C8` C K C C Cj `eΘeϱeȱe``$ Lɐ ɠLLD*&t e LC  :. BL{ALC )?L{A8ΥϠ+ KB΅υ8LLL A0 ` LAH KBhLLLLG@ JLA BLC$0 ``` L LL C B JLLL`'``KL C B,I0 BILL LLL CLKH CH K C C C E CdF)>  G Hhhj0 )?LmA$ 06,L'Lj @ IɈL BɕLAɍL}Bɔ KBL@Ʌ L}Bɠ)  LA Jj@rm`ikmsmajlnNLOhhߚHH` B B k@ &CLS@ B yJ k@ IC JL@ B yJ k@ IC JLKi i C`2 C C C$$e C C K) C C C K C0       P,PQ @,P,R,T,W`9000\A12832000kd:::3:20,30126,30:Db  :4"C.O.A.C.H. LIBRARY DISK 8 - 9-18-82"H(4);"CATALOG"a(979: DOS COLDSTART D$;"BLOAD DIGITS.SCN":8195f::12:5::"LOADING DEMO - PLEASE STAND BY"::D$;"RUN DIGITS"m   **** RETURN TO MAIN MENU *****D$;"RUN MM"4 4 DING DEMO - PLEASE STAND BY"::D$;"RUN CCUBE"5 d **** LA LAND MONOPOLY (CONTINENTAL) ****:11:8:"PLEASE FLIP DEMO DISK OVER"12:8:"--------------------------"13:8:"NOW PRESS THE RETURN KEY ";:Y$D$D$;"BLOAD L"S" W /X **** COMPUCUBE (STONEWARE) ****Zb:11:8:"PLEASE FLIP DEMO DISK OVER"g12:8:"--------------------------"l13:8:"NOW PRESS THE RETURN KEY ";:Y$qD$vD$;"BLOAD L"D$;"BLOAD CUBE.SCN":8195.::12:5::"LOA) ****1:11:8:"PLEASE FLIP DEMO DISK OVER"Z12:8:"--------------------------"13:8:"NOW PRESS THE RETURN KEY ";:Y$ D$D$;"BLOAD L"D$;"BLOAD PFS.SCN":8195&::12:5::"LOADING DEMO - PLEASE STAND BY"::D$;"RUN PFEMO - PLEASE STAND BY"::D$;"RUN MATHCITY"2@ Z **** DOS BOSS (BEAGLE BROS.) ****lD$;"BLOAD L"D$;"BLOAD DOS.SCN":8195::12:5::"LOADING DEMO - PLEASE STAND BY"::D$;"RUN DOS BOSS"  **** P.F.S. (SOFTWARE PUBLISHINGNOLOGY) ****D$;"BLOAD L"=D$;"BLOAD TOOL.SCN":8195::12:5::"LOADING DEMO - PLEASE STAND BY"::D$;"RUN ABAC DEMO" , **** MATHWARE (MATH CITY) ****1D$;"BLOAD L"6D$;"BLOAD MATH.SCN":8195+;::12:5::"LOADING D$(CH)/ W16:"PRESS RETURN TO CONTINUE ";:Y$7 X40> Y e d **** MENU GENERATOR (CRANE) ****w iD$;"BLOAD L" nD$;"BLOAD MENU.SCN":8195 s::12:5::"LOADING DEMO - PLEASE STAND BY"::D$;"RUN MENU" x  **** THE TOOL (HIGH TECH:D$, BCH100,200,300,400,500,600,700,8004 C60; D d P **** ERROR PROCESSING ROUTINE ****~ QY(222): ERROR CODE RY6T$"PROGRAM NOT FOUND":85 SY13T$"PROGRAM TYPE INCORRECT":85 TT$"ERROR CODE = "(Y) U:8:T$ V10:P4:"6 -- COMPUCUBE (STONEWARE)"Q 318:4:"7 -- SLIPPERY DIGITS (BEAGLE BROS.)"x 420:4:"8 -- RETURN TO MAIN MENU" <CH0:C1$" " =24:24:C1$; >24:17:"GOTO - ";:C1$ ?1:D$:C1$(13)66 @C1$(10)Ģ24:24:C1$; ACH(C1$):1$UL$(45): ,3:13:UL$F -6:4:"1 -- MENU GENERATOR (CRANE)"s .8:4:"2 -- THE TOOL (HIGH TECHNOLOGY)" /10:4:"3 -- MATHWARE (MATH CITY)" 012:4:"4 -- DOS BOSS (BEAGLE BROS.)" 114:4:"5 -- P F S (SOFTWARE PUBLISHING)" 216: % P$(1)"B MENU.SCN, S6, D1"D P$(2)"B TOOL.SCN, S6, D1"c P$(3)"B MATH.SCN, S6, D1" P$(4)"B DOS.SCN, S6, D1" P$(8)"A MM, S6, D1"  ( **** MENU DISPLAY **** ):2:13:"* DEMO PROGRAMS *" *UL$"":UL17 +I1UL:UL 2 **** MENU PROGRAM = * DEMO PROGRAMS * ****W **** DISK FILE NAME = ED+ ****h **** **** WRITTEN BY MENU GENERATOR COPYRIGHT 1981 BY CRANE SOFTWARE INC.D$(4): CTRL-D216,0:80 **** EXTERNAL PROGRAM LIST ****     o KM6*a(îϮîȮ٠ˠ)"a()]Ӡ̭(M]Ӡ(S)(S):>t'A0$"LAST NAME:":SCN#36,M2:A0$" "Wy'F1F0:Y11500:q~'Y1100::SCN#36,M2'SCN#35:8JFIXSTK:532767耖(40(Z$))2:Z$:퀱06Z$"FOR MORE INFORMATION, PLEASE CONTACT":33000> :tZ$"HIGH TECHNOLOGY SOFTWARE PRODUCTS,INC":33000Z$"OKLAHOMA CITY, OKLAHOMA":33000"Z$"(405) 478-2105":33000XX13000:23::::(4);"RUN ED"'32767 'S1(S)OL DEMO IS":33000CZ$"COPYRIGHT (C) 1981 BY ABAC, LTD.":33000vZ$"PERMISSION TO COPY IS GRANTED ONLY":33000Z$"AS PART OF THIS ENTIRE DEMO DISKETTE,":33000Z$"AND NOT SEPARATELY.":33000Z$"ALL OTHER COPYING IS PROHIBITED.":33008486:SCN#N:X12000::*X11000:BSCN#87:X17000:ZSCN#88:X14000:|N8990:SCN#N:X14000::SCN#63:X14000:SCN#64:X12000:SCN#65:X15000:SCN#66:X15000:p(GOTO5)d:Z$"THE TO:SCN#74:X13000:2SCN#50:X15000:JSCN#51:X14000:lN5261:SCN#N:X12500::SCN#62:X15000:SCN#76:X14500:SCN#77:X12000:N7880:SCN#N:X13000::N8183:SCN#N:X11500::N!!!!!!!!!!!!!!!VE!!!!!"X IP$IP$"!!!!1@!!!!!!!!!123381!!!!!!!!!!!!!!122581!!!!!!12@"p SCN#44:X14000:SCN#45:X13000:SCN#46:X112000:SCN#47:X112000:SCN#71:X12000:SCN#72:X13000:N171:SCN#N,M2 SCN#49:X12000:0 16754,41:16755,63: IP$"!!!!!! LEFT JUSTIFY@!!!!!!@!!!!!!!!!!!!!!!!JOHN@A!!!!MAKE A MISTAKE AND!!!!!!++++++++++++++++++!!!CORRECT IT@!!!!!!!!@!!!!!!!!!+JUST TYPE TO CHANGE@!!!!!" IP$IP$"!!!9!!!!!!!!!!!!!!!1!!!!XXX11000:X*SCN#38:X14000:BSCN#32:X14000:ZSCN#67:X12000:rSCN#33:X14000:N6870:SCN#N:X12000:: SCN#39:X14000: SCN#40:X16000: N4143:SCN#N:X14000:: SCN#48:X15000:1500:@CPKBS(BS51)(BS52)256:PKBS(PK)(PK1)256FX14:IP$(X)""ĹPK2,X:PK3,1:IP$(IP$(X)SP$,33):SCN#26PXZX1200:X:SCN#31:X14000:dSCN#37:X15500:SCN#27:X16000:N2830:SCN#N:Y13000::X:10100:3X1941:PK2,18:PK3,X:10100:^(X1721:PK2,X:PK3,22X:10100:2X1941:PK2,2:PK3,X:10100:7A0$"LAST NAME:":SCN#36,M2<X11500::SCN#25:X16000:?SCN#18:X11500:A16754,9:16755,128::X,M2:Y1100:: X11000:8SCN#22:X12500:oX2041:PK2,2:PK3,X:SCN#24,M2:Y1150::X11000::SCN#23:X12500::SCN#73PKBS(BS71)(BS72)256:PKBS(PK)(PK1)256F1:SCN#35 X420:PK2,X2:PK3,S48)256:PKBS(PK)(PK1)256U jX215:PK2,X:PK3,1:SCN#24,M2:Y1100::e tX11000:} ~SCN#20:X12500: X1521:PK2,X:PK3,1:SCN#24,M2:Y1100:: X11000: SCN#21:X12500:X120:PK2,2:PK3,X:SCN#24N1114:SCN#N:X13000::4 $SCN#16:X13000:L .SCN#17:X18000:d 8SCN#18:X13000:| =16754,9:16755,128 BIP$"!!LAST NAME:":SCN#24:X12000: LSCN#19:X14000: VSCN#34:X13000: [:X1100:! `PKBS(BS47)(BT NAME: < >", [IP$(3)""Z \IP$(4)"FIRST NAME: < > MI: #" T12:N28:X1D:X:10000:SCN#N:N:T X1D:X:10000:SCN#1 X13000::SCN#9:X13500: SCN#10:X110000: SCN#15:X19000: O" 12::"THEN":F 14:"PRESS AGAIN TO CONTINUE."V X13000:{ 18:"PRESS ANY OTHER KEY TO GO" 20:"TO THE BEGINNING OF THIS DEMO." X18000: BS28928 SP$"":X133:SP$SP$"": YIP$(1)"" ZIP$(2)"LAS6384P f7680: FROM NOW ON, ALL INPUT TO THE SCREEN FORMATTER COMES FROM 'IP$'X g:f i16368,0l k| l:16368,0 mSCN#75:X12500: n20612:X15000:: oD500:S16336 s:X11000: x10:"PRESS TO PAUSE THIS DEM * SEE LINE 7070 * H(4)"BLOAD ABAC DEMO.HIRES":28930o(4)"BLOAD DEMO HIRES.OBJ,A$5080"z20608SāX19000::107 19000Z(4)"BLOAD KEYBOARD.OBJ" d(4)"BLOAD ABAC DEMO.RTS":(4)"BLOAD ABAC DEMO.SCN,A$7100":1     ـ  Ҁ   G,Ҁ/      0Ӏ4     KLMM&  89::   LMNN:+!  ,Հ/    , EFG   GHII(   ! 132 ΀ú ­Ā,%ԧ;<==\]^^6 '  {|}}   ԬΧԀ  6 Ůefgg̀       mҀm ĺ*+,rstt   Ӏ%̀12        Q'  ـUՀ[3455PefggP P$  -Ā+!  ـ1Ӻ,-..OPQQ(vwxx(((P$  : !ҬĀ+"Ůˀ6 ӮP'ԧ    \     ππ ـ ŀ Ӏ ˀ΀ ΀̀-Ӏ-     ̀8Ā ĀӀӀӀԀԀ         ŀŀ ــ ƠԠӠՠΠˠҠĠPQRR3   ...      ÀˀÀـــ πbPӮA A A"AA A@A'A`AABBh| PRESS RTN FOR DEFAULT OR 15VE!ՠΠˠƠĠӠ&ՠΠˠҠԠΠՠΠˠ    ԮH I J J      pq ź źɺӺٺ(ź ٺPϧӺP ŀ^ #   ΀(    ٮ    P'Χ    ҀX  6  ]            =  =  ?  6 ?  a Z źغ, 4 5 6 A x y z z ,  ǀ6 W X Y Y          <  :  8 Įb c d d %ȀϺ `΀]     źɺӺ1ٺ0ź=к0ź;@ٺ$%&&   ͬQ&   ÀS!ȮWٿ ...    Ȁ  ӹ  ()**    9ABCA +"ŀ,   A #ԬӀ  ŀ+ ԬՀ+Ԯabcc    ԧԮԀէŮ       ҧӀ8         :  :  :  9  ZDEFF`EASY`+!Ӏ MNOO1  2 ̀1  Y 3 ̀ !""&ά('Ԭ    )% 1 ٺŀ0 ź̀= к0źٺìĮźغ`NIGHTMARE`׬ԧ  1 Ū0122  VWXXǪ!`WHATgS`A`POOR`PROGRAMMER`TO`DO`źӀźـɺӺŀ   Ԫa     UŪpqrr ̪a     Ԫ   U1Ns3YP#Gd +D' e ! 7 { Z   K -S /Ry6hu h->_~J;OHRSTTǪ    ̪          ,h`L`0E`Q`Eu6SuHv Rɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y 'I` (LN HH H H,0I M !Lf@+ ; h h hh`,:H,ɠ0<0),0ΠŧӠΠծӠéٍx٠ϠӠҠӮԠȠ٬ӠӍŠȬǠӠӬźϠԠŠŠԩٍϠԠŮŠͭӍĠҠŠΠӮΠΠϠŠŠ͠ӬӠĠŬÍӬĠàԠíΠĠΠԠӮҠŠˠͮȠٍӠ̠Ơ΍ΠӠӍ̠ӠӍӬӬӍͭȠĠҠŠԠŮӠˠԠΠ͠ĠŠˍŮ̠ŠҠˠōӠҠŠԠŠĠΠӮŠӠĠٍȠ٬Š΍ȠӠΠŠǠƍӮŠԠ͠ӠŠĠȠźΠ΍ΠĀ+bH ٥vHv +hvhيL!+ `Ġ٬L(<ũŠӠĠ٠ŠĠ̭Ġ̍͠z@ MATHCITY%@103,1:104,64M@16384,0:16385,0:16386,0:16386,0`@175,4:176,64x@(4)"RUN MATHWARE"  AREST WHOLE NUMBER."::"NEW ANSWER: ";:708:6020L256::3030(F(3)F(1)1000)1000:706S(:"ROUND OFF AND WE'RE DONE...":11:"ANSWER: "F(2)b2706:4110ho~p ALL BY YOURSELFz"COMPUTE YOUR ANSWER ON YOUR PAPER."::"ANSWER: ";:BF(2):708OC1İ252:;(AB)1ĺ:"GOOD, BUT ROUND TO THE NE THAT WAS THE UNKNOWN.":706N:"NOW WE HAVE TO SOLVE THIS EQUATION.":706`F(1)F(1)100 :"IF N X "F(1)" = "F(3)", THEN N MUST BE":"EQUAL TO "F(3)" DIVIDED BY "F(1)"."706:7:"N = "F(3)"/"F(1)706::"DO THE DIVISION.":9:"N = "ES.":706W2::F(10)7F(9)F(5):F(10):"OF";:800::F(10):"OF":5:F(10)1:"X"~:"'OF' CHANGED INTO TIMES.":7062::F(10)3:"WHAT NUMBER";:800::F(10)3:"WHAT NUMBER":5:F(10)1:"N":"'WHAT NUMBER' CHANGED INTO 'N' SINCE H)":706E2::2F(5):"IS";:800::2F(5):"IS":5:2F(5):"="j:"'IS' CHANGED INTO '='.":7062::5F(5):F(1)"%";:800::5F(5):F(1)"%":5:F(5)4:F(1)100 :"'"F(1)"%' CHANGED INTO "F(1)100:"BY MOVING THE DECIMAL POINT 2 PLACF(5)((F(3)))(F(9)((F(1))):"WE'RE GOING TO WRITE AN EQUATION BY CHANGING THE SENTENCE ABOVE INTO MATHEMATICAL SYMBOLS":706:2::F(3)::QD2:800:2:F(3):5:F(3):800:F(3)" CHANGED INTO "F(3):"(THAT WAS TOUGUMBER.":13:18::"N = "F(2);:800::18:"N = "F(2):706|:"THAT IS YOUR FINAL ANSWER!!":14:15:"ANSWER: "F(2):706F(6)1ė:"STUDY THIS, THEN I'LL GIVE YOU ONE TO DO ALL BY YOURSELF.":706:F(6)1:1020 EQUATION METHODP2F(4)(F(3)1000F(1))10:"WRITE THE FRACTION AS A DECIMAL BY DIVIDING THE NUMERATOR BY THE DENOMINATOR.":800:12:18::"N = "F(4);:800::18:"N = "F(4):706:(F(4))F(4)ė:"ROUND THAT NUMBER OFF TO THE NEAREST WHOLE N06 :"NOW TO SOLVE THIS RATIO EQUATION FIRST 'CROSS-MULTIPLY'":800:10:12::"N X "F(1)" = 100 X "F(3);:800::12:"N X "F(1)" = 100 X "F(3):706 :"THEN DIVIDE":800:11:18::"N = "F(3)100"/"F(1);:800::18:"N = "F(3)100"/"F(1):706::F(1):706 :"THE NUMBER FOLLOWING THE WORD 'OF' ALWAYS GOES HERE. SINCE IT IS UNKNOWN WE JUST WRITE 'N'":7:23::"N":800:7:23::"N":706 :"THE PERCENTAGE (THE ONLY NUMBER LEFT!) GOES HERE.":5:22::F(3):800:5:22::F(3):7OWN 2 FRACTION BARS SEPARATED BY AN EQUAL SIGN.":6:16:"--- = ---":706 :"100 ALWAYS GOES HERE.":7:16::"100":800:7:16::"100":706 :"THE PERCENT NUMBER GOES HERE. FOR THIS PROBLEM IT IS "F(1)".":5:17::F(1):800:5:176000 QD2:800> "1. SHOW ME THE RATIO METHOD PLEASE."l "2. SHOW ME THE EQUATION METHOD PLEASE." "3. I CAN FIND THE ANSWER MYSELF." :"WHICH? ";:708:A1A33020 A4000,5000,6000  RATIO METHOD :P2L "WRITE DR3100:421) P%(C)4R21:R3200:421c F(2)R:F(3)(F(1)F(2)100):F(1)(F(3)F(2)100.5) *F(2)(F(3)F(1)100.5) PRINT PROB :F(3)" IS "F(1)"% OF WHAT NUMBER?" "(ROUND TO THE NEAREST WHOLE NUMBER)" 15:610: F(6)1M 103,1:104,64:380(1020:340G N% OF WHAT NUMBER IS M?S::P3p COMPUTE F(1),F(2),F(3)P%(C)4İ404P%(C)3RR100P%(C)4R3200:421F(1)R:P%(C)2İ413P%(C)1FR:412:RFR P%(C)1P%(C)4R21:    ).5)4Hv ((F(8)),1)"0"F(8)(F(8)10.5):3190cH ((F(7)),1)"0"F(7)(F(7)10.5):3200H (F(7)F(8))1E5F(7)F(8)H F(7)F(8)QS11::608:QD5:800:604:::708:OC13070H 256:QS13:604:F1F(2):810:F1$:706:301060 G8000"GX PRINT FIRST PROB2G]BF(1)F(2)kGb10:13:F(1)" - "F(2)" = ";:708:OC1ĺ::252::GlP1::10:256:Gv"NO. THE CORRECT ANSWER WAS: ";B:706G@12:958:17:"THE CORRECT ANSWER WAS "BGJ706:E00).5):F(8)(A(100000:"PLACE A DECIMAL POINT TO THE RIGHT OF THE WHOLE NUMBER AND THEN ADD TWO ZEROS.NOW SUBTRACT AS USUAL."FQD4:800:::"NEW ANSWER: ";:708F:5:"YOUR PAPER SHOULD LOOK LIKE THIS:":10:18:F(1)".00":17:"- "F(2):17:"------"G706::700" INSTEAD":"OF "F(1)" SINCE THESE NUMBERS ARE EQUAL."^EQD4:800:::"NEW ANSWER: ";:708oEOC1İ254:E"NO, CHECK YOUR WORK AND TRY AGAIN.":"NEW ANSWER: ";:708EOC1İ254:E8000EpR220:R399:421:F(1)R:417:F(2)RjFz7000::N.":"NEW ANSWER: ";:708*DOC1İ254:UD"NO. THE CORRECT ANSWER WAS: ";B:706[DD416:F(1)R:R220:R399:421:F(1)F(1)R:417:F(2)R:403:F(2)RF(2)D70006E::"BE CAREFUL TO LINE UP THE DECIMAL POINTS. YOU MAY WRITE "F(1);0:F(2)F(2)R1C7000C::"BE CAREFUL TO LINE UP THE DECIMAL POINTS. YOU MAY WRITE "F(2)"0 INSTEAD":"OF "F(2)" SINCE THESE NUMBERS ARE EQUAL."CQD4:800C:"NEW ANSWER: ";:708COC1İ254:D"NO. CHECK YOUR WORK AND TRY AGAIBTRACT AS USUAL, PLACING THE DECIMAL POINT IN YOUR ANSWERDIRECTLY BELOW THE OTHER TWO DECIMAL POINTS.":706B :7000:12:958:18:"CHECK YOUR WORK AND TRY AGAIN.":7000B 8000B417:F(1)R:R220:R399:421:F(1)F(1)RC416:F(2)R:403 PAPER ONE NUMBER BELOW THE OTHER. BE CAREFUL TO LINE UP THE DECIMAL POINTS!"A 706::::"YOUR PAPER SHOULD LOOK LIKE THIS:"A 10:F(3)((F(1))):F(4)((F(2))):20F(3):F(1):18F(4):"- ";F(2):14:"------"rB 706:15:"NOW GO AHEAD AND SU@103,1:104,64:380(@1020:3400@:N@ SUBTRACTION OF DECIMALSV@P3|@P%(C)13000,4000,5000,6000,6000@ 417:F(1)R:R220:R399:421:F(1)F(1)R@ 417:F(2)R:403:F(2)F(2)R1@ 7000::PA "WRITE THIS PROBLEM DOWN ON YOUR    G OC1İ254.G QD1:800:F(5)2:830:820hG 800:QS14:604:B2F(4)F(3)G(1)G(3)::B3F(2):724|G OC2ė:252:G :256:::B2"/"F(3)" IS SHADED":P1::706:3020E30:820?F F(4)F(2)G(1)G(3):800::QS11:608:BF(4)::708dF :OC2ĺ"NO..."B" ";:QS12:608sF OC1İ254F QD1:800:F(5)1:830:820F QD2:800:F(4)F(2)G(2)G(4):QS13:B2F(4):606:BF(4):::708G :OC2P1:"NO..."B" ";:QS12:608AF(2)QS5:608:3160+EN QS6:606:F(2);9EX QD2:800SEb :QS7:608:QD1:800El F(1)33:F(3)1:F(4)0:F(5)0:830:PI250:DU10:820Ev QD2:800:QS8::608:BF(2)::708E :OC1QS9:608:3220E QS10:604:F(2);F QD1:800:F(3)F(2):8G(3):F(5)1D :830CD F(3)G(2):F(4)G(4):F(1)12:F(5)2:830oD :QS1:B10:B2G(3):B3G(1):608::724D :OC2P1:256:3080D :QS2:B2G(4):B3G(2):608::724D& :OC2P1:256:3100D0 254:D: QS3:608:706::608::708ED :.......WHAT FRACTION IS SHADED ALTOGETHER?"PC ADD FRAC W/PICS W/O COMMON DXC P3}C 401:G(1)R:R22:R312:F(2)G(1)C 421:F(3)R:502:B183030C G(2)R:R21:R3(G(1)2):421:G(3)R:R3(G(2)2):421:G(4)R D F(1)5:F(2)B:F(3)G(1):F(4) IT WAS "^B4 "HOW MANY PARTS SHALL I SHADE IN TO BE THE SAME AMOUNT AS THE TOP FRACTION?"B> "PARTS WILL BE THE SAME AMOUNT."BH "HOW MANY PARTS SHALL I SHADE IN TO BE THE SAME AS THE BOTTOM FRACTION?"+CR "HA HA...NOW FOR THE EASY QUESTIONINATOR..."9A "YEP THAT'S EXACTLY WHAT I HAD IN MIND."cA "ACTUALLY I WAS THINKING OF USING "A  "I'LL ADD THE FRACTIONS INTO THIS BOX."A "WHOOPS...I FORGOT THE DENOMINATOR. WHAT WAS IT?"A  "THANK YOU." B* "NO...I JUST REMEMBERED.@103,1:104,64:380(@1020:340=@I114:Q$(I):b@ "NAME THE TOP FRACTION SHADED"@ "NAME THE BOTTOM FRACTION SHADED"@ "I WANT TO ADD THESE TWO FRACTIONS." A "TAKE A GUESS WHAT WHOLE NUMBER YOU THINKI'LL USE FOR A COMMON DENOM    Lz"WHAT IS THE REMAINDER? ";:BF(4):708:OC2P1::"NO, THE REMAINDER IS "F(4)::706:2200j :254t F1: :5:7(F(2)9):"R"F(4):F1F0:QD1:800::2210 3000:15:"LONG DIVISION IS EASY!!":800: 33,27:32,13::::> H:8:6(F(2)9)(F(5)9):F(5):F1F0:QD1:800::2120] M5:9:"--";:F(2)9ĺ"-";g R3000 \:F(2)" - "F(5)" = ";:BF(4):708:OC2P1::"NO, TRY AGAIN:":2140 aF1: f:10:6(F(2)9):F(4):F1F0:QD1:800::2150 p3000_ (1)A# &:ABĺA" IS TOO LARGE."O 'ABĺA" IS NOT THE LARGEST":"NUMBER."` *:706:2060j /F1: 4:5:6(F(2)9):F(3):F1F0:QD1:800::2100 93000 >:F(3)" X "F(1)" = ";:BF(5):708:OC2P1::"NO, TRY AGAIN:":2110 CF1:"-----":" "F(1)" ) "F(2)C 33,24:32,11::I123:"!"::3000 :"WHAT IS THE LARGEST NUMBER YOU CAN MULTIPLY BY "F(1):"AND GET AN ANSWER THAT IS LESS THAN OR EQUAL TO "F(2)"?" :BF(3):708:OC12095 #P1 %:"NO. "A" X "F(1)" = "F103,1:104,64:380(1020:340.I EASY 1CYCLE DIVISIONQP3Wu401:F(1)P%(C)22(R3)F(1)9F(1)F(1)3R2F(1):R310R21:421:F(2)RF(3)(F(2)F(1)):F(5)F(3)F(1):F(4)F(2)F(5) PRINT PROB 6:4: E ALL DONE*$:QS15::604::706::.QD2:800:L82:G(I)1Ģ1XBI5Ģ4|L263I15(I5):F(I)10ĺ" ";VF31ğ:F(I)::`F32ĺF(I):jF33ĺ"X";:F2F4F(F2)1F4F41tF(I)9ĺ"X";~:1:273I::" "::::IF2:F32:F(F2)F(F2)1:36403 IF21:F31:3640t F2F21:IF2:F31:3640:F(F2)F(F2)10:QS12::604:::708 AF(F2)ė:QS13:604:F(F2):QD4:800 F32:IF2:3640:QD2:800 F2F1ī3250F(F21)F(F24)F2F21:34503420F2:3640# :QS8:604::::740K F(F2)0A1ė:QS14:604:QD3:800n F(F2)0F32:IF2:3640:3450 :A2QS9:604:QD4:800 F33:IF2:3640 QS10:604:F(F2)"?":708:G(F2)1 AF(F2)1P1:256::606:::QD4:800:3510 ):::708/* OC2İ256::QS7:606:P1:3350W4 :254:F32:IF1:3640:IF15:3640n> 123(5F1):6:AH QD1:800:F1F43610R F1F11:3250\ BORROWINGf :A2QS3:604:QD3:800p IF2:F32:3640:IF25:3640 z F31:F2F21:I0 0 QS1:608:F(F15)" FROM "F(F1):606h ::740:F(F1)F(F15)ī3320: NO BORROWING  F2F1:3420: BORROWING NO BORROWING  A1QS4:604:QD3:800 ::QS5:604:F(F15)" FROM "F(F1)  604:BF(F1)F(F15);" ";:::Jl 4:93(5I)1:"-":93(5I)1:I2113I:"-";::4Sv I10k F(I)0II1:3200| 123(10I) I2I61:F(I2);" ";::: 7:610: F11:QD2:800 BEGIN ALGORITHM F20 F31:IF1:3640:I5I:364%3F(2)0Q  F%5F%4āI18:402:F(I)R1::F(5)0:402:F(4)R:401:F(9)R1i & F%5F(2)0:F(3)0 0 F%6R13:I19:402:F(I)R::I24:F(I)0: : I15:G(I)0: D :2:I5 N F(I)0II1:3150 X F4I:123(5I) b I2I11:F(I2QS16:612::736( F%P%(C)(G(A)2)= I120:F(I)0:k F%0İ401:F(2)R:401:F(1)R:403:F(6)R F%1İ401:F(1)R:402:F(2)R:403:F(6)R:401:F(7)R1  F%2F%3İ402:F(3)R:401:F(8)R1:I165:403:F(I)R1:403:F(I1)R1:  FG THERE TO BORROW.": \ "AND THAT'S ALL THERE IS TO IT!"L f "VERY EASY"Y p "EASY"f z "HARD"u  "HARDER"  "HARDEST"  "WHAT SORT OF SUBTRACTION PROBLEM WOULD YOU LIKE?" BORROWING ALGORITHM P3 QS21:602:: L 4 "IT'S ALWAYS JUST ONE LESS THAN THE NUMBER. TRY THIS ONE AGAIN."} > "SO NOW THIS NUMBER BECOMES (GUESS WHAT!)" H "NOPE...IT ALWAYS GETS 10 LARGER WHEN YOUBORROW. THIS NUMBER BECOMES " R "NO I CAN'T BORROW FROM ZERO...THERE'S NOTHINMBER." "  "WHEN YOU SUBTRACT ";  "WHAT DO YOU GET?"Y  "LET'S TRY THAT AGAIN."  "CAN I BORROW FROM THIS NUMBER?"  "SURE I CAN BORROW...IT JUST HAS TO BE LARGER THAN ZERO." * "WHAT NUMBER GOES ABOVE THE CROSSED OUT " 103,1:104,64:380(1020:340=I121:Q$(I):] "NOW I WANT TO SUBTRACT "z "DO I NEED TO BORROW?" "YES I DO. THE TOP NUMBER IS SMALLER THANTHE BOTTOM NUMBER."  "NO I DON'T. THE TOP NUMBER IS NO SMALLERTHAN THE BOTTOM NU     :I$::,,,)d/d3)F(7)F(6)(F(7)F(4)):F(1),F(1)5I:.+HZ+I8:I0F(3)F(6)F(6):F(1),F(1)5I:b+J +K0,F(3)F(6)F(1):0,F(3)F(6)F(1)5:+RF20F2$"$.00":+SF2$(F2100.001):F2$"$"(F2$,(F2$)1):++16368,0,23:39:"*";:39):: *4776,PI:777,DU:778:(*> /*@ 5*Ai*BI3611:I(IF(2).1)F(2)F(6)IF(3):I0o*C*DF(4)0840*E15:F(5)1āI1F(6)F(4):F(1),F(1)5I:*FF(5)2āIF(6)F(3)F(6)(F(3)F(4))1:F(1),F(1)5I:(+GF(5)3āIF(6(F11E10F11100)F10ıQ),F3(F1$):F35F1$(F1$,1)(F1$,F32):F3F31:d)-F2((F1$,2))v).F11E10817)/ SMALL)0F2$(48):I1F22:F2$F2$(48)::F1$(46)F2$(F1$,F34):)1 BIG*2F1$(F1$,F34):I0F2F34:F1$F1$(48770(A$(A$,2):LL1P(I1L:J((A$,I,1)):(J48J57)J46İ790:770p(:A(A$):(AB)1E6OC1v((23:1::" I DON'T UNDERSTAND ";::QD1:800:23:1:I138:" ";::I2:I3:(  ("I15001.5QD:I:(* )+F1$(F1):F'702:(A$,1)"%"(A$)2Ģ23:22:"REMEMBER % SIGN";:790:754a'A$(A$,(A$)1):LL1'I1L:J((A$,I,1)):(J48J57)J46İ790:754':A(A$):(AB)1E7OC1'(702:(A$,1)"$"(A$)2Ģ23:22:"USE THE '$' SIGN";:790::&&(A1A2A3B1B2B3)1E7OC3,&P&708:A1A5A(A)İ790:736f&OC2:G(A)1OC1l&&702:A$"Y"A1:&A$"N"A2:&23:22:"ENTER Y OR N ONLY";:790:740&702:A$B$OC1&&702:(A$,2)(B$,2)OC1'10A1A2:A20$%A1B1A2B2OC1*%f%702:I1L:J((A$,I,1)):(J47J32)J57İ790:724%J32A1A3:A30:732%J47A2A3:A30:732%A3A310J48:732%:A30A20İ790:724&(A1B1)1E7(A2B2)1E7(A3B3)1E7OC1*";:16368,0:39:A$:" ":A$""950,$e$702:I1L:J((A$,I,1)):J45J57J47İ790:708$:A(A$):(AB)1E6OC1$$702:I1L:J((A$,I,1)):J48(J57J82)İ790:712$J82A1A2:A20:718$A2A210J48$%Al(F$)41ĺF$:;#nI4011:(F$,I,1)" "F(11)I:I1p#p:(F$,F(11));40F(11));:F$(F$,F(11)1):620|# INPUT#A0:A10:A20:A30:OC2:16368,0:I2(37)1:I3(0)1:"";A$:L(A$):L0L20İ790:702#A$""ī950#&$23:39:"(1)I%:B2B2I%B3:"X G"Z::4:35,22:Q$(Q%(C)QS);:QSQS1:M"\l"^:Q$(Q%(C)QS);:QSQS1:"`Q$(Q%(C)QS);:QSQS1:"b:I140:"-";:::34,(37):"dF5:518::I15:I". "Q$(Q%(C)1QSG(I)):::"k BREAK UP & PRINT F$#B(BF(2))F(2)II1:506"!)! L!B1:I2F(2):F(2)F(3)I2F(3)!I1I2:F(2)(F(2)I)IĭF(3)(F(3)I)IBI!:! !G(1)1:F1ı!I2F:I%(1)I1:G(I)G(I%):G(I%)I::! " 510:B2F(2)B:B3F(3)B:I%B2B3:B1F1:R10R:' R22:R39:421:R100R:C 412:R4R:403:RRR4:_ 414:R4R:413:RRR4:q 403:RR10: 414:RR100: 415:RR1000: 403:RR100: 414:RR1000: R((1)(R3R21)R2):   I1!BIF(3):R25:R39:421&R21:R39:421;R210:R399:421RR2100:R3999:421kR21000:R39999:421R210000:R399999:421R20:R3R1:421:RR21:R1R2:R3ıI3((R).1):R(RI.1)IRR2:410: R22:R39:42 SELECT A NEW CONCEPT. HOWEVER FOR THE DEMONSTRATION YOU MAY CHOOSE ANOTHER CONCEPT...";:I$nV200t|105,(802):106,(803):107,(804):108,(805):109,(806):110,(807):111,(808):112,(809): R22:R35:421BiE802,(105):803,(106):804,(107):805,(108):806,(109):807,(110):808,(111):809,(112)F103,(800):104,(801):(4);"RUN Q";(810)R:S:eT::10:"AT THIS POINT MATHWARE WOULD STORE THE RESULTS, ADJUST THE DIFFICULTY, ANDLEVEL IS NORMALLY CONTROLLED BY THE COMPUTER. BUT FOR THEDEMONSTRATION HOW DIFFICULT WOULD YOU LIKE IT?/:"1. VERY EASY":"2. EASY":"3. AVERAGE":"4. HARD":"5. VERY HARD"1:"WHICH? ";:I$:I(I$):I1I53023C0:P%(C)I1@ ED"3255:QD4:800::35);:" (END)";KI$:(4)"RUN EDUC"Q:W:]:l COMMENTSyI0:259I10:259I20:259I30:259R21:R310:421:QD2:C$(RI):800:):*:+:, q.:5:"THE DIFFICULTY IN MONTHS WHAT TYPICALLY REQUIRES YEARS.>QD4:800:"WE AT MATH CITY HOPE MATHWARE HELPS YOUR CHILD TO DEVELOP A GREATER ":"APPRECIATION AND UNDERSTANDING OF MATHEMATICS...";J14000::255:QD4:212,0:104,8::(4);"RUN TION":"MULTIPLICATION AND DIVISION":"FRACTIONS CONCEPTS AND OPERATIONS":"DECIMAL CONCEPTS AND OPERATIONS":"PERCENTS, RATIOS, AND NEGATIVE NUMBERS"900:13:958:100.::"VIRTUALLY ANY CHILD WHO USES MATHWARE CONSCIENTIOUSLY WILL ACCOMPLISH% OF WHAT NUMBER = M?<:"6. I'VE SEEN THEM ALL..(EXIT)"i::"WHICH? ";:I$:I(I$):I1I6200~810,I:I6300 CLOSING REMARKS::5"ONCE AGAIN THESE ARE THE 5 DISKS CURRENTLY AVAILABLE:":"ADDITION AND SUBTRAC EASY DIVISION WITH REMAINDER{:"3. FROM THE 'FRACTIONS CONCEPTS' DISK ADDING FRACTIONS WITH PICTURES:"4. FROM THE 'DECIMAL CONCEPTS' DISK DECIMAL SUBTRACTION":"5. FROM THE 'PERCENTS' DISK NBE AFRAID TO MAKE MISTAKES...":900):/:5:E MAIN MENU:::"WHICH SAMPLE CONCEPT WOULD YOU LIKE TO SEE?":::"1. FROM 'ADDITION AND SUBTRACTION' DISK THE SUBTRACTION ALGORITHM%:"2. FROM 'MULTIPLICATION AND DIVISION' OMPUTER HAS SELECTED (AT RANDOM) ONE CONCEPT FROM EACH OF THE 5 DISKS CURRENTLY AVAILABLE.:"EXPERIENCE MATHWARE FIRSTHAND NOW. JUDGE FOR YOURSELF WHETHER IT MIGHT GIVEYOUR CHILD A MATHEMATICAL ADVANTAGE...";#900::12:"DON'T AILED THE LITTLE QUIZ. YOU MUST READ THE INSTRUCTIONS AGAIN...":QD4:800[:7:152:4:"YIPPEE! YOU PASSED THE QUIZ.":::g::"EACH DISK INCLUDES ABOUT 30 MATHEMATICAL CONCEPTS. FOR THE DEMONSTRATION PROGRAM THE C"HOW DO YOU ANSWER 'YES'? ";I$:I$"Y"170p:"GOOD. HOW DO YOU ANSWER 'TWO-FIFTHS?":"";I$:I$"2/5"170:"SO FAR SO GOOD. NOW FOR THE HARD ONE. HOW DO YOU ANSWER 'EIGHT AND ONE-THIRD?":"";I$:I$"8 1/3"170173M:"OH. OH. YOU F0:17{"MIXED FRACTIONS:":" 'FOUR AND TWO-SIXTHS' IS ENTERED AS '4 2/6'. NOTICE THE SPACE AFTER THE 4.23:39:"*";:39:I$+::::"HERE'S A QUIZ TO SEE IF YOU WERE PAYING ATTENTION (HIT RETURN AFTER YOUR ANSWER):"::ASH COURSE ON HOW TO INPUT ANSWERS FOR MATHWARE:"?QD5:800::"YES OR NO ANSWERS:":" USE 'Y' FOR YES AND 'N' FOR NO."900:12:"FRACTIONS:":" ONE EXAMPLE SHOULD SUFFICE. 'THREE-FOURTHS' IS ENTERED AS '3/4'.90AND TESTING AT MATH CITY. THOUSANDS OF STUDENT HOURS HAVE PROVEN THAT IT WORKS.a900:1:::"INCLUDED ON EACH DISK IS A PROGRAM WHICH TEACHES STUDENTS HOW TO INPUT THEIR ANSWERS. FOR THE PURPOSES OF THISDEMONSTRATION HERE IS A CR:"ALTHOUGH INVISIBLE TO THE USER EVERY QUESTION ASKED CARRIES WITH IT A 'TREE'.WHICH BRANCH OF THE 'TREE' THE COMPUTER SELECTS IS DETERMINED BY THE STUDENT'S RESPONSES.900V:10:"MATHWARE HAS BEEN PERFECTED THROUGH 2 YEARS OF RESEARCH THAT IS VERY SIMPLE TO USE AND YET EXTREMELY SOPHISTICATED IN OPERATION.:"STUDENTS DO NOT LEARN MATHEMATICS THROUGH TRICKS OR FANCY GRAPHICS BUT RATHER THROUGH INTERESTING APPROPRIATE QUESTIONS AND ACCURATE IMMEDIATE FEEDBACK.":"'PUSH ANY KEY TO GO ON' ======> *";9 m39:I$? n:E o:[ x INTRO GOES HEREd y:4 z"MATHWARE TEACHES MATHEMATICS. {"-----------------------------"I~:"THIS IS NOT A SIMPLE DRILL PROGRAM. THIS IS A POWERFUL TEACHING SYSTEMI140:C$(I): `X130$ aX210. bX330S hL$"---------------------------"\ i:8 j7:L$:10:"MATHWARE BY MATH CITY":7:L$:8:"(COPYRIGHT 1980 MATH CITY)" k16368,0- l::" DEMONSTRATION DISK":22:"THE FLASHING STAR MEANSOMETHING WENT WRONG,CHECK YOUR WORK,OH.OH...,WHOOPS,HMM...,I SEE A MISTAKE Z ONE MORE TIME,YOUR ANSWER IS A LITTLE OFF,THAT'S NOT RIGHT,AARGH...,UGH...,THAT'S NOT WHAT I HAD IN MIND,IN A PIG'S EYE.,I CAN'T ACCEPT THAT.,I DOUBT IT.,NEGATIVE ON THAT ^R!","BEAUTIFUL WORK!","I LOVE IT!!" V HOORAY!!,WONDERFUL!,RIGHTO!,FINE,SAME AS WHAT MY TRANSISTORS TELL ME!,OKEY DOKEY,BRAVO!,NICE GOING...,ENCORE!,CONGRATULATIONS!,WELL DONE...J X THAT'S NOT WHAT I GOT,I DON'T AGREE WITH THAT,NOT QUITE,TRY AGAIN,S3,96g RQ$(60),F(20),P1%(16),Q%(16),C$(40),C%(16),C1%(16),P%(16),G(20),P2%(16),QU%(16),A%(16),CR%(16)# T "THAT WAS EXCELLENT!","FANTASTIC!","YOU SHOULD BE PROUD OF YOURSELF!","VERY, VERY, GOOD!","COULDN'T BE BETTER!","SUPER-DUPER!!","REALLY GOOD ANSWE$  950 SYS5 DEMO2 232,20:233,8: =34304N(175)216r((176)256(175)4)17817800,(175)2:801,(176)D$""L776798:B:L,B: # 255,255,173,48,192,136,208,5,206,9,3,240,9,202,208,245,174,8,3,76,10,          H;+;+ &+ &+ &+ &+hH 0+hLH 0+hL0+N)` +]H ٥vHv +hvhيL!+ `Ġ٬L(<FIL8HihLhL ԠH6 ?+; : -6 =; : ȱ ɍ;  L)ȱ )$m `H$(hɠ ɍ !L)hɍɠ -6 5$(5`% p -6 =; : ȱ ɍ;  L;)ȱ H)$m `H$(hɠ ɍ !Lt)hɍɠ -6 5$(5`% p q  p q ` 0 0 i8,, X` k u $` k $`$#%L"OPENING, ɍ`p q  ( (` ,, S,, D  m2 # !L! 0L(L((; 0 / $ ʈL( (  Ȍ L( ެ ȱɠ `ȱɍɠ` "; : q Lu'L'q , p ``#%% "(*)+%"% "!(*0ܠ Ȧʽp p q q ` ȱȱ`%$p q , p q L 'p q  (L( ' ', (e`&L&LE&L&L&L*& X#84 V&` & ` X%$ (%% %#` V&L! p& &Lu'ȹq  p ``"% "(*)+!%5 % "(*0-6 p p q q ` V&L! &$#% (ȥp q ` 'L! &' 'ȹpРïҧҠԭΠҠԭРȠЍԠ ɸ ! "L)!8  - . `. L !L)! :L)!@ 0`H M# !h= 8 = ; ; 3# X67 = < 671 8L$L$L$L$L/$L8$LA$LJ$`` $% "$z $` $ M$L$ $ Z$L$ $ i$L$L$ }$$ $` }$͠$ $Lu$ }$$ $ @`$ $`$%L"  ` :LŠҺϠĭƭŠϠРҠϠƠĠҠ0  0 ) `L"; ! # f# X &`,#ɍɀL$ ɏL $ ɍL$`0ʝp ȩp ,q `#85 #J4 ` ,m  ` ʼn8冪8 .Ő ŅL ő67 f# X1 &  2 ݠ,, S,, D  m2 # !L! 0 ! ,; 6 7`67 > ? 67 ": 6 7` " & ɍɍ &`,`a0  0 ( `b(!@L!L!L!L!L#L(#8 #7  $, " *  "L)! (  &L)!; % )  &L)!+ : I: "L)!ɱɸ ɡ ɨ ! #L)!8  - . `. L !L)! :L)!@ 0`H # !h = ) = ; ; 67 = < L!L! (P Ԡ(<?+,,,,,+,,,O,P,q,r,s,t,_L۠ȃ Å#/  #(MLJ!K!ML!IzݍM     éٍҍŠƠϠˬՠΠŠŠˠҠŠҠŮŠŠӺˬԠӍǠĠǮӠĠӠخōנРϠӠҠٮӠŠŠҠԭƭŠӠŠƮϠˠŠŠŠ΍٠ԧӠԠȠŠΠŠŠƍˠŠŠӡΠԬƠՠΧԠȠϠŠӠƠנōӠŮנ̠ՠנΠŠӍƠϠˠŠſŠ̍ԠՠנΠˠŬˠŬĠҠҍӮŠŠϠŠҠ̭ōҠˠˠҠϠˠٍŠӮҠӠҠōŠϠŠǠӠٍϠӮΠӠ٠ԠǬՠ٠ŠŠΠŠŠĠԠŮҠ٠̠ӠϠŠՍȠӠ٠̀+ H ٥vHv +hvhيL!+ `Ġ٬L(<ΠōϠˠŠ̠ŠčӠ٠ӠŮΠŠǬ    @@|x`px``|?@@~x`px`~p@~@@~~x`px`|~x|sOy|ssqL@@~xx`px`p`}n`x`xxp@x@T*U*U*UժժժժP*U*U*U*ժժժՂ`x@?xxpx@~?@@~``x`px`|~?U+p@@~`xx`px`|~xxU*U*|@@~`x`px`?p|@@~x`px`~p?p`@@~~x`px`|~x|<``@y `@@~xx`px`x`}n@x`xp`x@T*U*U*UժժժժP*U*U*U*ժժժՂp|`x|x?@`x@~@@~x`px`|~@*U|@@~`xx`px`|~xxT*}U*@@~`x`px`x|@@|x`px`?~p@ ~x@@~x`px`|~xx@@~xx`px`|@}j@x`~xp`~x`?@|@@~x`px`|~@Uz_*@@@~`xx`px`|~x|P*}U*`@@~`x`px`|x@@xx`px`~p@|@@|x`px`8~xx@@~|x`px`|@Os9@y `@y `}d@x`~xp`~x`?x@@~x`px`|~@?P*U~+Up@@~`px`px`|~x|)*u/U|@@~px`px`~x@@xx`px`~x?@ x~@xxp`~xp@@~|x`px`|OsOys9L?pn@x`~xp`~x``p@@~x`px`|~`(P*}?U |@@~`px`px`|~8~UU~*@@~px`px`x@@xx`px`~xx@~~@xxp`~xp@@~|x`px`|OC<~sL@@|`|x`p`8~xpx`@@~x`px`|~`PU*}?U*@@@~`px`px`|~8~@*Up@@~px`px`@p@@xx`px`x@x@?xp`~x`@@~|x`px`|8~Osy||sI x@@~`|x`px`|~xp?@@~x`px`|~`?U*U*p@@~``x`px`|~8~U+|@@~xx`px``p@@xx`px`@x?@x@?xp`~x`@@~~x`px`|~8~Osy|ysaL@@~`|x`px`|~xx`}np|`x|x?@px@x@@~x`px`~`~?@@~``x`px`|~@*W                UBLICATION SCHEDULE *****D$;"BLOAD L"ND$;"BLOAD SCHEDULE":8195::5U y **** RETURN TO MAIN MENU ****D$;"RUN MM"  MM"  ! **** MAKING COPIES ****3 D$;"BLOAD L"U D$;"BLOAD COPIES":8195::5\ , **** SOFTDISK AND DEMO DISK **** 1D$;"BLOAD L" 6D$;"BLOAD SOFTDISK":8195 ;::2:12:"SOFTDISK MAGAZETTE":D$;"RUN SOFT" @  **** OUR PND":851 SY13T$"PROGRAM TYPE INCORRECT":85M TT$"ERROR CODE = "(Y)Z U:8:T$j V10:P$(CH) W16:"PRESS RETURN TO CONTINUE ";:Y$ X40 Y d **** HOW TO USE DEMO DISK **** iD$;"BLOAD L" nD$;"BLOAD HOW TO":8195::5 x21:24:C1$;) >21:17:"GOTO - ";:C1$B ?1:D$:C1$(13)66` @C1$(10)Ģ21:24:C1$;u ACH(C1$):1:D$ BCH100,200,300,400,500 C60 D P **** ERROR PROCESSING ROUTINE **** QY(222): ERROR CODE RY6T$"PROGRAM NOT FOU1UL:UL$UL$(45):$ ,6:9:UL$K -9:7:"1 -- HOW TO USE DEMO DISK"l .11:7:"2 -- MAKING COPIES" /13:7:"3 -- SOFTDISK AND DEMO DISK" 015:7:"4 -- OUR PUBLICATION SCHEDULE" 117:7:"5 -- RETURN TO MAIN MENU" <CH0:C1$" " =IST **** , P$(1)"B HOW TO, S6, D1"I P$(2)"B COPIES, S6, D1"d P$(3)"B SOFT, S6, D1" P$(4)"B SCHEDULE, S6, D1" P$(5)"A MM, S6, D1"  ( **** MENU DISPLAY **** ):5:9:"ABOUT DEMO DISK MAGAZINE" *UL$"":UL24 +I9 **** MENU PROGRAM = ABOUT DEMO DISK MAGAZINE ****` **** DISK FILE NAME = ABOUT ****q **** **** WRITTEN BY MENU GENERATOR COPYRIGHT 1981 BY CRANE SOFTWARE INC.D$(4): CTRL-D216,0:80 **** EXTERNAL PROGRAM L!!!!!!! : I720:(I):868:: L 5:6:"SUBSCRIBER";:27::"SOFTDISK"::o I720:(I):868:: ISK":55:6:"SUBSCRIBER";:27::"SOFTDISK"::P I720:(I):868:: RR";:27::"SOFTDISK":: I720:(I):868:: Rp";::"*";::" ";R$:r5:6::"SUBSCRIBER";::27:"SOFTDISK":5:6:"SUBSCRIBER";:27::"SOFTDISK":BSCRIPTIONS"<10:" THEY ARE OFFERING 12 ISSUES FOR $50"m:2:"FOR THOSE WHO PREFER ADVANCE PAYMENT"{8000:108000:2000@I1250::23:868:14::"*";::" HIT RETURN ";::"*";::" ";R$:r5:6::"SUBSCRIBER";::27:"SOFTD"1"3000*R$"2"2006:R$"3"ĺ(4)"RUN ABOUT"R :6:14:"BACK ISSUES" 10:" THEY ARE OFFERING BACK ISSUES FOR $8" :8:"(YOU KEEP THE DISKETTE)" :" THE FIRST AVAILABLE ISSUE IS..OCT.81" 8000::100 :6:10:"ANNUAL SU FOR THE NEXT ONE."6" ALWAYS KEEP A DISK TO RUN."_" THAT'S THE WAY TO HAVE SOME FUN."i8000q1014:10:"1 = BACK ISSUES"16:10:"2 = MAILING PROCEDURE"18:10:"3 = RETURN TO MENU"20:3:"GOTO - ";:R$  R$GAZETTE IS MAKE A"@" PERSONAL COPY OF IT FOR YOUR KEEPING."m:" THEN YOU HAVE A MONTH TO PLAY WITH"" OUR DISKETTE & PLACE FEEDBACK"" COMMENTS ON IT.":" WHEN YOU GET A NEW ONE,"" SEND BACK THE OLD ONE,"" WITH PAYMENTOOVE."p8000r5:868'u8200Wz4:" OUR ADDRESS & PREPAID POSTAGE PERMIT"" IS ON THE FLIP SIDE OF YOUR ADDRESS"" CARD."" (PLASTIC BAG OPENS AT RED LINE)":" THE FIRST THING YOU SHOULD DO UPON"" RECEIVING A NEW MA48:8:"-- AND THE ";::"BEAT";::" GOES ON --"e >12:" PLEASE SEND RETURNS BACK THE SAME DAY" H" YOU RECEIVE A MAILER." R:" WE MUST MAKE A SPECIAL MAILING FOR LATE"; \" RETURNS." f:" BE A GROOVER AND GET IN THE SOFTDISK"k" GR" (RETAINS NEW DISKETTE)"% 8000/ 82009 8100] 7:21:"RECEIVES MAILER WITH";w 21:"OLD DISKETTE &" 21:"PAYMENT FOR NEXT" 21:"ISSUE" 8000 12:21:"SENDS MAILER & YET" 21:"ANOTHER ISSUE" 8000 *82003 0# 11:21:"SENDS MAILER & NEW"4 &21:"ISSUE"> 08000H :8200R D8050o N7:" RECEIVES MAILER &" X" NEW ISSUE" b8000 l10:" IMMEDIATELY SENDS BACK" v" OLD DISKETTE IN MAILER" " WITH $5 PAYMENT FOR" " NEXT ISSUE" T" IN REUSABLE MAILER"# ^8000M h10:" IMMEDIATELY SENDS BACK MAILER"q r" & $5 PAYMENT FOR NEXT ISSUE" w" (RETAINS DISKETTE)" 8000 8200 8100 7:21:"RECEIVES MAILER &" 21:"PAYMENT FOR NEXT" 21:"ISSUE" 800G PROCEDURE" 80507 7:" SENDS $10 STARTUP FEE"A 8000K 8200U 8100x 7:20:"RECEIVES STARTUP FEE" 8000 "9:20:"SENDS INITIAL ISSUE":20:"IN REUSABLE MAILER" ,8000 68200 @8050 J7:" RECEIVES INITIAL ISSUE"R  ABOUT.SOFTDISK :?d2:12:"SOFTDISK MAGAZETTE"^n13:4:"3811 ST. VINCENT"x7:"SHREVEPORT, LOUISIANA 71108"8:4:"SOFTDISK IS A MONTHLY PUBLICATION"9:7:"$10 TO START - $5 PER MONTH"2010 2:12:"MAILIN"""""!!! ! ! ! ! !!----------------------"D @13:8:"NOW PRESS THE RETURN KEY ";:Y$\ JD$:D$;"RUN GRAND"c   **** EXIT DEMO DISK TO BASIC **** 1010,191:1011,157:1012,56:::22:    ONTINUE ";:Y$ X40 Y F d **** ABOUT DEMO DISK MAGAZINE ****[ nD$;"RUN ABOUT "b x **** LIST OF DEMO PROGRAMS **** D$;"RUN ED" , **** SOFTWARE DISCOUNTS **** 6:11:8:"PLEASE FLIP DEMO DISK OVER" ;12:8:"----200,300,400 C60 D C P **** ERROR PROCESSING ROUTINE ****] QY(222): ERROR CODE RY6T$"PROGRAM NOT FOUND":85 SY13T$"PROGRAM TYPE INCORRECT":85 TT$"ERROR CODE = "(Y) U:8:T$ V10:P$(CH) W16:"PRESS RETURN TO CST OF DEMO PROGRAMS"< /14:7:"3 -- PHONE-ORDER SOFTWARE"g 016:7:"4 -- EXIT DEMO DISK TO BASIC"x <CH0:C1$" " =20:24:C1$; >20:17:"GOTO - ";:C1$ ?1:D$:C1$(13)66 @C1$(10)Ģ20:24:C1$; ACH(C1$):1:D$ BCH100, " P$(1)"A ABOUT, S6, D1"; P$(2)"A ED, S6, D1"B  _ ( **** MENU DISPLAY **** ):6:12:"1982 PREMIER ISSUE" *UL$"":UL18 +I1UL:UL$UL$(45): ,7:12:UL$ -10:7:"1 -- ABOUT DEMO DISK MAGAZINE" .12:7:"2 -- LI3 **** MENU PROGRAM = 1982 PREMIER ISSUE ****W **** DISK FILE NAME = MM ****h **** **** WRITTEN BY MENU GENERATOR COPYRIGHT 1981 BY CRANE SOFTWARE INC.D$(4): CTRL-D216,0:80 **** EXTERNAL PROGRAM LIST ****" " " """"UE":8:12:"------------------"1 D$;"RUN MM";"RUN MM""" **** DEMO DISK PUBLISHING CO. ****"6 P::::F dA19::AV iA12600:n j12:16:"PRESENTS" nTT11200:TT A11200: 16297,0:16302,0:16304,0:16300,0 16368,0:1 J17000: ::7:12:"1982 PREMIER ISS22AS$"**************************************" ::40190,0::10:2:AS$::14:2:AS$::12:4:"PLEASE FEEL FREE TO COPY THIS DISK" (4)"BLOAD DISK,A$2000 HELLOD$"": CTRL-D#::Z12500:(A120::A( 2""" "