KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK + V$"A" V$"E" V$"I" V$"O" V$"U" B$B$"ES": 1260+ 1270(+B$B$"S"8+W$(I)B$S$>+S+ (14);(8);""l+,14,9,""+,14,10,"NINGAMES":,6,13,"OPR. 1985 BY ALVIN EMMON"+#,14,11,""KKKK :PUI:59: 6 NOTE: IF YOU MAKE ANY CHANGES OR IMPROVEMENTS IN THIS,S6 PLEASE LET ME KNOW. SUGGESTION: ALPHABETIZE6 THE DICTIONARY. ANOTHER SUG- GESTION: PUT IN A REVERSE6 CONVERSION,  "AND CHANGE 'THOY' TO 'THOU'.3e " O TYPE CAREFULLY! ")4h " RESS ANY KEY TO CONTINUE . . ."44r AN$:4|@44P$W$(I):EN$"":PU0: HANDLES PUNCTUATION4 LN(W$(I))4 20004 PU0  "WITHIN A SINGLE WORD BY BACKSPACING1R "WITH THE DELETE KEY.-2T " OWEVER, THIS WILL WORK IF YOUY2V "HAVE NOT TYPED A AT THE END OF2X "THE WORD YET. OU CANNOT BACK UP INTO2Z "AN EARLIER WORD.2\ " XAMPLE: OU TYP / "TO ADD ADDITIONAL WORDS TO THE0 "PROGRAM'S DICTIONARY.30" " ND REMEMBER WHAT AROLD EHMAN, WHO"b0, "WAS A MISSIONARY TO HANA FOR 40 YEARS"06 "AND PROVIDED THE FIRST IBLE TRANSLATION"0@ "FOR THAT COUNTRY, SAID:0B" ' FERENCES BETWEEN". "THE LANGUAGE OF ING AMES' TIME AND". "MODERN-DAY NGLISH.J. " T CANNOT, OF COURSE, SUBSTITUTE"y. "FOR ONE OF THE GOOD, SCHOLARLY, MODERN". "TRANSLATIONS THAT ARE WIDELY AVAILABLE.". 1640. " +( " ":,2 "  EED NSTRUCTIONS? (/)"9,4 I$: I$"Y"I$""I$"N"I$""1332Z,6 I$"Y" I$"" 1340: ,< " HE ING AMES ERSION OF THE IBLE,",F "PUBLISHED IN 1611, HAS SERVED ITS",P "READEKKKKSO THE PROGRAM TURNS MODERN ENGLISH6 INTO "KING JAMES."<7 -- CALVIN DEMMON BOX 1001a7 MONTEREY, CA 93940 USA" PU$";" PU$":" PUP5 PU$"-" PU$"?" PUP5554  4!EN$(W$(I),LNPU1)4&W$(I)(W$(I),PU1)405P0: SEPARATES PUNCTUATION OUT+5 PLN1 PU055PP1G5PU$(P$,P,1)5 PU$"'" PU$"." PU$"," PU$";" PU$":" PUP5 PU$"-" PU$"?" PUP5554 ED2] " נԠ٠Ő"3^ " BUT YOU MEANT TO TYPE-3` " נԠՠԐ"\3a " OU CAN CHANGE 'ARE' TO 'ART' IF YOU3b "HAVEN'T TYPED A SPACE AT THE END OF3c "'ARE' YET . . . BUT YOU CAN'T GO BACK3d E THAT THINKETH HE IS SPIRITUAL" 1D"BECAUSE HE SPEAKETH ONLY IN ING AMES"41F "NGLISH DECEIVETH HIMSELF.' "?1H 1640h1J" Ơ ŠǠ1L " 1N " OU CAN CORRECT A TYPING ERROR1P  O USE THE PROGRAM, TYPE IN ANY"/ "VERSE FROM THE ING AMES ERSION OF"C/ "THE IBLE, PRESS THE KEY, AND "a/ "READ THE TRANSLATION./ " F SOME WORDS REMAIN UNTRANSLATED, "/ "EXAMINE THE PROGRAM LISTING TO SEE HOW" RS WELL FOR MORE THAN THREE-AND-A-"-Z "HALF CENTURIES.",-d " OWEVER, DURING ALL THOSE YEARS[-n "MANY WORDS HAVE CHANGED THEIR MEANINGS"x-x "OR BECOME OBSOLETE."- " HIS PROGRAM PROVIDES A SIMPLE DEM-"- "ONSTRATION OF THE DIF IWW1W$(W)A$R E$(13) 240: PRINT VERSE IF KEYSTROKE IS 'RETURN'[ 90 "--------------------------------------" I1 WEN$"":1800320: GOES TO DICTIONARY AND RETURNS $"BELIEVES": 1270) B$"MAKETH" B$"MAKES":1270)) B$"GOETH" B$"GOES":1270T) B$"DECEIVETH" B$"DECEIVES":1270)$ **MORE WORDS ENDING IN -ETH OR -EST CAN GO HERE:).:)8:)B:)L:)V:)`:.....ETC.) S.") BUT IT DOES NOT * * WORK WITH CERTAIN WORDS, *^' * SUCH AS "BELIEVETH." IF * * YOU WANT TO PUT SUCH A *' * WORD IN THE DICTIONARY, *' * USE FORM SHOWN BELOW FOR * * "BELIEVETH." DON'T OMIT * $ B$"VERILY" B$"TRULY"% B$"VICTUAL" B$"FOOD".% B$"WAST" B$"WAS"J% B$"SHEW" B$"SHOW"j% B$"THITHER" B$"THERE"% B$"THITHERWARD" B$"TOWARD THERE"% *************** LISTEN"#H B$"WHATSOEVER" B$"WHATEVER"+#R B$"WHOSOEVER" B$"WHOEVER"T#T B$"WHITHERSOEVER" B$"WHEREVER"n#W B$"YEA" B$"YES"#\ B$"DIVERS" B$"MANY"#f B$"HATH" B$"HAS"#k B$"HAST" B$"HAVE"#p B$"UNTO" B$ " B$"SAYS" ! B$"LEST" B$"UNLESS")! B$"WOULDST" B$"WOULD"K! B$"SHOULDST" B$"SHOULD"i! B$"BESEECH" B$"BEG"! B$"CANST" B$"CAN"! B$"SHALT" B$"SHALL"! B$"WAXED" B$"GREW"! B$"WILT" B$"WILL" PASS" B$"TRESPASSES" B$"SIN""X B$"VISAGE" B$"FACE"KY B$"WHEREINSOEVER" B$"WHEREVER"qZ B$"WINEBIBBER" B$"DRUNKARD"[ B$"WROTH" B$"ANGRY"a B$"THINE" B$"YOURS"b B$"THY" B$"YOUR"l B$"THYSELF" B$  B$"EVENTIDE" B$"EVENING"#K B$"FAIN" B$"GLADLY"ML B$"BEGAT" B$"WAS THE FATHER OF"oM B$"HAPLY" B$"BY CHANCE"N B$"HOWBEIT" B$"NEVERTHELESS"O B$"JOT" B$"SMALL LETTER"P B$"TITTLE" B$"SMALL MARK"Q  B$"PARABLE" B$"ILLUSTRATION"*2 B$"LOOSED" B$"FREE"L4 B$"RAIMENT" B$"CLOTHES"m6 B$"STATURE" B$"HEIGHT"8 B$"STRAIGHTWAY" B$"IMMEDIATELY": B$"BEAST" B$"ANIMAL"< B$"PUBLICAN" B$"TAX COLLECTOR"> B$ CTIONARY. TO ADD WORDS, *-N * USE THE SAME PATTERN. THE *RO * "OLD FASHIONED" WORD COMES *wP * FIRST, THEN A NEWER *Q * DEFINITION. NUMBER THE *R * NEW LINES 340 TO 550. * ****************************** W$(I); (W$(I),(W$(I)),1)" " "";. EN$" ";QT(W$(I))T: T30 : 290YT0b" I,,1,1," ** TO TRY A NEW VERSE, PRESS SPACEBAR".,1,2," (TO QUIT, PRESS 'Q') "/,1,3," **NO MORE DEFINITIONS PAST THIS POINT@*L(B$): BEGINS -ETH AND -EST DECODINGI*ES0* (B$,3)"ETH" (B$,3)"EST" L5 1212: 1270* (B$,3)"EST" ES1*B$(B$,L3):ES1 1270*V$(B$,1) ' * : GOTO 1270 *?( * BECAUSE THAT MAKES THE * * PROGRAM SKIP THE *( * -ETH, -EST PART * * OF THE PROGRAM. *( *****************************(( B$"BELIEVETH" B ***************& * NOTE: THE SECTION FROM * * LINE 1200 TO LINE 1270w& * WILL TRANSLATE MANY WORDS * * ENDING IN -ETH OR -EST *& * INTO MODERN EQUIVALENTS. * * (EXAMPLE: "GOETH" BECOMES *' * "GOE "TO"#z B$"BEGOTTEN" B$"BORN"$ B$"PERISH" B$"DIE":$ B$"THEREOF" B$"THERE"Y$ B$"CHARITY" B$"LOVE"}$ B$"BRETHREN" B$"BROTHERS"$ B$"HALLOWED" B$"HOLY"$ B$"NIGH" B$"NEAR"$ B$"OFTEN" B$"OFT" ! B$"VERILY" B$"TRULY""  B$"DOST" B$"DO"0" B$"WOT" B$"KNOW"L"  B$"WIST" B$"KNEW"h"* B$"NIGH" B$"NEAR""4 B$"SHEW" B$"SHOW""> B$"DOTH" B$"DOES""@ B$"WHEREOF" B$"WHERE""B B$"HEARKEN" B$" "YOURSELF" v B$"THEE" B$"YOU"!  B$"THOU" B$"YOU";  B$"ART" B$"ARE"]  B$"FURTHERMORE" B$"AND"y  B$"WERT" B$"WERE"  B$"YE" B$"YOU"  B$"SLEW" B$"KILLED"  B$"SPAKE" B$"SPOKE"  B$"SAITH B$"MITE" B$"VERY SMALL COIN"'R B$"PECULIAR" B$"SPECIAL"KS B$"PRIVILY" B$"PRIVATELY"lT B$"QUICKEN" B$"REVIVE"U B$"STIFFNECKED" B$"STIFFHEARTED" B$"STUBBORN"V B$"SUCCOUR" B$"SUCCOR" B$"AID"W B$"TRES "WIST" B$"KNEW"@ B$"KINDRED" B$"RELATIVES"?B B$"HOLPEN" B$"HELPED"qD B$"SEPULCHRE" B$"SEPULCHER" B$"TOMB"F B$"ALMS" B$"DONATIONS TO THE POOR"H B$"ANGLE" B$"FISHHOOK"I B$"ANON" B$"IMMEDIATELY"J S:T:^:h:r: |::$:......ETC.d& DON'T ADD ANY MORE DEFINITIONS AFTER THIS LINE!( B$"SHEW" B$"SHOW"* B$"MANIFOLD" B$"MANY TIMES", B$"THITHER" B$"THERE". B$"MAMMON" B$"MONEY" 0 "0 N$1 N$"Q" 31014 N$" " 50: 304B6 (9);"":d@ BEGIN WORD REPLACEMENT LISTqEB$W$(I)J ******************************L * THESE NEXT LINES ARE THE *M * DI L ************************ * *o * UNKINGJAMES * * * * * COPR. 1985,1987 * * BY CALVIN DEMMON * * * *F ";(" ";82" PRESS ANY KEY TO START";Z<" ";mF" ";wP I$Z 110"BY ";" ";" BOB INMAN ";"qnOLAR qnYSTEM: ";>" ";`" ";" AN ASTRONOMICAL PROGRAM ";"BY ";" ";" BOB INMAN ";" ";?" ";a" ";" ";$" ";." bHE ";8" ,3,24,"/":,4,24,D2$:,7,24,"/":,8,24,Y1$=p,17,24,"SPACEBAR=NEXT, Q=QUIT"Lz:DNDNINV K$p K$"Q" :0,1:|: 460X1160XR(AGRD):Y1100YR(AGRD): X$,X1,Y1:0.61521,355.73352,131.289579,0.0067826 1.000 E$:XR35:YR35SF:9300AGAN(2):X$M$:XR50:YR50SF:930WAGAN(3):X$J$:XR80:YR80SF:930AGAN(4):X$S$:XR115:YR115SF:930DJDN2444238.5FFF0.5FF1:DJDJ1A1((DJ36524.25)51.12264)A2DJ1A1(A14) 2G367YF0440FF1:JJ15DN(JF2444238.5)TAN(4):RD180:K1.985647_I04pTP,LE,LP,ECMAK1DNTPLELP MA360 MAMA360 MA360 490MAMARDVMADLVEC(V)MA& (DL)1.0E 0,3,2:,5,Y0: E$,2,Y03,8,Y03>,20,Y0,2,2: M$,18,Y02,22,Y02t,30,Y0,5,3.5:,25,Y0135,Y01:,25,Y0135,Y01 J$,23,Y05,35,Y05,60,Y0,4,3:,53,Y068,Y0: S$,52,Y05,68,Y05",X0,Y0,6,5:,X0,Y0,1: SU$,X06,Y06,X06,Y06, "OF THE PLANETS IN THEIR CORRECT":"POSITIONS ABOUT THE SUN."" THE PLANETS SHOWN ARE VENUS,EARTH,MARS,":"JUPITER AND SATURN."" ENTER DATE IN NUMERICAL FORMAT""SUCH AS 1988,5,4 FOR MAY 4,1988.""THEN ENTER THE NUMBER OF DAYS TO"  AND 930 TO 1040+( -- AND SEE NOTE AT END.@* V$(40),W$(200)K+ 1300b-"": (142);(8)p2TT0:""< " TYPE VERSE SLOWLY AND CAREFULLY.A " WHEN THROUGH, PRESS 'RETURN' KEY.F " ** USE DELETE KEY TO CORRECT ERRORS  * ALL RIGHTS RESERVED * * * * * DISTRIBUTION THRU * * PLUG *! * THE PLUS/4 USERS' * * GROUP *'" * BOX 1001 R KEYSD E$(20) 148: LOOKS FOR DELETE KEYT G1 G2^GG2h E$;nzTTTT1TT359 : " ** OUT OF ROOM. DO VERSE IN PARTS. " :240 I1 G1A$A$V$(I): STORES WORD AS A$  "; " ";," ";N" ";p" ";" "; " ";" ";" "; B" ";.L" ";PV" ";r`" n q n q ";j" m ";t" m ";~" m m ";" 04,98.833540,102.596403,0.01671891.88089,126.30783,335.6908166,0.0933865g11.86224,146.966365,14.0095493,0.048465829.45771,165.322242,92.6653974,0.0556155" ";" ";" BA21524C((B365.25)0.3343)(D2(365.25C)> E((BD2)30.61)^D2BD2(30.61E):D2(D2)l D2$(D2)*M1E1:Y1C47164 E13.5 M1M112>M1$(M1)H M12.5 Y1Y11RY1$(Y1)\ IN0 870f,0,24,M1$: 06 0DELDL(1EC(V)):VVDEL$DBFV((1EC)(1EC))(V2)OHV2(V)]NVV180lXAN(I)VLPb AN(I)360 AN(I)AN(I)360l AN(I)360610v SU$,X06,Y06AGAN(0):X$V$:XR20:YR20SF:930 AGAN(1):X$ "YEAR,MONTH,DAY (1984,5,8)";Y,M,D!6=@"INCREMENT IN DAYS";INFJ1,1NTG1e^D1(D):FDD10.5hJ(7(((M9)12)Y)4)rS(M9):A(M9)|J1(YS(A7))J1(((J1100)1)34)JJ(275M9)D1GJ1JJ1721027 ""INCREMENT THE CALCULATIONS BY."I"IT MAY BE POSITIVE OR NEGATIVE."t:"  AFTER CURRENT DATE APPEARS"" IN LOWER LEFT CORNER, PRESS"" THE SPACE BAR TO CONTINUE. "::,5,Y0,3,2: V$,2,Y03,8,Y03,5,Y ** L: "ф";PW0:T03ZG0:E$"":A$"":S$" "Md E$(32)E$(13)_nGG1:TTTT1lx V$(G)z G1 V$(G)(20) 120: FORBIDS CORRECTING PREVIOUS WORD|E$V$(G)~ E$""E$""E$""E$""120 : ELIMINATES CURSO * * MONTEREY, CA 93942 *J# * *m$ ************************s%& NOTE: INSTRUCTIONS FOR ADDING TO THE DICTIONARY ' CAN BE FOUND AT LINES 330 TO 338, -, B$(L$,1)-6 AA(A$):BB(B$)-@ AAAA48:BBBB48.J L$(AA);S$;L$(BB).T (.^ L$(L$,1)2.h A$L$?.r AA(A$)L.| AAAA48^. PRINT"";m. L$(32)S$;z. L$(AA);. . INPUT. I125:I$:I. N$"". CT0. BL18BL: " ",2 CLEAR,< "";,F I120M,P " ";T,Z IZ,d i,n DISPLAY?,x UG$"":UPCC:CCCC1:1010, 2610, "";, L$(A), 2820 ";*B "    " *L I1 500:I+*V K17R*` "";g*j BL18BL:(BL);*t "   "*~ T1 60:T* " ";' G$'  G$"H" D50: 2110(* G$"E" D10: 2110(4 20700(>I120: I$:>(H + OR -?Q(RCH((7)2)1d(\A((7) D)1w(fB((7) D)1(p CH 2170,2210(z +(CAB(O1( 2260( -( BA XB:BA:  "&0L$(62)"  ߒ "#&:L$(63)"ߒ  "9&D UR$"1" 2020P&ND$L$(32)D$S$D$[&X 2530e&b"";&l"";&v I14& L&L$(L);S$;&I&:"";& I14   "$L$(48)"    ",$L$(49)"     "R$L$(50)"ߒ  "y$L$(51)" "$L$(52)"     "$L$(53)"ߒߢ"$L$(54)" ""L$(20)"     ">""L$(21)"     "c",L$(22)"   ""6L$(23)"     ""@L$(24)"ߢ  ߒ""JL$(25)"     ""TL$   " L$(06)"   "5 L$(07)" ߢ"\ L$(08)"     " L$(09)"    " L$(10)"    ߢ" L$(11)"   ߒ" L$(12)"  790: TITLE270: MENU-UZ1UZ0: ** PROGRAM STARTS HERE **P "";::(142):0,1:1,8:4,1 *** MATH QUIZ REM STEPHEN ERLEWINE *** PET USER GROUP( *** MODIFIED FOR PLUG BY N0 L$(N)S$;0 I0 "";1 L$(RT)1 282051 "";A1 I15I1 NW1 L$(N)S$;_1 It1 970 z1* / (G$)20 3010/& (G$)13 L$(32);: /0 N(G$) (BL);L$(32);"";:TTI. G$: G$"" TIT25 3040/ G$"" 3030!/ G$"E" 440;/ G$"H" UR$"H":80L/ G$"H"3030/ (G$)20 CT02690:"";:3010/ (G$)20 3010/& (G$)13 L$(32);: /0 N(G$) , "";, O1 L$(43)- O0 L$(45)'- "";3- L$(B)>- 2820_- "";v- I115:" ";:I|- - PRINT NUMBER- (L$)2 2910- L$(L$,2)-" A$(L$,1) ";* "   "+ K)+ "";5+ L$(C)@+ 2820I+ 970O+ U+ a+ BOARDk+ "";+ I180:"";: I+ I120:"":I+ "";+ I180:"";: I+ +( AX(CAB(O0( 2260( 2670 )"";+) 29907)G(N$)R) GC RTRT1: 2320m) GC 2330: 2320x) 2110) WRONG)$ "";). L$(14)S$;L$(15);)8 " & L&L$(L);S$;&I' I11500: I '' 2610X'" ";k'" HARD ";'" OR  EASY  ?? ";' "   ߒߢ" %L$(55)"   "4%L$(56)""W%L$(57)"ߒߢ "z%L$(58)"     "%L$(59)"    "%L$(60)"  ߒ "%&L$(61)" (26)" "#^L$(32)"   ":#hL$(42)"    ߒ"_#rL$(43)"     "#|L$(44)"    "#L$(45)"   "#L$(46)"    "#L$(47)"    "!L$(13)"ߒ    "=!L$(14)"    "d!L$(15)" ߒ   "!L$(16)"   "!L$(17)""!L$(18)"   ߒ"!L$(19)" CALVIN DEMMON 2 *** SEPTEMBER 14, 1985<6FD$"   "CPS$""fZL$(01)"    "dL$(02)"   "nL$(03)" ߢ"xL$(04)"    "L$(05)"  H CONTRIBUTED TO THE PLUG LIBRARY BY BOB INMAN, TEMPE, AZtZ0,2:1,7,3:4,2:1,1:0,1:(9);(142)d(147);:990n0,1: :Y0100:X0160:SF.78x" THE PROGRAM WILL CALCULATE THE":"HELIOCENTRIC LONGITUDE AND DISPLAY FIVE"< 48/: (G$)47(G$)58CT2 N$N$G$:L$(N)S$;:CTCT10D (G$)13 3030!0N CT2 +0X 3030F0b 13,1,20,8,17,21,9,26^0l 25,15,21,32,8,1,4p0v 18,9,7,8,20z0 END0 :I18:N:0 26100 "";0 I170  100)) S$"F""ARE ".08(.050(W100))6 "HIT ANY KEY"J A$:A$""3050Pq"BLOOD ALCOHOL LEVEL""NUMBER OF DRINKS";ND"NUMBER OF HOURS";NH:S$"F"4500BA(.043100W)ND(NH.015):B%BA1000:BA BER OF DRINKS";ND :S$"F"25003NH((.043100W)ND.08).015"FOR A BLOOD ALCOHOL LEVEL OF .08% THEN  YOU MUST WAIT "NH" HOURS.""SINCE YOUR FIRST DRINK.""HIT ANY KEY"A$:A$""2050  NH((.050100W)N ER OF DRINKS"2"OVER HOW MANY HOURS";H:S$"F"1100HXW100:FT.043XgS$"M"T.08FT.015FTHT%T10:TT%10 :""T"DRINKS IN "H" HOURS":FA%TH10:FAFA%10"OR "FA" PER HOUR""HIT ANY KEY"A$:A$  MATH QUIZ7 FOR PLUS/4] FROM PLUS/4 USERS' GROUP( BOX 1001, MONTEREY, CA 939422< (142);"":0,8:1,4:4,7F 1200P +++ CHECK FOR HELP REQUEST +++ZUR$UX$120: EXIT TO HELP ROING ":.UJ$US$:UK$UG$:UL$UT$:UJUP:UKULVUJ$US$:UK$UG$:UL$UT$:UJUP:UKUL\m ** MENU **s:""";(14):0,8:1,7,4:4,7,:6" ENU"@" --------------------------------------" J" 1. 400(UR$)1280,460,570,440!2701 ** END **K"":0,2:1,1:4,7:W1080:x ** STUDENT INSTRUCTIONS **""UP0:UT$" Ƞ":UG$"NSTRUCTIONS":1010" HIS PROGRAM WILL GIVE YOU PRACTICE"" IN ADDI"ROGRAM NFO":10107X" O THE BEST OF OUR KNOWLEDGE,"`b" THIS PROGRAM IS IN THE PUBLIC"l" DOMAIN. F THIS IS NOT THE CASE"v" PLEASE CONTACT:"" : HE LUS/4 SERS' ROUP"" .. OX 100" LUS/4 OMPUTER*970:UT$" MATH QUIZ"31709 Y ** T I T L E P A G E **m "";(142);*I138:"";:4I122:"";:>I137:""!:HI122:"";:R"PRESS SPACE BAR OR WAIT":I03A$:A$" "II1:I250940WT1$"":T2$"":T3$"":T4$"":I0`270| ** SPACE BAR PRESS **(UD$,24);"PRESS SPACE BAR TO CONTINUE"UI$:UI$" "990 ** PAGE DESIGN ROUTINOMENT PLEASE... "L V ** SET UP VARIABLES **k`UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024jUT59468:UU%12:UL%14:UP%1146:UM32768:UO158tUB1024:U1209:U2210:U3211:U4214:UC204:UU2048~UU%21:UL%B%1000"BLOOD ALCOHOL LEVEL ="BA"%"DBL(BA.08).015:BL%BL10:BLBL%10yBA.08"YOU MUST NOT DRIVE FOR "BL" HOURS""HIT ANY KEY"A$:A$""4050BA(.050100W)ND(NH.015):B%BA1000:BAB%1000"D.08).015K "FOR A BLOOD ALCOHOL LEVEL OF .08% THEN  YOU MUST WAIT "NH" HOURS."n "SINCE YOUR FIRST DRINK." "HIT ANY KEY" A$:A$""2550  "MAXIMUM DRINKS IN ONE HOUR" S$"M""ARE ".08(.043(W""1050KLXW100:FT.050X.`T.08FT.015FTHxjT%T10:TT%10 :""T"DRINKS IN "H" HOURS":FA%TH10:FAFA%10t"OR "FA" PER HOUR"y"HIT ANY KEY"~A$:A$""1150"HOURS TO WAIT""NUMUTINEdUF1220nUF0::DxUF1: +++ HELP ROUTINE EXIT +++M240V230_""h270UZ0:US$UJ$:UG$UK$:UPUJ:ULUK"":200"";UT$UL$(UD$,UD%1):(UD$,24);"  HELP COMTART MATH QUIZ"2T" 2. NSTRUCTIONS (ELP)Z^" 3. ROGRAM NFORMATIONvh" 4. UIT"r" --------------------------------------"|" RESS A NUMBER KEY (1-4) ";UL1 UR$:(UR$)4(UR$)1NG AND SUBTRACTING. OU WILL"C"BE GIVEN A QUESTION. YPE THE ANSWER"^"AND PRESS .""O END THE PROGRAM TYPE ''."970:UT$" MATH QUIZ"&1700: ** PROGRAM INFO **D"" NUP0:UT$" Ƞ":UG$1" ONTEREY, 93940"/UP1: 970: 1010:U" ROGRAM AME: ATH QUIZw" RITTEN Y : NKNOWN" PGRADED Y : ǒ"1,7,4"  HIS PROGRAM WILL RUN ON ANY" OMMODORE  \"  4f" Rp" {z"C O M M O D O R E"EDUCATIONAL"SOFTWARE ** COMMODORE LOGO **(UD$,24);" E **UPUP1$""(UT$UP$,21);(UP$UG$(UP),18)S" --------------------------------------"cUH01070$(UD$,24);(UP$,7);"HELP - PRESS H ".UH0:"":8 ** PLEASE WAIT REMARK **B(UD$,22);" ONE M 23:UP%2139:UM1024:UO198$UD$""VUP$" "rUT$" MATH QUIZ "x ** SET VARIABLES **1110 QU$(250),AN$(250),L$(65):"" DISABLE STOP KEYBLOOD ALCOHOL LEVEL ="BA0BL(BA.08).015:BL%BL10:BLBL%10eBA.08"YOU MUST NOT DRIVE FOR "BL" HOURS"~"HIT ANY KEY"A$:A$""4550S";NH:S$"F"4500BA(.043100W)ND(NH.015):B%BA1000:BA " ݨ/t" T~" y" " ͦ"  1440 CASH REGISTER G DRINK AND DRIVE RATER PLUS/4 VERSION CONVERTED BY C. DEMMON FOR PLUG, THE PLUS/4 USERS' GROUP BOX 1001, MONTEREY, CA 939420,1,1:4,1,1:1,2O120( ::!(" DRINK & DRIVE RATER"X2"MALE OR FEMALE";S$:S$"M"SE$" MALE"<"WEIGHT(LBS.)";W :S$"F"SE$" FEMALE"A"ONE DRINK EQUALS:B"1 1/2 OUNCES OF HARD LIQUOR"C"12 OUNCE BOTTLE BEER (NORMAL)$D?,103,500)"BAG OF FOOD","18.07",1807,2000* X,X,0,076,2003(D DOG FOOD,"$1.37",137,500S(E CARROTS,"83 CENTS",83,400p(F RELISH,"$1.11",111,300(G ICE CREAM,"1.35",135,1000(H "PAPER TOWELS","$1.23",123,200(I"ANG","$1.59",159,8",228,500'B POP,"60 CENTS",60,100(C BREAD,"76 CENTS",76,2003(D DOG FOOD,"$1.37",137,500S(E CARROTS,"83 CENTS",83,400p(F RELISH,"$1.11",111,300(G ICE CREAM,"1.35",135,1000(H "PAPER TOWELS","$1.23",123,200(I"ANG","$1.59",159, " ORRECT CHANGE! HANK YOU.":2070(& GCT " OO MUCH. OU OVERPAID ME BY"Z& GCT " OT ENOUGH. OU UNDERPAID ME BY"&*DIFF BTWN RIGHT AND WRONG AMTS&A(GCT)100:Z(A)&Y((GCT)Z100)& Z0 Y;"CENTS.":2020$)$D12);"";:US$"0123456789RQ":UL2:35:D$UR$#$I D$"R"1760U$K(D$,1)"Q"(D$,1)"Q"LC$"R" "";:1860a$ND(D$)$X12);"";:US$"0123456789RQ":UL2: 35:Q$UR$$] Q$"R"1760$_(Q$,1)"Q"(Q$,1)"Q"LC$"R" ""ACES BETWEEN HEADINGS"" ENNIES :""" ICKELS :"+"" IMES :">"" UARTERS :"Q"" OLLARS :"u"*NEXT STATE CLRS LINE IF ERROR~"860""""12);"     "#12);"KELS,P=PENNIES J**PRESENT PROBLEM TK1$ ^RD2 ((0)101)8 h RN1 1 RD2H r A$,B$,T,G\ | G0 :1650f  RN1 UT$" ASH EGISTER":UG$"UESTION #": 850 " BOUGHT ";A$;" THAT COST ";B$;"." ZZ$"DOLLARS" G100"333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401|d" n" PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE ONLY AND x" ARE NOT TO BE S BY J.E. VICTOR0IN KILOBAUD APRIL 1978< ADAPTED BY JIM COCHRAN MAR 1978Bf ASKS FOR CORRECT CHANGE TO BE COUNTED OUT AFTER A PURCHASE  8K PET(2" ݠ SAN MAT " DRINK AND DRIVE RATER"J"BY J.L. SMITH 498 GUY, TWO MOUNTAINS, QUEBEC J7R 1V8, CANADA I110:!" DRINK AND DRIVE RATER""" BY J.L. SMITH#I110 "5 OUNCE WINEHIT ANY KEY " "6EA$:A$""69\F"" SE$" "W" POUNDS"P"BASED ON A MAXIMUM LIMIT FOR DRIVING OF .08% CONCENTRATION OF BLOOD ";R"ALCOHOL "U"1. MAXIMUM NUMBER OF DRINKS IN X HOURS"Z"2. HOURS TO WAIT AFTER X DRINKS"Md"3. MAXIMUM NUMBER OF DRINKS IN 1 HOUR"yi"4. CALCULATE BLOOD ALCOHOL LEVEL"j"5. NEW PERSON "n" ENTER NUMBER";NxN1000,2000,3000,4000,500070"MAXIMUM NUMB700(J KETCHUP,"$1.71",171,2000 )R MILK,"95 CENTS",95,1001)\"A DOZEN EGGS","$1.09",109,200M)f STEAK,"$3.25",325,500p)p"3 STEAKS","$11.42",1142,2000)z"CAT FOOD","82 CENTS",82,100)"BAG OF FLOUR","$1.25",125,500) ORANGES,"$1.03"&ZZ$"DOLLARS ":Z1ZZ$"DOLLAR "' Z;ZZ$"AND"Y"CENTS."'"'A(A$),' 835Y' WR0GCT"";UP$:UP$:WR1:1760t'4WR0:"":UP101620}'5145'> SOAP,"50 CENTS",50,100'@ GARBAGE BAGS,"$2.15",215,300'A CHEESE,"$2.2;:1880$bQ(Q$)!%l12);"";:US$"0123456789RQ":UL2: 35:S$UR$3%q S$"R"1760f%s(S$,1)"Q"(S$,1)"Q"LC$"R" "";:1900y%vS(S$):""%{H0%*CHK TO SEE IF CHG IS CORRECT%CS100H50Q25D10N5P%:GCT ";:US$"0123456789RQ":UL2: 35:P$UR$# P$"R" 1760F#(P$,1)"Q"(P$,1)"Q"LC$"R" "";:1800R#P(P$)#012);"";:US$"0123456789RQ":UL2: 35:N$UR$#5 N$"R"1760#7(N$,1)"Q"(N$,1)"Q"LC$"R" "";:1840#:N(N1ZZ$"DOLLAR"!" GIVE YOU";G100;ZZ$;" FOR IT."=!" HAT DO YOU GIVE ME IN CHANGE?"h!" TART WITH PENNIES AND WORK UP TO"!" DOLLARS. RESS R TO REDO THE PROBLEM."!" RESS RETURN AFTER TYPING EACH NUMBER."!**3 SPOLD. 0 G" THIS IS THE GAME OF $$CASH REGISTER$$"Ma 835:""(14)"**A$=NAME OF ITEM IN DATA,B$=PRICE,* T=PRICE,G=PAYMENT6 S=DOLLARS,H=HALF DOLLARS,Q=QUARTERS,D=DIMES@*N=NIC EO COUNTY D<" OFFICE OF EDUCATION & F" COMPUTER-USING EDUCATORS SOFTSWAP P" .Z . TS LISTING IN%v"THE DIRECTORY SHOWS THAT IT IS A A%"FILE, WHICH MEANS IT'S A PROGRAM:`%" "%" IRST: PRESS 2, THE KEY.%" HEN: TYPE THE NAME OF THE PROGRAM%"RIGHT AFTER THE QUOTE MARK SOLAR SYSTEM STATES & REGIONSUNKINGJAMES(WEATHERMAN  **** CASH REGISTER ***A TO THE BEST OF OUR KNOWLEDGEa THIS PROGRAM IS IN THE| PUBLIC DOMAIN AUTHOR: J.VICTOR VERSION: C16,PLUS/4 FROM THE LIBRARY OF PLUG, THE PLUS/4 USERS' GROUP  UI$;:45FUR$UX$" ";:145AKUIUR11:(UR$,UI,1)" "WPUR$(UR$,UI)::i_(US$)0110dUI1(US$):UI$(US$,UI,1):UI$""inUA46sUA32UR0xUA47UA58}UA64UA91UA193UA218UI$"" RETEND THAT YOU ARE RUNNING A CASH"R" REGISTER AT A LOCAL GROCERY STORE. "" WILL BUY THINGS AND GIVE YOU MONEY."" OU WILL GIVE ME CHANGE."" OU CAN GIVE ME THE CHANGE IN PENNIES,"" NICKELS, DIMES, OR WHATEVER, O R E (" -*"SOFTWAREJ4"":R9$"h5R9$"*****************6R9$"* CASH REGISTER *7R9$"*****************9UI0:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:"":/k(UD$,24);" ONE MOMENT PLEASE... ":WUX$"Q":US12256:U4205:UC$(154)UD$"":UP$" "I07:FK(I)(1375I):1375I,0:(8):800:900:4000,1:1,4,7:4,8,G$"      "W,L$"      ",P$"      ",U$"   ELP)$"YOU IF YOU DON'T KNOW HOW TO USE YOUR*."DISK DRIVE YET.>*8" FTER THE INSTRUCTIONS HAVE ALL BEENh*B"SHOWN ON THE SCREEN, YOU'LL BE ABLE*L"TO PRINT THEM OUT FOR FURTHER REFERENCE,*V"IF YOU HAVE A PRINTER ATTACHED TO YOUR*`AM.'>" ELAX! AVE FUN! OU CAN'T HURT)(H"ANYTHING BY FOLLOWING THESE DIRECTIONS.Q(R" ND WHEN YOU GET A CHANCE, READe(\"THE MANUAL!q(f "***"{(p 150( 1,"SYS1525: 3-PLUS-1 "( 2,"DLOAD"(34)( 3,"DIRECTORY"(13)(. N THIS&"CASE, TYPE . RESS .2&" HE DISK DRIVE WILL WHIR, AND THEN THEO&"SCREEN WILL SAY .y&" OW PRESS 6, BY HOLDING DOWN THE&" KEY AND PRESSING THE 3/6 KEY --&"AND WILL RUN!&"*"&"! $" 3." V8" zB" L" V" `" jBOX 1001, MONTEREY, CA 93940"22,10002:#40X(UR$"":UI$"":UL0UL39u-"";:UI$:UI$""452UA(UI$):UR(UR$):UA13UR0" ";:707UA20(UR0)45:UR$(UR$,UR1):" ";:45<URUL45A95:UR$UR$UI$:":>(142)"DO YOU WANT TO RESTART THE GAME?":239,0SUI$:UI$""146gUI$"Y"150:yUI$"N"146150:"":(9): I07:1375I,FK(I)::""(14)UT$" ASH EGISTER":UH1:UP0:UG$"TUDENT NST":850$ BUT")" IT MUST ADD UP TO THE CORRECT TOTAL."Z" YPING AN 'R' AS AN ANSWER WILL RESTART"p" THE PROBLEM."y835 0,2:4,15,1:""(142);%" &"  '" ߚ C O M M O D=:-C(UD$,24);"PRESS SPACE BAR TO CONTINUE"DHUI$:UI$" "840JM|RUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"\UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "aUH0: ""UC$(142);:B MODIFIED FOR EXPERIENCE '82 BY JAMES VASEY_UG$"CASH REGISTER":UP0h""" " " " CASH REGISTER   ","" -ZZ$" "1- 10)P$;2);ZZ$;L$;ZZ$;U$;ZZ$;G$9-:^-6)"(C) THE PLUS/4 USERS' GROUPw-(DE11800::"":+A$:6300+ DESIGN BY F.R.WHITMAN, BROOKLYN+ (9);(142)+"LUS/4.*j 5220*t 5070+~ 5250:" RINTING. . . .K+" (RESS AND HOLD / TO INTERRUPT)T+4,4[+4c+A$~+A$"***"4:4,4:150+A$:6300+ DESIGN BY F.R.WHITMAN, BROOKLYN+ (9);(142)+ 4,"SCNCLR"(13)( 5,"DSAVE"(34) ) 6,"RUN"(13)) 7,"LIST"(13)7) 8,"RUN 150"(13)=)I)""u)" נϠŠŠӠΠӠ)" ------------------------------------)" HE FOLLOWING INSTRUCTIONS WILL H HAT'S ALL THERE IS TO IT. OU CAN'"RUN ALL THE FILES ON THIS DISK6' "IN THE SAME WAY:R'" *RESS 2 FOR ' " *YPE PROGRAM'S NAME AND PRESS '*" *OLD DOWN THE KEY AND PRESS'4"THE 3/6 KEY TO THE PROGR  d MENURn COPYRIGHT 1988 PLUG, THE PLUS/4 USERS' GROUPu BOX 1001, MONTEREY, CA 93942""; 6330: PLUG LOGO 4,15,6:1,7,4:0,2:8: 150:4,4"";K17: K,"":K: 8,"M" (9);(142); T PRESS THE 1 KEY,#"THEN THE KEY. HE WORD PRO-?#"CESSOR WILL APPEAR ON THE SCREEN.n#" EXT PRESS THE = KEY (LOWER LEFT COR-#&"NER) THE '' KEY AT THE SAME#0"TIME. OW TYPE THE LETTERS AND#:"PRESS . OU'L 3 NOW, IT WON'T WORK BECAUSE(!r"THIS INSTRUCTIONAL PROGRAM IS RUNNING.)U!|" OTE THAT EACH FILE NAME IS FOLLOWEDq!"BY EITHER OR .z!"*"!" ERE'S THE PARTIAL LIST AGAIN:!" "!" ԠӠ  HEN YOUR NEW COPY OF"("THE PROGRAM FROM THE NEW DISK!"1"*"] " OW. ERE IS A PARTIAL LIST OF " "THE KINDS OF PROGRAMS OR FILES " "YOU MAY FIND ON A DISK:"" """ ԠӠ Ӡ٠٠ϠŒ ": **** SUBROUTINE ****+nAN$:Jx ****DATA STATEMENTS****{ " HESE INSTRUCTIONS WILL GET YOU GOING," "BUT YOU SHOULD ALSO READ THE '" " THAT CAME WITH YOUR LUS/4. " EAD THE I (14) K17: K,"":K: 8,"M" 6140"5250-""6 A$J A$"*" 5220d A$"*" "":5090z A$"***" 5140 A$:5090" O READ THESE DIRECTIONS AGAIN, "" ''  THE MENU WILL REAPPEAR AND YOU E "  CAN TRY AGAIN.) u "  { " THEN PRESS THE RETURN KEY. " PROGRAM NAME";PN$ PN$"MENU"150 " LOADING "RDS 'LOAD FILE'.":" 6. TYPE 'ABOUT THIS DISK'Bz" 7. PRESS RETURN AGAIN.HR""" PRESS HELP KEY TO RETURN TO MAIN MENU 8,"MENU"(13) I039:"-";: " TYPE IN THE NAME OF THE PROGRAM " YOU WISH TO LOAD." THE PLUS/4'S WORD PROCESSOR TO READQ4" ABOUT THE PROGRAMS ON THIS DISK.":" NOTE: ";x9"THESE DIRECTIONS WILL DISAPPEAR<"  WHEN YOU START THIS SEQUENCE. "="  (HINT: WRITE THEM DOWN FIRST!)">" 1. PRESS THE F1 KRAY KEYS AT&4" THE TOP OF THE KEYBOARD.]@ A$:A$"1"A$"2"A$"3"A$"4"A$"5"150iOA(A$)T A 600,5000,800,900,3000X" TO SLOW DIRECTORY LISTING, HOLD DOWNb" THE C= KEY (IN LOWER LEFT HAND CORNER)"lI039:" 12) "PLUS/4 HELP MENU": I12 27:I)"";:::j" 1. SEE LIST OF WHAT'S ON THIS DISK.":" 2. LEARN ABOUT USING DISKS/PROGRAMS.":" 3. USE THE BUILT-IN WORD PROCESSOR" TO READ MORE ABOUT THE PROGRAMS"" L SEE THE WORDS$<"'Ġ'. YPE THE FILE NAME AND8$>"PRESS AGAIN. HAT'S IT!"A$D"*"l$N" . O USE A PROGRAM () YOU LOAD$X"IT INTO YOUR LUS/4'S MEMORY AND IT.$b" ET'S SAY WE WANT TO RUN THE PROGRAM$l"CALLED "!" """ "<"" "i"" FILE IS A TEXT FILE. T'S NOT""A PROGRAM. T CANNOT BE . T MUST""BE READ, USING THE WORD PROCESSOR." " O DO THAT, FIRS " ," "& 6" "E @" "s J" HIS IS THE SAME INFORMATION YOU WILL T"GET IF YOU PRESS 3, THE KEY," ^"WHEN A PROGRAM IS RUNNING. (F YOU h"PRESS NSTRUCTIONS FOR ,"( ", , AND ON "F"PAGES 30-31 AND 38-41."s" XPERIMENT WITH A BLANK DISK. IRST"" IT, THEN TRY ING A PROGRAM""FROM THIS DISK AND ING IT ONTO THE""BLANK DISK. "(" O MAKE A PRINTOUT OF THESE DIRECTIONS,"L2" '' "}<" RESS KEY TO RETURN TO MENU. "K AN$P AN$"P"AN$"" 6270U AN$"R" AN$"" 5060Z 150d" ;PN$;"...""::3"LOAD";(34);PN$;(34);",8":::::"RUN"? (19)_ 239,2: 1319,13: 1320,13ev 1,500,20: 6030:" TO RETURN TO MENU NOW, PRESS HELP": 6000 ""(9);(8);(142) % "  U "  BE SURE YOU TYPE THE NAME EXACTLY  "  AS IT APPEARS ON THE DIRECTORY.  "   "  (IF YOU MAKE A TYPING MISTAKE,  " EY.C" 2. PRESS RETURN.=H" THE WORD PROCESSOR WILL APPEAR.kW" 3. HOLD DOWN C= KEY (IT'S IN LOWER\" LEFT CORNER) AND PRESS 'C' KEY.k" 4. TYPE THE LETTERS 'LF'p" 5. PRESS RETURN. YOU'LL SEE THE"u" WO-";:Iq (27);"T"t 8,"M" vX " PRESS HELP KEY TO RETURN TO MENU":A$:150j "": 6030" " PRESS HELP KEY TO RETURN TO MENU$ "---------------------------------------%" FOLLOW THESE DIRECTIONS TO USE* ON THIS DISK.":>$" 4. LOAD A PROGRAM FROM THIS DISK.":Q&" 5. QUIT.|," TYPE A NUMBER (1, 2, 3, 4 OR 5)."  NOTE: YOU'LL BE ABLE TO COME BACK0" TO THIS MENU LATER BY USING THE HELP2" KEY. IT'S ONE OF FOUR GAxUT+4 EDUCATIONC32AMENUABOUT THIS DISK ----------------CASH REGISTERDATE CALCULATORDRINK AND DRIVE MATH QUIZ"PIEMAKER KKPROBABILITY MACH SOLAR SYSTEMSTATES & REGIONS UNKINGJAMES(WEATHERMANKKKKKKKKKKKKKK c < <MAZEMAZEMAZE * T P /4 U' G * * B 1001, M, CA 93942 * *************************************  ,         -  '            .  THIS TEXT UP. **(  )** --- INFORMATION ABOUT THE PROGR                 . DATE CALCULATOR                . F   ,                   ' '           .  PIEMAKER                 . T               . PROBABILITY MACH      -     SOLAR SYSTEM      -               ,     . MAZEPLUS/4 E  P  --D  C3 ************************************* * C  1988 PLUG *  PLUG                         --- PRESS AND HOLD THE DOWN ARROW KEY (     ) TO MOVE AMS ON DISK C3: T       -     PLUG    CASH REGISTER             .  ! DRINK AND DRIVE        . I      MATH QUIZ        ,   , --  . F  .       ,   ,      -- '                       . B             .  Y               .     -  ''  '' -     E .  ---- T               ' '    .   ,    RUN     RETURN . I   ,     (               ,            . T         ---- PLUG,  P /4 U' G,     '  '   6 4/88 PLUG,  P /4 U' G,     '  '    DATE CALCULATOR2 FOR COMMODORE PLUS/48>(X2 (14);"":0,2:4,2c< 1780F +++ INPUT SECTION +++PUR$"":UI$""ZUL0UL80d" ";nUI$:UI$""110xUI$(13)(UR$)1 " ";:190UI$(20UR$(UR$,(UR$)1)(" ";:110O ++ CHECK FOR VALID CHARACTERS ++a(US$)0330r"US1(US$),UI$(US$,US,1)6@UI$"":J ** STANDARD INPUT **T(UI$)46^UI$(32)h(UI$)48(UI$)57380r!&UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL'08: ** MENU **>D:RN"";(14):UH1XX:wb" Ր"l" --------------------------------------"v" 1. TART "" 2. NSTRUCTIONS""  STATES & REGIONS      U.S. . UNKINGJAMES   WEATHERMAN    -  ,                .  Y '          ,  ' . I           -   +4)     . P          -  ,   ý    C       . W  W>   ,  *P  RETURN.    P /4. Y $20          , -   ,  , . J  !  3. ROGRAM INFORMATION"0" 4. UIT"a" --------------------------------------"" HEN PRESS ''"" RESS A NUMBER KEY (1-4) ";UL1:US$"1234":70: INPUT ROUTINE(UR$)15700)240 (UR$)UL110>270: CHECK FOR VALID CHARACTERNUR$UR$UI$XUI$;a110 +++ CHECK FOR HELP REQUEST +++UR$"H"UR$""440: EXIT TO HELP ROUTINEUF1530UF0:: ++ CHECK DELETE ++(UR$)111 |(UI$)65(UI$)90400C(UI$)193(UI$)218UI$"":IO\UI$"":UF1: +++ HELP ROUTINE EXIT +++540""570UZ0:US$UJ$:UG$UK$:UPUJ:ULUK"":510"";UT$UL$70 9.)'B" OT IT? F YOU START OUT WITHEG " A DATE THAT BREAKS THESE RULES, THEhL" RESULTS WILL BE INACCURATE.rV1550`UZ1480jt ** PROGRAM INFOMATION **~""UP0:UG$"ROGRAM NFO":UH1:1590" O  40"" UP1: 1550: 1590:5" ROGRAM AME: ATE ALCULATOR_" RITTEN Y : . UTTERFIELD " PGRADED Y : ǒ   PLUG UPGRADE BY C. DEMMON SEP 14 1985" HIS PROGRA ";: (142);" >"  _" ~" "C O M M O D O R E"EDUCATIONAL"SOF E "!"UI$:UI$" "1570!,'!6 ** PAGE DESIGN ROUTINE **3!@UPUP1W!J""(UT$UP$,21);(UP$UG$,18)!T" --------------------------------------"!^UH01650!h(UD$,22);(UP$,7);"NEED HELP? PRESS 'H' AND 'RETURN'1146:UM32768:UO158#U1209:U2210:U3211:U4214:UC204:UU2048G#UU%21:UL%23:UP%2139:UM1024:UO198k#UD$""#UP$" "#UT$" Ҡ"## ** SET VARIABLESX NOVEMBER,DECEMBER%bM011:M$(M):M@%l SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAYU%vD06:D$(D):Dl%Q$" BASE ":2070u%BM5%" OPTIONS :"%" "%" 1) ANOTHER DATE":" 2) NUMBE 760&M5BD:2320:2050'Q$" OTHER ":UH0:1590:2070M'SM5B:S0" "S"DAYS BEFORE BASE DATE":1550:2000z' ""S"DAYS AFTER BASE DATE":1550:2000'"";Q$"DATE ";' US$"":UL12:70:1670:Z$UR$'US$"":UT$" "4(UR$)1840,780,1140,760=570F [ 806,101:"":g1660:  ** INSTRUCTIONS **"":UH1 UP0:UG$"NSTRUCTIONS":UH1:1590*" XAMPLE: 4 1985."4" HIS IS YOUR 'BAEAD OR BACK." z1550:1590>" ON'T USE DATES BEFORE 1752; ANOTHER"]" CALENDER APPLIED THEN." NTERING '0' BY ITSELF FOR AN ANSWER" WILL END THE PROGRAM." NSTEAD OF TYPING IN ALL THE LETTERS" FOR ANY GI" PROGRAM DOESN'T KNOW THIS RHYME:6" '30 DAYS ARE IN EPTEMBER,[" PRIL, UNE AND OVEMBER.~" LL THE REST HAVE 31 --$" XCEPT FOR EB., WHICH WE ASSIGN." WENTY-EIGHT.8" (N EAP EAR EB. GETS 2THE BEST OF OUR KNOWLEDGE,"-" THIS PROGRAM IS IN THE PUBLIC"Y" DOMAIN. F THIS IS NOT THE CASE"v" PLEASE CONTACT:"" ǒ: HE LUS/4 SERS' ROUP "" .. OX 1001" ONTEREY, 939M WILL RUN ON ANY(" OMMODORE 82" LUS/4 OMPUTERB<1550[FUZ1 480aPZ ** T I T L E P A G E **d" "nI139:"";:xI121:"";:I138:"";:I121:"TWARE  ** COMMODORE LOGO **> (UD$,24);"PRESS SPACE BAR OR WAIT":I0a A$:A$" "II1:I2501520 T1$"":T2$"":T3$"":T4$"":I0 570  ** SPACE BAR PRESS ** (UD$,24);" PRESS SPACE BAR TO CONTINU"!rUH1:"":"| ** PLEASE WAIT REMARK **L"(UD$,22);" ONE MOMENT PLEASE... "R"o" ** SET UP VARIABLES **"UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024"UT59468:UU%12:UL%14:UP% **#M$(15)#1690#: $1370: TITLE$&570: MENUE$0UZ1 UZ0: ** PROGRAM STARTS HERE **X$:" ";(142):$DUT$" DATE CALCULATOR":UG$"":UH0:1590:$N JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER$R OF DAYS "*&" ENTER OPTION ";:US$"012H":UL1A&70:1670:N(UR$)N&N0760d& N 2040,2010:&UT$" DATE CALCULATOR":UG$"":UH0:1590:" # OF DAYS ";&US$"0123456789-H":UL6:70:D(UR$):D0*Z$"0"760'4K1:F0:F10 (>JK(Z$):Z((Z$,J,1)).(H(Z47Z58)(Z64Z91)2140;(RJ:2210](\PJ:H58:L47:Z58H91:L64{(fKJ(Z$):Z((Z$,K,1))(pZHZLK(zY$(Z$,P,KP):H60WV:V(Y$):2200(F1F11:M011:Y$SE DATE' AND YOU MAY"&>" NOW CALCULATE EITHER:"VH" (1) OW MANY DAYS AHEAD OR BACK TO ANY"rR" OTHER DATE(S)";\" - TO COUNT BACKWARDS INCLUDE A NEGATIVE SIGN (-)"f" (2) HAT DATE IS A GIVEN NUMBER OF DAYSp" AH VEN MONTH, TYPE ONLY THE"$" Ԡ LETTERS.L" OR HELP TYPE '' BY ITSELF.|" LWAYS PRESS AFTER AN ANSWER.1550:1590" OU'LL HAVE TO REMEMBER THE NUMBER "" OF DAYS IN EACH MONTH, BECAUSE THE  PIEMAKER II6 FOR PLUS/4Z COPR. 1985 BY CALVIN DEMMON( BOX 1001, MONTEREY, CA 939402 DISTRIBUTED THROUGH PLUG LIBRARY; OTHER RIGHTS RESERVED<F ------------------------------F -----xM ** TO ERASE DISPLAY AT END, PRESS ANY KEY BUT Rr ** TO RESTART AT END, PRESS Rx (142) PART(17),LA$(17),XY(17)SP$" " 680 2,1 1,8,6:0,2:4,2:"",14,11,"PIEMAKER II" , 700: 2606J0:TTL0@@,0,17,"NUMBER OF WEDGES":,17,17,(N)LJ JNkTJJ1: "SIZE OF WEDGE";J;y^ PART(J)hTTLTTLPART(J)r" LABEL FOR";J;"";: LA$(J):" "| 2,1SA0: START POINT OF 1ST WEDGE C1(0):R1(1),160,90 C1,R1LSAEA: NEW WEDGE STARTS WHERE OLD ONE STOPST J:" ADD A LABEL AT BOTTOM? (Y/N)"::&L$: L$"Y" 5800 L$"N" 650: 550D "LABEL";LB$N"THE PIE'S COLOR IS";C;":",  DELAY1 2500::,90 C1,R1LSAEA: NEW WEDGE STARTS WHERE OLD ONE STOPST J:" ADD A LABEL AT BOTTOM? (Y/N)"::&L$: L$"Y" 5800 L$"N" 650: 550D "LABEL";LB$N"THE PIE'S COLOR IS";C;":",@@**PROBABILITY MACHINE**8@**BY JO ANN COMITO**R@**SUNY STONY BROOK**j@**REVISED 8/4/78**@**MODS FOR THE PLUS/4 MADE BY PLUG, THE PLUS/4 USERS' GROUP@**BOX 1001, MONTEREY, CA 93942 **PROGRAM SUPPLIED BY PHIL HUNT/N)"BA$:A$"Y"A$""700.B "";(142)QB2D$""[B4 999B7R$""B<""BZPM(7,9)Bd I17:J19:PM(I,J)0:J,IBnPT0:N0:FLAG0:N10BR18BD2162B(M$(M),(Y$))2200(M:2230)FF1:K(Z$)2110H)FF13VW0W31" INVALID ENTRY":X1800::2240R)2260{)" INVALID ENTRY":X1800:)" ")UH0:1640:2070)M1(M2):M2(1M1.7)N12*. 229000(M:2230)FF1:K(Z$)2110H)FF13VW0W31" INVALID ENTRY":X1800::2240R)2260{)" INVALID ENTRY":X1800:)" ")UH0:1640:2070)M1(M2):M2(1M1.7)00:"ѐ":2200D6D218D8320,D;K1150:KOD@D31000:"ѐ ":2200:DcDJD2(D2)350DT1000:"ѐ ":2200 :DD^P((1).5)DhP0P1DrRPRDt380DwD18410D|1000DP1"ѐ ":2200: DEP1P EASIER TO USE THAN EARLIER VERSIONS BECAUSE THE WEDGEZ SIZES ARE RELATIVE. THE PROGRAM WILL CALCULATE --d ALL YOU NEED TO KNOW IS NUMBER OF WEDGES AND VALUE OF EACHn -------------------------J115:PART(J)0:LA$(J)"":JP "WHAT COLOR PIE? (1-16)";C:C16 240: 250} "WHAT COLOR PIE? (1-16)";C:C16240 1,C,6"" "HOW MANY WEDGES"; N" N12 " NO MORE THAN 12 WEDGES ALLOWED - REDO": 310RAD75: RADIUS OF CIRCLEUN360TTL, J1 NAEAPART(J)UNSAt,160,90,RAD,RAD.769230769,SA,SAPART(J)2UNCO(0)8:RO(1)8 CO19 COCO(LA$(J))1,CO,RO,LA$(J),160,90,RAD,RAD.769230769,SAPART(J)2UN,EAX"WHAT COLOR SHOULD LABEL BE (1-16)";LC:LC16610:620eb"WHAT COLOR SHOULD LABEL BE (1-16)";LC:LC16610ql1,LC,6yv 1,(40(LB$))2,24,LB$ 1 A$ A$"R" 190 0,1:1,1:0,2:4,7 DELAY1 2500::"ѐ ":2200: D!EPM(1,(R9)2)14900ES990:VO6=ED1923REID17:J(R9)2EPM(I,J)1PM(I1,J)1:PM(7,J)PM(7,J)1:272E1000:"ѐ ":2300ESS3:VOVO1EDEPM(6,J)1:PM(7,J)1E272EI19:PTPTPM(7,I):IFA**INSTRUCTIONS AND +4 SOUND-COLOR ADDED BY C. DEMMON, 3/87[A 0,2:1,1:4,7,4A "";(9);(14):10)" Œ": 999A "":12)"Y O NN OMITO"AI1 700:IB" O YOU WANT INSTRUCTIONS? (Y 1000CI1(D2)2C"ڐ ";$CI.CRR15CD=C:[CJ110:10)"ڐ ";:J:~CI15:J110:10)" ";:JCCICN118285CCN1N11CFLAG2497C300CC"N1N11C'FLAG2497D,D1:R19:10)M3VM2:M4M112M2 *M5(M430.6001)(M3365.25)5W%*M6((M5)7):M7M57M6H*" ";M$(M);W;V;"IS A ";D$(M7)N* q* M6M55:Y((M5122.1)365.25)* M7M6(Y365.25):M8(M730.6001):WM7(M830.6001)*$ N1(M814):VYN1:MM812 FPOPT500FFLAG2:272,FFLAG0:POPO1:495"MIDDLE AREA THAN AT THE EDGES. PER-IH"FECT DISTRIBUTION WOULD HAVE THEIR"HUMPED SHAPE OF A BELL CURVE.I\" (RESS ANY KEY TO START  BMWJ` $TY&I*"THEORY. RIEFLY, THE CHANCES AREPI4"THAT MORE BALLS WILL PILE UP IN THE}I>"MIDDLE AREA THAN AT THE EDGES. PER-IH"FECT DISTRIBUTION WOULD HAVE THEIR"HUMPED SHAPE OF A BELL CURVE.I\" (RESS ANY KEY TO START TATES & REGIONS7" 2. STUDENT INSTRUCTIONS"a" 3. TEACHER INSTRUCTIONS"}" 4. QUIT"" --------------------------------------"" PRESS A NUMBER KEY (1-4) ";A$(A$)1200,230,420,210IEW""" THE MENU PRESS <>."),910:950V6" WILL TEST YOU ON YOUR ABILITY"@" TO LOCATE THE STATES OF THE .. IN"J" THEIR PROPER REGION."T" HE REGIONS USED ARE GIVEN IN EACH"^" QUESTION ALONG WITH INSTRUCTIONS OF OUR KNOWLEDGE,"3" THIS PROGRAM IS IN THE PUBLIC"_" DOMAIN. F THIS IS NOT THE CASE"|" PLEASE CONTACT:"" : HE LUS/4 SERS' ROUP"" OX 1001"" ONTEREY, 93942"UP1: LUS/4 OMPUTERX910:950Jb" HIS IS A GEOGRAPHY DRILL DEALING"wl" WITH STATES AND THE . . REGIONS"v" IN WHICH THEY ARE FOUND."" HIS DRILL IS SUITABLE FOR GRADES"" 7 AND 8, OR WHEN STUDYING TH" "  C*" k4" >"C O M M O D O R EH"EDUCATIONALR"INUE "UI$:UI$" "9304 ** PAGE DESIGN ROUTINE **@UPUP1j""(UT$UP$,21);(UP$UG$(UP),18)" --------------------------------------"UH01010(UD$,24);(UP$,6);"EED INSTRUCTIONS? RESS " U1209:U2210:U3211:U4214:UC204:UU20484BUU%21:UL%23:UP%2139:UM1024XLUD$""VUP$" "`UT$" Ӡ& Ӡ"jt ** SET VARIABLES **~A(100):G0:H0:B0:C0 ARIO ** ************************'* REVISED AND UPGRADED *E * BY *c* DEREK LEE *************************(* REVISED *2* FOR PLUS/4 BY *<* CALVIN DEMMON *F ORGIA","AWAII","DAHO","LLINOIS"+! "NDIANA","OWA","ANSAS","ENTUCKY"P! "OUISIANA","AINE","ARYLAND"f! "ASSACHUSETTS"! "ICHIGAN","INNESOTA","ISSISSIPPI"! "ISSOURI","ONTANA","EBRASKA","EVADA"! "EW AMPSHIRE","EW  T IRGINIA"# "ISCONSIN","YOMING"#" 4,1,2,4,1,2,6;#, 5,4,4,1,2,3,3,3,3,4,4,6,5,6,3,3a#6 4,3,2,3,2,6,5,2,5,4,3,3,2,1,5,6}#@ 4,3,4,2,2,6,4,1,5,3,2#JUP0#TB51100#^UH0:UG$" QUESTION #":""::1020#hC(1)#rC(C100) FOUND ?"$0" 1. ACIFIC OASTAL"%:" 2. ESTERN",%D" 3. IDWESTERN"C%N" 4. OUTHERN"Y%X" 5. ASTERN"s%b" 6. EW NGLAND"%l" 7. IEW CORE OR UIT"%v" HAT IS YOUR CHOICE (1-7)? ":%F$: F$"H" 60%2080&" *** HAT'S T ***":2080 '" ### AY O O ###": 2080D'" $$$ IGHT N $$$": 2080g' " === ORRECT ===": 2080'" ICE ORK "' HH1:910: B'* M11750: M1'4TUP1:UP0:UG$"":950'>"4(I$"1"UPT:UG$" UESTION #":1620(## AY O O ###": 2080D'" $$$ IGHT N $$$": 2080g' " === ORRECT ===": 2080'" ICE ORK "' HH1:910: B'* M11750: M1'4TUP1:UP0:UG$"":950'>"@F@ WEATHERMAN ----------L@@ WHEN THE PROGRAM ASKS YOU TO ENTER A@ SELECTION, FOLLOW THE FORMAT SHOWN ON SCREEN, A( THEN PRESS >>": OUR SCORE--"'HH;" --- ORRECT"(RG;" --- NCORRECT"(\"---"6(fGH;" --- OTAL RIES"[(p" ORE QUESTIONS..........1"~(z" UIT & ETURN TO MENU...2"(" (1 OR 2) ";(I$( I$"H" 60( I$"1"I$"2" 2190T:4509F" NPUT ERROR, TRY AGAIN--":DE11300:DE:240ZF" ";T1;"DEGREES CELSIUS"~F" ";T2;"DEGREES FAHRENHEIT"F" ";T3;"DEGREES KELVIN"F" ";T4;"DEGREES RANKINE":F&"O ANOTHER CONVERSION (Y OR N)";:A$F0> KEY ***9A, ***?A2UAd***WEATHERMAN***zAn***WRITTEN BY GLENN PRESCOTT***Ax***REVISED BY ED MARCHESCHI***A}***PLUS/4 VERSION BY C. DEMMON***A~:A0,2:1,15,2:4,2A(14);(8)%B1,8,3IND CHILL EQUIVALENT TEMPERATURE"HC4)"4. ELATIVE HUMIDITY AND DEW POINT"}C4)"5. XIT FROM PROGRAM ":1,15,2C:"OUR SELECTION (1-5)";CS:S1S5130C:CS240,580,730,850,1400 D1410:"**ŠC"380ETT1TE^T2(95)T32'EhT3T273.15A$"Y"730JH1380JR1410: " **Š & נ**":1420J\+KK;&! H$KH$"M"980LAA0.750062:980LA1013.26ML " LEASE WAIT...":S373.16ZLI273.16cLTD1mL1240LD2T2:E1E:TW1L1240LW2T2:E2ELE3A(D2W2)(.00066(1.00115W2))L$H100(E2E3)E1:PE2E3:TD1K" EL HUMIDITY=";H:(N"O AGAIN WITH NEW FIGURES (Y OR N)";:A$8NA$"Y"850BN1380aNT259(T32):T3T2273.15qNT321320NV7.90298(ST31)NW5.02808(ST3)NX.00000013816(10(11.344(1T3S))1)N Y.0081328(10(KA$"Y"240G:1380@GD1410:"**Š٠**"::1420GN"NPUT DRY BULB,WET BULB TEMPS IN FAHRENHEIT DEGREES--"GX"ENTER TEMP(DRY),TEMP(WET)"GbD,WGlC0.4(DW)15:Gv***T.H.I.=TEMPERATURE HUMIDITY INDEX***}OBODY EVER DOES ANYTHING ABOUT IT.'":" -- ARK WAIN0P|"":1420:>P 1,3,3:MP 1,15,2:SPYP5qNT321320NV7.90298(ST31)NW5.02808(ST3)NX.00000013816(10(11.344(1T3S))1)N Y.0081328(10(FIGURES (Y OR N)";:A$IA$"Y"580I1380VI1410:" **Ġ̠Ԡ**":1420\II"NPUT TEMP IN FAHRENHEIT DEGREES, AND WIND VELOCITY IN MPH"I" (FOR EXAMPLE: 45,10)":ID,UIU9U2.23694I D959(D32Kf"NPUT DRY BULB,WET BULB TEMPS IN FAHRENHEIT DEGREES"LKp"NTER TEMP(DRY),TEMP(WET)"YKzD1,W1:K"SE STANDARD ATM PRESSURE ? (Y OR N)"KA$KA$"Y"970K"NTER ATM PRESSURE,SCALE (M=MILLIBARS, I=INCHES OF MERCURY)"KA,KL.1240L8EP1120MBTT0.1ML1240 MVEP10904M`N9(T):N5TN9FMjN50.51150UMtTN9:1160dM~T(T0.5)nM""M " "M" EMP(DRY)=";D1M" EMP(WET)=";W1M"EMP DEW POINT=";TMK3.49149(ST31))1)OE9VWXY3.0057209OE10(E9):7O(V9.09718(IT31)NO2W3.56654(IT3)eO<X.876793(1T3I)zOFE9VWX.785835OPE10(E9)OZOd130Ox1410:"'VERYBODY TALKS ABOUT THE WEATHER,"Pz"BUT NK H"T.H.I.=";CHC606702H"(ELOW COMFORT REGION)":700\HC70680:"(N COMFORT REGION)":700HC80690:"(ARGINAL COMFORT REGION)":700H"  NCOMFORTABLE REGION ":" EWARE OF HEAT EXHAUSTION "I:"O AGAIN WITH NEW KKK