' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>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,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌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^6L6 i:5`  \* ?*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 (+ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 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`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` # d z!#:"RUN TOC"E $54.00 -------- 12 DISK/ISSUES";/ n9:32)A x14:8:"TO:"G \ :11:"SOFTYME"t 11:"P.O. BOX 299" 11:"NEWPORT, R.I. 02840" :"PLEASE SPECIFY START DATE" "MC/VISA CALL (401) 849-4925/26 23:28:"PRESS A KEY";:A$::   ::40)F" SOFTYME SUBSCRIBER INFORMATION ";P(40)b2" SEND:"r<7:9:32)F9:" $ 8.50 -------- 1 DISK/ISSUE ";P9:" $24.00 -------- 3 DISK/ISSUES";Z9:" $36.00 -------- 6 DISK/ISSUES";" d9:"   A$ "A$"S"SFLAGĬA ,35,22::5::35,23::SFLAG1:D, OR FOR ANY TRADITIONAL OR ";:40)\ " ORIGINAL PURPOSE. ";:40)f 40) " 'S' WILL START OVER, OTHER KEYS EXIT. "; 80); 270:::::"RUN SUBSCRIBER INFORMATION" 3:6::" PRESS ANY KEY TO CONTINUE. ";40); " THE FRONT OF THE DISK. CLASSIFIEDS ARE ";:40)r " AN INEXPENSIVE WAY TO GET YOUR MESSAGE ";:40) " ";::"INTO";::" THOUSANDS OF COMPUTERS. WE EN- ";:40) " COURAGE YOU TO USE THESE ADS AS A BUL- ";:40)% " LETIN BOAR-PAID. IF POST OFFICE ";:40)U x" BOXES ARE USED, THEN A PHONE NUMBER ";:40) " MUST APPEAR IN THE AD. WE WILL TRY TO ";:40) " VERIFY ADS, BUT CANNOT BE HELD ==> ";:40); 270 2:"RESPONSIBLE. CLASSIFIED ADS APPEAR ON":F" CLASSIFIED ADVERTISING COSTS TEN DOL- ";:40)y P" LARS FOR ";::"SIX";::" LINES AND THREE DOLLARS ";:40) Z" FOR EACH ADDITIONAL LINE. THERE IS A ";:40) d" THREE MONTH MINIMUM INSERTION AND ALL ";:40) n" ADS MUST BE PREB  :SFLAG0G:8);::" CLASSIFIED ADVERTISING ";::8)(23:" SEND ADS TO: ";:24:2:"SOFTYME BOX 299 NEWPORT, R.I. 02840";:32::2:" FOR EACH MONTH PUBLISHED IN SOFTYME ":40)<34,3:35,234 :62,247:63,99:66,0:67,4:71,0:58,44:59,254:327::1:1::TINE **** **** -------------------- **** ******************************** ********************************  ----------------------------- RESTORE ORIGINAL PAGE FROM THE STORAGE LOCATION. ($6000) ----------------------------- @60,0:61,96B2|:35,WB3:WT::WW2):WB2:WW2):WT1:TWTWB:1:" ";:WW2:" ";:::32,WL:33,WW:34,WT:35,WB1:WT1:  q ******************************** **** **** **** CLOSE WINDOW ROU:66,0:67,96:71,0:58,44:59,254:327d ---------------- MAKE THE WINDOW. ----------------  ON ENTRY: WT = TOP OF WINDOW WB = BOTTOM OF WINDOW WL = LEFT POS. OF WINDOW WW = WIDTH OF WINDOW 32,WL1:33,WW2:34,WT:35,W ROUTINE. **** **** -------------------- **** ******************************** ********************************  ------------------------- COPY ORIGINAL PAGE TO STORAGE LOCATION. ($6000) ------------------------- (60,0:61,4:62,247:63,7$"S"580NR$"R"20"X420Xb23::" PRESS RETURN TO CONTINUE. ";olR$:R$(13)620|v::4::::"RUN PROGRAMS"u ******************************** **** **** **** OPEN WINDOWYOUR":"FIRST WINDOW USING THE ROUTINE AT LINE":"1000, AND ANY SUBSEQUENT WINDOWS USING"0"THE SUBROUTINE AT LINE 1010."::::" HAVE FUN!":610 D6:10::"S";::"TART OVER OR ";::"R";::"ETURN TO MENU? ";:R$:R$"R"RWT-22)":" WL : LEFT SIDE OF WINDOW (1 -38)":" WW : WIDTH OF WINDOW (1 -38)":"THE RANGES FOR EACH VARIABLE ARE IN ()'S"]&"WL + WW MUST BE LESS THAN 39, AND WB":"CANNOT BE LESS THAN WT.":610:"TO MAKE MULTIPLE WINDOWS, MAKE OU MUST HAVE THE":"VARIABLES WT, WB, WL, & WW INITIALIZED.":"THESE VARIABLES DETERMINE WHAT THE WIN-""DOW WILL LOOK LIKE. THEIR MEANINGS ARE":"AS FOLLOW:"610Y" WT : TOP LINE OF WINDOW (1 -22)":" WB : BOTTOM LINE OF WINDOW (REEN, BUT WANT TO MAKE A WINDOW, USE":"THE SUBROUTINE AT 1010.":610:"#3. WHEN YOU WANT TO RESTORE THE TEXT TO":"ITS ORIGINAL FORMAT, USE THE SUBROUTINE""AT LINE 2000."::l"NOTE=> WHEN ENTERING THE SUBROUTINE AT":"LINES 1000 OR 1010, Y WINDOWS":"WITH THESE ROUTINES."::.610"#1. IF YOU WANT TO SAVE THE CURRENT":"TEXT SCREEN SO THAT YOU CAN RESTORE IT":"AT A LATER TIME, USE THE SUBROUTINE":"AT LINE 1000."::"#2. IF YOU DON'T WANT TO SAVE THE TEXT":"SC"USE. THEY ALLOW YOU TO MAKE 'HELP'":"SCREENS, CREATE FANCY MENUS, OR JUST ADD":"A TOUCH OF ELEGANCE TO ANY PROGRAM."%::"THE ROUTINES FOR MAKING THESE WINDOWS":"ARE LOCATED IN LINES 1000-2000. THERE":"ARE THREE EASY STEPS TO MAKING :1980vT1600::20:" THE TEXT IS CORRECTLY RESTORED!":::" PRESS TO CONTINUE.";:678:20 INSTRUCTIONS FOR USE ::" ] INSTRUCTIONS FOR USE ["34,2}4:"APPLESOFT WINDOWS ARE FUN AND EASY TO": LIKE? ";NO^TT0+hTTTT1:NOTT390rWT((1)12)1:WB((1)(22WT))WT:WL((1)25)1:WW((1)(38WL))1:1010::D130:"WINDOW #"TT" ";:|360WT10:WB13:WL5:WW29:1010::"PRESS TO RESTORE THEORIGINAL TEXT. ";:678EVERAL WINDOWS":"ARE OPENED, AND THEN THE ORIGINAL TEXT":"IS RESTORED.":::"PRESS <";::"RETURN";::"> TO SEE THE DEMONSTRATION." ,16366,0 6(16384)141310 @16366,0 JWT14:WB18:WL8:WW22:980 T:"HOW MANY WINDOWS WOULDYOU00::22:" THE TEXT IS RESTORED CORRECTLY!":" PRESS FOR THE MENU.";:678:  --------------------- MULTIPLE WINDOWS DEMO --------------------- : " ] MULTIPLE-WINDOW DEMONSTRATION [" "4:"IN THIS DEMONSTRATION, SSTRATION" 16384,0/ (16384)141200= 16366,0] WT12:WB16:WL5:WW30:980 ::"PRESS RETURN TO SEE A LISTING OF THIS PROGRAM. ";:678: ::"PRESS TO RESTORE THIS PAGE TO ITS ORIGINAL FORMAT.";:678:1980] T18NSTRATION [" 4:"MAKING APPLESOFT WINDOWS IS EXTREMELY":"EASY. IN THIS DEMONSTRATION, A SINGLE":"APPLESOFT WINDOW IS MADE. (USUALLY, YOU":"WON'T NEED TO MAKE MORE THAN ONE WINDOW)":: :"PRESS <";::"RETURN";::"> TO SEE THE DEMON:" 2) SEE MULTIPLE-WINDOW DEMO"H Z:" 3) SEE INSTRUCTIONS FOR USE"[ d:" 4) QUIT" n1:18:" WHICH WOULD YOU LIKE? ";:N$:N(N$):N1N4110 xN140,260,410,650 20 SINGLE-WINDOW DEMO : " ] SINGLE-WINDOW DEMOA SOFTYME/WT1:WB22:WL1:WW38:1010j:2:" ] APPLESOFT WINDOW MAKER [ ";37):x(16366,0-" BY DAVE HERSEY2WT6:WB19:WL5:WW30:1010<:" YOU MAY:"F:" 1) SEE SINGLE-WINDOW DEMO"! P        4:"PRESS RETURN FOR THE MENU. ";:678:::12:"DO YOU WANT TO DO ANOTHER HOROSCOPE? ";:H$:H$"Y"Ĭ!*NH$:(4);"RUN TOC"!PÞ:DH120:"-";:DH:""::CCABOUT SOMETHING YOU'VE DONE."J &/:"ADVERTISE YOUR SKILLS AND PRODUCTS."z :/:"MAKE A GIFT OF SOFTWARE. BE CAREFUL OF" N/:"'GOOD DEALS'. PROCESS LETTERS AND SEND" b/:"THEM. TAKE A SHORT TRIP. " 220000 2 2(4);"RUN TOC" 6h! N2ND TO HEALTH THROUGH YOUR HOBBY.",.200002..:50000:"SAGITTARIUS":50000: -------------------- SAGITTARIUS -------------------- .:::"BE KIND AND GENEROUS TO ALL. ENCOURAGE".:"OTHERS AND GAIN STRENGTH. LET OTHERS" /:"KNOW --- ;+::::"DATE FOR PHYSICAL REASONS. YOU HAVE A "l+:"SURPRISING EFFECT ON OTHERS. USE IT TO "*+:"YOUR ADVANTAGE. BREAK POOR KEYBOARD">+:"HABITS. END OLD ASSOCIATIONS. BUY FOR"R+:"PREVENTION OR REPAIR THINGS BROKEN."!f+:"TE"SHYNESS CAN BE A CONCERN. DON'T GIVE UP"Z~':"ON YOUR NEW PARTNER. GIVE A PRESENT TO "':"A LOVED ONE. ENRICH YOURSELF THROUGH"':"YOUR HOBBY."*20000**:50000:"SCORPIO":50000: -------------------- SCORPIO ----------------- -------------------- LIBRA -------------------- d'::"LEAVE HEAVY MATTERS AND TURN TO LIGHT".':"PURSUITS. ALLOW INTUITIVE RELATIONSHIPS"B':"TO FLOURISH. GET OUT, ENTERTAIN AND GO"V':"TO PARTIES. ATTEND A SEMINAR OR EXHIBIT.";)j': EQUIPMENT. BEGIN A NEW "F/#:"TASK OR JOB. TRAVEL TO GET WHAT YOU"u1#:"WANT. BUY FOR QUALITY THIS TIME. KEEP"3#:"WORKING HARD FOR THE BEST RESULTS."5#:"THINGS ARE GOING TO PAY OFF FOR YOU."'20000'3':50000:"LIBRA":50000: "AND HOW MUCH IT CAN DO. TAKE A TRIP."2丠8'#(#:50000:"VIRGO":50000: -------------------- VIRGO -------------------- )#:::"CONTINUE TO FOLLOW DIRECTIONS, AND "+#:"DON'T AD-LIB. HIRE NEW PEOPLE. CLEAN "-#:"AND MAINTAINY THOSE,":C:"YOU'VE BEEN UNDERSTATING. EXPRESS YOUR-"iE:"SELF THROUGH YOUR CREATIONS. DON'T BE"G:"SHY. SHARE YOUR PASSTIME WITH CHILDREN."I:"USE YOUR COMPUTER FOR SELF IMPROVEMENT."K:"TREAT OTHERS TO A LOOK AT YOUR MICRO"'M:MEND SOMETHING OR MAKE SOME-"Mc:"THING NEW. BE AWARE OF HEALTH MATTERS."ve:"SOMETHING OLD BECOMES VALUABLE.">20000?@:50000:"LEO":50000: --------------------- LEO --------------------- A:::"SHOW YOUR TALENTS, ESPECIALL---------- CANCER -------------------- `Y:::"PULL YOUR FAMILY TOGETHER. WORK TOGETHER";[:"WITH THE COMPUTER. MAKE A PRESENT OF"]:"SOFTWARE OR HARDWARE. BEGIN WORKING WITH";_:"ANOTHER, AND YOU'LL FIND A VALUABLE"a:"PARTNER. P WITH YOUR MICRO."Dw:"SOLVE A BUSINESS PROBLEM WITH YOUR HOME"sy:"COMPUTER. GO ON AN ERRAND. ENTERTAIN "{:"OTHERS WITH YOUR COMPUTER, AND GO TO A"}:"PARTY. A DATE ASKS ABOUT COMPUTERS."V20000W)X:50000:"CANCER":50000:T. BUY NEW":"CLOTHING.(n20000.op:50000:"GEMINI":50000: --------------------- GEMINI --------------------- q:::"BEGIN A NEW STUDY OR MENTAL PURSUIT."s:"SEND MAIL, AND USE YOUR WORD PROCESSOR."u:"TAKE A SHORT TRI- TAURUS --------------------- W:::"FINANCIAL DEALINGS ARE IN THE LIMELIGHT.";:"WATCH FOR SOUNDNESS IN INVESTMENTS.":"BUY FOR LASTING VALUE. DATE SERIOUSLY.":"HOME MATTERS MAY MEAN MOVING TO A " :"PERMANENT PLACE. EAT OU 2:::::"ACCOMPLISH MORE IN SOLITUDE. A"[:"SECRET PROJECT BECOMES EXCITING":"AND REWARDING. COMPETE IN AN EVENT.":"HAVE FUN ON A DATE. DIET AND EXCERCISE."20000 :50000:"TAURUS":50000: -------------------- :"EXHIBITS, AND FAIRS. DATE AND DISCOVER"_ :"ROMANCE. GRAPHICS, ENTERTAIN. STUDY WITH"; :"YOUR MICRO. A DATE ASKS YOU ABOUT YOUR" :"HOBBY."20000:50000:"ARIES":50000: -------------------- AIRES --------------------ON." 20000 k :50000:"PISCES":50000: --------------------- PISCES ---------------------  :::"RELAX, AND TAKE THINGS SLOWLY. BRING" :"MATTERS TO A SAFE, LOGICAL CONCLUSION." :"BEWARE OF BARGAINS. GET OUT TO SHOWS,",VISIT A FRIEND AND YOU'LL"H:"BE PLEASANTLY SURPRISED. MAKE A GIFT"w:"OF SOFTWARE. READ ABOUT, AND RESEARCH":"YOUR HOBBY. SPEAK ABOUT YOUR FINDINGS.":"ENTERTAINMENT IS STILL THE FOCUS.":"DIET, HEALTH AND BEAUTY NEED ATTENTI$:"EMPLOYEES BECOME A CONCERN."O:"SHOP CAREFULLY FOR AN AUTOMOBILE."Z20000`:50000:"AQUARIUS":50000: -------------------- AQUARIUS -------------------- :::"IT'S TIME TO END CERTAIN AFFAIRS, SO":"DON'T DELAY. RICORN --------------------- Q:::"MAINTAIN A CAUTIOUS POSTURE INVOLVING"z:"BUSINESS AND SOCIAL SITUATIONS.":"STUDY AS YOU WORK; YOU'LL HAVE FUN":"AS YOU DO, AND ENRICH YOURSELF.":"HEALTH IS A CONSIDERATION, AS IS DIET.",2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000F T A$:34,5v M$" "āJ12:S(16336):| A$"":I140:A$A$"-"::230:  :40):: 255::50000:"CAPRICORN":50000: --------------------- CAP)"SEE YOU NEXT MONTH!":13000 :(11):"PLEASE ENTER THE DAY YOU WERE BORN ":(16):"(EXAMPLE, THE SEVENTH = 07)"::(12):"AS A TWO DIGIT NUMBER - ";WBZ$:WBZ(WBZ$):WBZ31WBZ1160: (22):7)"PRESS TO CONTINUE ";:678:@ HV1000 (SEP 24 - OCT 23)":230:A$"11. SCORPIO (OCT 24 - NOV 22)":230:A$"12. SAGITTARIUS (NOV 23 - DEC 21)":230 A$"13 EXIT. ":230:260:255:"SELECT A NUMBER AND PRESS RETURN. ";HV:HV1HV13Č868:20:150 HV13ĉ::(11):11(APR 21 - MAY 21)":230:A$"6. GEMINI (MAY 22 - JUN 21)":230:A$"7. CANCER (JUN 22 - JUL 23)":230 A$"8. LEO (JUL 24 - AUG 23)":230:A$"9. VIRGO (AUG 24 - SEP 23)":230} A$"10. LIBRA ND YOUR SIGN:":230: xA$"1. CAPRICORN (DEC 22 - JAN 20)":230:A$"2. AQUARIUS (JAN 21 - FEB 19)":230:A$"3. PISCES (FEB 20 - MAR 20)":230:A$"4. ARIES (MAR 21 - APR 20)":230{ }A$"5. TAURUS f --------------------- YOUR HOROSCOPE BY BILL TRAVERS (C) 1985 SOFTYME --------------------- n:w(2802:08)"[ SOFTYME HOROSCOPE ]"08):<280FCURSR$"+>":255PI1(CURSR$):CURSR$CURSR$(8):Z4:260 dA$"FI                   JOHN BELTRAMI'S 'BASIC TRAINING PART III', THE HISTORY OF COMPUTERS PART III, PRODUCT REVIEWS, NEW PROGRAMS, AND MUCH MORE IN THE NEXT ISSUE OF SOFTYME!" ' I;:678:936:" ' THE TEXT 'A$(1)"SOFTYME VOLUME 10, NUMBER 8 WILL BE ONE THE BEST ISSUES YET. YOU WON'T WANT TO MISS SOFTYME'S MONOPOLY, AND A SPECIAL APPEARANCE BY OUR QUESTION AND ANSWER MAN DR. FREUD. 'A$(2)" LOOK FOR  A$(15)10000m::384:47)"SOFTYME COMING ATTRACTIONS"58);:"VOLUME 10 NUMBER 8"51):380z34,(08)(9):I12:A$(I)::2000:I10:08)"PRESS RETURN FOR MENU ";:678:::(4);"RUN TOC" 24:26)"PRESS RETURN"   RESERVE THE";A 17:3:"RIGHT TO FINAL INSERTION DECISIONS.";a 18:3:"SEND YOUR AD TO:"; 20:2:"SOFTYME BOX 299 NEWPORT, R.I. 02840"; (# '24:13:"PRESS ANY KEY.";:A$ *::(4);"RUN CLASSIFIED ADVERTISING" : x11:3:"TIVE AS POSSIBLE WITH YOUR ADVERTIS-";f 12:3:"ING DOLLAR - USE A SOFTYME DISPLAY! ";l 14:3:"SUBMIT YOUR AD ";::"WITH PAYMENT";::", ON A"; 15:3:"DISK. THE AD MUST BE USER LISTABLE"; 16:3:"AND EXIT TO 'ADS'. WETIONAL SECTORS ARE $12.00 EACH.";V P:7:3:"DISPLAY ADS ARE A GREAT WAY TO GET "; Z8:3:" ";::"INTO";::" THOUSANDS OF COMPUTERS EACH "; d9:3:"AND EVERY MONTH. THIS IS A VERY DY- "; n10:3:"NAMIC WAY TO ADVERTISE. BE AS CREA- ";2  ::?2:7):10:" DISPLAY ADVERTISING ";:33:7)I2:1i(V120::" ";:40:" ";:z-22:2:38)273:3:"DISPLAY ADS ARE ...";::" $50.00 ";::" PER EACH";<4:3:"INSERTION; UP TO SIX SECTORS. ADDI-"! F5:3:"   !tNR2Ė(3N)4:N;%!~D1300:+!V!R2(R2)İ1190:(3(N1)3)::R2;:\!!T112:P(16336)::T120:P(16336)!!:N9R1:20((M$(R1))2)::M$(R1):18- O $10:"OVERALL, WE GIVE IT A:" .:" <= 1..2..3..4..5..6..7..8..9..10 =>" 8" POOR FAIR EXCELLENT"; BT11000: L20:N1R2 V1190 `(3N)4::N;: jT1300:MORE&B$"":C1(A$):C$(A$,C,1)2A(C$)GA96C$(A32)_C$;:B$B$C$:::epR1,R26:19:"WE:"R((1)4)4I1RT1NUM9T:20((M$(T))2)::M$(T):9T:20((M$(T))2):M$(T):' ,"when working with non-compatible pro-","grams.)", "Occasionally, strange things will happen","when G.P.L.E. is in memory. Lines may","list as garbage, etc., but they are","usually recoverable."," +++D.H.",END,1,8,NO "finished, your disk will CATALOG.",,"G.P.L.E. is unprotected, and back-up","copies may be made.",," WEAKNESSES:"3z"G.P.L.E.'s 'type-ahead buffer' will not","work with all programs. (Provisions have","been made to allow you to disable it","alone cut editing time in half."f,,"G.P.L.E. contains a 'type-ahead buffer'","which allows you to enter new commands","while previous ones are executing. For","example, you can type 'CATALOG' while a","program is listing. When the listing is"p ELETE', CTRL-I means","'INSERT', etc.",,"G.P.L.E. allows you to do 'Global Search","& Replace' operations. For example, you""\"could change all occurances of G$ to H$,","delete all REM's, or find all lines that","contain a 'GOTO 100'. These operations"se that you want.",,"The G.P.L.E. DOS Mover allows you to","move DOS 3.3 to auxiliary memory, thus","gaining an additional 10K. of program","space.", |R"G.P.L.E. uses mnemonics, so the keys are","easy to remember. CTRL-E means 'EDIT',","CTRL-D means 'Dword processor-like editor, there","is a definable function option which","allows the user to define the escape key","plus any keypress to be equal to differ-","ent tasks. For example, you can define"H "ESC-L to mean 'TEXT:HOME:LIST', or","anything elare","the 'G.P.L.E. DOS Mover', a tip book,"4 "and a free peeks & pokes chart.",,,," STRENGTHS:","If you've ever edited Applesoft programs","WITHOUT a line editor, you'll appreciate","this utility. In addition to its excel-">"lent ft programs without","the headaches of cursor-tracing.","G.P.L.E. is DOS 3.3 and ProDOS compati-",* "ble, and will run in either 40 or 80","column text format. Features include","local editing, global editing, and","'definable function keys'. Included +++D.H.",END,2,7,DUMMY  "G.P.L.E. LINE EDITOR","BEAGLE BROS MICRO SOFTWARE INC","SOFTWARE","$49.95","APPLE ][+, ][e, ][c"a "The Global Program Line Editor from","Beagle Brothers is a utility that allows","you to edit Appleso "accidently feeding into the machine","again. We had to untangle form-feed","paper several times because of this. The","problem can be corrected with a cheap","printer stand or by draping the paper","over the edge of the desk.",  " virtually any computer.",," WEAKNESSES:""Although the MSP-10 is fairly well","designed, its cover is not. The cover","comes in three parts, and is clumsy to","handle. Its elaborate design does noth-","ing to stop the printed paper from" that","is compatible with this printer.",,"The MSP-10 has a unique paper feeding"6 "system that allows you to load any type","of paper quickly and easily.",,"The MSP-10 is available in parallel or","series format, making it compatible with","with,,"'Correspondence quality' print may be","selected by the touch of a button. This","is a convenience that many printers","lack.",, R"Since its control-codes are equivalent","to many of those used by EPSON printers,","there is a great deal of software than that of EPSON printers in","this price range.",,"When printing graphics, the MSP-10","performs quite well. We 'dumped' a few","pictures to the MSP-10 with 'The PRINT""SHOP' by Broderbund. The results were","quite good for a dot-matrix printer." of other print" "functions. Its built in ROM is similar","to that of the EPSON series, so that the","printer is compatible with most EPSON-","capable software.",,,,," STRENGTHS:" "The print quality of the MSP-10 is","better$429.00" ,"ALL COMPUTERS, INTERFACES ALLOWING."  "The MSP-10 is a dot-matrix printer which","operates with single sheet, fan fold, or","rolled paper. It is capable of corre-","spondence quality print, as well as","graphics, and a host16366,0"vP(16384):P127630<P155Ĺ16366,0:580WP160Ĺ16366,0:630g16366,0:m DATA FOR REVIEWS __________________ ? "MSP-10 PRINTER","CITIZEN AMERICA CORP.","HARDWARE"," :12:8O :" PRESS ";::"S";::"TART OVER OR ";::"E";::"XIT ":] &16366,0 0P(16384):P197P211560 :16366,0:P211Ĭ D:: N(4);"RUN TOC" XL0 b23:1l:" EXITS / CONTINUES. ";:: |:"COMPATIBILITY:";::" ";CMP$0 ::L11E (CMP$)25L12M A$_ A$"END"500| A$""LCASEİ910:450 A$ A$""ĺ:470 (A$)40L17ĺ LL2 L17İ600 410 600:950 600 A$:A$"NO MORE"260ORMAT: ";::" ";:A$F$:910:F @:"SUGGESTED RETAIL:";::" ";R$:y J:"COMPATIBILITY:";::" ";:A$CMP$:910:390 T:"PRODUCT:";::" ";P$: ^:"MADE BY:";::" ";M$: h:"FORMAT: ";::" ";F$: r:"SUGGESTED RETAIL:";::" ";R$:#  TPWIND34& TPWIND,3{  DATA OUTPUT STARTS ____________________  P$,M$,F$,R$,CMP$ LCASE340 ":"PRODUCT:";::" ";:A$P$:910: ,:"MADE BY:";::" ";:A$M$:910: 6:"F YOU HAVE A LOWER CASE ADAPTER? ";LC$1 ZLCASE0K d(LC$,1)"Y"LCASE1Q nd x17:"SOFTYME"} A$"PRODUCT REVIEWS" V24I2I VI:13:15); V:13:A$; H311 2:H2:" ";:42H:" "; 2:H:"[";:40H:"]"; SOFTYME1210$NUM4(M$(1)"HIGHLY RECOMMEND THIS PRODUCT":M$(2)"RECOMMEND THIS PRODUCT":M$(3)"SUGGEST YOU TRY THIS BEFORE PURCHASING":M$(4)"CANNOT RECOMMEND THIS PRODUCT"2I2:C0<:F(1101)6LCASE1:110% P12:"DO                   21110160'16366,0%'P211ĬJ':::"RUN INFORMATION PLEASE"'23::7)"PRESS TO CONTINUE"5);:678' (:RADE-"':"MARKS OF APPLE COMPUTER, INC. AND ARE"::"MADE AVAILABLE TO US THROUGH AN AGREE-"::"MENT WITH APPLE COMPUTER, INC.."'10200'12:9::" ";::"S";::"TART OVER OR ";::"E";::"XIT? "':16366,0 'P(16384):P197PTYME'":"OR ITS USABILITY, MERCHANTABILITY OR ITS"'"FITNESS FOR ANY PARTICULAR PURPOSE.":10200:"WE ARE LICENSED BY APPLE COMPUTER, INC."::"'SOFTYME' IS THE REGISTERED TRADEMARK"::"OF VIKING DATA BASED TECHNOLOGIES."::"APPLE AND 'DOS 3.3' ARE TDO NOT ALLOW THE EXCLUSION OR":| t'"LIMITATION OF IMPLIED WARRANTIES, THUS"::"THE ABOVE EXCLUSION MAY NOT APPLY TO YOU"2 ~'"IF YOU RESIDE IN SAID STATE. APPLE COM-"::"PUTER, INC. MAKES NO WARRANTIES, EITHER"::"EXPRESSED OR IMPLIED REGARDING 'SOFRAMS"::"CONTAINED IN THIS MAGAZINE ARE FOR USER"::"ENJOYMENT. VIKING DATA ASSUMES NO LI-": V'"ABILITY FOR LOSS OR DAMAGE CAUSED BY OR": `'10200 j'"ALLEGED TO BE CAUSED BY THE CONTENTS OF"::"THIS PUBLICATION, OR THEIR USE. SOME"::"STATES E IS COPYRIGHTED EACH MONTH WITH"::"THE U.S. GOVERNMENT OFFICE OF COPYRIGHTS" B'"AND IS SOLD 'AS IS'. 'SOFTYME' AND ITS"::"PARENT COMPANY, VIKING DATA, ASSUME NO":_ L'"LIABILITY FOR THE USE OF THE PROGRAMS"::"AND DATA CONTAINED HEREIN. THE PROGGETTING A BAD DISK.":D r"BUT IF YOU EVER DO, WE'LL REPLACE IT": t"IMMEDIATELY. JUST CALL OR WRITE TO"::"BILL TRAVERS. HE CARES, AND SO DO WE!" v10200 ':: '" WARRANTY WARRANTY WARRANTY " $'34,2 .'O 8':"'SOFTYM SOFTYMEd::Pf384:9)"THE 'SOFTYME' GUARANTEE"8):380:::Vhj"OUR GUARANTEE IS SIMPLE. YOUR SATIS-":l"FACTION IS 100% GUARANTEED. THIS IN-":n"CLUDES ANY PRODUCT YOU EVER BUY FROM US.";: p"DON'T WORRY ABOUT      NTHS... ++++++++"/ " GIVE A 12 MONTHS SUBSCRIPTION TO ++"," SOFTYME AS A GIFT... ++++++++++++++" " DONATE A ONE YEAR SUBSCRIPTION OF +"," SOFTYME TO A SCHOOL OF YOUR CHOICE."o SEND IN THE 12 MONTH SUBSCRIPTION"::"AND ASK FOR YOUR JACKPOT BONUS!"=^23:1:"(A)GAIN OR (C)ONTINUE ";:AN$NhAN$"A"100Trw|(4);"RUN INFORMATION PLEASE"Z13000:Z:" GET A FRIEND TO SUBSCRIBE TO ++++++"," SOFTYME FOR 12 MOX16:A$(X):X X512:X:E$:X:X611:X:2:F$;:X$X15268:3:A$(X);J"9:3:A$(X1);,B$B$B$:20:"BILL WILL EXTEND YOUR SUBSCRIPTION"::"FOR ONE EXTRA MONTH!"6390@20:1:958JXT18:"JUST d:: n x SOFTYME JACKPOT  LITTLE PROGRAMMING" TRICKS BY 4 PAUL RAYMER: X 2:13:"SOFTYME JACKPOT" E$" " F$"+++++++++++++++++++++++++++++++++++++" B$(7)     ICH DEPARTMENT TO WRITE TO--"::'}"BILL TRAVERS ANSWERS THE PHONE AND ALL LETTERS!"::V23:"PRESS TO CONTINUE ";:AN$:y(4);"RUN INFORMATION PLEASE"d" d:: i384:14)"WRITE TO BILL"13):380 n: s"ANY COMPLAINTS, COMPLIMENTS, OR IDEAS? WRITE TO:"::"BILL TRAVERS, EDITOR":"SOFTYME":"P.O. BOX 299":"NEWPORT, RI 02840":: x:"NO MATTER THE PROBLEM, ONE DOESN'T HAVE TO WORRY WH rt, Rhode Island 02840 " per year in all foreign countries except Canada and A.P.O." " "E " MAIL TO: "O " " " SOFTYME The Magazine on a Disk " & " P.O. Box 299 "0 " NewpoSoftyme $36.00"  " One Year - 12 issues only $54.00"  " "C "You may send check, money order or"n "charge to your VISA or MASTERCARD." "Please include your Card No. and the" "Exp. Date." " "  "Add $12.00:340J(T$,A,1);TA^hr ========= DATA HERE ========= H| " == HOW TO SUBSCRIBE TO SOFTYME == "R " " " One issue of Softyme $8.50"  " Three months of Softyme $24.00"  " Six months of  GREETINGS FROM NEW ENGLAND! 23:6:"PRESS TO CONTINUE ";:AN$:?(4);"RUN INFORMATION PLEASE"" ================== LOWER CASE CONVERT ================== ,PR1ĺT$:3606A1(T$)@(T$,A,1)"Z"ĺ(((T$,A,1))32); d:: n x HOW TO SUBSCRIBE TO SOFTYME # USING PAUL RAYMER'S8 HINTS AND TIPS> S (1101)6PR1_ A$(19)u X119:A$(X):X X119 T$A$(X) 300 X FOR X = 1 TO 19: PRINT A$(X): NEXT    RIVES."23:"PRESS TO CONTINUE ";:AN$:#(4);"RUN INFORMATION PLEASE"d " :"SIMPLY PUT YOUR WORK ON A DISK, AND":-"SEND IT TO BILL TRAVERS, EDITOR, SOFTYME";:"P.O. BOX 299, NEWPORT, RI 02840."::"MAKE SURE YOUR DISK HAS YOUR NAME AND"::"ADDRESS ON IT. YOU'LL HEAR FROM "::"US SOON AFTER YOUR 'STUFF' AR[ d:: iX1200:"YES! ";:X nZ11000:Z: s@ x384:5)"SUBMIT PROGRAMS TO 'SOFTYME' !"5):380H }: "WE MAKE IT WORTH YOUR WHILE TO CONTRIB-"::"UTE. FROM FREE ISSUES FOR SMALLER": "WORKS -- TO CHECKS FOR MAJOR WORKS.ASE" EQ FI1(A$)::CURSR$;::M$(A$,I,1):M$;:M$" "M$"."āJ15:Js PM$" "āJ12:S(16336): Z:868:: dA$"":I140:A$A$"-"::70:  :40):::A$"SALES/MARKETING.....MICHAEL RAUH DANUTA MORYL":70:A$"":70 ;A$"CIRCULATION.........DONNA TIMBERLAKE DONNA TROOST":70 <100:255:23:24)"PRESS RETURN";:678:20::(4)"RUN INFORMATION PLE9 5A$"EDITOR..............BILL TRAVERS ":70:A$"":70p 6A$"ASSOCIATE EDITOR....PAUL RAYMER":70:A$"":70 7A$"TECHNICAL EDITOR....DAVID HERSEY":70:A$"":70 8A$"PRODUCTION..........ROBERT LENO BILL CARY":70:]  INSIDE COVER % :Q" SOFTYME THE MAGAZINE ON A DISK"bCURSR$"==>"I1(CURSR$):CURSR$CURSR$(8):(1002A$"VOLUME 10 NUMBER 7 (C)1985":703A$"":70 4A$"PUBLISHER...........BILL KELLY":70:A$"":70   ons. SAVE..SAVE..SAVE!!!!"# @65ZLIONS!!"::"SAVE..SAVE..SAVE!!!!"K A22:7)"PRESS TO CONTINUE";s F678:(4)"RUN INFORMATION PLEASE" ,5:"Don't waste your money on long distance phone calls anymore, use our toll free number: 1-800-437-0033 for your orders and questi% :5:(1101)6300Y"DOES YOUR COMPUTER HAVE LOWER CASE ADAPTER (Y/N)";:A$:i-A$"Y"300! 25:"DON'T WASTE YOUR MONEY ON LONG DISTANCE ":"PHONE CALLS ANYMORE, USE OUR TOLL FREE ":"NUMBER: 1-800-437-0033 FOR YOUR ORDERS ":"AND QUEST  file on this disk"w 6" To any other disk with out the hassel of loading and saving the program onto another disk." @65ZI Well our Technical Director David Hersey has developed a copy program that will do just that. It will copy any type file on this disk" 6" To any of your library disks. " @65ZIf your library disks. " @65Z hat. It will copy any type ILL DO JUST THAT. IT WILL COPY ANY TYPE FILE ON THIS DISK"c <" TO ANY OF YOUR LIBRARY DISKS. " A22:7)"PRESS TO CONTINUE"; F678:(4)"RUN INFORMATION PLEASE" d ,6:5:"Tired of trying to copy files from our disk to another? :(1101)6100V"DOES YOUR COMPUTER HAVE LOWER CASE ADAPTER (Y/N)";:A$:\(l-A$"Y"300; 26:5:"TIRED OF TRYING TO COPY FILES FROM OUR DISK TO ANOTHER? WELL OUR TECHNICAL DIRECTOR DAVID HERSEY HAS DEVELOPED A COPY PROGRAM THAT W045B65B902040(FLAG120403BB32>(B);J:VV2Pe4FLAG0FLAG1:r>FLAG0:0:RO0):(4);"RUN SOFTYME JACKPOT"6@N0:RO0QJ:(4);"RUN TOLLFREE"^N0:RO0z:(4);"RUN TRANSFILE"N0:RO0lN0:RO0vA$(N)" ":C$"":FLAG0:1:VY1(A$(X))B$(A$(X),Y,1):B(B$):B$"*"İ2100:2C$B$: A$(X)C$:# N0:RO0> :(4);"RUN MASTHEAD"K LN0:RO0k V:(4);"RUN SEND PROGRAMS"x N0:RO0 :(4);"RUN HOW TO SUBSCRIBE" N0:RO0 :(4);"RUN GUARANTEE/WARRANTY" xN0:RO0 :(4);"RUN WRITE TO BILL"Nn 23::1:"ENTER SELECTION OR 'ESC' FOR THE TOC =>";:I$:I(I$):(16384)27I1INUMBEROFITEMS900 (16384)27ĝ:34,0::12:"ONE MOMENT PLEASE...":(4);"RUN TOC" : C$"" Y1(A$(X)):B$(A$(X),Y,1):B$"*"B$"" C$ HAVE A TOLL FREE PHONE?"Q DA$(7)"8.) *C*AN *I* PUT YOUR PROGRAMS ON MY DISK?"W Xh :V5:X0Nr 2000x ~  :5:X0N:949:(A$(X))40ĺA$(X):770 A$(X): : 49168,0:23:8::"ANY KEY TO CONTINUE => ";:ZZ$ *:Y PROGRAMS?"B A$(2)"3.) *H*OW MAY *I* SUBSCRIBE TO *S*OFTYME?"p A$(3)"4.) *W*HAT IF MY DISK WON'T WORK?" &A$(4)"5.) *W*HO GETS SUGGESTIONS AND COMPLAINTS?" 0A$(5)"6.) *W*HAT IF *I* GET A FRIEND TO SUBSCRIBE?" :A$(6)"7.) *D*OES *S*OFTYME5 )750 -900L 2I1000,1100,1200,1300,1400,1500,1600,1700,1800,1900d <ROUTINE1İ700:65m =750~ A800:34,0: F:I0N PA$(I): Z d N7 A$(0)"1.) *W*HO PUBLISHES *S*OFTYME?" A$(1)"2.) *W*OULD YOU LIKE TO SEE MtA$(11):)NUMBEROFITEMS9A "THE SOFTYME REM"IX2c(1101)6ROUTINE1A$"INFORMATION PLEASE.":I39(A$)111:2:I:A$:Z1100:::#::120):2:11:"INFORMATION PLEASE":34,3:::5 (500:ROUTINE1İ700:4     ZE' SPACE CURVES;' INPUT DEMO,ANAGRAM II,WINDOWSN'MORTGAGE CALCV'INPUT DEMO,DOCTOR FREUD,WINDOWS'MORTGAGE CALCVTOP PRINTING"%& (16384)1273110I0 (16384)155ġ:49168,0:IB:i: 3140:D$;"PR#1":49168,0:D 14::12:"ANY KEY TO PAUSE"::9:" BETWEEN DESCRIPTIONS "N 22::40)::X 14:10::"PRINTING DESCRIPTION":' WORDS,DRAGON MA13::220)E S$"1"İ3160:3150:D$;"PR#1":500:600:D$;"PR#0":W S$"2"İ3140d 49168,0x D$;"PR#1":500 I17:(16384)127İ3100 600 :IB:D$;"PR#0":  D$;"PR#0":49168,0::14:12:"ANY KEY TO START"::9:"'ESC' TO S:14::"YOU MUST HAVE A PRINTER "::8:"CONNECTED TO SLOT NUMBER"::8:"ONE WITH THE POWER ON. "n 2600 40:22::A$ ( L16:X2X4:26202 X2< 777,X:768:F  (16384)27ı (16384)13İ2540:3000  34,23:18:::6:"ENTER SELECTION ";::S$^HS$"1"S$"2"S$"3"S$"4"(16384)272110|RS$"3"(16384)272160\S$"4"Ĭf2500:3000p 34,5:::10:X112:40): "'RETURN' TO CONTINUE OR 'ESC' TO STOP ";:40)d 8 OPTION"0:6:"4.) RETURN TO PROGRAMS MENU" 768,169:769,53:770,133:771,1:772,173:773,48:774,192:775,136:776,208:*777,2:778,198:779,1:780,240:781,8:782,202:783,208:784,246:785,166:4786,0:787,76:788,4:789,3:790,96:&> DESCRIPTION"!::56)7"SOFTYME";:17)n" PROGRAM DESCRIPTION PRINT ROUTINE ";:40)::::"DO YOU WISH TO:":6:"1.) PRINT THIS DESCRIPTION":6:"2.) PRINT ALL PROGRAM DESCRIPTIONS" :6:"3.) END THE PRINTE, YOU ARE AT "@T"THE MERCY OF THE BANK TO TELL YOU WHAT "p^"YOU CAN AFFORD. 'MORTGAGE CALC' PUTS AN"h"END TO THAT! NOW BEFORE YOU SHOP, YOU "r"KNOW WHAT THE PAYMENTS ARE! EXPERIMENT!"|"IT'S GREAT!!" ::"PROGRAM # 8OGRAMMING AND WANT TO "J"GIVE YOUR PROGRAMS A PROFESSIONAL LOOK, "z"TRY SOME OF THESE ROUTINES! THEN SEND ""YOUR PROGRAM TO US, MAYBE WE'LL BUY IT!!"6@"WHENEVER YOU WANT TO BUY A HIGH PRICED "J"ITEM SUCH AS A CAR OR HOM"COMPUTER KEEPS SCORE AND TELLS YOU YOUR "\"PERCENTAGE RATE AT THE END. GIVE IT A ""TRY, IT'S HARDER THAN YOU THINK!""'WINDOWS' IS A PREMIUM DEMONSTRATION OF ""THE USE OF WINDOWS IN SCREEN FORMATTING.""IF YOU ENJOY PRE WHAT "<F"MAKES IT TICK, TAKE A LOOK! NO SEARCH- "fP"ING FOR KEYS; NO FLASHING CURSOR!!"lnx"'ANAGRAM II' IS A WORD GAME WHICH ""SCRAMBLES A WORD AND THEN GIVES YOU ""THREE TRIES TO UNSCRAMBLE IT. THE ",ART AN APPLE CAN BE!" K"IF YOU LIKE EXPLORING THE WORLD OF "{"PROGRAMMING, TAKE A LOOK AT 'INPUT'. "("THIS ROUTINE WAS WRITTEN EXPRESSLY FOR "2"YOU, THE SOFTYME SUBSCRIBER, TO INCLUDE " <"IN YOUR PROGRAMS. JUST TO SE/"SOME OF OUR GREATEST SCIENTISTS DEVEL- "_"OPED MATHEMATICAL PROCEDURES TO PRODUCE ""RECURRING CURVES. NOW YOUR APPLE GRAPH-""ICALLY SHOWS HOW THEY WORK IN BRILLIANT ""GRAPHIC DISPLAYS!! RUN SPACE CURVES AND""SEE HOW SMGON MAZE' ";V"IS A GAME THAT WILL STRETCH YOUR MEMORY "k`"AND SKILL TO THEIR OUTER LIMITS! NO "j"DOUBT YOU WILL FEED THE DRAGON A FEW "t"TIMES BEFORE YOU GET GOOD AT IT, BUT "~"THE PRACTICE SESSIONS ARE GREAT FUN!!!"OF "7"WHAT PEOPLE SAY TO YOU? 'WORDS' IS AN "g"EASY TO USE VOCABULARY TUTOR THAT WILL ""BUILD YOUR WORD BASE TO CONVERSE WITH ""THE BEST! TRY IT OUT AND SEE WHERE YOU ""STAND."B L"HOW GOOD IS YOUR MEMORY? 'DRA200,1300,1400,1500,1600,1700"p21:1::120):22:"RETURN = RUN / ESC = MENU / P = PRINT ";::40:A$(16384)13ı(16384)27Ĭ(16384)80(16384)112İ2000:34,0:500:600700"WOULD YOU LIKE TO UNDERSTAND MORE 0)::2:10):"SOFTYME DISK MAGAZINE";:9):r 3:"VOLUME "VO;:21):"NUMBER "NU;:NU100ĺ" ";:NU10ĺ" ";x  X:4: bJ140:"=";:::5 lB$"'"(A$(I),15)"'"" PROGRAM DESCRIPTION":C20((B$)2):C:B$ v:wI1000,1100,1216,0:(IN)(I1)Ė1:290. T500:600:7008 ^390> h_ r10:8:A$(I);" IS LOADING."s |D$;"RUN";A$(I) 216,0::10:8:"THE FILE ( ";A$(I);" )":14:11:"HAS NOT BEEN FOUND." :23:8:"ANY KEY TO RETURN TO MENU ";::A$:. ::4z#ĠǠҠΠ ŠԠ ů٠ ԠӠ ǠӠ ǠӠ ҠŠ Ӡ  ΠŠ ŠŠ ĠĠӠנϠŠ ŠϠ̠  ͱԲͲԲ ͳԲʹԲͶԲ ҠӠŠ Ӡ  Ԡ ԠàԠĠ ԠƠڮԲٮԲ ӮԲ   ڠԠԠ  ԠàԠĠԠƠԠ   ΠŠŠӠàǠɠӠ ŠҠծԲIJ "à"" ͠ɠ !ԠϠ !Šà#Ӡ         10   7        E MENU IS NAMED 'PROGRAMS' CATALOG=0":384 ":49168,0:"ENTER PROGRAM NUMBER ";::I$:I(I$):I1I$"0"(16384)27Ė1:290 ,(16384)27ĺD$;"RUN TOC" 6BI @I0ė:D$;"CATALOG":49168,0:::2:"ANY KEY TO CONTINUE ";::I$: J; K1ĺ (K1)(N19)ĺ6 N6CV(37)::H K0CV(37)V CV21ĂIa A$(N) :2:N") THIS MONTHS FEATURE: ";::(A$(N),15): (CV6):1::" 'ESC' TO RETURN TO TABLE OF CONTENTS ";: 280 49168,0- (CV8):"THNEWPORT, RI 02840"c ZU$"VOLUME "(VO)" NUMBER "(NU)(SP$,5((NU)))"FLIPSIDE PROGRAMS"t dT$;::U$;: n384:40):380 x I1N1:A$:A$(I)A$ K(K1):N6K.5 ((I))1L2:170 L1 (20KL):I;") ";(A$,15)O VOLUME10:NUMBER7 :)50;(N188:A$:z2216,0::NN1:A$(N):K1:D$(13)(4):D$;"NOMONI,O,C":<N36Ģ10:2:"THERE ARE MORE THAN 36 MENU ITEMS":I0:J12000:: 210A::FSP$" " PT$"SOFTYME BOX 299      Y TO ENTER THE WORD. THIS SHOULD SOLVE YOUR PROBLEM. BILL TRAVERS"J$' S$' IWORD I STARTED TYPING FURIOUSLY BUT I COULD GO ON FOR EVER.THE ONLY WAY I COULD END"'B$(6)"WAS TO SHUT DOWN THE COMPUTER. IS THERE A PROBLEM WITH THE PROGRAM ? M.B. PLAINVIEW NEW YORKD'A$(7)"OUTPUT => AFTER TYPING THE WORD PRESS THE KEM OR REMARK JUST DIAL 1-800-437-0033 (THE SOFTYME HOTLINE). WE'LL BE WAITING. DAVE HERSEY TECHNICAL EDITOR SOFTYME MAGAZINE"T'A$(6)"INPUT <= I'VE PLAYED OREGON TRAIL A FEW TIMES, WHEN I GET INTO THE SHOOTING SEQUENCE AND WAS TOLD THE SHOOTING IN OUR LIBRARY. JUST SEND US $3.95 WITH A FULL DESCR-" 'B$(4)"TION OF THE ROUTINE AND THE NAME OF THE PROGRAM YOU SAW IT IN. WE'LL SEND IT RIGHT OUT. ROBERT LENO SOFTYME STAFF." 'A$(5)"OUTPUT => REMEMBER ANY TIME YOU HAVE A QUESTION, PROBLEOGRAMS HOW CAN I GET A PRINT OUT OF THE ROUTINE WITH INSTRUCTIONS ? J.B. FAYETTEVILLE, NORTH CAROLINA 9 'A$(4)"OUTPUT => ANY PROGRAM WRITTEN BY THE SOFTYME STAFF (LOOK FOR THE 'SOFTYME' REM IN THE FIRST LINE OF THE PROGRAM) IS FULLY DOCUMENTED WN WHILE PUSHING THE RESET BUTTON, THIS SHOULD DO THE TRICK. USING THE OPEN APPLE WITH THE CONTROL AND RESET KEYS WILL START A REBOOT ON THE APPLE IIE + IIC. BILL CARY SOFTYME STAFF"h 'A$(3)"INPUT <= WHEN I WANT TO USE SOFTYME'S ROUTINES IN MY PR0)"PRESS RETURN FOR MENU";:678:::(4);"RUN TOC": e 24:26)"PRESS RETURN";:678:936:x ' THE TEXT 'A$(1)"INPUT <= HOW DO I EXIT A PROGRAM WITHOUT REBOOTING THE DISK? P.H. 'A$(2)"OUTPUT => HOLD THE CONTROL KEY DOL{ --------------------------------- YOUR INPUTS PLEASE - SOFTYME --------------------------------- A$(15),B$(15):10000:::384:11)"YOUR INPUTS PLEASE"11):38034,6:(7):I17:A$(I):B$(I)::2000:I4 1      "MIAMI",25000,5000,5.18  "ORLANDO",10000,3000,3.2U  "TAMPA",15000,6000,3.3t  "KEY WEST",9000,2100,3.8  "JACKSONVILLE",11000,1600,4.3 X::10:10:" RETURNING TO MENU "::D$;"RUN MENU.PART2" PA& |"ATTENDANCE LAST YEAR: ";AVG(N)K " --------"k "DIFFERENCE ";DFt " " "SEATING CAPACITY: ";CAP(N) "PERCENT FILLED: ";PER " " "NUMBER OF HOTDOGS" "TO BE SOLD TODAY: ";HOT 170 BER --->";N N0ī600' N5ī220N "WHAT IS TODAY'S ATTENDANCE ? ";Ac PERACAP(N)100s ,DFAAVG(N) @HOTADOG(N) T"---------------------------" ^"ATTENDANCE ANALYSIS FOR THE" hN$(N);" BALLPARK" r"ATTENDANCE TODAY: ";:D$(4)$ PROGRAM6.PART2DxCAP(5),AVG(5),DOG(5),N$(5)nI15:N$(I),CAP(I),AVG(I),DOG(I):I"WINTER LEAGUE BALLPARK""ATTENDANCE ANALYSIS"I15:I;" - ";N$(I):I"SELECT BALLPARK (0 = END PROGRAM)" "BALLPARK NUM> ::10:10:" RETURNING TO MENU "::D$;"RUN MENU.PART2"h  0,1383,2475,1383,0,1246,2475,1246,0 D."" ,"TYPE '0' TO END PROGRAM."I 6:"DEPARTING CITY # (ROW) --->";YW ;Y0ī400 @Y3ĺ"> 0,1,2 OR 3 < - PLEASE":310 E"ARRIVING CITY # (COLUMN) -->";X JX1X3ĺ"> 1,2 OR 3 < - PLEASE":325 ^:"DISTANCE: ";D(Y,X);" MILES": h255-------------------" " "5 "CITY 1: NEW YORK"K "CITY 2: DALLAS"f "CITY 3: LOS ANGELES"o " " "------------------------" " " "SPECIFY THE I.D. NUMBERS" "OF TWO CITIES. THE DISTANCE" ""BETWEEN THEM WILL BE DISPLAYEDj:D$(4):D(3,3), PROGRAM4.PART2P"CITY-TO-CITY DISTANCES CHART"v"DISTANCES BETWEEN THREE CITIES""ARE NOW BEING LOADED INTO A""TWO-DIMENSION TABLE FROM A""'DATA' STATEMENT."Y13:X13:D(Y,X):X:Y "----- "" ""ITEM # (0 = STOP) --->";I0 ,I0ī400K JI4ĺ"TRY AGAIN":280h ^"ITEM # ";I;" - ";T$(I)q h280 ::10:10:" RETURNING TO MENU "::D$;"RUN MENU.PART2" "LOAF OF BREAD","QUART OF MILK","2 DOZEN EGGS","POUND OF COFFEE" C:D$(4)$ PROGRAM3.PART2/FT$(4)Sd"GROCERY LIST IS BEING LOADED"rn"FROM A 'DATA' STATEMENT"xI14:T$(I):"ITEM # ";I;" - ";T$(I):I" ""PLEASE RETRIEVE ITEM""DESCRIPTIONS BY""SPECIFYING AN ITEM #." "  "RUN MENU.PART2" --" Y14# Y;" - ";C$(Y,1)* Y3 " "K "--- COLUMN 2 ---"V Y14k Y;" - ";C$(Y,2)r Y{ "" " #" " ,23:5:"PRESS ";::"RETURN";::" TO CONTINUE";:Y$ 6Y$(13)ī300 E::10:10:" RETURNING TO MENU "::D$; xY14# }"------------------"= "ROW ";Y;" COLUMN 1"^ "STUDENT NAME --->";C$(Y,1)g " " "ROW ";Y;" COLUMN 2" "STUDENT NAME --->";C$(Y,2) Y "------------------" I15:" ":I "SEATING CHART" "--- COLUMN 1 - PROGRAM2.PART2$D$(4):1FC$(4,2)Qo"YOU WILL ASSIGN STUDENTS"qp"TO SEATS IN A CLASSROOM."q"THE SEATS ARE ARRANGED IN"r"FOUR ROWS BY TWO COLUMNS."s"THE COMPUTER WILL PROMPT YOU"t"FOR INPUT, ROW BY ROW."u" "    " "% ""ITEM # (0 = STOP) --->";I3 ,I0ī400N JI4ĺ"TRY AGAIN":290k ^"ITEM # ";I;" - ";T$(I)t h290} " " D$(4):::10:10:" RETURNING TO MENU "::D$;"RUN MENU.PART2" I PROGRAM1.PART2#FT$(4):=d"GROCERY LIST TABLE"Yn"PLEASE ENTER 4 ITEMS"wxI14:"ITEM: ";T$(I):I}I14:"ITEM # ";I;" - ";T$(I):I" ""PLEASE RETRIEVE ITEM""DESCRIPTIONS BY""SPECIFYING AN ITEM #" "2475";:23:"1246";:32:"0"Y23:5::"PRESS ";::"RETURN";::" TO CONTINUE";:Y$mY$(13)ī500::10:10:" RETURNING TO MENU "::D$;"RUN MENU.PART2" C"ROWS"14:4:"1 N.Y."416:4:"2 DALLAS"J18:4:"3 L.A."`8:22:"COLUMNS"|9:19:"1 2 3"10:18:"N.Y. DALLAS L.A."14:20:"0";:23:"1383";:29:"2475"16:17:"1383";:26:"0";:29:"1246"18:17: "0 b20:15:" "K d13:15:" ";:34:" "f f14:15:" ";:34:" " h15:15:" ";:34:" " j16:15:" ";:34:" " l17:15:" ";:34:" " n18:15:" ";:34:" " p19:15:" ";:34:" " 12:4:";:Y$ Y$(13)ī230" 6:E <5:" "h >5:" COMPLEX TABLE " @5:" (TWO-DIMENSION ARRAYS) " B5:" " J:6 T5:"EXAMPLE: ";::"DISTANCE CHART": ^ `12:15:" " 6:A 5:"EXAMPLE: ";::"GROCERY LIST":X 9:10:"1 BREAD"k 10:"2 MILK" 10:"3 HAMBURGER ROLLS" 10:"4 BUTTER" 10:"5 SALT" 10:"6 ORANGE JUICE" 23:5:"PRESS ";::"RETURN";::" TO CONTINUE THEY ARE CALLED"1 5:"TWO-DIMENSION ARRAYS."k 23:5:"PRESS ";::"RETURN";::" TO CONTINUE";:Y$ Y$(13)ī140 : 5:" " 5:" SIMPLE TABLE " 5:" (ONE-DIMENSION ARRAY) " 5:" :"IS A TAX RATE SCHEDULE. THEY"H x5:"CAN ALSO CONTAIN DESCRIPTIONS"q z5:"AS IN A GROCERY SHOPPING LIST." |" ":" " ~5:"SIMPLE TABLES ARE CALLED" 5:"ONE-DIMENSION ARRAYS. MORE" 5:"COMPLEX TABLES HAVE ROWS AND" 5:"COLUMNS. TABLES.PART2^ :D$(4)::10:" ":10:" TABLES ":10:" "::" ":7n5:"TABLES ARE SIMPLY LISTS OF ITEMS"p5:"THAT ARE PIGEON-HOLED INTO"r5:"NUMBERED SLOTS. TABLES CAN"t5:"CONTAIN NUMBERS. AN EXAMPLE" v5   ; P(16336) I! " "* 2550 n ::10:10:" RETURNING TO MENU "::D$;"RUN MENU.PART2" M600 w500 |Z$S$B$(Y)% 6005 Z$S$C$(Y)> 600G 500Q (19) 20:5::"PRESS ANY KEY TO CONTINUE";:Y$ 200  " "   X170 bN(Z$) lI1N vL$(Z$,I,1) L$ "7 ,23:5::"YOUR CHOICE ?";::" ";A1$;:A$J 0A$(13)ī310[ 1A$"0"ī300l 2A$"9"ī300{ 3A1$A1$A$ 4300 6A2(A1$) 7A213ī295 8 9YA2 @Y0ī900 JY13ī300 T ^500 hS$"   " mZ$A$(Y) rD2" D$ "======"! :7 " VOCABULARY "] :" 0";::" - STOP THIS LESSON"i I113} A$(I)"*"ī290 I$(I) I10ĺ" "; I$; " - ";A$(I) "I 'A1$"" (23::5:" p VOCABULARY.PART2F D$(4)::" COMPUTER VOCABULARY ":" "L#o$" NOW LOADING DEFINITIONS "u%(A$(25),B$(25),C$(25)2D$;"OPEN WORD2"<I113FD$;"READ WORD2"PA$(I)ZB$(I)dC$(I)nI xD$;"CLOSE WOR  "":X512767:Y(X):Y141A$A$(Y128):X5 $' R TAKING THIS QUIZ "9 " "? S D$;"CLOSE ";F$[ D$d " "m " "s  " " " RETURNING TO MENU " " " D$;"RUN MENU.PART2" ' INPUT ANYTHING/ '657:A$Y$  (22)L Y$B$ĺ"*** ";B$;" WAS CORRECT ***":I1700:I:200 "---- SORRY, TRY AGAIN ----":I1500:I:(22):" ":430  END OF PROGRAM   " " " THANKS FO;:Y$ }Y$(13)ī120$ ~" ":7 D$;"OPEN ";F$J D$;"READ ";F$e 10000: INPUT ROUTINEx A$"@"ė:200 A$"^^"ī900 A$"^"ī400 D$ A$ 200  ANSWER B$ D$ (22)  "YOUR ANSWER---->";:Y$:7 QUIZ.PART2D$(4)&:4(F$"QUIZ":2T7" "n<" THIS IS QUIZ # 2 "F" "P:" "d"SELECT THE BEST ANSWER"n"FOR EACH QUESTION." x23:5:"PRESS ";::"RETURN";::" TO CONTINUE"ԠŠӠŠԠƠӠčԠӠŠŠ΍٧ӠŠĠōנ٠Ӡ̠ŠĠٍˠӠŠǠԮɠϠŠՠŠΠ̠Π̠ŠΠҠŮŠӠϠŠԠĠō͠Ԡ̠נՠϠҍŠǠӺԠ   ҍРԠӠŠ΍ԠةΠľנӠčŠӠƠ΍ΠŠԍĠҺԧ̠ӍŠРǠŠ׍Ԡ٩Ӡ  ӍΠþנӠčŠԠӍΠϠŠĠŠŠ͍ŠħԠӍŠ͠ϠōΠĠ΍ŠĠנ٠׍ŠϠӠҠӍϠӠōΠ¾נӠčϭ̠ӠӍӠĠӠŠ٧ĠاӍ٧РϠ͍اԠϠԍĠϠŠǠԠϠӠΠٍŠӠĠΠōŠŠƠŠĠ٠ΠŠ٠ԠӠōנӠčŠͧΠ΍ΠƠŠҠٍǠŠԠΠύĠΠ٠Ƞ٠ԢŢĠĪĪԠǠٺШΩԠԠĺҍԠԠҠƠӢԠϠŠĠٺԍϠɢϢԠŠӠҠŢԠΤΩˢԠŠٺԠŠԠҺǨΩԠԠŠƍԠŠ͠ԠƠӠčҠШΩ͠Š͠ԠҍƠǨΩ͠ӠϠŠčԠǨΩ͠ӠԍԠԠŠӢҠɠϠԠɻΤɩԠɍԠԠˠĠͩԠˠҠ΍ƠΠΠϠƠΠΠϠԠԠӠ٧ӠΠΤŠƠˍ͠ŠŠӍ͠͠ШǨǨΤ͠ĠӠҠɠϠĠΤɩШɩǨɩǨɩԠɍԠҠŠˢɍ͠Š͠ҠŠˍ͠ŠӍ͠͠Р٠Ơ͍͠ǠԠӠō͠ǠҠƠӢ͠ҠΠԠҍ͠     ͠͠ĠƠ͍ĠĪƠ٠ΠϠƠ٠ΠԠҠŢϠԠǠ٠Ω؍ƠؠҠؠΠԠҠŢϠԠźĨ٬ةӢϠԠԠԠ٠ŠɮĮӢԠƠϠӮŠŢԠΠ̠͠ŠĮԠŠϠĠͮԠǠ٠שٍԮҠ٠ϠҠؠϠĠĨ٬ةԠ؍ԠٍԠԠԠ٠נˢԠ٠ӢԠ٠ӠӢԠҠ͠٠РϠ͠ө͠Ԡ٭ϭ٠ӠԢԠӠΠŠӢԠŠנǠĠϠԠϭΠŠ͠Ԡ͠͠č͠Ġ٭ϭٍ͠Ӡō͠ҠӍ͠͠Šō͠Ĩ͠ϭΠō͠ӠӍ͠ؠԠϠԠө͠͠ĠƠ͍͠ĠƠƠĢԠƠˢΠӢĠƠŢĪЩɍƠɠΠϠ͠͠ŠӠΠōƠɠΠԠ٠΢Ϡ͠Ԡ͠ɻԤɩϠԠɍ͠͠ˠҠϠ٠͍͠ԠԠŠŠ͢ԠӠ٢ԠǠΠ͠ԠԠ͠ӠǠĢԠ͠ԢҠɠϠĠԤɩԠɍ͠͠Ԡ٠Ӡč͠ҠɠϠԠ͠ɻԤɩ΍͠͠Í͠Ġ٠ԍ͠ȠӠύ͠ŠŠ٩͠͠ΠƠٍ͠Ԥ͠͠ĠōԠ٠Ԡ    Ԡٻä٬ԠٍĪԠҠɠϠԠԠɍԠǠԢԠΠҠ٠ϠԠٻä٬ԠٍԠԠΠҠ٠Ԭנ٠׮ԠҠ٠ϠԠԠנٻΠԠԠŠä٬ԠԠנٻΠԠԠŠä٬ԠٍΠϠ͠ΠӍԠՠ̠ΠӢԠϠӠΠҠͮԠŠӠŠĠ΢ԠҠӠ٠ϠӮԠŠҠ̠ԠբԠҠɍ͠͠͠ΠӠϠӍ͠Π͠ȍ͠ϠӠĠҠӍ͠ƠӍ͠ŠŠ͠ä͠Ӡ͠٠נϠ͠ؠ ͠͠ĠƠ͍͠ĠĪЩɍƠɠΠϠ͠͠ŠӠΠōƠɠΠԠ٠΢Ϡ͠Ԡ͠ɻԤɩϠԠɍ͠͠ˠҠϠ٠͍͠ԠԠŠŠ͢ԠӠ٢ԠǠΠ͠ԠԠ͠ŢԠŠҠӢҠɠϠԠͺԤɩԠɍ͠͠Ԡ٠Ӡč͠ҠɠϠԠ͠ɻԤɩ؍͠͠͠Ġ٠ԍ͠ȠӠύ͠ŠŠ٩͠͠ΠƠٍ͠Ԥ͠͠ĠōԠ٠ԠΠƠӠ͠ӠΠ͠ԨҠ٠ϠҠؠϠԨ٬ةؠٍԠ؍Ԡٍ®îĮލÍލԠ؍ލΠԠŠ̠ԨΠƍӠ͠ӠΠ͠ԨҠɠϠʠɍԨɩʍԠʍ®îŠҠʧލΠԠŠ̠ԨŠԍΠŠŠԠנ͠ԨҠ٠ϠҠؠϠԨ٬ةԠ؍Ԡٍ®͠ԨҠؠϠҠ٠ϠԨ٬ةԠٍȠƠŠǠ̠čŠȠӠ͠ԨҠɠϠԨʩɍԠɍ®͠ԨҠɠϠԨɩɍԠɍލΠȠƠŠ̠ĠΠȠƠŠǠӍà٠͠® î͠ލÍΠȠƠŠǠӍϭ̠Ǡ٠͠®͠î͠ލΠ     ϭ٠ӠԍōΠԠӠ΍ĠӠҠΠԠō׍РϠ͠ԠΠϭ̠ōԍàŠĠϠԍϠҠؠҠƠōōԠƠĠƠӠԍŠĠҠŠōϭΠōӠԠĠϠӍǮ٭ӍŠҠ٠ҠҍĠӍ̠ӠҩŠٍŠҠӠҩŭΠōŠԠ٠ӠخǮŠǠԍōΠԠӠ͍ҠϠԠٍҠĠҠōҍΠԠӠ̠ӠΠ͍΍ԠϠԠԠΠϭ̠ōԍΠԠӠčϠŠĠӠԍ͠ΠԠ fN10:8:T$2pN15:5:" AUTHOR: JOHN BELTRAMI"lzN20:5:"PRESS ";::"RETURN";::" TO CONTINUE";:Y$rNN:::1:8N" ":2:8N" APPLESOFT BASIC ":3:8N" TRAINING ":4:8N" ":N INPUT>'657:X$"":X512767:P(X):P141X$X$(P):XD$'Y N OPENING SCREENi*N:::1:84N" ":2:8>N" APPLESOFT BASIC ":3:8HN" TRAINING ":4:8RN" ":\N8:12:"LESSON (";T;")" 3)ī3233 " ":" "" :32105 D$;"READ ";F$@ 10000H D$P X$Z LL1d 3220x D$;"CLOSE ";F$ 216,0 D$ " " (22) "PRESS ";::"ANY";::" KEY TO RUN PROGRAM "; Y$:" " " "<500' GENERAL5F$"TEXT 2B":32000 I6F$"TEXT 2C":3200L I7F$"TEXT 2D":3200h I8F$"TEXT 2F":3200w! I8ī3900 D$;"OPEN ";F$ 3500 L0 L15ī3240 D$ 5 23:"PRESS ";::"RETURN";::" TO CONTINUE";:Y$ Y$(1URN";::" TO CONTINUE";:Y$1Y$(13)ī22007@" "I" "R" "XT h LIST CODEw I4ī3900}   " " " THE PROGRAM CODE " " " :" " I4F$"TEXT 2A":3200 I":2100#I6F$"INST 2C":2100?I7F$"INST 2D":2100[I8F$"INST 2F":2100jI8ī2900p4>D$;"OPEN ";F$HJ120RD$;"READ ";F$\10000fD$pX$zJD$;"CLOSE ";F$D$22:5::"PRESS ";::"RETBLES?"," LESSON 1 - GROCERY LIST"," LESSON 2 - SCHOOL ROOM" " LESSON 3 - STORED DATA"," LESSON 4 - TRAVEL AMERICA!"," BASEBALL PROBLEM"," TAKE A QUIZ"  INSTRUCTIONS I4ī2900 I4F$"INST 2A":2100I5F$"INST 2B:10:10$ "WATCH FOR LESSON #3"0 12:10Z "IN THE ";::"NEXT";::" ISSUE OF"f 14:10 :"----- SOFTYME -----": I11000:I  D$;"RUN TOC":A " STOP THIS LESSON"," COMPUTER VOCABULARY"," WHAT ARE COMPUTER TA1.PART2"% wI5N$"PROGRAM2.PART2"B |I6N$"PROGRAM3.PART2"_ I7N$"PROGRAM4.PART2"| I8N$"PROGRAM6.PART2" I9ĺD$;"RUN QUIZ.PART2""  INSTRUCTION ROUTINE 2000  SOURCE CODE ROUTINE 3000  D$;"RUN ";N$  A$ A$(13)ī200. A$(32)ī3007 170C :5:VT A$(I);B$(I)^ II1k I9I1u VI9~ 160 , Y Z" " ^I1ī900 c hI2ĺD$;"RUN VOCABULARY.PART2" mI3ĺD$;"RUN TABLES.PART2" rI4N$"PROGRAM(C$) |B$(I)(C$,4,L3)" I) 7e " PRESS ";::"RETURN";::" TO CHANGE YOUR SELECTION" " PRESS ";::"SPACEBAR";::" TO REGISTER YOUR CHOICE" I19 VI9:5:V A$(I);B$(I) I I1:VI9 :5:V:A$(I) V:6  MENU.PART2AD$(4):T$"TABLES & SCHEDULES":T2:20000Z ------------------l WRITTEN BY: JOHN BELTRAMI! BUFFALO, NEW YORK" --------------------nA$(14),B$(14)sxI19yC$zA$(I)(C$,1,3) {L     " PRESS TO CONTINUE. ";:R$:R$(13)160 :6:1:958:: S.F.T.S. WAS CREATED BY DAVE HERSEY 03/10/85 @ERNEATH THE CURSOR. THESE ARE DE-":"FAULT VALUES. TO USE THEM, JUST PRESS":160:"THE KEY.":::"ALSO, WHENEVER YOU ARE PROMPTED WITH":"'FILE:' YOU MAY RETURN TO THE MAIN MENU" "BY PRESSING ." 160:708 5:23::WISH TO CHANGE THE SETUP, (SLOTS":"& DRIVES), THAT YOU ARE USING. TO DO" x"THIS, CHOOSE OPTION THREE AND ENTER THE":"INFORMATION AS REQUESTED.":::"NOTE: SOMETIMES WHEN YOU ARE ASKED A":"QUESTION, A NUMBER OR LETTER WILL FLASH" "UNDLIZED DISK.":::"TWO PHRASES THAT ARE USED THROUGHOUT THE":"PROGRAM ARE 'MASTER DISK' AND 'TARGET"M n"DISK'. THE 'MASTER DISK' IS THE DISK":"THAT YOU ARE COPYING FROM. THE 'TARGET":"DISK' IS THE DISK YOU ARE COPYING TO.":160:"YOU MAY :40);" SOFTYME FILE TRANSFER SYSTEM ";40)y P3:10::"WOULD YOU LIKE INSTRUCTIONS? (Y/N) ";:I$:I$"N"ı ZI$"Y"80h d6:1:958:"THIS UTILITY ALLOWS YOU TO TRANSFER":"FILES FROM YOUR 'SOFTYME' DISK TO ANY":"OTHER INITIA" ::"BLOAD SFTS":70:34886S(74):D(75):10:" PLEASE INSERT YOUR 'SOFTYME' DISK"::" INTO DRIVE #"D" (SLOT #"S").":23:" PRESS RETURN TO CONTINUE.";(A$:A$(13)40230<103,1::(4)"RUN TOC,S"S",D"D6 F:ɱɲ8鰪 `% [ ξ宠 5ɍL ?ȭ>`Aȭ@`Cȑ`h:h;:<) :;;H:H`  ӠΠϠŮ 5ɍL X ݠ۠ҠԿ> q> Ҡſ? ? ԠԿ@ q@ ԠſA AL $ 5ɍ ɰ0ɸ8鰪 ` $ 5ɍ C`H :hLD X ݠ렠ۍ뿠ͯԩ B $ 5ɍ B X B5 ݠ렠?ȭ>3 ݠ렠Aȭ@" ȩgȩ v`ȩȑȩeȩ v`ȩeefȭfȩgȩ v` [ ԠԠˠĠӠή, 5ɍ` 5ɜɠOC Ɉ>$ $ɍ hhL C۰ :L? -       !L% -   / !L% -        !L%hh QL [$ B`ȩȩcȑȩ v`ȩȩȩeȩ v`ȩefȑ / vd \ / ŠӠĮŠٿٯΩ,$$ 5 ɍL / vLLm / ź ?Lm  ` ȑȑȑȑ= =   5 \8`   Qbɀ   vL Q / ԠŠӠΠŠԠˡՠٺ卍卍獍忠, 5LL -           !Lbɀ逍a `a@efgȘef vB(ȩȑȩcȩ vLT `  Q>@ ?A    vLa va :L忠, 5ɱɲLɳLɴLf X ݠ󠠠ۍź ?>@>?A6 ԠҠˠĠӠή, 5ɍȑ   v4 QԠԺź [$> !$?  [$@ !$A ߍӺҠӍǠˍŠӯӍԍ "g JJJJJȱK >@?ȌA͍B<<" X          ҠԺź     <: :12:"ONE MOMENT PLEASE...":(4);"RUN MENU.PART2" :"THROUGH 4 SUCCESSIVE CURVES. OPTIONS"SN "::"THROUGH 4 SUCCESSIVE CURVES. OPTIONS":"4 & 5 DRAW A PARTICULAR USER SPECIFIED"::"CURVE."::" ** HIT RETURN ** ";X$:3000):"BY MAINTAINING A 'STACK' CONTAINING A":"LOCAL VARIABLE."::" OPTIONS 2 & 3 AUTOMATICALLY RUN "E PROCEDURE. AS"::"BASIC DOES NOT SUPPORT TRUE RECURSIVE"::"PROCEDURES WITH LOCAL VARIABLES, THIS"::"PROGRAM SIMULATES TRUE RECURSIVE CALLS":"BY MAINTAINING A 'STACK' CONTAINING A"::"LOCAL VARIABLE.":." OPTIONS 2 & 3 AUTOMATICALLY RUIN ":"BASIC. THE ALGORYTHYMS ARE DESCRIBED"::"WITH ALGOL PROGRAMS IN WIRTH'S BOOK ON"::"DATA STRUCTURES. THIS PROGRAM IS AN ":"EXAMPLE OF A RECURSIVE PROCEDURE.":21:" ***HIT RETURN ***";:678::"EXAMPLE OF A RECURSIV"WHAT DEGREE ";:X:X1X630712 J1X:J5X:10Z :"WHAT DEGREE ";:X:X1X73073n J1X:J2X:1005 "RUN PROGRAMS":" THIS PROGRAM PLOTS SPACE FILLING"::"CURVES OF TWO TYPES, HILBERT AND SIER-"::"PINSKI. THE PROGRAM IS WRITTEN  , "4. INDIVIDUAL HILBERT CURVES 1-6"2 ] "5. INDIVIDUAL SIERPINSKI CURVES 1-7"c r "6. STOP"x  ::"WHICH NUMBER ";X 24 X1X63040 X4000,3069,3070,3071,3073,3075 J11:J54:10 J11:J54:1005  :6366,0:3000"qIIII1:IS(II):Z" *** HIT RETURN *** ";X$::::M:3000e ::5 :"S P A C E F I L L I N G C U R V E S "::: "1. INTRODUCTION"  "2. HILBERT CURVES 1-4 "  "3. SIERPINSKI CURVES 1-4 "H:X,Y7IIII1:II1:1300)<1900?xS(II)I:I01900W}IIII1:II1:1400nXXHX:YYH:X,YIIII1:II1:1100YY2H:X,YIIII1:II1:1300XXHX:YYH:X,YIIII1:II1:14001900 l(16384)155Ĺ11300YY2H:X,Y/IIII1:II1:1100FXXHX:YYH:X,Y^IIII1:II1:1200h1900~S(II)I:I01900IIII1:II1:1300XXHX:YYH:X,Y#IIII1:II1:1400(XX2HX:X,Y-IIII1:II1:12002XXHX:YYQIIII1:II1:1100,VXXHX:YYH:X,YD[IIII1:II1:1200W`XX2HX:X,YoeIIII1:II1:1400jXXHX:YYH:X,YoIIII1:II1:1100t1900S(II)I:I01900IIII1:II1:1200XXHX:YYH:X,YIIII1:II1:TT60:1040 TT40:10405 XTTHX:Y160H:X,YH IN:II1:1100_ XXHX:YYH:X,Yr $IN:II1:1200 )XXHX:YYH:X,Y .IN:II1:1300 3XXHX:YYH:X,Y 8IN:II1:1400 =XXHX:YYH:X,Y B1990 LS(II)I:I019001N " DEGREE ";M:34,21::6:"PRESS TO RETURN TO MENU"X NM1h H128(2N)r HH4 :HXH:3 N1031,1032,1033,1034,1035,1036,1037 TT172:1040 TT110:1040 TT90:1040 TT90:1040 TT70:1040  YYH:X,Y' IIII1:II1:4008 XXHX:X,YO IIII1:II1:400_ YYH:X,Yv IIII1:II1:300 998 (16384)155Ĺ16366,0:3000 IIII1:IS(II): " *** HIT RETURN ***";X$::::N:3000 MJ1J5::2H:X,Y IIII1:II1:100( 998= ,S(II)I:I0998T 6IIII1:II1:200e ;XXHX:X,Y| @IIII1:II1:300 EYYH:X,Y JIIII1:II1:300 OXXHX:X,Y TIIII1:II1:400 ^998 S(II)I:I0998 IIII1:II1:100sXXHX:X,Y% xIIII1:II1:1005 }YYH:X,YL IIII1:II1:100] XXHX:X,Yt IIII1:II1:200} 998 S(II)I:I0998 IIII1:II1:300 YYH:X,Y IIII1:II1:200 XXHX:X,Y IIII1:II1:200 YY* S(30)3000# NJ1J5s:21:" DEGREE ";N:34,21:6:"PRESS TO RETURN TO MENU"H128(2N):HXH32.6:3(X218HX:Y158H:X,Y2IN:II1<100F1000dS(II)I:I0998nIIII1:II1:400      (Y/N) ";:Y$:Y$"Y"Y$"N"Ė1:180105dFY$"Y"ĬSnF:::(4)"RUN PROGRAMS"A00:"THE DRAGON GOT YOU!"&=49168,0G="ENTER (Y/N) TO TRY AGAIN";O>A$a>A$"N"2700x>::12:18:"BYE"H?"RUN PROGRAMS"PF216,0:E(222):E53ĉ::'ZF21:958:"YOU ESCAPED OVER THE WALL, AND FELL INTOOBLIVION.":"PLAY AGAIN? 1:136004:SX1153006:T(SX13(SY1))915200d:B10:R1MOD(M(SX13(SY1)1)):R115300z`;DX1:DY0:13600;SY113200( I1169:T(I)0:IV H I1169:M(I)11:I~ X(13(1))1:Y(13(1))1:C169 C16700 tR0:D0:L0:U0:KX13(Y1):M(K)(M(K)):CC1 X13RM(K1)0 <Y13DM(K13)0 X1LM(K1 THE DRAGON CAN'T GET"* "THROUGH IT!)"0 ` W 7:"PRESS TO BEGIN";:A$j A$(13)100~ ( M(169):T(169) :6 :"SOFTYME DRAGON MAZE":23:9::"MAZE UNDER CONSTRUCTION": T I0393:0,39I:0,39I:I 0  S1000' SOMETIMES THE DRAGON"C "GETS REAL MAD, AND CLIMBS OVER A WALL."q @"BUT MOST OF THE TIME, HE CAN'T GO OVER" "AND HAS TO GO AROUND."  l"(HINT: YOU CAN OFTEN TELL WHERE A WALL" "IS, EVEN BEFORE YOU CAN SEE IT, BY" 4"THE FACT THAT'R' FOR RIGHT,"4 "'L' FOR LEFT, 'U' FOR UP, AND"] "'D' FOR DOWN. DO NOT HIT RETURN!"c  "THE OBJECT IS FOR YOU (THE GREEN DOT)" L"TO GET TO THE DOOR ON THE RIGHT SIDE" "BEFORE THE DRAGON (RED DOT) EATS YOU." x"BEWARE!!!!!!!!! T  18000d:936G:7:" SOFTYME'S DRAGON MAZE!":::34,1r,"YOU MAY WATCH WHILE I BUILD A MAZE,""BUT WHEN IT'S COMPLETE, I'LL ERASE""THE PICTURE. THEN YOU'LL ONLY SEE THE WALLS AS YOU BUMP INTO THEM." X"TO MOVE, YOU HIT       ION, A BELCH OR BURP, NOUNABELOW THE SURFACE, ADJH LYNCH, TO HANG WITHOUT A TRIAL FIRST, VERBf RARE, HARD TO FIND, ADJ DEVOTE, DEDICATE, ADJ KITTEN, A YOUNG CAT, NOUN STATUS, LEVEL OR POSITION OF A PERSON, NOUN WISDOM, KNOWLEDGE, NOUN  ERUCTATENT,ADV2d PARDON, TO ABASOLVE FROM GUILT, VERBbn SOLICIT, TO TRY TO OBTAIN BY ASKING, VERBx TENT, A PORTABLEE LODGE OF SKINS CANVAS ETC. STRETCHED OVER POLES, NOUN VILLAIN, A PERSON WHO DOES EVIL THINGS, NOUN DEEP, EXTENDING FAR CHOLAR, A LEARNED PERSON, NOUNW2 CHOKER, SOMETHING WORN CLOSELY TO THE THROAT, NOUNu< WRIGHT, A WORKMAN, NOUNF COMA, A STATE OF PROFOUND INSENSIBILITY, NOUNP GALA, PERTAINING TO FESTIVE TIMES, ADJZ HOWSOEVER,TO WHATEVER DEGREE OR EXTIS STRUCK WITH A RACQUET IN AN ENCLOSED COURT, NOUNR SHOAT, A YOUNG HOG, NOUNp BAGGAGE, SUITCASE, NOUN  OUNCE, A WEIGHT EQUAL TO ONE TWELFTH OF A POUND, NOUN TRICORN, HAVING THREE CORNERS, ADJ EMPLOY, TO USE OR HIRE, VERB( S" ":I%I220:(38):(I):" ":IGI3831:(20):(I):" ":IhI2021:(2):(I):" ":Int:CORRECT REPLIESV:H:CT$(C)V:H:IN$(C) MACABRE, GRUESOME, ADJ3 TENNIS, A GAME PLAYED WITH A BALL WHICH ANY EXTRA"::"COMMAS."v?20:" PUSH TO ENTER NEW DATA,"::" OR TO RETURN TO THE MENU";:A$BA$(27)ė:"START WITH 1250 AND GO TO 1490"::LA$" "1080V170` :OUTLINES IN "?"jt~I238:1:(I)::|."AFTER YOU HAVE ENTERED ALL 25 DATA"::"STATMENTS, TYPE:"::::"SAVE WORDS":::"TO SAVE YOUR DATA. THEN TYPE:"81:10::"RUN":::"TO START THE PROGRAM."=:" IF A PROBLEM DOES OCCUR CHECK DATA "::"STATEMENTS TO SEE IF THERE ISION AND PART"::"OF SPEECH SHOULD BE IN A SEPARATE DATA"::"STATEMENT. THEY SHOULD BE NUMBERED"::"FROM 1250 TO 1490.":"HERE IS A SAMPLE DATA STATEMENT:"::"1250 DATA BOOK,SOMETHING YOU READ, NOUN":$:(7):"TO CONTINUE, PUSH ANY KEY";:A$:A$ 1704***INSTRUCTIONS FOR DATA ENTRY***a:" INSTRUCTIONS FOR NEW DATA ENTRY"5:(4):"WORDS, THEIR DEFINITION AND PART OF "::"SPEECH ARE ENTERED INTO THE PROGRAM"::"BY USING DATA STATEMENTS."z:"EACH WORD WITH ITS DEFINIT WORKING ON, TYPE ."s::"WHEN THE COMPUTER IS WAITING FOR YOU"::"TO HIT THE RETURN KEY, IT WILL PRINT":15::""::"NOTHING WILL HAPPEN UNTIL YOU PRESS"::"THAT KEY.":::::(3):"PRESS ANY KEY TO RETURN TO THE MENU.";"S:"YOU MAY USE THE BACK SPACE KEY"::15::" <--":::"TO ERASE MISTAKES.":"PUSH THE ESCAPE KEY"::15::"":::"TO RETURN TO THE MENU.":"PUSH ANY KEY TO CONTINUE.";:A$:"TO FIND OUT THE ANSWER TO THE WORD "::"YOU ARED THE WORD. OTHER TIMES YOU WILL BE"cz"GIVEN A WORD AND ASKED WHAT PART OF"::"SPEECH IT IS."::(5):"HIT ANY KEY TO CONTINUE.";:A$:"AT THE END OF EACH MESSAGE YOU TYPE,"::"PRESS TO SEND THE INFORMATION"::"TO THE COMPUTER.IRST, YOU MUST TYPE"::"EACH WORD INTO A DATA STATEMENT"::"ALONG WITH ITS DEFINITION AND "::"PART OF SPEECH."%p:" YOU WILL THEN BE TESTED TO SEE HOW"::"WELL YOU KNOW THESE WORDS. SOMETIMES "::"YOU WILL BE GIVEN A DEFINITION AND"::"ASKEī820  I*8304280m>:5:10:::"CONGRADULATIONS!!":::"YOU HAVE COMPLETED ALL THE WORDS."H:"PUSH ANY KEY TO RETURN TO THE MENU.";:A$:R:170\:INSTRUCTIONSrf:"THIS PROGRAM HELPS YOU LEARN VOCAB-"::"ULARY WORDS. FA$(8)(B$)1PP1:A$" ":Q:(P):A$:B$(B$,(B$)1):660iA$(8)B$"":PPP:Q:PP:B$:660{A$(13)760A$(32)A$(126)ī660B$B$A$Q:P:A$PP1:660:I024:WD(I)0ī820 II024:DF(I)01):XX$D510$N:PRINTS ANSWERDX18:1:W$(I):D$(I):P$(I)b:"PUSH ANY KEY TO ERASE THE ANSWER":"AND CONTINUE WITH THE REVIEW.";:A$lKY$"Y"vB$""PPP(Q):(P):A$A$(27)A$"ESC":760A$"?"İ590:760AE WORD IS: ";::W$(I):=:"WHAT PART OF SPEECH IS IT ?"JQ15:P1S640eA$"ESC"170KY$"Y"KY$"N":490&B$P$(I)ĺ:W$(I):D$(I):P$(I)::CT$(((8)10));:A$:DF(I)1:2800:IC$(((8)10));:A$:Q:(1):XX$:(Q2):( 640A$"ESC"1705KY$"Y"KY$"N":350HB$W$(I)ī450gIC$(((6)10));:A$:350p350:W$(I):D$(I):P$(I)::CT$(((8)10)):A$:WD(I)1:280 :WHAT'S THE DEFINITIONDF(I)1II1:470I24770:5:"TH25ī280! ,J((4)10):J4320* 6460A @:WHAT IS THE WORDY JWD(I)1II1:330h TI24ī770n ^ h5:"DEFINITION OF THE MYSTERY WORD:":::D$(I):: r"THE MYSTERY WORD IS A(N) ";::P$(I):::"WHAT IS THE MYSTERY WORD?"|Q14:P1RDS'":8:5:"1) INSTRUCTIONS"E 10:5:"2) INFO ON CHANGING DATA"d 12:5:"3) BEGIN PROGRAM"y 14:5:"4) END" 16:5:"PUSH 1-2-3-4";:A$ A(A$) (A$)860,1010,280,260 220 :"RUN PROGRAMS"  I((1)25) "I):I! n1120: OUTLINES IN ?'SA s6:12:"SOFTYME PRESENTS:"Z 10:19::"WORDS":l 12:20:"BY" 14:13:"RICHARD J. SAGALL" 22:8:"PUSH ANY KEY TO CONTINUE";:A$: 1120: OUTLINES IN ?'S  (04):(06):"SOFTYME PRESENTS: 'WODER , THAT'S NOT RIGHT , BOO YOU WEREN'T THINKING , THAT'S INCORRECT-TRY AGAIN Z WRONG WRONG WRONG , THAT ANSWER ISN'T RIGHT , RETHINK YOUR ANSWER , YOU CAN DO BETTER THAN THAT  dI024:W$(I),D$(I),P$(ITN>, SUPER , THAT'S RIGHT , ONCE AGAIN YOUR BRILLIANCE SHOWS , YOU'RE LEARNING , KEEP UP THE GOOD WORK , YOU'RE GETTING BETTER EACH TIME F ANOTHER RIGHT ONE c P NO THAT'S WRONG , YOU GOOFED , THINK HARP XX$" ": BLANKS OUT A LINE}W$(150),D$(150),P$(150),CT$(10),IC$(10)WD(151),DF(151)(I09:CT$(I):I2I09:IC$(I):I < YES YES YES ,HOORAY YOU'RE RIGHT , GREAT WORK :D$(4);"H1:INVALID YEAR ENTRY";(7);" "A$:1820 IP11A$"C"ė::"END OF ANALYSIS...ENTER 'H','Q','Y',OR":18:"'ESC'";(7)::1820 A$"C"ė:6:3::" ";:6:DSDS1:DS::6:2020 P27DS2DSDS1:A$"":3:6::DS:::1680=!(16384)27840%b(16384)8A$(A$,L):1910/l1850EvA1$;:A$A$A1$:d30:23:" "::6((A$)12)(12DT)P111960(A$)((A$))(A$)11960I((A$)12)(12DT):DS(A$):K12:6:3::" ";:6:DS:::6:2020% :" DATE ";:(T(4)(FF$)2):FF$\J5Ė30:23:49168,0:A$:P(16384):A$"H"A$"Q"2080n&A$"Y"1970030:23:"YEAR # ";:A$"":L14:A1$:L4(16384)131850D(16384)131920N(16384)471910X(16384)8LL2:L112IP11J2K121780+FFST(I,J):2610IJ2IP11J2K121780f(T(J)((FF$)2)):FF$;p2020J4J52020FFSU(DS1,J3):2610J4ĺ::"TOTAL INTEREST THIS YEAR ";:(T(3)(FF$)2):FF$:2020J5ĺ"TOTAL INTEREST TO4)"INTEREST"4)"BALANCE"0^34,5:T4:T12:T28hh22::"C=CONTINUE: H=HARD COPY: Y=YEAR SELECT":23r8:"ESC=LAST PAGE: Q=QUIT":|35,216KDT1I0P11KK15((I1)));I1;J07:IP11K12J22020J0T(0)15:T(1)(27):T(2)(38):T(3)38:T(4)38R"PRINCIPAL =";AM$;:28:PD$;kPD1ĺ" YEAR":1580y"" YEARS","INTEREST = ";IR$;"%";622:"PYMT =";PM$@:"YR # 1";34):3J14:"LAST PAYMENT =";PL$:T"PYMT #"2)"PRINCIPAL"ST(I,0)MPST(I,1)MI(ST(I,2)RB?K12IP111470SU(C,0)PT:SU(C,1)IT:SU(C,2)TL:SU(C,3)PR:SU(C,4)TP:CC1KK1ICA1:CB1: **************************** SCREEN REPORT:KDT1:DS11:1::120):10:PT0:IT0:PLPM:TP0%RBAM:KDTD(:"CALCULATING ANALYSIS";R2I0P11\<".";kFMI(R1RB)PIP11PLRBMI:FFPL:2610:PL$FF$ZMPPLMI:RBRBMPdK12K1:PT0:IT0nTPTPPLxPTPTMP:ITITMITLTLMI:PRPRMP K155123011708IR$(IR$,6):PD$(PD$,6):[ ****************************| CALCULATE MONTHLY ANALYSISCA1ıCB11290:1:3:"ONE MOMENT PLEASE"::SU(100,4),ST(1200,2) P1(PD12):R1RT:C0PR0:TL0:MI0:MPPE 'Q' TO QUIT, OR 'S' TO VIEW MONTHLY ANALYSIS, 'H' FOR HARD COPY OF ANALYSIS... "1:(Q$,39);:Q$(Q$,2)(Q$,1):K(16384):K128āK180::K(0):117016368,0:K12872A$"H":1230K12881A$"Q":1230K12883A$"S":1230..........":SC$AM$D.I2Q$"ANNUAL INTEREST RATE...":SC$A1$(2)u8I3Q$"PERIOD.................":SC$A1$(3)BI4Q$"MONTHLY PAYMENT........":SC$PM$LV1);Q$;`(T((SC$)2))jI4Ğ:SC$::1150tSC$~T22:Q$"TY(AMRTV)(V1)1FFPM:2610:PM$FF$:PM(PM$)7f::12:E$;(7);:A$::(16384)13970v:440:490 **************************** PAYMENT TO SCREEN220:10108:T30I14$I1Q$"PRINCIPAL....0":FF0FF$".0"F1$:FF9FF$"."F1$:FF99FF$(F1$,(F1$)2)"."(F1$,2)fpFO0FF$"-"FF$z(FF$)11FF$(SP$,(SP$)(FF$))FF$ **************************** CALCULATE PAYMENTRT((IR))1200:V(1RT)(PD12)PM1$(0),L(I))I4820. FO(A1$(I)):870=A1$(I)FF$Q T(I)::A1$(I)X*Iq4AM$A1$(1):AM(AM$)>IR$A1$(2):IR(IR$)HPD$A1$(3):PD(PD$)RDT((A1$(4),2)):YR((A1$(4),2))\FL0:PfFF((FO100.5)):F1$(FF):FF$"0.0A1(A1$(0)):CA01A19999999.99A10970>I1760\I2A1200I2A10970I3A1.25(A1.25)I3A1100I3A10FL1:970I4((A1$(0),2))12FL1:970I4((A1$(0),2))1(A1$(0),2)"00"FL1:970 A1$(I)(A1P13((A1$(0),2))1A1$(4)"01"(A1$(4),3):A1$(0)"01"(A1$(4),3):800nlI4J4P8JJ3:A$;:650vP8JJ2:J1ĖT(I):A1$(I);:T(I):520P13JL(I):680V(I):A$;P8A1$(0)(A1$(0),J):680A1$(0)A1$(0)A$JJ1L(I)!I4J3A$"/":650h&A$:P(16384):A$"0"(A$)1P13P8P27P3A$"."550{0P3FL2:440:P27ĝ:T(I):A1$(I):II1:I1I1DP27ī490NJ1P13A1$(I)SP$I4800XJ1I4ĖT(I):11);:T(I)MbI4J3)7>Q$(4)"DATE OF FIRST PAYMENT ":T(4)32:V(4)12:L(4)5fE$"INVALID ENTRY -- PRESS RETURN "l|:1:X14V(X):Q$(X);T(X):A1$(X):I14A1$(0)"":V(I):T(I):A1$(I);T(I):V(I)A1$(0)""MOMENT PLEASE...":(4)"RUN PROGRAMS"Hh ****************************\r INPUT ROUTINE|Q$(1)"MORTGAGE AMOUNT ":T(1)26:V(1)6:L(1)12Q$(2)"ANNUAL INTEREST RATE ":T(2)26:V(2)8:L(2)7Q$(3)"LENGTH OF TIME IN YEARS ":T(3)26:V(3)10:L(EEN REPORT K155İ150:2202 35,24:34,0:C A$"Q"ī310Y "2110: HARD COPYu ,(16384)27İ150:220 635,24:34,0::"CALCULATE MORE SCHEDULES Y/N "; @A$ JA$"Y"A$"N"320 T:A$"Y"Ĺ34,0:35,24:140%^:12:" ONE ==================" 34,4:? 380:480:: INPUT ROUTINES FL1FL0:310a FL2310~ 930: CALCULATE PAYMENT 1020:34,0: PAYMENT TO SCREEN K155İ150:180 A$"Q"İ1260: CALCULATE MONTHLY ANALYSIS A$"S"İ1520: SCR n BY BILL CARY 2/28/84h xL(4),Q$(4),V(4),A1$(4),T(4):A1$(4)"00/00":SP$" ":CL(0):DS1 I13:A1$(I)SP$: 150:180 34,0:35,24: 33,40::40):" MORTGAGE AMORTIZER ";40)::"======================SS THE 'ESC' KEY ONCE FOR EACH STEP "V L"BACK YOU WANT TO GO. THE 'ESC' KEY " M"WORKS THROUGHOUT THE PROGRAM, IT WILL " N"ALWAYS TAKE YOU ONE STEP BACK." O23:8::"ANY KEY TO CONTINUE => ";:A$:49168,0: d MORTGAGE CALCULATOR06 F:5:"TO USE 'MORTGAGE CALC', ENTER DATA WHERE"f G"THE WHITE BOX APEARS AND PRESS RETURN. " H"IF YOU HAVE MADE A MISTAKE, USE THE LEFT" I"ARROW KEY TO GO BACK AND CORRECT IT. IF" J"YOU HAVE MADE A MISTAKE IN A PRIOR ENTRY"& K"PREO! "THE SOFTYME REM!"Y ::7:9:25)::7:" THE MORTGAGE CALCULATOR ":7:25)w:::14:"BY BILL CARY":9:"SOFTYME DISK MAGAZINE"(14:"P.O. BOX 299"212:"NEWPORT RI 02840" <:23:9:"ANY KEY TO CONTINUE";:A$::49168,!!!!!!!                \"HAVE FUN WITH IT!"f<34,0:(4);"RUN PROGRAMS"O YOUR ">*"PROGRAM, CHANGE THE MENU ITEMS IN LINES "n4"10-40 TO WHATEVER YOU NEED, AND PUT ">"YOUR OWN ROUTINES AT LINES 600, 700, 800"H"AND 900. THEN JUST GOSUB TO INPUT WHEN "R"YOU NEED USER INPUTS. " AND DETERMINES IF IT "H "IS 'RETURN' (141 OR 128+13), A SPACE "x "(160 OR 128+32) OR 'ESC' (155 OR 128+27)" "WHEN RETURN IS PRESSED, 'INPUT' GOES TO " "LINE 500 TO DETERMINE APPROPRIATE ACTION"  "TO USE 'INPUT', APPEND IT T BILL CARY"::13:"SOFTYME STAFF"( X "THE VARIABLE 'TIME'=WHICH TIME THE LOOP " "AT LINE 200 IS EXECUTING. TIME=1 WILL " "DISPLAY THE MENU, TIME=2 ALLOWS INPUT. " "THE ROUTINE PEEKS AT THE KEYBOARD ENTRY " "LOCATION (-16384)A 'BASIC' SUBROUTINE OFFERED TO"N b"SOFTYME SUBSCRIBERS FOR USE IN THEIR":~ l"PROGRAMS. USING INPUT IMPROVES THE " v"USER FRIENDLINESS OF YOUR PROGRAMS AND " "MIGHT EVEN TEACH YOU SOMETHING! "" :17::"INPUT":::14:"BY P155II2:VV4:I0I43 I0I3:VV8H "VV2:49168,0:P ,: :23:"SPACE=NEXT : 'ESC'=LAST : RETURN=SELECT ";  :5:49168,0 SELECT600,700,800,900 23:9::"ANY KEY TO CONTINUE => ";:A$:  X"INPUT IS 20: TIME1::! TIME2:> :I15:I5TIME1300O I5I1:V8j V:H((MENU$(I))2)x TIME2Ğ MENU$(I) TIME1290 P(16384):P155P141P160250 P141SELECTI:300 :H((MENU$(I))2):V:MENU$(I)>(::120):2:17:"INPUT":34,4:6MENU$(4)R10:100:150:400:200m160:100:200:500:5 MENU$(1)"INTRODUCTION"MENU$(2)"HOW INPUT WORKS"MENU$(3)"HOW TO USE INPUT"(MENU$(4)"TAKE ME BACK TO THE MENU"2 dV8:H!!! ! ! ! ! !! YOUR NAME .... ? ";N$Ub:(7):6);"OK ";N$;" HERE IS YOUR WORD ...":Q11000:Q[lNI WILL GIVE ":"YOU A SCRAMBLED WORD AND YOU WILL BE "iI"GIVEN THREE CHANCES TO UNSCRAMBLE IT. "N"AFTER THE THIRD TRY I WILL GIVE YOU THE ":"CORRECT WORD. YOUR SCORE WILL BE ":"DISPLAYED ABOVE EACH NEW WORD."X:::6):"WHAT ISK86ĺ"EXCELLENT --- GOOD REASONING":5700K85ĺ"YOU ARE ABNORMAL --- YOU SHOULD HAVE ":"BEEN A COMPUTER --- OR ARE YOU ?":23::"ANY KEY TO RETURN TO PROGRAMS MENU => ";:A$:;(13)(4);"RUN PROGRAMS"9D" THIS IS A WORD GAME ---- 6:(5):(5):N$;"'S SCORE IS ";N;" MY SCORE IS ";MCT0:139yZMN:KNZ100:"YOUR CORRECT ANSWERS WERE : ";N:::"YOU MISSED :";ZN:::"YOUR AVERAGE IS : ";K;" %":K50570K71ĺ"BETTER THAN AVERAGE":570)&UTER","GAME","TELEPHONE","TRUCK","CLOCK","WINDOW","CARPET","MAPLE","ZERO","ZOMBIE","APPLE"e "999"k  49168,0:23:8::"ANY KEY TO CONTINUE => ";:X$:::(10):"DO YOU WANT ANOTHER WORD ? (";::"Y";::" OR N)";:X$: X$"N"ė:(8):490AMMER","TEACHER"{  "CHEMISTRY","ENVELOPE","TENNIS","BEHIND","TECHNOLOGY","SWIMMER","PENCIL","MOUNTAIN","ZEBRA"  "HOROSCOPE","CATALOG","EDUCATION","FLASH","START" "HELP","MOVIE","HARMONY","MAGAZINE","STORE","BUSINESS"Z "COMP "SORRY-BUT YOU WERE GIVEN 3 TRIES AND ":MM1:"YOU MISSED-----"| ::::"THE CORRECT WORD WAS .... ";R$(I):450  "TOP","HOUSE","AUTOMOBILE","TIRED" ,"CHURCH","CREAM","TABLE"   "RADIO","DONKEY","REDWOOD","CANDLE","CANDY","BRICK","H10);N$;" THIS IS TRY # ";TT h49168,0:::::"WELL WHATS YOUR GUESS .......";M$ rM$R$(I)NN1::(10):(5):"YOU'RE RIGHT !!! GOOD WORK ";N$:450 |T3ė:(8)::8)"NOT YET --- TRY AGAIN ";N$:Y12500:Y:::140 Y11000:Y::(8)G G1210 P(L(1)1)5 A$T$:P(L(1)1)F C$(A$,P,1)S P1260p LP0T$(T$,P1):280 T$(T$,P1)(T$,LP):280 LP0L2 T$(T$,LP) 290 "(13):14):C$" "; ,LL1 6O @TT1 J:::: ^\ dMi15:1::9)::15:" ANAGRAM ":15:9):::14::"BY AL LAST"Wn::csR$(50)lx580x{I150~R$(I)HH1:ZZH1R$(I)"999"139II((1)100):IZZI1139T$R$(I)L(T$)O1LGG1 " " """"""""""ADVERTISING RATES"3 8A$(8)"COMING ATTRACTIONS"M BA$(9)"FILE TRANSFER"S KY a 12} "UNABLE TO EXECUTE: ";  A$(B)  P12000:P X)  ========= DATA HERE ========= @  THE STRINGS ^ A$(1)"FLIPSIDE PROGRAMS"} A$(2)"YOUR INPUTS PLEASE" A$(3)"YOUR HOROSCOPE" A$(4)"PRODUCT REVIEWS" A$(5)"BASIC TRAINING II " $A$(6)"INFORMATION PLEASE" .A$(7):"SELECT A NUMBER";::" ";:B$, B(B$)2 Y 21:1:868:4:"#";B;" SELECTED"f B0130~ D$(4): CONTROL D 255 2B1:5:"LOADING =>";::17:A$(B):: A$(B)"FLIPSIDE PROGRAMS"A$(B)"PROGRAMS" (4);"RUN ";A$(B)   2000d49168,0"n280-x:225g::23:" VOLUME 10 NUMBER 7 FLIPSIDE CONTENTS ";:1::"SOFTYME BOX 299 NEWPORT, RI 02840";3:1X19::X".";::17:A$(X)::X(11):(32):"(BONUS)":(21)255: 5""" " "