KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKI/ ",=6 367;d %l l["="d36?36363?>E ",:  L",363?>$"B",:33"dF"l "gK",3252:""bZ$o"|"$ e[O^"r"": "#&QbS $ e[O:KKI/ ",=6 367;d %l l["="d36?36363?>E ",:  L",363?>$"B",:33"dF"l "gK",3252:""bZ$o"|"$ e[O^"r"": "#&QbS $ e[O:CD4: +CH$"B"11100+Q(AN$)CD1:+CD2:3\+Q(QA$)CD2:If+R(AN$)CD3:Tp+CD1:j N MESSAGE SECTION!N SELECT VALUE OF CD TO PICK MESSAGE%NHM4NCNFHM2CD3:&NHM5SC100CD2:'NHM5CD1:(NNC"CD4: +CH$"B"11100+Q(AN$)CD1:+CD2:3\+Q(QA$)CD2:If+R(AN$)CD3:Tp+CD1:j N MESSAGE SECTION!N SELECT VALUE OF CD TO PICK MESSAGE%NHM4NCNFHM2CD3:&NHM5SC100CD2:'NHM5CD1:(NNC $:220 #1,B$:B$(32)230* P$(X)P$B #1,B$:B$"" 250W ST0XX1:180^ 1r  DISPLAY MENU{ "N10 ," MURRAY SOFTWARE "; 6" ";P$(0);"": @N10N10 JN100N100 TJ(N9)N:J;"- ";P$(J):J& ^10313[((A$)20AN$""103131\((A$)20(AN$)1AN$"":A$;:10313_]((A$)20A$;:AN$(AN$,(AN$)1):10313s^((A$)1310350|_(II1`(A$(LA$,II,1)A$;:AN$AN$A$:10313a(IIII1:II(LA$)10336b(10313n(" ";o(KL4KA$((Q),2): LDV((2)(DDV)):Q(DV):RDQVDVRA$(Q)" WITH REMAINDER"(R)Jr'"";((40(TT$))2));"";TT$;""'"#";NQ;19);HM;"ITEM DRILL"'"OPTION: ";CH$;"".'"";12);"ϣ" 3'11((V)));V10313[((A$)20AN$""103131\((A$)20(AN$)1AN$"":A$;:10313_]((A$)20A$;:AN$(AN$,(AN$)1):10313s^((A$)1310350|_(II1`(A$(LA$,II,1)A$;:AN$AN$A$:10313a(IIII1:II(LA$)10336b(10313n(" ";o(KL4"YOU DID";T3;"CORRECT ANSWERS PER MINUTE."+ 20000:21000r%"DO YOU WANT THE SAME OPTION(S) (Y OR N)?": ?&810-840?&GOTO110?*A$:A$""8104A$"N"120>A$"Y""":300H81033747,3:33748,12:33749,15:33750,3:33751,11K(((NCMK)100HM.05)10)10JMN(AT3600):SN(AT3600MN)60:SD((SN.05)10)10T2(((AT60)HM.05)10)10:T3((NC(AT3600).05)10)10"THIS DRILL HAD";HM;"QUESTIONS,""YOU CORRECTLY ANSWERED";NC"YOUR SCORE IS ";((SC"YOU DID";T3;"CORRECT ANSWERS PER MINUTE."+ 20000:21000r%"DO YOU WANT THE SAME OPTION(S) (Y OR N)?": ?&810-840?&GOTO110?*A$:A$""8104A$"N"120>A$"Y""":300H81033747,3:33748,12:33749,15:33750,3:33751,11HMCD4:)NNCNFHMCD2:NCD1R.RCD21010,21011,21012,210134RUR"";13);"--WELL DONE--":R"";7);"GET HELP FROM YOUR TEACHER!":R""R14);""R14);"FANTASTIC"R14);""R:K: s(KL2CH$"A":"":10399-u(AN$"UNCLE":"":10399Xx(KL2:QA$AN$:" REMAINDER: ";:10312o(ATATTIMT:920:* DECIDE ANSWER STATUS* RIGHT--CD=1* WRONG--CD=2* CLOSE--CD=3* UNCLE--CD=4+AN$"UNCLEKK )LLLNLDJJJJJJ wwC  ZKR$ VP$ K LiP% EEEE LL "C1L=LEEE 4Z VP$ VP0P 8G- :  $"COMMODORE 64A" SPRITE EDITOR 53281,6:A(21,24),B(63),A$(15):X0:Y0:R0:C0:S1039:S155311 V53248:V21,0:V23,0:V29,0::X015:A$(X): R121:C124:A(R,C)46:::X163:B(X)0::""+ V4, " #"B BASIC DATA"% $"N NEW SCREEN": %"S SAVE SPRITE"O &"L LOAD SPRITE"^ '"Q QUIT"s ("F1,F3,F5,F7 TO )" CHANGE COLOR 2Y0:R121:C124:YY1:SY,A(R,C):S1Y,14::YY16: 7X1:Y1:79 <A$:A$""60 =RSX(Y1)40 (V29)4)! FA$"Y"V23,((V23)4)1 GA$"B"120V HA$"L"A$"S"A$"N"A$"Q"190l IA$""R33:130 JA$""R37:130 KA$""R41:130 LA$""R38:130 ORSX(Y1)40:CA(Y,X)128:R,C:R1,C:60 dY0:R121:X02:19:B((X1)9Y)",";:$z" ":::115:20DC(VR)15:CC1:C15C0bVR,C:"";:R33136v"";:R37136"";:R41136"";""A$(C)" ":110:N$"Y"79N$:N$:A$"N"11A$"Q"V21,0:V46:A(R,Q1)46%:S0A(R,Q)SP48:A(R,Q1)SP48:J:::S1039:16n BLACK,WHITE,RED,CYAN,PURPLE,GREEN,BLUE,YELLOW ORANGE,BROWN,LT RED,GRAY1,GRAY2,LT GRN,LT BLUE,GRAY3110:N$"Y"79N$:N$:A$"N"11A$"Q"V21,0:V  P ) PP|0PP I LLxG    c c xw   x PCLx P L $LA$"0123456789UNCLE":X(TI)X53280,1:53281,1:53272,21:"": C64 MOD 1983~ TT$"DIVISION OF NATURAL NUMBERS" "";((40(TT$))2));"";TT$;"" "";12);"BY D. S. COOPER" "";12);"SCHREIBER, 1980" "IF YOU WISH  : |PL  P ) PP|0PP I LLxG    c c xw   x PCLx P L TT$))2));"";TT$;"":#A' ~"OPTIONS:"> "A) NO REMAINDER"[ "B) REMAINDER POSSIBLE" "PRESS THE LETTER OF YOUR CHOICE." A$:A$""150 (A$)65(A$)66150 CH$A$:CH$ "HOW BIG CAN THE DIVISOR BE? ";:10312# DVP#! c cI, P( Le CCPL6L DJJJJJ 9ȥ ȥȥȥȩșȹYYY CH1 0hEE 2 ) U $P 2P60:V5,200:2042,13:V37,0:V41,14:V38,1U X163:831X,B(X)::V21,4:V28,4p "MC SPRITE EDITOR" "_ ERASE" "1 MC 0-BLACK" "2 SC -LT BLUE" "3 MC 1-WHITE" "= COMPUTE SPRITE" !"X EXPAND 'X'" ""Y EXPAND 'Y':CA(Y,X):R,C:R1,C+ >A$""YY1:Y21Y1G ?A$""YY1:Y1Y21c @A$""XX2:X24X1 AA$""XX2:X1X23 BA$""A(Y,X)46:A(Y,X1)46 CA$"0"A$"4"R48(A$):A(Y,X)R:A(Y,X1)R DA$"="100 EA$"X"V29,(YY1:B(Y)0:C172:QA(R,X8C)48, fQ0Q3Q0d hB(Y)B(Y)2(7C)Q::::X163:831X,B(X)::55| n""A$": YES OR NO" oX110:N$: pN$:N$""112 r" ": s"CONTINUE":111 w x"":X17:"DATA";:Y28,0:"":("":V21,0:"NAME OF SPRITE";N$:CA$"L"1,1,0,N$:300j1,1,1,N$:X163:1,B(X)::1:16,X163:1,B(X)::1:"COMPUTING SPRITE MATRIX"6Y0:R121:X02:YY1:C282:QX8C:P2(8C)8SB(Y)(P3):A(R,Q)":230A ,"HOW MANY ITEMS DO YOU WANT IN THIS DRILL";:10312:HM(AN$)T 6HM(HM)350b ;HM1350p YKL1:360 ^"ILLEGAL RESPONSE":300 hNQ1:AT0:NW0:NC0:NF0:MK0 m"STAND BY" o DO A GOSUB TO SET UP TEST r1000 |10000 10300 11000( CD420,500,550,610: NW0NCNC1L NW0NFNF1_ NW1MKMK.5s NW2MKMK.25 "RIGHT":100 NQNQ1:NW0:NQHM700 370 "WRONG. ";:NWNW1 NW3600  "THE CORRECT ANSWE TO GIVE UP ON"* "A PARTICULAR QUESTION,"T "JUST TYPE 'UNCLE' AS YOUR ANSWER."o ""x c110 d"PRESS RETURN TO CONTINUE." eA$:A$""101 f(A$)13101 g"STAND BY": n100 xKL4 }"";((40( cL w8X vxxLX vx $L c c    c c   c  թL $ LA cL cLqP`X0x` PM|0PMLUL(AN$):DV2"ILLEGAL--TRY AGAIN!":2004 CH$"A"230b "HOW BIG CAN THE DIVIDEND BE? ";:10312 DD(AN$):DDDV"ILLEGAL--TRY AGAIN!":215 300 "HOW BIG CAN THE QUOTIENT BE? ";:10312 QQ(AN$):QQ2"ILLEGAL--TRY AGAIN! PUPUPPݍPݍU P2i 2 ЎPP PLi,,0* * `,,0JJJf(f` LbC c 0ʆ1  -d" DIK.COPY.ALL JIM BUTTERFIELD"Zn L2(232),L1%(232),N$(232),T%(232),T$(4)tx XXX,SEQ,PRG,USR,RELJ04:T$(J):J10,32,67,72,77,82,87,98,117,147SI2348:SB(44):MBSB256SII09:A:MBA,SB9: "FROM UNIT 8$R$:470XP$"";:I140:"";:C]EU:30:P$"STATISTICS AS OF "R$::I1BxbA((F(I)E)1000)10:A$" "(A):A$(A$,5)g(A$,4,1)"."A$(A$,3)".0"lI;B$(I)14)A$" % "v:00":XTI:(P$,C1)3)""B$(C) (P$,C1) X(X$):XX(X$) #1,X$:Y(X$):YY(X$)&  @A  @ AڅL_` _` P  _ `     0` azb  ȹz aba )`a ) READY. ";:90:B$"R"4008"CATEGORY THIS TIME ALL TIMEZI1B:I;B$(I)15)Z$27)Z$:x(P$,12)"TOTAL TIME: "Z$B$:B$"""":440C(B$):C0CB"";:440DC:TI$"000000":XTI:(P$,C1)3)""B$(C) (P$,C1) DISK READY":" N";Z$ (Z$)89220$9 "DRIVE 0";DI*DDD800Z4D$(D48):m>15,E,E$,E1,E2HE0E(ST 191):E$"*ST*"R\15,T,15:"WANT TO NEW THE OUTPUT DISK":" N";Z$f(Z$)89910p"DISK NAM2B9"2 TO 9 CATEGORIES POSSIBLE.":280M ,"NOW ENTER THE NAME OF EACH CATEGORY.| 6"USE NAMES OF 10 LETTERS OR LESS.":I1B @I"? ";:90:B$""320 J(B$)10B$(B$,10) TB$(I)B$: ^"NOW TURN ON THE RADIO OR TV AND TYPEh"T2640 X"*** OUTPUT DISK FULL"7 b"DO YOU HAVE A NEW ONE";Z$H l(Z$)89V v860:590l 14,F,15:15,T,15 N$(J);(" ",17(N$(J))); 3,F,3,F$":"N$(J)","T$(T%) 14,E,E$,E1,E2:840:E"** ";E$;E:750T%45 1,8,15:M$"M-W":Q$(34):I3328455234:B$""^""4552I:J033:B$B$((IJ)):H(I256)10:LI255:1,M$(L)(H)Q$B$;:(1,"M-E"(108)(6):23041000* |J11:Z$(160):J116:#1,X$:N$N$X$; X$Z$J1JB JQ 990:L1%Y_ 980:980n L2X256Y T91T94540 P10P$(N$,P1)540 N$;" ";T$(T9) P(151)R Z$:Z$""P255520 Z$"Y"Z$"N"Z(Z$):R25TH ONE DISKDRIVE IN APPROXIMATELY 4 MINUTES. AUTO FORMATTING OF DISK.  SOURCE DISK (  Z (0 Z )ʆLP Z )?L{  DESTINATION DISK (  Z  ( (0 ( )";F 800 F$D$. "TO UNIT 9";T7 800A T$D$S FT F$T$\ 860| 1:15: 15,F,15:15,"I"F$ 830: E :220 "PATTERN *";P$ J1(P$):(P$,J,1)"*"J P1J1:P10P$(P$,P1) "HOLD DOWN 'YР x`h5h6565 5656l5k5 ݭݢFkjFkjJJ4`5 ݭݢ  &k(&k4kI`   COPY COMPLETE L ```";X$,Y$z15,"N"T$":"X$","Y$+830:E:860Q15,"I"T$:1,T,0,"$"T$":!#$%&"d830:E:860r980:980QQ1:#1,X$:X$""940980LXY256:"(";L;"BLOCKS FREE )"1:15:#1,X$#1,X$#1,X$;15)U$;27)T$:P$;12)V$B$:B$""520-B$"0"600PC(B$):C0CB"":CD:490C(C)0:(P$,D1)3)B$(D):(P$,C1)3)""B$(C):DCU((TIT)V)V:SUX:XU:F(C)F(C)S:EF(C):30:T$R$C(C)C(C)S:EC(C):30:U$R$:EU:30:VE,ID";X$,Y$z15,"N"T$":"X$","Y$+830:E:860Q15,"I"T$:1,T,0,"$"T$":!#$%&"d830:E:860r980:980QQ1:#1,X$:X$""940980LXY256:"(";L;"BLOCKS FREE )"1:15:#1,X$#1,X$#1,X$HE NUMBER OF THE CATEGORY THAT ISBr"CURRENTLY BEING AIRED. THEN EACH TIMEp|"THE STATION STARTS A DIFFERENT CATEGORY"TYPE THE NUMBER OF THAT CATEGORY."IF YOU TYPE 0, I WILL GIVE THE"CURRENT PERCENTAGES. "TYPE R WHEN YOU'RE4,T,4,T$":"N$(J)",L,"(L1%(J)):700D4,T,4,T$":"N$(J)","T$(T%)",W"iLLL2:830:E"*** ";E$;E:750T%4(MB43):730(MB3)N$(J)"":830:E"**** ";E$;E:750""4:3:15:14J X(0):"ANOTHER INPUT   FAST COPY-64 CBM 64 VERS 4.0 *********************************  =>CALL C.C. - FREDERICK191 <=  ********************************* THIS UTILITY COPIES A DISK WI5:520 Z$(13)R0:520 480H Z80" ":540~ NN1:L2(N)L2:N$(N)(N$,J1):T%(N)T9:L1%(N)L1% ST0570 &N1N11:N18N10:370 01000:370 :1:15:" * * * * *" DJ1N NL2L2(J):T%T%(J):LL ?01L  LN 01L $L  SCHREIB-FEHLER ! SPUR  L 6  DISK-ERROR ! TRACK   SECTOR  4xL{ 6`iHJJJJ h) 0LX%ԩԩ+ԩ/ԩ4ԩ ԩ! IYL ԩ ' OR 'N' KEY TO SELECT"3 "PROGRAMS TO BE COPIED..."F " 1,F,3,"$"F$Y ,830:E:220p 6#1,A$:A(A$" ") @A1A65L1253:350 JA67L1761:350 T1:"?????": ^J1L1:#1,X$:J hN0:N10:R255:Z89 rN$"":1020:T9Y128: d I(200),N$(100),A$(100)?n" FAST SORT DEMONSTRATION"Xx "HOW MANY ITEMS";Np} "1 OR 2 FIELDS";F}J0N1"NAME";N$(J)F1"ADDRESS";A$(J)J:F2"SORT BY FIELD 1 OR 2";W:TI$"000000" X0:BN1:J0B   200=LI(M$(A)):S$(M$(A),L,I):MT:S$"-"MDLaWF,17:AD,190:SR,248:DIM:WF,0:AD,0:SR,0:DIES::DIBF:K$:K$; K$(Q)B$""B$(B$,(B$)I):30"K$(QQ)B$"":"":30$B$B$K$:&B$""50 :H(EHLLN)F:150/ XXXI:H(HHHLLJ)BE LZ:XRXI:100b (C)ZLLI:LLH160r LLH190 (C)LZ:100 (R$,X,I);:XI:LZ:100 M$(51):L151:M$(L)::S20:601 "J/20 MORSE SEND/REC":"SPEED (5 TO 80 ?7?+&??/=61????)?@2???3!45"[ R$R$"???????:????,?????(??;????????-??'????????.??'????????????$" B4:E9:F12:H16:G197:I1:J2:N6:Q20:QQ19:R122:X1:Y15:C56321 :9)"XMT":40 A132A141AA132:A310,330,350,370,320,340,360,38 ^K$"SO HW CPY "N$"? )K":45ehK$" RIG HR TEN TEC CENTURY/21 INTO A DIPOLE = KEYING WID A COMMODORE 64"iK$K$" = FRIEND WB5AYD WROTE SOFTWARE = "B$:45rB$"":""6)"COMPOSING"sK$:K$(136):6)" SENDING ":38tK$"" -,....-,.....,-....,--...,---..,----.?---...,-.-.-.,<,-...-,>,..--..,.-...|.-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--..Y53281,1:" 64 MORSE R/T"#Z" YNE, TX. 75095: (214) 4826679:^: IN A S.A.S.E 20 CENTS $1.00 BACK ISSUE.z: ASK VOL.1 NO.12 : THE RECIEVE TRANSMIT CIRCUIT J20 MSE.: JOURNAL20 IS PUBLISHED EVERY TWO WEESEA" "CARIBBEAN SEA","GULF OF MEXICO","EAST CHINA SEA","HUDSON BAY"U "SEA OF JAPAN","SOUTH CHINA SEA","VANCOUVER","VICTORIA" "YALTA","YANGTZE RIVER","YOKOHAMA","YUKON" "*":G","PROVIDENCE","COLUMBIA","PIERRE""NASHVILLE","AUSTI O U0:T0:S0:E0:T30:V60:WVV:F0:H0:MO:G0:O0:X0:R$"":T$"":U$""V$"":C0:Z$"00:00:00":P$"":170F(EW):H(FV):M(F(HV))(GEWF:O(GV.5):OVO0:MM1 2AH:70:R$A$":":AM:70:R$R$A$":":AO:7  A20(B$)1A$;:90: B$B$A$:A20B$(B$,(B$)2)H A$;:100 53280,1:53281,1:53272,21:"": C64 MODS 1983 BY WIM "THIS PROGRAM WAS DESIGNED TO MEASURE "THE AMOUNT OF TIME SPENT BY A RADIO OR "TELEVISION STATION ON :I(J)J:J J0N2325 BB1:I1I(J):I2I(J1)> 700L I(B)I:Jf ,XX1:CI(B):C0800 @N$(C),:F1A$(C) TI(C)X ^C%C2:JC%2:CNC%:CB300 rI1I(J):I2I(J1) |I10II2:410 I20II1:410 700 I(C)  (K$:K$""40 -B$K$:B$;D 2A(B$):B$(B$,(B$)I):ALL250\ <ASPDIWS::38p FAAFF:AIAIx P15 Z20 d(C)ZLLI:LH100 nLZ:(C)Z" "; p(G)Y198,Z:245 s(C)Z112 xLLI:(C)120 LHXXX )"S""; S:S5S80210P 54273,37:WF54276:AD54277:SR54278:54272,162 "":54296,15:Z0:W1:K222:U254:T2300S1.25 BFT12:ES7500S2:FF39:LL90:SP32:WS3T:DL3T:S30DL4T R$" TEMNAIOGKDWRUS??QZYCXBJP?L?FVH09?8?? 0 A1417)"RECEIVE":190 210K 6K$" CQ CQ CQ DE W5VKC W5VKC K ":45f @::"STATION CALL";C$w E:"NAME";N$ H"":40 JK$" "C$" DE W5VKC "B$:45 TK$" QTH VAN ALSTYNE, TX ? VAN ALSTYNE, TX ABT 50 MI N DALLAS. = "B$:45 371,uK$;:(K$)132""("13572468",(K$)132,1)"";PvK$(20)B$(B$,(B$)1):371jw(B$)255"";:371|xB$B$K$:371|K$" DE W5VKC "B$:45........,.-.-.,-...-.-,-.--.,--..--,...-.-,.-.-.-,-..-.-----,.----,..---,...-  ADAPTED FOR THE 64":" BY"E["  TIM HAM "s\" FROM 'J/20 MORSE R/T' BY R. MYERS"]" LIST 63000- FOR HOOKUP INFO.^T15000:T:WRITE: JOURNAL20, BOX 1149 VAN ALSTeKS BY MIKE APSEY. SUBSCRIPTIK: RATE IS $18.00 PER YEAR VIA FIRST CLASS MAIL.ROM 'J/20 MORSE R/T' BY R. MYERS"]" LIST 63000- FOR HOOKUP INFO.^T15000:T:WRITE: JOURNAL20, BOX 1149 VAN ALSTWHEN "EACH CATEGORY BEGINS.E "I WILL CUMULATE THE TIME SPENT IN EACHp "CATEGORY. WHEN YOU ASK, I WILL GIVE "THE PERCENT OF THE TOTAL TIME FOR EACH "CATEGORY. "HOW MANY CATEGORIES DO YOU WANT? ";:90:B$""280! "B(B$):B 0:R$R$A$ <@ FA$(A):A$(A$,((A$)1)):(A$)1A$"0"A$F Pb ZA0$" ":A1$" ":B$"" dA0$"";:A1V:A$:A$"":A$A0$:A0$A1$:A1$A$:100 nAV::A(A$)127:A13" ": xA19A17A29A34A$""100 A20(B$)190 NEWS, SPORTS,5 "ADS, OR WHATEVER, BUT IT CAN TIME UP TOa "NINE DIFFERENT CATEGORIES (DETERMINED| "BY YOU) OF ANYTHING. "TO WORK THE PROGRAM AS A BROADCAST "MONITOR, YOU MUST BE LISTENING TO THE "STATION SO THAT YOU CAN TELL ME I:350 W2720- II1:N$(I2)N$(I1)II23 P II1:A$(I2)A$(I1)II2V  :" TIME TO SORT ";N;"ITEMS =";TI60:F2180F1"ADDRESS";A$(J)J:F2"SORT BY FIELD 1 OR 2";W:TI$"000000" X0:BN1:J0B ED:"' J"CONTINENTS COUNTRIES U.S.STATESV T"CANADIAN PROVINCES MAJOR WORLD CITIES" ^"U.S. STATE CAPITALS OCEANS & SEAS" h:"YOU'LL GET THE MESSAGE ILLEGAL WORD IF "; r"IT'S NOT IN THE COMPUTER'S "; |"MEMORY. IF YOU CAN'T Y"L"ICELAND","INDIA","INDONESIA","IVORY COAST","IRAN"OV"IRAQ","IRELAND","ISRAEL","ITALY","JAMAICA"`"JAPAN","JORDAN","KENYA","SOUTH KOREA","NORTH KOREA"j"KUWAIT","LAOS","LEBANON","LESOTHO","LIBERIA"t"LIBYA","LIECHTENSTEIN","LUXEMBO URUNDI","CAMBODIA","CAMEROON"F"CANADA","CENTRAL AFRICAN REPUBLIC","CEYLON","CHAD","CHILE"z"CHINA","COLUMBIA","CONGO","COSTA RICA","CUBA""CYPRUS","CZECHOSLOVAKIA","DAHOMEY","DENMARK","DOMINICAN REPUBLIC""ECUADOR","EGYPT","EL SALVADOR NAMA""PARAGUAY","PERU","PHILIPPINES","POLAND","PORTUGAL"X"QATAR","RHODESIA","RUMANIA","RWANDA","SAUDI ARABIA""SCOTLAND","SENEGAL","SIERRA LEONE","SINGAPORE","SOMALIA""SOUTH AFRICA","SOUTH AMERICA","NORTH AMERICA","SPAIN","SUDAN" ","COLORADO"3"ARIZONA","WEST VIRGINIA","TEXAS","NEVADA","OKLAHOMA"j"WYOMING","MISSOURI","ALASKA","HAWAII","ILLINOIS""ALBERTA","MANITOBA","SASKATCHEWAN","QUEBEC","ONTARIO""PRINCE EDWARD ISLAND","NEW BRUNSWICK",NEWFOUNDLAND""AFG TH VIETNAM","RUSSIA","UNITED STATES","YUGOSLAVIA"?"TOKYO","LONDON","SHANGHAI","OSAKA","MOSCOW" "BUENOS AIRES","PARIS","MEXICO CITY","CHICAGO","LOS ANGELES""CALCUTTA","PEKING","SAO PAULO","BOMBAY","DJAKARTA""SEOUL","RIO DE JANEIRO"," HE:730@R"NEW YORK","NEW JERSEY","PENNSYLVANIA","CONNECTICUT","ALABAMA"\"VERMONT","NEW HAMPSHIRE","MAINE","FLORIDA","MASSACHUSETTS"f"GEORGIA","SOUTH CAROLINA","RHODE ISLAND","UTAH","INDIANA"p"NORTH CAROLINA","VIRGINIA","SOUTH DAKO ,"MANCHESTER" P"ST LOUIS","TORONTO","HAMBURG","BUDAPEST","CLEVELAND"^Z"BANGKOK","JOHANNESBURG","ATHENS","SINGAPORE","ISTANBUL"d"VIENNA","BRUSSELS","AMSTERDAM","GLASGOW","HAVANA"n"LISBON","WARSAW","COPENHAGEN","STOCKHOLM","PRAGUE"x" 480 &E 0E1A:A$B$(E)590&D610-NEKX:"ILLEGAL WORD"::480ibR$(A$,1):UU1:U$(U)A$lG((1)A1):HAvEGH(B$(E),1)R$700I1UB$(E)U$(I)700I"MY WORD IS: ";B$(E):UU1:U$ NG","ST PAUL","JACKSON","JEFFERSON CITY","HELENA"A"LINCOLN","CARSON CITY","CONCORD","TRENTON","SANTA FE""ALBANY","RALEIGH","BISMARCK","COLUMBUS","OKLAHOMA CITY""SALEM","HARRISBURG","PROVIDENCE","COLUMBIA","PIERRE""NASHVILLE","AUSTI THINK OF A CORRECT ANSWER, YOU ";d "MAY TYPE 'CHALLENGE'. IF YOU'VE REALLY EXHAUSTED ALL THE POSSIBLE "; "ANSWERS, YOU'VE WON. IF THE COMPUTER CAN THINK OF AN ANSWER, "; "THEN YOU LOSE." U0:C0::" DO YOU WANT TO GO FIRST (Y/N)";A URG","MALAWI","MALAYA"6~"MALAGASY REPUBLIC","MALAYSIA","MALDIVES","MALI","MALTA"u"MAURITANIA","MAURITIUS","MEXICO","MONGOLIA","MOZAMBIQUE""NEPAL","NETHERLANDS","NEW ZEALAND","NICARAGUA","NIGER""NIGERIA","NORWAY","OMAN","PAKISTAN","PA ","ENGLAND","ETHIOPIA"8$"EQUATORIAL GUINEA","EUROPE","FIJI","FINLAND","FRANCE"v."GABON","GAMBIA","EAST GERMANY","WEST GERMANY","GERMANY"8"GHANA","GREAT BRITAIN","GREECE","GUATEMALA","GUINEA"B"GUYANA","HAITI","HOLLAND","HONDURAS","HUNGAR "SURINAM","SWAZILAND","SWEDEN","SWITZERLAND","SYRIA"L"TANZANIA","THAILAND","TOGO","TRINIDAD","TUNISIA"y"USSR","WALES","ZAIRE","YEMEN","ZAMBIA""UPPER VOLTA","URUGUAY","VATICAN CITY","VENEZUELA","UNITED KINGDOM" "NORTH VIETNAM","SOU HANISTAN","AFRICA","ALBANIA","ALGERIA","ANDORRA"T"ANGOLA","ANTARCTICA","ARGENTINA","ASIA","AUSTRALIA""AUSTRIA","BAHRAIN","BANGLADESH","BARBADOS","BELGIUM""BHUTAN","BOLIVIA","BOTSWANA","BRAZIL","BRITISH HONDURAS"BULGARIA","BURMA","B CAIRO","PHILADELPHIA","DETROIT"4("HONG KONG","BERLIN","LENINGRAD","MANILA","NEW DELHI"u2"BOSTON","KARACHI","MADRID","SAN FRANSISCO","WASHINGTON DC"<"SYDNEY","ROME","MILAN","SANTIAGO","MONTREAL"F"LIMA","BARCELONA","MELBOURNE","PITTSBURG" TA","OHIO","OREGON"Az"NEW MEXICO","NORTH DAKOTA","WISCONSIN","MICHIGAN","IDAHO"|"CALIFORNIA","MISSISSIPPI","KANSAS","NEBRASKA","IOWA""WASHINGTON","MONTANA","MINNISOTA","KENTUCKY","TENNESSEE""LOUISIANA","DELAWARE","MARYLAND","ARKANSAS MONTGOMERY","JUNEAU","PHOENIX","LITTLE ROCK","SACRAMENTO"H"DENVER","HARTFORD","DOVER","TALLAHASSEE","ATLANTA""HONOLULU","BOISE","SPRINGFIELD","INDIANAPOLIS","DES MOINES""TOPEKA","FRANKFURT","BATON ROUGE","AUGUSTA","ANNAPOLIS""LANSI (U)B$(E)R$(B$(E),1):470E&G17307HG:G1:630J:"YOU WIN!"g"ANOTHER GAME (Y/N)";A$wA$"Y"4201550 E1A(B$(E),1)R$840 I1U*B$(E)U$(I)8404I>B$(E)::"YOU LOSE":740 N","SALT LAKE CITY","MONTPELIER","RICHMOND">"OLYMPIA","CHARLESTON","MADISON","CHEYENNE","PACIFIC OCEAN""ATLANTIC OCEAN","INDIAN OCEAN","ARCTIC OCEAN","RED SEA","BLACK SEA""MEDITERRANEAN SEA","BERING SEA","NORTH SEA","BALTIC SEA","YELLOW $ (147) :A$"N"460" C1:480? R$(((1)2665)):620G C0k "WHAT'S YOUR WORD";A$:C1520 A$"CHALLENGE"770 (A$,1)R$520 :"LETTERS DON'T MATCH"::480 E1U A$U$(E)550 :"ALREADY USED":: "X6)" "XXX X12)" Σ"X12)"Υ"X12)"Σͥ"X12)"ͤ"Y#12)"Σͣ"/Y(12)" Σͥ"HY-12)"Σ̤ͥ"bY212)" "V6)"͠"V6)"͠Π͠"V6)"͠͠"V6)"͠͠"V6)"͠Π͠"W6)"ͥ͠"#W6)"ͤ͠"AW6)" T"`W6)"ΣΠ"":GOSUB90 :RETURNa"";a"MUST BE A LETTER, PRESS @ FOR TEST"aa ^ BOY WAS THAT LONG!I$"H"2100_wI$"I"2210`|I$"J"2320`I$"K"2395#`I$"L"25054`I$"M"2615E`I$"N"2730V`I$ "TB10)"͠"TG10)"͠Π͠"TL10)"͠͠"TQ10)"͠͠"TV10)"͠Πͥ"T[10)"͠"U`10)"Σ͠Π"/Ue10)"ΣΣ"JUj10)"͠ϣ'"eUo10)"Σͤ _J""h_OI$"A"1310y_TI$"B"1425_YI$"C"1540_^I$"D"1650_cI$"E"1765_hI$"F"1875_mI$"G"1985_rI$"H"2100_wI$"I"2210`|I$"J"2320`I$"K"2395#`I$"L"25054`I$"M"2615E`I$"N"2730V`I$ Π͠"R 7)" ͠͠"R 7)" Σ͠Π"R 7)" ΠΥ"R 7)" ͠ΠΥ"S 7)" ΣͧΠΠ"&S7)" Πͤͧ"ES7)" ͠Π͠Ч"eS 7)"͠Χ"S  Σ "]9)" "]9)" "]9)" "]9)" "]9)" >>"^9)" Σ "^ 9)" ֥ "2^9)" "K^9)" Πͥ Υ"d^ ͤΠ"Pz 9)"͠Π͠"P 9)" ͠Π͠Р"P 9)"Σ͠Π"P 9)" Π͠Π͠"P 9)"͠Π͠Р" Q 9)"͠Р͠")Q 9)"Π͠"FQ 9)"͠͠"dQ 9)"ͤ"Q 9 u[5)"͠Π͠Р"[5)"͠Π͠Σ͠Π"[5)"ͥ͠Π͠Π͠"[5)"͠Π͠͠Р"[5)"͠͠ΠΠ" \5)"͠Π͠Р",\5)" ͠Π͠"M\5)"͠͠"o\5) d GEOGRAPHY, CC BOOK 2Cn FIT TO PET BY ANDY GAMBLE NOV 79KxI0[:59468,12r COLUMBIA COLLEGE 1619W 10 AVE VANCOUVER BC(147)" GEOGRAPHY"::" PLEASE WAIT A MINUTE!"A345B$(346),U$(346) I2 Π"}Y712)"'"Y<12)" "YA12)"ΣͥΣР"YF12)"ͤΠͤΠΠ"YK12)"ͤ͠Π"ZP12)"Π"ZU12)"͠"5ZZ12)"͠ "NZ_12)""gZd12)" W6)" Υ"W6)"ͤΠΥ"W6)"ΠͧΠΥ"W6)"ΠͤΠ"W6)" ͠Π͠Π" X6)"͠Р͠"CX6)"Π͠"gX6)" ͤ G "A LOCATION WHOSE FIRST LETTER IS THE SAME AS THE LAST LETTER ";d "OF THE WORD BEFORE.":x ""FOR EXAMPLE:" ," DELHI-IRAN-NEBRASKA-ATHENS " 6:"YOU WILL PLAY AGAINST THE COMPUTER.ONLY THE FOLLOWING CATEGORIES "; @"ARE ALLOW "Ut10)"Π͠Χ"Uy10)"͠͠"U~10)"͠Р͠"U10)"Π"U10)" ͤ"V10)" "V6V6)" Σ"PV6)""jV6)"Σ͠ "O"2840g`I$"P"2950x`I$"Q"3065`I$"R"3175`I$"S"3285`I$"T"3400`I$"U"3510`I$"V"3625`I$"W"3735`I$"X"3845aI$"Y"3955aI$"Z"4065(aI$"@""":1220caIFI$="*"THENPRINT" 7)"Π͠"S7)" ͤ"S7)" "S7)" "S$ T)10)" "$T.10)" Π">"f]9)" 0345:U$(I2)"":I2" II1:B$(I); I345B$(I)"*"240D 210} : "DO YOU NEED INSTRUCTIONS (Y/N)";A$:A$"Y"420 (147)"THIS IS THE GAME OF GEOGRAPHY.": "ONE PLAYER NAMES A GEOGRAPHICAL LOCATION. THE OTHER PLAYER MUST NAME "; "Zi12)" "ZnZs5)" "Zx5)""Z}5)"ͥ"Z5)" "[5)"Σ͠"9[5)"Πͥ"W[5)"Σ͠Π͠Π͠" 7)"͠"C 7)"͠"C 7)" "C 7)" "D 7)" "AD 7)" ͠ "dD 7)" "D 7)" "A 7)"͠"A 7)"͠"A 7)"͠"B 7)"͠"6B 7)"͠"YB 7)"͠"_B eB yB 7)" ΣͤB 7)"Πͥ 11)"ΠΠ͠"L 11)"'ͥ"L 11)" ͤ"L 11)"ΠͤΠΠ"L 11)"ͤΤΠ"M 11)"Π"1M 11)" "KM 11)"͠"dM 11)"͠"}M 11)" ΣΣͥΠΣ? 8)" ͤͤͤΠ? 8)" Π?# 8)" ͠ @( 8)" ͠$@- 8)" "*@2 0@7 B@< 7)" Σ"V@A 7)"Πͤ"k@F 7)"Σ͠"@K 7)"Π͠Π"@P 7)"Π " ͠"JI " "JN " "KS " "AKX " "mK] " "sKb yKg "= 8)" ͣ"= 8)" ͠"= 8)" ͠"= > 8)" Σ/> 8)" F> 8)" ]> 8)" t> 8)" > 8)" > 0)" H 10)" H 10)" H 10)"ΥH 10)" H H H H "Σ" I " Π"%I "ϣ"BI "ͤ"`I "ΠΠ͠"I "Π  ";= " ^ ";B " _";G T17;L ;Q T;V ;[ 8)" Σ" <` 8)" "" 8)" > 8)" Σͥ> 8)" Σͥ ? 8)"Σͥ"? 8)"ΠB? 8)"Π Σb? 8)" Π? 8)" ΠΠ? 8)"Σ "I! "ͤ"I& "֤ͧ͠"I+ "͠ΠΥ"J0 "͠Π")J5 "Σ"NJ: " "tJ? "Π "JD < 8)"͠͠"< 8)"͠͠ ͥ"< 8)" Σ͠͠'"< 8)" Π͠͠ "= 8)" ͠Π͠"+= 8)" Σͧ͠"E= 8)" Π͠Ч"`= 8)" ͠ΠͥΧ"|= 8)"͠Σ͠͠"= 8)"ͥΠ  G 10)" G 10)"G 10)" G 10)" H 10)" H 10)" 0H 10)" CH 10)" UH 10)" fH 10)" vH 10)" H 1 O9 7)"͠"O> 7)" ͠"OC OH OM OR 9)" "OW 9)""O\ 9)"Σ"Pa 9)"͠Р"-Pf 9)"Σ͠"DPk 9)"ͧ"\Pp 9)"͠ΠΣͥ"tPu 9)"Σ͠ "EO 6)"͠"ET 6)" "EY 6)" "F^ 6)" "&Fc 6)" "HFh 6)" "kFm 6)" "Fr 6)" Π.12)"Π.12)"͠Π /12)"͠Π&/!12)" Π>/&12)"V/+12)"n/012)" /512)"/:12)" /?12)" ,14)" ͠͠,14)"͠-14)"͠-14)"Χ͠ϣͥ/-14)"Π͠D-14)"͠ΠͥΠY-14)"͠Πn-14)" ͠-14)"ͤ-14)" -14)" ͠"7" ͠"8" ͠"@8" "F8L8k8" Σͤ"8" "8" Π*;8)" ͥ*@8)"̤+E8)" ͠ 1+J8)" O+O8)" n+T8)" +Y8)" +^8)" +c8)  "5C" ͤ"5H" Σ "6M" ΠΠ"06R" ͤ"Q6W" ͤ"r6\" Р"6a" ͤΧ"6f" (4)" ͠Πͤ͠ΠΥ(4)" ͠Π )4)" ͠ΠC)4)" Πg)4)" ͠͠)4)" ͠)4)" )4)" 3"Π͠"3""4" ͤΠ"B4" ͣ"k4 " ͠"4" ͠"4"  ͠&s8)" 'x8)" ͠3'}8)" V'8)" z'8)" ͠'''4)" Σ͠Σ'4)" ͥ'4)" 5)" ͠"15)" ͠"25)"͠":25)" ͠"a25)" ͠"g2m22" "2" Π "2 " "9" ͤ ":" ",:" "T:" "}:" ":" /D12)"/I12)""/N/S5)" Σ"0X5)""#0]5)"͠Π">0b5)"Σ͠͠Σ "Z0g5)" ͠ΠͥΠ֥"w0l5)"͠Π͠͠Υ"0q5)" Σ͠͠ΠΠ"0v5)" ͠Π͠ΠΥ -14)" --12)" .12)" ΤΤΤΤ.12)" 7.12)"ΥQ.12)" l.12)"ΠΠΠΠ.12)"ͤͤϣ.12)"Πͤ. 12)" "8" Σ͠Υ"8" ͠ΠΠΥ"9" ͠ΠͥΧΠϥ"09" ͠͠͠Υ"Q9"͠Π͠ΣΠ"s9" ͥ͠Υ"9"͠͠"9 " +h8)" +m,r,w14)" (,|14)" <,14)" P,14)" d,14)" x,14)" ,14)" ,14)" ,14)"  Π ͠"6k" ͠"6p" ͤΠ"!7u"ͤ "G7z"͠"n7" ͠"7" ͠"7" )4)" )4)" )** *8)" )*8)" Τ<*8)" ΠP*8)"Υe*"8)"ΠΣ͠{*'8)" ͠*,8)"*18)" *68)" ͤ͠  ͠"4" ͠"5 " ͠"G5%" ͠"v5*" "|5/5459" Σ"5>"  ͠͠Π'4)" Σ͠Π͠(4)" ͠͠Π (4)" ͠͠Π͠>(4)" ͠Π͠͠](4)" Σ͠͠Π}(4)" ͠Π͠Υ(4)" ͠Π͠ΠΥ(4)" ͠͠ΠΠ " ΠΠ "2" ͤ"2"֤ "3" "?3"ͤΥ"a3" Π͠"3"͠"3" ͤΥ"  ":" ": " "+; " "1; ;; 2210D; ""O; X14X; ""_;$ Xo;) " ";. " ";3 " ";8 " "0{5)" ͠Πͤ͠͠Σ"05)" ͠͠Υ"15)"͠Π͠Π"&15)" ͠Π"E15)" ͠"e15)" ͠͠"15)"͠"15)" ͠"1 RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"&1093:F  ** T I T L E P A G E **z""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:, "" NOW I WILL TEST YOU TO SEE""#" HOW WELL YOU KNOW THEM."3#A1:"":835F#R(25(1))1W#R12I$"L"h#R23I$"W"#P$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"#I$(P$,R,1)#4170#""; 64  835:850*" HIS IS A PROGRAM TO TEACH PEOPLE"[" HOW TO USE FINGER SPELLING TO SOCIALIZE"t" WITH EACH OTHER."}D835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGR 2127,141:2128,21:2129,3!UU48: DISABLE STOP KEY!800: TITLE'!300: MENUX!"THE PGM WILL NOT WORK ON THIS MACHINE!":!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **!"";::(50003)053281,6:53280,14!L*BY JOSH ROTHACT:"" OMMODORE USINESS ACHINES"=" 3370 HARMACY VE.a" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: INGERSPELLING "":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **V1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551093,Y LOOK IN FINGER SPELLING."5" FTER YOU THINK THAT YOU KNOW THEM"a" FAIRLY WELL, YOU MAY THEN PRESS THE"" @ KEY AND WILL TEST YOU SO YOU MAY"" IMPROVE YOUR NEWLY AQUIRED SKILL."835UZ11115:217 ** TE9:U2210:U3211:U4214:UC204:UU2048:(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198^UD$""UP$" "UT$" ": PROGRAM TITLE ** SET VARIABNR ** PAGE DESIGN ROUTINE ** TUPUP14W""(UT$UP$,21);(UP$UG$(UP),18)c\" --------------------------------------"r`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUO,0:"":k ** PLEASE WAIT REMARK **" IT'S "I$$ " "%835%1240&%8)" =%#8)" U%(8)" Σͥ n%-8)" ͥ %28)" '%78)" %<8)" %A8" ."  @0" ^2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE  #" WHAT LETTER IS THIS. PRESS (*) FOR MENU ? ";&$US$"ABCDEFGHIJKLMNOPQRSTUVWXYZ*":UL1?$35:G$UR$:G$"*"]$G$I$" THAT'S RIGHT!"$" "$G$I$835$G$I$1240$ " SORRY IT'S NOT "G$AM OD":850UZ1UP%:217- ** TO USE 8032 LOAD CBM4032 **c"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 **"BEFOREMAN,UNIV. OF MICH.*!""""";R"" PRESS A LETTER THAT YOU WOULD LIKE TO SEE. PRESS (*) FOR MENU ";"US$"ABCDEFGHIJKLMNOPQRSTUVWXYZ@*":UL1:35:I$UR$:I$"*""I$UR$"I$"@""":1220"4170"1200" RITTEN Y : OSH OTHMAN/" PGRADED Y : Z" HIS PROGRAM WILL RUN ON ANY" à2.0 " 4.0 Ԡ" 8032 " 88:1094,228:1097,85:1102,228:965 (50003)19908 1093,49:1094,230:1097,46:1102,230:965r 2099,141:2100,20:2101,3:2103,8:2104,141:2105,21 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141 2123,20:2124,3:2126,234:ACHER INSTRUCTIONS **/"":UT,UL%:(50003)053281,2:53280,10PUP0:UG$"EACHER NST":850~" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTLES **900::  ** CHECK FOR 8032 **("":"": SHIFTED SPACE?(UB40)96700X ** MEMORY CHECK **l (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71 p(UD$,24);" ONE MOMENT PLEASE... "u0 ** SET UP VARIABLES **zUX$"":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U120 )" Σ %F8)" Σ͠Π &K8)"Π͠ $&P8)"͠Π >&U8)" ͠Ч Z&Z8)" ͥΧ ͠v&_8)" ͣ &d8)" ͤ &i8)" ͠&n8)" LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0=<A$:A$" "II1:I250828a>T1$"":T2$"":T3$"":T4$"":I0j@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844   X15&A0:B0:C0:T10:G10:"BOWLER"XR"YEAR TO DATE:"h("TOTAL PINS";p2T1<"# OF GAMES";FG1P"OLD AVERAGE"(T1G1)d"GAME 1";Ax"GAME 2";B"GAME 3";CSE(X)ABC T2(X)SE0F20"** NO LINES FOUND **" 1:2000:4-$P$P$A$:25006.810N8 SKIP TO NEXT LINEdB#1,A$:A$""710nL1090 CLOSE OFF CURSOR EXPRESSIONF102040B0P$P$((B1),2):2500B0:F10:B1$"":P$P$P2$:2500:F$P1  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **# +++ INPUT SECTION +++(UO,0:UR$"":UI$""  C((A$,1)):C1((C48C57)(C65C90))A37-$P$P$A$:25006.810N8 SKIP TO NEXT LINEdB#1,A$:A$""710nL1090 CLOSE OFF CURSOR EXPRESSIONF102040B0P$P$((B1),2):2500B0:F10:B1$"":P$P$P2$:2500:F$P1HELP REQUEST +++4 ZUR$UX$195: EXIT TO HELP ROUTINEC _UF1240P dUF0::i f ++ CHECK DELETE ++z i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(4,M$;P$:P$(L)" "  START TEXT HERE0*#1,A$:A$""710Q4T0:A(A$):A32F$","840n>Q0(A127)31T70900HJ040:AA(J)B$A$(J):860RJ:1000\B$B1$BB1:810fB0A$((B1),2)F$B$:890pA$F$B$zB0:B UI$"":* UF1: +++ HELP ROUTINE EXIT +++3 250< 245[ UQUB(U2%256U1%U3%2)w UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14 UT$UL$:"";:UT,UV%:UQST TO PRINTER N";Z$>bP3:(Z$)89P4:L$"":P3$(219):P4$(221)olP1$"[":P2$"]":"GRAPHICS OR TEXT G";Z$v(142):(Z$)84(14):M$L$:P1$P3$:P2$P4$"TRANSLATE CURSOR MOVES ";Z$(Z$)89T714,P:F$P1$J8 "PLAYER 5"(AV(5)). B "TONIGHT'S TOTAL"T5"NEW TOTAL PINS "T2(X)o 6"NEW AVERAGE "(AV(X)) "F1 FOR NEXT PLAYER F3 TO START OVER" A$:A$""510 A$(134)20 A$(133)530 510 XUJ$US$:UK$UG$:UL$UT$:UJUP:UKUL"3, ** MENU **9-:h."":UT,UU%:(50003)053281,9:53280,8n/:1" MENU"6" --------------------------------------";" 1. FINGERSPELLING"@" 2. (X)T1 AV(X)T2(X)(G13)1 "SERIES "SE(X)O ,"NEW TOTAL PINS "T2(X)o 6"NEW AVERAGE "(AV(X)) "F1 FOR NEXT PLAYER F3 TO START OVER" A$:A$""510 A$(134)20 A$(133)530 510 Xc(UR$)1000,400,500,396h300: ** RE-ENABLE STOP KEY AND END **i(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)05328 *UL0UL80 -UC,0* 2UI$:UI$""50T 7UI$(13)(UR$)1UC,1:" ";:85g <UI$(20)105{ > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ V +++ CHECK FOR $ (P$)L92600 JL9L9.61/ (P$,J,1)":"2580I J:JL91L9.611Z P((P$,J))i P912580 P59P44P93JJ1:2580 J:JL91 4,M$;(P$,J1) P$" "(P$,J)(  (P$)0F21:4,M$;P$ US$) UI$(US$,US,1) ( UI$"":C ** STANDARD INPUT **T (UI$)46e UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): 1$B$:F$",":F11:1010 AA128:A0Q010007A127A$"":1000HT1:A$K$(A)VA15Q2`2010tA$(34)Q1Q C=-1 FOR ALPHANUMERICC((A$,1)):C(C48C57)(C65C90)TT1T1T1T:CC1P$P$" ":2500 UB(U2%256U1%U3%3)! UQ,UQ%(UQUB):- U1,U1%9 U2,U2%E U4,U4%S U3,U3%1[ 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)80:P36900"":"++++++++++++":J181:(1024J)32JML940:4,"PROGRAM: ";G$[NEW LINE2010:Q0:T11:C11:#1,A$,B$:ST03000B$""3000#1,A$,B$L(A$(0))(B$(0))256LL11080LL23000F21:1,0:53280,0UP0:UG$"TUDENT NST":850H" HIS IS A PROGRAM TO TEACH PEOPLE"o" HOW TO USE FINGER SPELLING TO"" SOCIALIZE WITH EACH OTHER. IRST YOU"" MAY ENTER LETTERS OF THE ALPHABET AND" " WILL SHOW YOU HOW THE STUDENT INSTRUCTIONS"2E" 3. TEACHER INSTRUCTIONS"NO" 4. QUIT"}T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_(UR$)1300`US$"" / \I(AV(1))(AV(2))(AV(3))(AV(4))(AV(5))9 fJI5^ pT5SE(1)SE(2)SE(3)SE(4)SE(5)w "AVERAGES"  "TEAM "(J) "PLAYER 1"(AV(1)) "PLAYER 2"(AV(2)) "PLAYER 3"(AV(3)) "PLAYER 4"(AV(4)) D YOUR ENERGY."8 S$(69)"HY DO CAR REPAIR PLACES NEVER HAVE YOUR CAR READY ON TIME?"R S$(70)" FEEL FINE."i S$(71)"ET'S GO!" S$(72)"HE PLANE IS ON SCHEDULE." S$(73)" NEED A NEW ENGINE." S$(74)"EXAS NSTRUMENTS WENT BANKRUPT A PEDIGREED DOG." S$(48)"Y DOG HAS FLEAS."3 S$(49)" GOTTA GO HOME."V( S$(59)"HEN WILL WE BE DONE?"2 S$(60)"AIL BITER'S SHOULD HAVE SCULPTURED NAILS."< S$(61)"EE MOM WANNA GO HOME."F S$(62)" FIND LOVE IS MAKING MUSIC WITH  53281,1> " UNIVERSAL LISTER":""l" COMMODORE 64":T12000:T COMPUTE DEC 82d19,147,17,145,29,157,18,146,20,148,141,32n80-COLUMN CURSOR STUFFx7,21,149,22,150,14,142,25,15315,143  7)"ARMER RIGHT GROWS POTATOES IN HIS MANSION."> S$(38)"ARMER RIGHT IS CRAZY."k S$(39)"ACK'S VACUUM CLEANER IS BROKE." S$(40)"ELEN STAYS OUT PAST HER CURFEW." S$(41)" RAYS ARE NOT FUN, ESPECIALLY DENTAL X RAYS." S$(42)"IT OK,WHITE,RED,CYAN,MAGENTA,GREEN,BLUE,YELLOWO LOCK,UNLOCK,F1,F2,F3,F4,F5,F6,F7,F8h A(40),A$(40),K$(90)} J040:A(J):J J040:A$(J):J END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,RUN,IF,RESTORE,GOSUB' RETURN,REM,STOP,ON,WAITO KEEP THE CHEERLEAERS FROM GRAZING"-S$(28)"IMME A BREAK."bS$(29)"T IS VERY EXPENSIVE TO RUN A BUSINESS."S$(30)"E LOVE OMMODORE USINESS ACHINES." S$(31)"HIS PROGRAM USES RANDOM NUMBERS TO SELECT SENTENCES." S$(32)"HEN 96)"HE CHECK IS IN THE MAIL." S$(97)"IME IS MONEY."2 S$(98)"ASTE NOT WANT NOT."W S$(99)"HO CARES WHAT HAPPENS?"q S$(100)" AM BROKE."54296,15: VOLUME54275,5 : HI PULSE V154274,15: LO PULSE V154273,43: ITH THE FORTUNE SEND IT ON PAYDAY?"WS$(19)" WISH HAD INSURANCE ON MY CAR WHEN IT WAS STOLEN."S$(20)" LOVE CANDY. WISH IT WAS NOT FATTENING."S$(21)"HE OMMODORE 64 IS THE BEST COMPUTER FOR THE MONEY."S$(22)"LVIS DIED UGU(85)"HYSICS IS MY FAVORITE CLASS."56 S$(86)"RINTING COSTS HAVE GONE UP CONSIDERABLY."V@ S$(87)"AKE THE TRASH OUT."wJ S$(88)"HAT IS IMPOSSIBLE."T S$(89)"OFFEE MAKES ME NERVOUS."^ S$(90)"O ONE WITH AN ENQUIRING MIND WOULD READ THE CONCATG ,DOPEN,DCLOSE,RECORD,HEADER,COLLECT,BACKUP,COPY,APPEND,DSAVE,CATALOGe 6RENAME,SCRATCH,DIRECTORY{ @J089:K$(J):J 1:"NAME OF PROGRAM FILE";G$ 1,8,3,G$",P,R" #1,A$,B$ A$(1)A$""400 A$""A$(1):#1,X$ ."$ S$(75)"HATS GOOD FOR ENERAL OTORS IS GOOD FOR THE COUNTRY."L S$(76)"ERRI IS IN TROUBLE AGAIN." S$(77)"HIS IS THE THIRD TIME HAVE BEEN HERE." S$(78)"ILLIE WHERE ARE YOU GOING?" S$(79)"Y FAVORITE MAGIZINE IS !"MY FRIENDS."P S$(63)"OUSE PLANTS MAKE A HOUSE A HOME."EZ S$(64)"ILDCATS ARE MEAN ANIMALS."xd S$(65)" LIKE PARMESIAN CHEESE ON MY PIZZAS."n S$(66)"OAN LIKES TO EAT HAMBURGERS."x S$(67)"Y CAR NEEDS A TUNE UP." S$(68)" WISH HA VIC STUFF+ 144,5,28,159,156,30,31,158T 8,9,133,137,134,138,135,139,136,140 HOME,CLEAR,DOWN,UP,RIGHT,LEFT,RVS,RVOFF,DEL,INST,RETURN,SPACE BELL,D.LINE,I.LINE,ER.BEGIN,ER.END,TEXT,GRAPHIC,SCROLL.UP,SCROLL.DOWN TOP,BOTTOM& BLACUT OF HERE BEFORE THE LAW COMES."I S$(43)"HAMPAGNE MAKES HERYL VERY HAPPY AND SO DOES MONEY."n S$(44)"E HOME BY 11 O' CLOCK!" S$(45)"243 ONES VE., ADSDEN 35902" S$(46)"Y MOTHER DRIVES A AZDA 7." S$(47)"Y HASA PSO IS T,LOAD,SAVE,VERIFY,DEF,POKE,PRINT#,PRINT,CONTn LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN,NOT,STEP +,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR,FRE,POS,SQR,RND,LOG,EXP,COS "SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$,GO, GET OUT OF JAIL AM GOING TO GET YOU."F S$(33)"EBRAS LOOK LIKE FOUR LEGGED REFEREES."o$ S$(34)"HAT TABLE IS QUITE QUAINT.". S$(35)"HE COURTROOM MUST BE QUIET."8 S$(36)" AM GOING TO QUIT IF YOU DO NOT GIVE ME A $30.00 RAISE." S$(3 HI FREQ V154272,52: LO FREQ V154278,144: SUS/REL V1354282,5: HI PULSE V2O54281,14: LO PULSE V2l 54280,130 : HI FREQ V254279,30 : LO FREQ V254285,85 : SUS/REL V2(54284,22: ATT/DEC/V2!" S$(ST 16, 1977."%S$(23)" AM TIRED OF THIS RAT RACE."LS$(24)"OG IS MAN'S BEST FRIEND."yS$(25)"OU NEED A PLAN FOR EVERYTHING."S$(26)"HEY ARRESTED MY FRIEND FOR VAGRANCY BUT IT WAS A BUM RAP."S$(27)"E INSTALLED ASTROTURF AT & ATIONAL NQUIRER." h S$(91)"UNK FOOD IS FOR ME."Ar S$(92)" AM NOT GOING TO GO TO WORRK TOMORROW."x| S$(93)"MERICAN ISTORY IS A FACINATING SUBJECT." S$(94)"NCLE ICTOR IS NEW TO THE BUSINESS." S$(95)"TS TIME FOR THE RACE!" S$("LINE NUMBER RANGE -";Z$* L00:L10:L21E9F J1(Z$):Y$(Z$,J,1)c Y(Y$):Y48Y57510q Y32510 L0J:Y45600 J L0(Z$)L2((Z$,L01)):L20L21E9 L01L1(Z$) L00L1L2 XP3$"[":P4$"]":"LI S$(80)"UR HOUSE IS A MESS."+ S$(81)"OLLEGE FOOTBALL IS VERY EXCITING."f S$(82)"HE COMICS ARE MY FAVORITE PART OF THE PAPER." S$(83)"OHNNY HAD TO STAY AFTER SCHOOL."" S$(84)"HE WISHBONE OFFENSE IS A VERY EFFECTIVE OFFENSE.", S$  3000 S$(50):C$(50)O "HOW MANY QUESTIONS DO YOU WANT"a "";N"OK HERE ARE THE ANSWERS.....T12000:6X1507S$(X):C$(X)<X dALABAMA,MONTGOMERY,ALASKA,JUNEAU,ARIZONA,PHOENIX,ARKANS 54272,S8T150:54276,16Z15:7S)"CORRECT!!"? SH""WS2311e54276,17t54273,S654272,S854276,16Z15:S)"CORRECT!!" SPSA54296,0" b " .l " 7q ::dv "  "  "  " ݠ ݠ   50#YY1:YL" ":5754T$:T$""3[T$(S$,Y,1) (157)T$(164);:2T$(S$,Y,1) (157)T$(164);:2T$(S$,Y,1)54276,65:54276,64:EE1 32S$(100):E2:L1:D0d(14)2000 ,X((1)100)1: X I KEEP STUDYING":2599, PR70," GOOD!":2599Q PR90," VERY GOOD!":2599\ :::g Y15 " OUTSTANDING!" T1500: " " T1500: Y " OUTSTANDING!" T1"EL " (141)S$:E0, TI$"000000": L(S$)1G (164);N 2f ?54283,65:54283,64v D T1250: NE0 54283,65:54283,64 X CALCULATIONS lWLTI qELE vWL(L(TI450)): LAST WPM WTWTWL:DD1: D IS DIVIS R%((1)50)1 G%R% J1N* G%G%1: G%51G%1 " WHAT IS THE CAPITAL OF "S$(G%)"?" "";A$ A$C$(G%)CC1:5000 A$C$(G%)"WRONG THE CAPITAL IS""RY, WHEN DID YOU GET BACK IN TOWN?"E S$(3)"I ILL, ITS NICE TO SEE YOU."v S$(4)"ET YOUR SWIMSUIT ON AND LET'S DIVE!" S$(5)"HE POKEY IS A BAD PLACE TO BE ON ATURDAY NIGHT." S$(6)"IMMY, WILL YOU BE AT THE DANCE TONIGHT?"3 S$(7)"CORD,NEW JERSEY,TRENTON,NEW MEXICO,SANTA FEt NEW YORK,ALBANY,NORTH CAROLINA,RALEIGH,NORTH DAKOTA,BISMARK,OHIO,COLUMBUS OKLAHOMA,OKLAHOMA CITY,OREGON,SALEM,PENNSYLVANIA,HARRISBURG RHODE ISLAND,PROVIDENCE,SOUTH CAROLINA,COLUMBIA,SOUTH DAKOTA,HT A SPEEDER DOING 100"[>S$(11)"HEN GET HOME AM GOING TO SLEEP AND WON'T GET UP FOR A WEEK."HS$(12)"EXT WEEK 'M GOING TO BE AUDITED BY THE NTERNAL EVENUE ERVICE."RS$(13)"IN'T AIN'T NO WORD SO AIN'T GONNA SAY AIN'T NO MORE.":AS,LITTLE ROCK` iCALIFORNIA,SACRAMENTO,COLORADO,DENVER,CONNECTICUT,HARTFORD,DELAWARE,WILMINGTON nFLORIDA,TALLAHASSEE,GEORGIA,ATLANTA,HAWAII,HONOLULU,IDAHO,BOISE sILLINOIS,SPRINGFIELD,INDIANA,INDIANAPOLIS,IOWA,DES MOINES,KANSAS,TOPEKAA xKENT-"C$(G%)"!"T12000:2100 " BY\ " MIKE WILLISm T15000:Ts y54296,15:54277,134:54278,134""SA13""S12754276,1754273,S5 " 6 " BY\ " MIKE WILLISm T15000:Ts y54296,15:54277,134:54278,134""SA13""S12754276,1754273,S5S THE SUBSCRIPT FOR SENTENCE' ^S$S$(X)6 cS$""300> hY0p " " " " " OTAL "WPM" CURACY"AC"%" " " AST "WL" RRORS5000:'  ""0 " W& " 0 " : " ݠ D " N ::X " OR FOR WPM CALCULATION1 WPM(WTD): TOTAL WPM CALC= LTLLTJ ETELETW ACETLTc AC1ACs ACAC10000 AC(AC.5) ACAC100 T11500: 300 S$(1)"ELLO HERYL, HOW WAS YOUR DAY AT THE BEAUTY SHOP?" S$(2)"AR"C$(G%)A$C$(G%)WW1(*T15000:04 J\ "YOU GOT"C"OUT OF"(CW)"CORRECT"l T15000:{ PRC(CW) PRPR100 PR(PR) "YOUR PERCENTAGE IS"PR"%" PR20,"GO BACK TO SLEEP":2599  PR50," HE LAST TIME WAS HERE YOU WERE KNEE HIGH TO A GRASSHOPPER."s S$(8)"AD, 'D RATHER PLAY THAN DO MY HOMEWORK." *S$(9)"ACHINE LANGUAGE IS AS MUCH AS ONETHOUSAND TIMES FASTER THAN ." 4S$(10)"AST WEEKEND THE TATE ROOPERS CAUGPIERREK TENNESSEE,NASHVILLE,TEXAS,AUSTIN,UTAH,SALT LAKE CITY,VERMONT,MONTPELIER VIRGINIA,RICHMOND,WASHINGTON,OLYMPIA,WEST VIRGINIA,CHARLESTON,WISCONSIN,MADISON WYOMING,CHEYENNE X150  ,C$(X)", "S$(X) T1200:  X\S$(14)"HEN GOT OFF THE PLANE FROM TLANTA WAS SCARED TO DEATH!"qfS$(15)" LOVE TO LAY OUT ON THE BEACH AT ESTIN."pS$(16)"EVER SAY NEVER."zS$(17)"HY IS THE WEATHERMAN ALMOST NEVER RIGHT?"S$(18)"HAT DOES THE GOVERNMENT DO WUCKY,FRANKFORT,LOUISIANA,BATON ROUGE,MAINE,AUGUSTA,MARYLAND,ANNAPOLIS }MASSACHUSETTS,BOSTON,MICHIGAN,LANSING,MINNESOTA,ST PAUL,MISSISSIPPI,JACKSON MISSOURI,JEFFERSON CITY,MONTANA,HELENA,NEBRASKA,LINCOLN,NEVADA,CARSON CITY% NEW HAMPSHIRE,CONA lMISC. #24CK2ASTATES & CAPITAL TYPING TUTORWEATHERMANFRACTIONSPROGRAM LISTER BOWLERS DATAFINGER SPELLING[EXPANTANCY/KKALPHABETIZEWORLD CAPITALS. GEOGRAPHYDISK PRINTERNATIONAL ANTHEM QUICKSORT MORSE CODE TIMER KK RECIPE CONVERSIO2 DRIVE COPY 4 MINUTE COPY BACKUPDISK PUB DOMAIN INFOSPRITE EDITOR LONG DIVISIONENTERTAINERKKMENUKKKKKKKK d***WEATHERMAN***<n***WRITTEN BY GLENN PRESCOTT***dx***REVISED FOR BY ED MARCHESCHI***}53280,1:53281,1:53272,21: C64 MODS 1983 BY WIM"***WEATHERMAN***": "SELECT THE PORTION OF THE PROGRAM YOU WAN **TEMPERATURE CONVERSION**":W "INPUT TEMPERATURE AND SCALE SEPARATED BY A COMMA."l "LET C=CELSIUS" " F=FAHRENHEIT" " K=KELVIN" "" R=RANKINE" ,"FOR EXAMPLE: 30,C OR 45,F" 6:"ENTER TEMPATURE,SCALE--" @T,S$ T T4T:450- "INPUT ERROR, TRY AGAIN--":250N " ";T1;"DEGREES CELSIUS"r " ";T2;"DEGREES FAHRENHEIT" " ";T3;"DEGREES KELVIN" " ";T4;"DEGREES RANKINE": &"TRY AGAIN ? (Y OR N)":A$ 0A$"Y"310 :A$"N"1380 "(BELOW COMFORT REGION)":700?C70680:"(IN COMFORT REGION)":700pC80690:"(MARGINAL COMFORT REGION)":700"(UNCOMFORTABLE REGION)":"(BEWARE OF HEAT EXHAUSTION)":"TRY AGAIN ? (Y OR N)":A$A$"Y"600A$"N"1380=";Q;"DEGREES": 4"TRY AGAIN ? (Y OR N)":A$0>A$"Y"750AHA$"N"1380pR" **RELATIVE HUMIDITY & DEW POINT**"v\f"INPUT DRY BULB,WET BULB TEMPS IN FAHRENHEIT DEGREES"p"ENTER TEMP(DRY),TEMP(WET)"zD1,W1:"UW11240W2T2:E2E/E3A(D2W2)(.00066(1.00115W2))Q$H100(E2E3)E1:PE2E3:TD1[.1240i8EP1120uBTT0.1L1240VEP1090`N9(T):N5TN9jN50.51150tTN9:1160~T(T0.5):" TEMP(00000013816(10(11.344(1T3S))1)6 Y.0081328(10(3.49149(ST31))1)OE9VWXY3.0057209_E10(E9):w(V9.09718(IT31)2W3.56654(IT3)<X.876793(1T3I)FE9VWX.785835PE10(E9)Zd"NEW SELECTION ? (LA$"0123456789/UNCLE"YX(TI):53280,1:53281,1:53272,21:"": C64 MOD 1983m TT$"FRACTIONS" "";((40(TT$))2));"";TT$;"" "";12);"BY D. S. COOPER" "";12);"SCHREIBER, 1980""IF YOU WISH TO GIVE UP ON" 2));"";TT$;"":#A& ~"OPTIONS:":#A6 AL$"ABCDE"X "A) REDUCE TO LOWEST TERMS"l "B) MULTIPLY"~ "C) DIVIDE" "D) ADD" "E) SUBTRACT" "PRESS THE LETTER OR LETTERS":#A "OF YOUR CHOICE; THEN PRESS RETURN."50:#A$ CH$(CH$,(CH$)1):A$;:150:#AB :#B;CHOOSE OPTIONS HEREi "DO YOU WANT THE NUMBERS TO BE:" "BIG, MEDIUM, OR SMALL?" "(PRESS 'B', 'M', OR 'S')" A$:A$""220 A$"B"250 A$"M"PH38:PQ3:250 A$"S"T:"% 4)"1. TEMPERATURE CONVERSION"M 4)"2. TEMPERATURE HUMIDITY INDEX"| 4)"3. WIND CHILL EQUIVALENT TEMPERATURE" 4)"4. RELATIVE HUMIDITY AND DEW POINT" :"ENTER YOUR SELECTION--" S : S240,580,730,850 " JS$"C"380 TT1T% ^T2(95)T325 hT3T273.15J rT4(95)T3:510[ |S$"F"420d T2Tx T1(59)(T32) TT1:360 S$"K"470 T3T T4(95)T T2T4459.67 T1(59)(T232):510 S$"R"500 T3(59)# D" **TEMPERATURE HUMIDITY INDEX**":g N"INPUT DRY BULB,WET BULB TEMPS IN FAHRENHEIT DEGREES--" X"ENTER TEMP(DRY),TEMP(WET)" bD,W lC0.4(DW)15: v***T.H.I.=TEMPERATURE HUMIDITY INDEX*** "T.H.I.=";C C60670" **WIND CHILL EQUIVALENT TEMP**""f"INPUT TEMP IN FAHRENHEIT DEGREES, AND WIND VELOCITY IN MPH"oD,UU9U2.23694 D959(D32)Q33(10.4510(U9)U9)(33D9)22.034 Q95Q32:*"EQUIVALENT WIND CHILL TEMPSE STANDARD A TM PRESSURE ? (Y OR N)"A$+A$"Y"970o"ENTER A TM PRESSURE,SCALE (M=MILLIBARS, I=INCHES OF MERCURY)"yA,H$H$"M"980AA0.750062:980A1013.26S373.16I273.16TD11240D2T2:E1E:TDRY)=";D1 " TEMP(WET)=";W1&"TEMP DEW POINT=";TA" REL HUMIDITY=";H:a"TRY AGAIN ? (Y OR N)":A$qA$"Y"860A$"N"1380T259(T32):T3T2273.15T321320V7.90298(ST31)W5.02808(ST3) X.&Y OR N)":A$nA$"Y"130x"TEMP DEW POINT=";TA" REL HUMIDITY=";H:a"TRY AGAIN ? (Y OR N)":A$qA$"Y"860A$"N"1380T259(T32):T3T2273.15T321320V7.90298(ST31)W5.02808(ST3) X."A PARTICULAR QUESTION,"C "JUST TYPE 'UNCLE' AS YOUR ANSWER."^ ""g c110 d"PRESS RETURN TO CONTINUE." eA$:A$""101 f(A$)13101 g"STAND BY": n100 xPH61:PL38:PQ4 }"";((40(TT$)) :CH$"":#A A$:A$""150:#A2 (A$)13160:#AH (A$)20170:#Au KL1:I1(AL$):A$(AL$,I,1)KL2:#A :KL1150:#A CH$CH$A$:A$;:150:#A CH$""150:#A 200:#A CH$""150:#A (CH$)1CH$"":A$;:1 PH30:PL30:PQ2:250 220 A$;""R ,"HOW MANY ITEMS DO YOU WANT IN THIS DRILL";Z 1HMm 6HM(HM)350{ ;HM1350 Y360 ^"ILLEGAL RESPONSE":300 hNQ1:AT0:NW0:NC0:NF0:MK0 m"STAND BY" o DO A GOSUB TO SET UP "THE CORRECT ANSWER IS ";RA$)100:440H&"CLOSE! ";:NWNW1:510ZX"TRY AGAIN."]910:MTTI:100:ATATTIMT:380bNW3:520"";((40(TT$))2));"";TT$;"" OPTION MESSAGE"OPTION(S): ";CH$:#ASC "YOUR SCORE IS ";((SC),2);"%"#NF0760I"(ALSO, YOU RECOVERED FROM";NFw"AN ADJUSTED SCORE WOULD BE";MK;"%)""TOTAL TIME TAKEN WAS";MN0775MN;"MINUTES,":20);SD;"SECONDS." "THAT'S ";((T2),2); 3749,15:33750,3:33751,1133753,9:33754,19:R33756,18:33757,21:33758,14:33759,14:33760,9u33761,14:33762,7:: RUNNINGI93375633762:I9,32:I933756,15:33757,6:33758,6:: OFFCH1((2)(CH$)):CH((CH$,CH,1))6M:2000:CF11210BNM:YDM:2010:1600?2200:2300:DDDM:DVNM:2000:CF11300MANM:XDMz2200:2300:DDDM:DVNM:2000:CF11310#BNM:YDM:2015:1600x2200:2300:NNM:DDM:2005:AN:XD:X11400}2200:2300:NNM:DDM:2005NAY:DXB:2005NAYBX:DXY:2005.NAYBX:DXY:2005G41,1,1,1,1,1,1,1,1,1`52,2,2,2,2,2,2,2,2,2y63,3,3,3,3,5,5,5,5,577,7,7,7,11,11,11,11813,13,13,17,17,19923,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,9::DMDMWW::'"";((40(TT$))2));"";TT$;""8'"#";NQ;19);HM;"ITEM DRILL"T'"OPTION(S): ";CH$;""z$'CH10025,10050,10075,10050,10050)'"IN LOWEST TERMS,".'(A);"/";((X),2);" = ";:B'"(";((A),2);"/";((X),2);")";N$""I(A$:A$""10320J(" ";:MUTIK(TIMU10103152L(A$:A$""10320CM(" ";:MUTIWN(TIMU1010318bO(10313yP(A$"/"KL210313Q(A$"/"10330R(AN$""10313U(KL2:UN$AN$:AN$"":10335Z((A$)13AN$""103131310350(10335(ATATTIMT:920:((A$)20AN$"/"10313K((A$)20A$;:AN$(AN$,(AN$)1):10313V(10334f)KL210333$)(A$)20(AN$)1AN$"":A$;:103136)10333* DECIDE ANSWER STATUS* RIGHT--CD=1* WRONGNFHM2CD3:&NHM5SC100CD2: 'NHM5CD1:(NNCHMCD4:0)NNCNFHMCD2:9NCD1?R_RCD21010,21011,21012,21013eRR"";13);"--WELL DONE--":R"";7);"GET HELP FROM YOUR TEACHER!":R""R14);" TEST r1000:D1370|10000"10300-11000ECD420,500,550,610WNW0NCNC1iNW0NFNF1|NW1MKMK.5NW2MKMK.25"RIGHT":100NQNQ1:NW0:NQHM700370"WRONG. ";:NWNW1NW3600((NC100HM.05)10)10,MK(((NCMK)100HM.05)10)10fMN(AT3600):SN(AT3600MN)60:SD((SN.05)10)10T2(((AT60)HM.05)10)10:T3((NC(AT3600).05)10)10"THIS DRILL HAD";HM;"QUESTIONS,""YOU CORRECTLY ANSWERED";NC" SECONDS PER QUESTION."5"YOU DID";T3;"CORRECT ANSWERS PER MINUTE."G 20000:21000%"DO YOU WANT THE SAME OPTION(S) (Y OR N)?": ?&810-840?&GOTO110?*A$:A$""8104A$"N"120>A$"Y""":300H81033747,3:33748,12:34 CH1100,1200,1300,1400,15007L2200:2300:DDDM:DVNM:2000:CF11100aQANM:XDM:NA:DX:2005:RA$((N),2)TD1RA$RA$"/"((D),2)VRNN:RDD:2200:2300:DDDM:DVNM:2000:CF11200ANM:XDM2200:2300:DDDM:DVN05:BN:YD:Y114052020:1600.1400:RNA:RDX:AN:XD:NRN:DRDg@RA$((N),2):D1RA$RA$"/"((D),2):RNN:RDD:QQ(DDDV):RRDDQQDV:RR0DDDV:DVRR:2000CFDV:DD(N):DVD:2000:NNCF:DDCF:NAB:DXY:207R11(PQ(1))"R21(PH(1)):K11R2:NM:::R11?K12R1:R21(PL(1))aK21R2:WW:::NMNMWW::uR11(PQ(1)) R211((PH10)(1)):K11R2:DM:::R11 K12R1:R211((PL10)(1)) K21R2:WW:G'(" +-",CH,1);L'"(";((B),2);"/";((Y),2);") = ";:A['"(";((A),2);"/";((X),2);")";V`'" DIVIDED BY ";e'"(";((B),2);"/";((Y),2);") IS ";:;(<(900:910:MTTIA(KL1F( PUT INPUTS/GETS HEREG(#M STARTS HEREH(A[((A$)20AN$""10313\(10500 ](10400^(10360_(II1H`(A$(LA$,II,1)A$;:AN$AN$A$:10313fa(IIII1:II(LA$)10336qb(10313zn(" "o(UD$(AN$,2):10399x((A$)13AN$"UNCLE"10350}((A$)13KL110313((A$) --CD=2* CLOSE--CD=3* UNCLE--CD=4+UN$"/"UD$RA$CD1:2+AN$"UNCLE"CD4:P +DD(UD$):DV(UN$):2000v+(UN$)CFRN(UD$)CFRDCD3:\+CD2+ N MESSAGE SECTION!N SELECT VALUE OF CD TO PICK MESSAGE%NHM4NCA"R14);"FANTASTIC" R14);"" R:CD1:2+AN$"UNCLE"CD4:P +DD(UD$):DV(UN$):2000v+(UN$)CFRN(UD$)CFRDCD3:\+CD2+ N MESSAGE SECTION!N SELECT VALUE OF CD TO PICK MESSAGE%NHM4NC  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** ---GENERAL INPUT ROUTINE----::#-----INPUT SECTION----- (: UR$ K FOR HELP REQUEST-----> Z: UR$UX$195: EXIT TO HELP ROUTINEP _: UF1240_ d: UF0::{ f-----CHECK DELETE----- i: (UR$)150 n: UR$(UR$,(UR$)1) s: " ";:50 x-----CHECK FOR VALID CHARACTERS----- }: (US$)015 (UI$)218UI$"":9 : (UT)12(UT)21UI$((UI$)128):B : R : UI$"":{ : UF1:-----HELP ROUTINE EXIT----- : 250 : 245 : UQUB(U2%256U1%U3%2) : UQ%(UQUB)(UQ)::"" : UZ1:UV%(UT) : 300UD$,UD%1):>: (UD$,24);"  HELP COMING ":m: U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UJUL: UJ$US$:UK$UG$:UJUP:UKUL: ,-----MENU------:.: "":UT,UU%:(50003)053281,9:53UIT"(T: " --------------------------------------"VY: " PRESS A NUMBER KEY (1-4) ";^: UL1:US$"1234":35:---INPUT ROUTINE---`: US$""c: (UR$)1000,400,500,396h: 300-----RE-ENABLE STOP KEY AND END-----HIS PROGRAM WILL GIVE YOU AN"2" ESTIMATE OF THE AGE YOU ARE"\" EXPECTED TO LIVE TO, ACCORDING"" TO THE ANSWERS YOU GIVE."" EMEMBER TO PRESS AFTER"" EACH ANSWER.": 835: UZ1UP%:217 IS NOT THE CASE": " PLEASE CONTACT:"G: " OMMODORE USINESS ACHINES"m: " 3370 HARMACY VE.: " GINCOURT, NTARIO": " ANADA 1 24": " (416) 499-4292"UP1: 8032 #" 64 4 : 835:850a " LESSON COULD BE STRUCTURED" " AROUND THIS PROGRAM BY EXPLAINING"" HOW EACH OF THE FACTORS EFFECTS"" THE HUMAN BODY AND IT'S LIFE EX BEFORE RUNNING THIS PROGRAM ON AN 8032 E" LOAD THE 'CBM 4032' PROGRAM"S: UU71\: |  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:3," U."  v0" 2" 4"C O M M O D O R E6"EDUCATIONA"":UI$"" *: UL0UL80( -: UC,0? 2: UI$:UI$""50l 7: UI$(13)(UR$)1UC,1:" ";:85 <: UI$(20)105 >: (UR$)UL 50 A: 120: CHECK FOR VALID CHARACTER F: UR$UR$UI$ K: UI$; P: 50 U-----CHEC0 : US1(US$)+ : UI$(US$,US,1)4 : D : UI$"":b -----STANDARD INPUT-----w : (UI$)46 : UI$(32) : (UI$)48 (UI$)57170 : : (UI$)65 (UI$)90180 : : (UI$)193 : UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14j : "";:UT,UV%:UQUB(U2%256U1%U3%3) : UQ,UQ%(UQUB): : U1,U1% : U2,U2% : U4,U4% : U3,U3%1 : 35: UD%((U2%256U1%U3%)UB)40:(280,8/:1: " MENU"O6: " --------------------------------------"};: " 1. BEGIN LIFE EXPECTANCY"@: " 2. STUDENT INSTRUCTIONS"E: " 3. TEACHER INSTRUCTIONS"O: " 4. Q: (50003)1(50003)160(50003)0399I: UU71:(50003)053281,6:53280,14X: "":f: 875:-----STUDENT INSTRUCTIONS-----: "":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST.":850 " : -----TEACHER INSTRUCTIONS-----H: "":UT,UL%:(50003)053281,2:53280,10n: UP0:UG$"EACHER NST. ":850: " O THE BEST OF OUR KNOWLEDGE,": " THIS PROGRAM IS IN THE PUBLIC": " DOMAIN. F THIS 835: 850:" ROGRAM AME: "UT$"";" RITTEN Y : NDY AMBLEc" PGRADED Y : YNDA ONANNO" HIS PROGRAM WILL RUN ON ANY" à2.0 " 4.0 Ԡ"  -"" PECTANCY.": 835N: UZ1UP%:217%W: NX-----PROGRAM MODIFICATION INST-----bY: "":UT,UL%]: UP0:UG$"ROGRAM OD":850: 835: UZ1UP%:217: -----TO USE 8032 LOAD CBM4032-----" L8"SOFTWARE: ** COMMODORE LOGO **Q;(UD$,24);"PRESS SPACE BAR OR WAIT":I0s<A$:A$" "II1:I250828>: T1$"":T2$"":T3$"":T4$"":I0@: 300C-----SPACE BAR PRESS-----H: (UD$,24);" H "f: "":k-----PLEASE WAIT REMARK-----Op: (UD$,24);" ONE MOMENT PLEASE... "Xu: x-----SET UP VARIABLES-----: UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024: UT59468 ": UT$" Š": -----SET VARIABLES-----&: 900,:J-----CHECK FOR 8032-----k: "":"": SHIFTED SPACE: (UB40)96700-----MEMORY CHECK-----: (0)2000937: "THIS MACHINE 99,144:1100,234:1103,133 1104,145:1105,234:1082,234& : (50003)160955X : 1093,88:1094,228:1097,85:1102,228:965p : (50003)1990 : 1093,49:1094,230:1097,46:1102,230:965 2099,141:2100,20:2101,3:2103,8:210": UZ1UP%:UP%:UZ0:-----PROGRAM STARTS HERE-----/""";:(50003)053281,6:53280,14E" LIFE EXPECTANCYU" CC BOOK 2}" FIT TO PET BY ANDY GAMBLE SEPT 79" COLUMBIA COLLEGE" 1619 W10 AVE VANCOUVER BC""":UT,UL%#jR51:UP0#tZ72:A$"ABCDEMGPIJKLFNO"#~2350 $R5R51$R52125304$"EX U.#"T$"RE YOU MALE OR FEMALE?"g$"- M = MALE"}$" - F = FEMALE"$2,"MF"$"IFE TYLE U.#"$"HERE DO YOU LIVE?"$"-  U.#"%<"OW LONG DO YOU EXERCISE STREN-"/&F"UOUSLY: (TENNIS, RUNNING, ETC)?": SHIFTED 1ST SPACEs&P"- F = 5TIMES A WEEK FOR AT LEAST HALF AN HOUR"&Z"- K =2 OR 3 TIMES A WEEK"&d" - I = NEITHER"&n3,"FKI"&x"IONE FOR MORE THAN"'" 40 YEARS": NOT A SHIFTED SPACE (6,"NPGMED"%("SYCHE U.#"]("O YOU SLEEP MORE THAN 10 HOURS A NIGHT?"n("- I = NO"(" - E = YES"(2,"IE"("ERSONALITY U.#"("M = IF YOU ARE INT= NEITHER")^3,"JGI")h"ACTORS U.#"+*r"AVE YOU HAD A SPEEDING TICKET IN THE LAST YEAR?"=*|"- P = YES"O*" - I = NO"[*2,"PI"s*"NCOME U.#"*"O YOU EARN MORE THAN $50,000 A"*"YEAR?": SHIFTED 1ST SPG?": SHIFTED 1ST SPACE+"- L =YES"+" - I = NO",&2,"LI",0"EREDITY U.#"V,:"K = IF ANY GRANDPARENTS LIVED TO 85 YEARS OLD",D"O = IF ALL GRANDPARENTS LIVED TO 80 YEARS OLD",N" I = NEITHER",X3,"KOPRESS SPACE BAR TO CONTINUE"L: UI$:UI$" "844 N: CR-----PAGE DESIGN ROUTINE-----RT: UPUP1|W: ""(UT$UP$,19);(UG$UP$,16);UP\: " --------------------------------------"a: (UD$,24);(UP$,6);"HELP - PRESS :UU%12:UL%14:UP%1146:UM32768:50003,0B(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048z(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024: UD$"": UP$"  DOES NOT HAVE ENOUGH": "MEMORY TO RUN THIS PROGRAM !": UU71': D: "":(50003)0962v-----BASIC 2.0 OR 4.0 OR C-64 SETUP-----1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:104,141:2105,21!2106,3:2115,145:2117,52:2118,234:2121,49:2122,141R!2123,20:2124,3:2126,234:2127,141:2128,21:2129,3p!UU48: DISABLE STOP KEY!: 800: TITLE!: 300: MENU!: "THE PGM WILL NOT WORK ON THIS MACHINE!":"$" Š"".#8" HIS IS A TEST TO PREDICT HOW"F#B" LONG YOU WILL LIVE. 'LL ASK"r#G" YOU A SERIES OF SHORT QUESTIONS,"#L" WHICH YOU WILL ANSWER BY PRES-"#V" SING THE APPROPRIATE KEY.":835G = CITY OVER 10,000"%"- K = TOWN UNDER 10 000, OR A FARM"%" - I = NEITHER"*%3,"GKI"B% "ORK U.#"[%"OW DO YOU WORK?"p%"M = DESK WORK"%"L = HEAVY PHYSICAL LABOUR"%(" I = NEITHER"%23,"MLI"%7"XERCISE VING U.#"&}"HO DO YOU LIVE WITH?"'"N = SPOUSE,FRIEND OR FAMILY"8'"P = LIVED ALONE FOR 1-10 YEARS"_'"G = LIVED ALONE FOR 11-20 YEARS"'"M = LIVED ALONE FOR 21-30 YEARS"'"E = LIVED ALONE FOR 31-40 YEARS"'"D = LIVED ALENSE, AGGRESSIVE OR EASILY ANGERED"*)"L = IF YOU ARE EASY-GOING, RELAXED OR A FOLLOWER">)" I = NEITHER"K)"3,"MLI"c),"EELINGS U.#")6"RE YOU HAPPY OR UNHAPPY?")@"- J = HAPPY")J"- G = UNHAPPY")T" - I  ACE*"- G = YES"*" - I = NO"*2,"GI"+"CHOOLING U.#"!+"J = FINISHED COLLEGE"L+"L = GRADUATE OR PROFESSIONAL DEGREE"`+" I = NEITHER"m+3,"JLI"+"GE U.#"+"RE YOU 65 OR OLDER AND STILL"+ "WORKIN I",]"EREDITY U.#",b"AS ANY PARENT DIED OF A STROKE"2-l"OR HEART ATTACK BEFORE THE AGE": SHIFTED 1ST SPACEV-q"OF 50?": SHIFTED 1ST SPACEh-v"- E = YES"z-" - I = NO"-2,"EI"-"AMILY U.#"-"AS ANY PARENT, U.#"."OW MUCH TOBACCO DO YOU SMOKE?"/"- A = MORE THAN 2 PACKS A DAY"$/"- C = 1 TO 2 PACKS A DAY"M/"- M = ONE HALF TO ONE PACK A DAY"h/" - I = DON'T SMOKE"v/ 4,"ACMI"/"RINK U.#"/ "O YOU DRINK THE EQUIVALENT I =NOT OVERWEIGHT"04,"AEGI"0"HECK-UPS U.#"1"F A MALE OVER 40: DO YOU HAVE AN"N1" ANNUAL CHECK-UP?": SHIFTED SPACES`1"- K = YES"1" - I = NO OR NOT A MALE OR UNDER 40 YEARS OLD"12,"K = BETWEEN 40 AND 50 YEARS OLD"2 "F = BETWEEN 50 AND 70 YEARS OLD"3 " N = OVER 70"3$ 5,"IKLFN"&3. Q$:UG$Q$:850033 ""838 Q$O3B (Q$,1)" "2400]3L " ";Q$g3V 2360z3` " ";Q$:C,C$3j " HOOSE ONE OF THE LETTERS ABOVE ";4 Z6026104 Y60Z54 Y10026004 M$,F$4 Y5 "26%","15%","36%","20%","48%","30%","61%","39%"S5 "75%","53%","87%","70%","96%","88%","99.9%","99.6%"x5( " UT-LIVING "M$" OF THE MEN"5- " AND "F$" OF THE WOMEN."52 I19 "HOW MANY WORDS";%N1;"TYPE";N1"WORDS"HAI$(N1)g(J1N1:J: AI$(J):Jq26500<"PRESS ANY KEYFB$:B$""70dJ1N1:4)AI$(J)fT1300:ThJnd BUBBLE SORT OF STRINGS IN AI$ nSS$"NX(TI).QQ$(200),AA$(200),NZ%(200)I TT$"CAPITAL CITIES"[ "";13);TT${ "";13);"BY D. S. COOPER" "";13);"SCHREIBER, 1979""IF YOU WISH TO GIVE UP ON""A PARTICULAR QUESTION," "JUST TYPE 'UNCLE' AS YOPLACES.") {"WHICH OF THE FOLLOWING AREAS"J |"DO YOU WANT TO PRACTICE?"[ }"A) CANADA"l ~"B) EUROPE" "C) SOUTH AMERICA" "D) AFRICA" "E) ASIA" "F) THE FAR EAST" "G) THE UNITED STATES" "H) THE MIDDLE EAST" "I)AL$"ABCDEFGHIJKLMN":A0# A$:A$""2025 (A$)13280E I1(AL$)\ A$(AL$,I,1)A1k :A0202 A$;:CH$CH$A$:A0:202 (CH$)0202 A0:I1(CH$) (CH$,I,1)"L"A1 :A1CH$"BCDEFHIJKLN" :"STAND BY CD420,500,550,610NW0NCNC10NW0NFNF1CNW1MKMK.5WNW2MKMK.25l"RIGHT":100NQNQ1:NW0:NQHM700370"WRONG. ";:NWNW1NW3600"THE CORRECT ANSWER IS ";RA$100:440 OR BROTHER OR"-"SISTER UNDER 5, HAD (OR HAVE):": SHIFTED 1ST SPACE7."CANCER, A HEART CONDITION OR": SHIFTED 1ST SPACEn."DIABETES SINCE CHILDHOOD?": SHIFTED 1ST SPACE."- M =YES"." - I = NO".2,"MI"."EALTH  OF A "/*"QUARTER BOTTLE OF LIQUOR A DAY?": SHIFTED 1ST SPACE04"- P = YES"0>" - I= NO"$0H2,"PI"<0R"EIGHT U.#"g0\"A = OVERWEIGHT BY 50 POUNDS OR MORE"0f"E= OVER BY 30-50 POUNDS"0p"G =OVER BY 10-30 POUNDS"0z"I"1"HECK-UPS U.#"2"F A WOMAN: DO YOU SEE A GYNECOLOGIST ONCE A YEAR?"!2"- K = YES"B2" - I = NO OR NOT A WOMAN"N22,"KI"f2"URRENT GE U.#"z2"I = UNDER 30"2"K = BETWEEN 30 AND 40 YEARS OLD"2 "L 3t UL1:US$C$"H":353~ G$UR$3 C21C3 (G$,1)(C$,C2,1)24803 C24 24104 ""4 N115:4 (G$,1)(A$,N,1)2520A4 NX4 MN9:ZZM:11604 " OU ARE EXPECTED TO LIVE TO"4 " THE AGE OF "Z" YEARS."[:AA$:I5< " NOTHER RUN (Y/N)? ";:UL1:US$"YNH":355P UR$"Y"10205Z 30024104 ""4 N115:4 (G$,1)(A$,N,1)2520A4 NX4 MN9:ZZM:11604 " OU ARE EXPECTED TO LIVE TO"4 " THE AGE OF "Z" YEARS."O" xKK1N11\ AI$(KK)AI$(KK1)DD$AI$(KK):AI$(KK)AI$(KK1):AI$(KK1)DD$:SS$"YES"d KKx SS$"YES"6510~ UR ANSWER."$ ""- c110Q d"PRESS RETURN TO CONTINUE."d eA$:A$""101w f(A$)13101 g"STAND BY": n100 x BUILD OPTION PAGE HERE y"THIS PROGRAM CAN DRILL YOU ON z"THE CAPITAL CITIES OF VARIOUS  THE NATO COUNTRIES"2 "J) THE WARSAW PACT COUNTRIES"L "K) CENTRAL AMERICA"` "L) THE WORLD"t "M) AUSTRALIA" "N) THE UNITED NATIONS COUNTRIES" "TYPE THE LETTER(S) OF YOUR CHOICE;" "THEN HIT RETURN." ""; CH$"": " "30000:7 ,"HOW MANY ITEMS DO YOU WANT IN THIS DRILL";? 1HMR 6HM(HM)350` ;HM1350i Y360 ^"ILLEGAL RESPONSE":300 hNQ1:AT0:NW0:NC0:NF0:MK0 i26000 m"STAND BY" r1000 |10000 10300 11000 &"CLOSE! ";:NWNW1:510!X"TRY AGAIN."M]25000:910:MTTI:100:ATATTIMT:380[bNW3:520"";((40(TT$))2));"";TT$;"""OPTION: ";CH$SC((NC100HM.05)10)10MK(((NCMK)100HM.05)10)10MN(AT3600):S NF0760"(ALSO, YOU RECOVERED FROM";NFM"AN ADJUSTED SCORE WOULD BE";MK;"%)"j"TOTAL TIME TAKEN WAS";xMN0775MN;"MINUTES,":20);SD;"SECONDS." "THAT'S";T2;"SECONDS PER QUESTION.""YOU DID";T3;"CORRECT AN 3758,14:33759,14:33760,9'33761,14:33762,7:: RUNNINGFI93375633762:I9,32:I9n33756,15:33757,6:33758,6:: OFF:X(NA(2))NZ%(X)11000QU$QQ$(X):RA$AA$(X):NZ%(X)1:NZNZ1NZNA30700"NAI","CANA X","A","NEW BRUNSWICK","FREDERICTON":"A","PRINCE EDWARD ISLAND","CHARLOTTETOWN"\"A","THE YUKON","WHITEHORSE""A","THE NORTHWEST TERRITORIES","YELLOWKNIFE""NK","MEXICO","MEXICO CITY""NK","GUATEMALA","GUATEMALA","K","BRITISH HOND,"CHILE","SANTIAGO"6"NC","ARGENTINA","BUENOS AIRES","NC","URUGUAY","MONTEVIDEO"l"NC","BOLIVIA","LA PAZ","NC","BRAZIL","BRASILIA""NC","PARAGUAY","ASUNCION","C","GUIANA(BR.)","GEORGETOWN""C","GUIANA(NETH.)","PARAMARIBO","C","GUIANA(FR,"IRELAND","DUBLIN":"NHD","THE UNITED ARAB REPUBLIC","CAIRO","NHE","ISRAEL","JERUSALEM"Z"NFE","THAILAND","BANGKOK""NI","ICELAND","REYKJAVIK","NIB","DENMARK","COPENHAGEN""NBI","WEST GERMANY","BONN","BNI","THE NETHERLANDS","THE HAGUE","HELSINKI","NIB","NORWAY","OSLO"7"NB","SWEDEN","STOCKHOLM","NB","YUGOSLAVIA","BELGRADE"o"NBJ","POLAND","WARSAW","NJB","HUNGARY","BUDAPEST""NB","ALBANIA","TIRANE","NJB","BULGARIA","SOFIA""L","SEYCHELLES","VICTORIA","F","SOLOMON ISLA"CALIFORNIA","SACRAMENTO"8"G","COLORADO","DENVER","G","CONNECTICUT","HARTFORD","G","DELAWARE"{"DOVER","G","DISTRICT OF COLUMBIA","WASHINGTON","G","FLORIDA""TALLAHASSEE","G","GEORGIA","ATLANTA","G","HAWAII","HONOLULU" "G","IDAHO","BOITON","G","MICHIGAN"+"LANSING","G","MINNESOTA","ST. PAUL","G","MISSISSIPPI","JACKSON"t"G","MISSOURI","JEFFERSON CITY","G","MONTANA","HELENA","G","NEVADA""CARSON CITY","G","NEBRASKA","LINCOLN","G","NEW JERSEY","TRENTON""G","NEW HAMPSH!"RHODE ISLAND","PROVIDENCE","G","SOUTH CAROLINA","COLUMBIA","G"V!"SOUTH DAKOTA","PIERRE","G","TENNESSEE","NASHVILLE","G","TEXAS"!"AUSTIN","G","UTAH","SALT LAKE CITY","G","VERMONT","MONTPELIER","G"!"VIRGINIA","RICHMOND","G","WASHINGTON",N(AT3600MN)60:SD((SN.05)10)10VT2(((AT60)HM.05)10)10:T3((NC(AT3600).05)10)10}"THIS DRILL HAD";HM;"QUESTIONS,""FROM A BANK OF";NA;"QUESTIONS.""YOU CORRECTLY ANSWERED";NC"YOUR SCORE IS ";((SC),2);"%"SWERS PER MINUTE." 20000:21000@%"DO YOU WANT THE SAME OPTION(S) (Y OR N)?"S*A$:A$""810c4A$"N"110y>A$"Y""":300H81033747,3:33748,12:33749,15:33750,3:33751,1133753,9:33754,19:33756,18:33757,21:3DA","OTTAWA","A","BRITISH COLUMBIA","VICTORIA"P"A","ALBERTA","EDMONTON","A","SASKATCHEWAN","REGINA""A","MANITOBA","WINNIPEG","A","ONTARIO","TORONTO""A","QUEBEC","QUEBEC CITY","A","NEWFOUNDLAND","ST. JOHN'S" "A","NOVA SCOTIA","HALIFAURAS","BELIZE"7"NK","HONDURAS","TEGUCIGALPA","NK","EL SALVADOR","SAN SALVADOR"u"NK","NICARAGUA","MANAGUA","N K","COSTA RICA","SAN JOSE""NC","COLOMBIA","BOGOTA","NC","VENEZUELA","CARACAS""NC","ECUADOR","QUITO","NC","PERU","LIMA","NC".)","CAYENNE"."NK","JAMAICA","KINGSTON","NK","CUBA","HAVANA","NK","HAITI"n"PORT-AU-PRINCE","NK","DOMINICAN REPUBLIC","SANTO DOMINGO""NIG","THE UNITED STATES OF AMERICA","WASHINGTON""NBI","ENGLAND","LONDON","NB","FRANCE","PARIS","NB""NBI","LUXEMBOURG","LUXEMBOURG","BNI","BELGIUM","BRUSSELS"N"INE","TURKEY","ANKARA","NBI","ITALY","ROME""NBI","PORTUGAL","LISBON","NJB","ROMANIA","BUCHAREST""NB","AUSTRIA","VIENNA","NJB","CZECHOSLOVAKIA","PRAGUE""NB","FINLAND"NDS","HONIARA"&"L","SAINT HELENA","JAMESTOWN","L","ST. PIERRE & MIQUELON"`"ST. PIERRE","L","NETHERLANDS ANTILLES","WILLEMSTAD" "G","ALABAMA","MONTGOMERY","G","ALASKA","JUNEAU","G","ARIZONA""PHOENIX","G","ARKANSAS","LITTLE ROCK","G",SE","G","ILLINOIS","SPRINGFIELD","G","KANSAS","TOPEKA"S"G","INDIANA","INDIANAPOLIS","G","IOWA","DES MOINES","G","KENTUCKY" "FRANKFORT","G","LOUISIANA","BATON ROUGE","G","MAINE","AUGUSTA""G","MARYLAND","ANNAPOLIS","G","MASSACHUSETTS","BOS IRE","CONCORD","G","NEW MEXICO","SANTA FE","G"I "NEW YORK","ALBANY","G","NORTH CAROLINA","RALEIGH","G","NORTH DAKOTA" "BISMARCK","G","OHIO","COLUMBUS","G","OKLAHOMA","OKLAHOMA CITY" "G","OREGON","SALEM","G","PENNSYLVANIA","HARRISBURG","G" "OLYMPIA","G"" "WEST VIRGINIA","CHARLESTON","G","WISCONSIN","MADISON","G"3" "WYOMING","CHEYENNE"|" "NFM","AUSTRALIA","CANBERRA","M","TASMANIA","HOBART","M","VICTORIA"" "MELBOURNE","M","NEW SOUTH WALES","SYDNEY","M","QUEENSLAND"# "BRISBA "NF","NEW ZEALAND","WELLINGTON","F","TUVALU","FUNAFUTI"J$"NEH","IRAQ","BAGHDAD","NEH","YEMEN","SANA","EH","DEMOCRATIC YEMEN"$"ADEN","ENH","OMAN","MUSCAT","NEH","UNITED ARAB EMIRATES"$"ABU DHAB","NEH","QATAR","DOHA","ENH","BAHRAIN","MANAMA "CHINA"&"BEIJING","NEF","LAOS","VIENTIANE","ENF","THAILAND","BANGKOK"S&"EF","KAMPUCHEA(CAMBODIA)","PHNOM PENH","NEF","VIETNAM","HANOI"&"NEF","MALAYSIA","KUALA LUMPUR","ENF","SINGAPORE","SINGAPORE"&"EF","NORTH KOREA","PYONGYANG","NEF"," T","ND","MAURITANIA","NOUAKCHOTT","ND"((!"SENEGAL","DAKAR","ND","GAMBIA","BANJUL","D","GUINEA-BISSAU"m(""BISSAU","ND","GUINEA","CONAKRY","ND","SIERRA LEONE","FREETOWN"(#"ND","LIBERIA","MONROVIA","ND","IVORY COAST","ABIDJAN","N"($"GHANA","AC","SWAZILAND","MBABANE","D","MOZAMBIQUE","MAPUTO".*)"ND","TANZANIA","DAR ES SALAAM","ND","KENYA","NAIROBI","ND"s**"SOMALIA","MOGADISHU","D","DJIBOUTI","DJIBOUTI","ND","ETHIOPIA"*+"ADDIS ABABA","ND","SUDAN","KHARTOUM","ND","LIBYA","TRIPOLI"*,,"BURUNDI","BUJUMBURA","ND",0"ZAMBIA","LUSAKA","ND","MALAWI","LILONGWE","ND","BOTSWANA"[,1"GABORONE","D","ZIMBABWE RHODESIA","SALISBURY","ND","SOUTH AFRICA",2"CAPE TOWN","ND","LESOTHO","MASERU","D","COMOROS","MORONI","ND",3"MAURITIUS","PORORTO NOVO"-:"NB","SPAIN","MADRID","NE","LIECHTENSTEIN","VADUZ"*.;"NB","MONACO","MONACO","NB","MALTA","VALLETTA"N.<"NB","HOLY SEE","VATICAN CITY".="NK","PANAMA","PANAMA CITY","NK","TRINIDAD","PORT-OF-SPAIN".'"";((40(TT$))2));"";TTUNCLE--CD=4/+AN$RA$CD1:/+AN$"UNCLE"CD4:0 +(AN$,4)(RA$,4)CD3:#0+(AN$,4)(RA$,4)CD3:,0\+CD220+H0 N MESSAGE SECTIONq0!N SELECT VALUE OF CD TO PICK MESSAGE0%NHM4NCNFHM2CD3:0&NHM5SC100CD2:0'NHM "1R:1aV$"Y"1a"STAND BY"1a1aC$,Q$,A$:C$"&" 2aQ$QU$250202aA$AN$25020J2a"";AN$;" IS THE CAPITAL OF ";Q$;"":v2e"IF YOU GIVE A CAPITAL FOR THE WRONG"2e"PLACE, DO YOU WANT TO KNOW ABOUT IT?"2e"(Y OR N)"2eV$:V$""260102e20uNA0::II0:307002:uCD$,QU$,RA$ 3DuCD$"&":305003NuA0:I1(CH$)/3OuK1(CD$)N3Xu(CH$,I,1)(CD$,K,1)A1T3]u3bu:A1QQ$(II)QU$:AA$(II)RA$:NANA1:IIII13lu300103vu"&","&","&","&"NE","M","SOUTH AUSTRALIA","ADELAIDE","M","NORTHERN TERRITORY"5#"DARWIN","M","WESTERN AUSTRALIA","PERTH"~#"NF","INDONESIA","JAKARTA","NF","PHILIPPINES","MANILA","NF","JAPAN"#"TOKYO","F","PAPUA NEW GUINEA","PORT MORESBY","NF","FIJI","SUVA"$"$"NEH","IRAN","TEHRAN","NE","PAKISTAN","ISLAMABAD"H%"NE","AFGHANISTAN","KABUL","NE","INDIA","NEW DELHI","NE","SRI LANKA"%"COLOMBO","NE","NEPAL","KATHMANDU","NE","BHUTAN","THIMPHU"%"E","BANGLADESH","DACCA","NEF","BURMA","RANGOON","NE",SOUTH KOREA","SEOUL" '"NE","MONGOLIA","ULAANBAATAR","NEH","LEBANON","BEIRUT","NEH","SYRIA"e'"DAMASCUS","NEH","JORDAN","AMMAN","NEH","SAUDI ARABIA","RIYADH"'"NE","MALDIVE ISLANDS","MALE","NJE","THE U.S.S.R.","MOSCOW"' "ND","MOROCCO","RABACRA","ND","TOGO","LOME","D","BENIN","PORTO NOVO"))%"ND","NIGERIA","LAGOS","ND","CAMEROON","YAOUNDE","ND"e)&"EQUATORIAL GUINEA","MALABO","ND","GABON","LIBREVILLE")'"ND","CONGO","BRAZZAVILLE","ND","ZAIRE","KINSHASA","D","ANGOLA")("LUANDA","ND"ND","TUNISIA","TUNIS","ND","ALGERIA","ALGIERS","ND","MALI","BAMAKO"G+-"ND","UPPER VOLTA","OUAGADOUGOU","ND","NIGER","NIAMEY","ND","CHAD"+."N'DJAMENA","ND","CENTRAL AFRICAN EMPIRE","BANGUI","ND","UGANDA"+/"KAMPALA","ND","RWANDA","KIGALI","ND"T-LOUIS","ND","MADAGASCAR","ANTANANARIVO",4"D","TRANSKEI","UMTATA"!-5"D","BOPHUTHATSWANA","MMABATHO"_-6"B","ANDORRA","ANDORRA LA VELLA","EHN","KUWAIT","KUWAIT"-7"JB","EAST GERMANY","BERLIN"-8"NB","GREECE","ATHENS"-9"ND","DAHOMEY","P$;"".'"#";NQ;19);HM;"ITEM DRILL".'"";"OPTION(S): ";CH$/$'"THE CAPITAL OF ";QU$/.'"IS";$/;(8/<(900:910:MTTIA/F(AN$X/(ATATTIMT:920:s/* DECIDE ANSWER STATUS/* RIGHT--CD=1/* WRONG--CD=2/* CLOSE--CD=3/* 5CD1:0(NNCHMCD4:0)NNCNFHMCD2:0NCD10R 1RCD21010,21011,21012,210131R31R"";13);"--WELL DONE--":a1R"";7);"GET HELP FROM YOUR TEACHER!":j1R""1R14);""1R14);"FANTASTIC"1R14);" 3$w"I AM SELECTING QUESTIONS AT RANDOM"3%w"FROM A DATABANK OF";NA;"ITEMS."3&w4wKW0200:NZ%(KW)0::NZ0:44y:"COUNTRY";CN$<4yI0S4"yCD$,QU$,RA$:I1Iv4,yCD$"&""NOT FOUND":3100046yQU$CN$"";CD$;"--";QU$;"--";RA$;"--";I;  "", 9)"DISK DIRECTORY PRINTER"N9)" BY BOB SWIFT "q"INSERT DISK AND PRESS 'P'""OR PRESS 'Q' TO END PROGRAM."(A$:A$"P"A$"Q"402"PRINTING DISK DIRECTORY"<A$"P"1000:5F"";: : PRINT TITLE ONLYG #1,A$:A$""1035: DISREGARD REMAINDER OF HEADERq 4," ":4," ": PRINT TWO BLANK LINES #1,A$,A$:A$""1:I13:4," ": A$""4,"@":4:: INITIALIZE PRINTER CONDITIONS #1,A$,B$ : # OF BLOCKS $4,(A$ : Q: THIS PROGRAM WAS WRITTEN :F R: TO RUN WITH A COMMODORE :l S: 64 COMPUTER, A GEMINI-10X : T: PRINTER, AND A 1541 DISK : U: DRIVE. YOUR SYSTEM MAY : V: VARY AND WILL PROBABLY : W: REQUIRE SOME S I HAVE. :4_: :Z`: HAPPY COMPUTING! :a: :b: :EM MAY : V: VARY AND WILL PROBABLY : W: REQUIRE SOME >53280,0:53281,0: SETS BORDER AND BACKGROUND TO BLACKi "": CLEARS SCREEN AND HOMES CURSOR AMERICAN FLAG IN RED, WHITE AND BLUE COLORS WITH SOUND EFFECTS PERRY F. CRABILL, JR. DECEMBER 15, 1982::::# K1 3 " "; I (28);( I1 234 " ";< IB P J1 3` 3);(5);o I1 35{ " "; I 3);(28); I1 35 " "; I J STAR SPANGLED BANNER SOUND EFFECT% ' T1 50:  , 260I @ A$: A$"" 320: AWAITING DEPRESSION OF NAY KEYt J"": CLEARS SCREEN AND HOMES CURSOR T (5): FOR WHITE TEXT Y  25,177,187,21,154,62,17,37,250,21,154,250,25,177,250,34,75,500  43,52,187,38,126,62, 34,75,500A 43,52,187,38,126,62,34,75,250,21,154,250,24,63,250,25,177,500 25,177,187,25,177,62,43,52,375,38,126,125,34,75,250,32,94,500 28,214,125,32,94,125,34,75,250,34,75,250,25,177,250,21,154,250 17,37,250 43,52,62,43,52,62,43,52,250,45,198,250,51,97,250,51,97,500a 45,198,125,43,52,125,38,126,250,43,52,250,45,198,250,45,198,500 45,198,250,43,52,375,38,126,125,34,75,250,32,94,500,28,214,125 32,94,125,34,75,250,21,154,250,24,63,250,25,177,500,25,177,250/"":310004@y31010260102e20uNA0::II0:307002:uCD$,QU$,RA$ 3DuCD$"&":305003NuA0:I1(CH$)/3OuK1(CD$)N3Xu(CH$,I,1)(CD$,K,1)A1T3]u3bu:A1QQ$(II)QU$:AA$(II)RA$:NANA1:IIII13lu300103vu"&","&","&","&" 1,8,15,"I0":1! 1,8,0,"$0"- N$(0); #1,A$,A$z #1,A$:A$(34)1031: STRIP OFF CHARACTERS UNTIL QUOTES 4,4:4,"@ME";  SET LH MARGIN, EMPHASIZED AND DOUBLE WIDE CHARACTERS ON PRINTER #1,A$:A$(34)4,A$;:1034N$)(B$N$)256;+ .#1,A$:A$""4," ":1040< 84,A$;:1070b L: : M: DISK DIRECTORY PRINTER : N: BY : O: BOB SWIFT : P: CHANGES TO :* X: THE PRINTER CODES. THESE :P Y: SHOULD BE EASY TO FIND. :v Z: : [: I HOPE THAT YOU FIND THIS : \: PROGRAM TO BE AS USEFUL : ]: FOR DIRECTORY HARD COPIES :^: A 34,75,250,34,75,250,34,75,125,32,94,125,28,214,250,28,214,250u 28,214,250,38,126,250,45,198,125,43,52,125,38,126,125,34,75,125 34,75,250,32,94,250,25,177,125,25,177,125,34,75,375,38,126,125 43,52,125,45,198,125,51,97,500,34,75,125,38,1 ( 3);(31); - I1 12) 2" ";1 7 I> < (28);M A I1 23Y F " ";a K Ig Px U 3);(31); Z I1 12 _ " "; d I i (5); n I1 23 s " "; x I } K 3);(31); I1 12 L54272 54296: L,0:: CLEARS SOUND CHIPm V54296:W54276:A54277:HF54273:LF54272:S54278:PH54275:PL54274  V,15: A,0: PH,0: PL,0  S,240: W,17  H: H1 W,0: 320  L  D  HF,H: LF,L " T1 D:: W,16 34,75,250,21,154,250,24,63,250,25,177,500c  25,177,187,25,177,62,43,52,375,38,126,125,34,75,250,32,94,500  28,214,125,32,34,125,34,75,250,34,75,250,25,177,250,21,154,250  17,37,250  25,177,187,21,154,62,17,37,250,21,154,250,25,177,250,  53272,21 70005 4000; INSTRUCTIONS@# 4100F(S2 I$(38)_< T16rF T1(T),T1$(T)zP T "נ٠ӠӠӠ" "٠"; N"נ٠ӠϠՠ"; D S 0:PC$"":TS$"": CLR VARIABLES AND STRINGS.Z "L(I$(B)): LENGTH TO BE USED IN PRINT OUT.g 'V$I$(B) ,W$S$: 1000: SRCH. FOR SPC. .XZ /W$F$: 1000: SRCH. FOR "/" 1FZ 6 X0 "INPUT ERROR IN LINE "B ; X0 200 @   X11 430* W$T7$: 1000: IS IT TSP?3 X1ZE  X11 430g W$P$: 1000: IS IT A PINCH?p X1Z  X11 A1.065 S1SA1: X10 S1;" " (I$(B),LX)  X10 620  S148 730  S13 780  PR  K0 K" TBSP(S) "; S10 600' 890A& (S1)1 (S1);l0 (S1)1 TS$"PINCH" "TSP(S)";5 (S1)1 TS$"PINCH" 600: (S1)1 TS$"" "TSP(S) ";? (S1)1 TS$"" 600D TS$" TSP(S) ";: 60W$H$: 1000HZ: H0 690)H1((I$(B),H))FN1((I$(B),H1,FH1))cD1((I$(B),F1,XF1))xA1N1D1H1:H10~ TSP TO CUPS ROUTINECS148: GET CUPS C(C) S148(C(C)) C(C) 760S10C26,125,43,52,375$ 45,198,125,38,126,250,34,75,450- -125,38,126,250,43,52,250,45,198,250,45,198,500 45,198,250,43,52,375,38,126,125,34,75,250,32,94,500,28,214,125 32,94,125,34,75,250,21,154,250,24,63,250,25,177,500,25,177,250/)H TT16R KT1(TT) 870\ TTa:fPC$T1$(TT):KKT1(TT)@p_z CHECK FOR PARTS OF A TSPoTSS1(S1) TS.9 S1S11 TS.9  TS.65 TS$"3/4" TS.65  TS.4 TS$"1/2" TS.4  1040 Z1Z10ZZ1:Z10= FIND TEXT AFTER SECOND SPCEN0R Z11LgU$(I$(B),Z1,1)| U$" " NN1 N1   Z1 "NO SECOND SPC ERROR IN LINE"B  2004 K0:S10  INST ҠҠ""."1"Ӡ٠٠Ϡ..."K R$: R$"" 4090Qe"THE RULES:"">>> LEAVE A SPACE AFTER THE AMOUNT."">>> USE A '-' IF THE AMOUNT INCLUDES"""A FRACTION - .. 1-1/2 CUPS6">>> THE FOLLOWING ABBREVIATIONS ARE"G@"TO BE USED: CUP,CUPS,TSP,TBSP,PINCH"xE">>> TYPE 'XXX' AFTER LAST INGREDIANT."~ ERASE LINES ROUTINE"" G1 10" DN: DETERMINES AMT. NEEDED% 50009 "TART INPUT:"F A150R I$(A){ I$(A)"XXX" 250: END INGREDIANTS A AA1:S$" ":F$"/":H$"-":C$"CUP":T7$"TSP":T8$"TBSP":P$"PINCH"  A0 150 : B1A) X0:S10:C0:KF0 340: NOT A FRACTION' J FX 6609 O FX 350N TA1((I$(B),X))m ^W$C$: 1000: IS IT CUPS?v cX1Z h X11 A1A148: CONVERT TO TSP m X11 430 rW$T8$: 1000: IS IT TBSP? wX1Z | X11 A1A13: 430INTS ADJUSTED RECIPE.0  C = CUPS PC$ = PARTIAL CUPSL  K = TBSP S1 = TSPd  TS$ = PARTIAL TSPu  C0 C;  C1 PC$"" PC$;  C1 PC$"" 510  PC$"" " AND "PC$;  C0 PC$"" " CUP(S) "; 0 N " AND A PINCH OF ";XW$S$: 20002b (I$(B),LZ1):l Bav "O YOU HAVE ANOTHER RECIPE?";z A1$: A1$"" 640 A1$ "Y" 6000 " YES " A211000: "" 4100 150 FRAC. TO DEC. ROUTINEC(C)  TSP TO TBSP ROUTINE/KS13: GET TBSPN  (K10)106 PC$ "2/3"i" (K10)106 3000* (K10)53 PC$ "1/3", (K10)53 30004 K (K) S13(K(K))9 K (K) 830:S10>K(K " G"" p 59468,12(z "NO": G1578: GE"":eX53272,21:53280,1:53281,1]"SERVINGS"b""l"ORIGINAL BY: L.M. SCHREIBER"v  TS.185 TS$"1/4" TS.185 5 TS.065 TS$"1/8"H TS.065 a TS0 TS$"PINCH"g 14,7/8,12,3/4,10,5/8,8,1/2,6,3/8,4,1/4 SEARCH STRING ROUTINEZ0 Z11LU$(V$,Z1,(W$)) U$W$ RUCTION SET 53272,23:53280,1:53281,1H"Ӡ͠Ӡ Ҡ"r"ŠҠŠŠҠ""ӠΠ٠Π.""ԠӠ٠Ԡנ""ŠĠΠՠ   50002999,(56):56,(46)09::BB(56)RN255:(999)160N(999)(NNBB1:BABB256:MA828:BM%(35,24):J07:TA(J)2J:-N"BUFFERS AVAILABLE"21,8,15:310<D$"S":2010:I2$IR$ FDR$"2A""ILLEGAL DOS 1.0 DISK": 3 D$"D":2010:IR$I1$1705 1,"I0":3,8,3,"#"N "WRITING BUFFER #";a NU1:T1T:S1S BM%(T1,S1)0560:NUNU1:NUN240 S1S11:S120S10:T1T11 T1TF1210 "":3 SS11:S20S0:T1T11 TT1:TTF290   ^F0:J1(DN$):S1$(DN$,J,1)6 hS1$""S1$(34)F1M rJ:F"";:320w |"UNIQUE DISK ID ";I1$ I1$"""";:380 (I1$)2"";:380 1,"N0:"DN$","I1$:DN$"" 2000 ERER$:4000  C0 T1,S1 FROM BUFFER # NU0:C0:1,"B-A";0;T1;S1:1,"B-P";3;0UD" ";(" "(NU),3);"";NP3(3):P4(4):4,BBNU:MA3:3,P3:4,P4bST.ST64"WRITE ERROR"ST"":4000l1,"U2";3;0;T1;S1v2000:ER660CC1:C3620 ";T%;)(BABY).J.20:BM%(T%,J).::BYBY4:8101S0k BYBY1:A0(BABY):J.7:BM%(T%,S)A0TA(J):SS1:yS22780 BYBY1*ES21:T%17ES194T%24ES18>T%30ES17HJES24:BM%(T%,J)1:RSM.:J.20:B$):ER$ER$E1$E2$E3$:/S1$"SOURCE":D$"D"S1$"DESTINATION"Y"INSERT ";S1$;" DISK, PRESS SPACE"oA$:A$" "20302,8,0,"$0":2000:ER4000J127:#2,A$:J:#2,B$:IR$A$B$ #2,A$:#2,A$:#2,B$:DR$A$B$:2:56,(99ՙ"PET VERSION BY: GARY D.. GUTTEBO"9{"SOURCE:'CALCULATORS/COMPUTERS MAGAZINE'"g|" "}"VOL.2 NO.7 NOV./DEC. 1978" G11950: G$1 10" ING!": POKE MACHINE CODE INTO CASSETTE BUFFER5I828915:A:I,A:a NOW MOVE END OF PROGRAM POINTERS DOWN AND INSTALL TWO ZERO BYTES45,044:46,019:4906,0:4907,0:20 76,66,3,76,97,3,162,3,32,198,255,160,0,132,3,32, 1,104,96 POKE MACHINE CODE INTO CASSETTE BUFFER5I828915:A:I,A:a NOW MOVE END OF PROGRAM POINTERS DOWN AND INSTALL TWO ZERO BYTES45,044:46,019:4906,0:4907,0:20 76,66,3,76,97,3,162,3,32,198,255,160,0,132,3,32,  (14)( ""?2" UBLIC OMAIN SERS ROUP"E7K9{< "HE OMMODORE 64 UBLIC OMAIN IBRARY "AF" OX 1442"KP " RANGE ARK, LA. 32067"UZ _" HESE PUBLIC DOMAIN DISKS 4000C PI2$I1$"SOURCE AND DESTINATION HAVE SAME ID CODE":4000L Z670h dTTS:S0:NU1:T1T:S1S n1,"I0":3,8,3,"#" x"READING BUFFER #"; BM%(T1,S1)0450:NUNU1:NUN160 S1S11:S120S10:T1T11 T1TF1130 "":D$"S":2010:IR$I2$270. NU1:T1T:S1S:1105 "1] ,56,(999)::"BACKUP COMPLETE": 6"INSERT DESTINATION DISK TO BE FORMATTED" @"DISK NAME ";DN$ JDN$"""";:320 T(DN$)16320: READ BLOCK T1,S1 TO BUFFER # NU. 1,"U1";3;0;T1;S1A 2000:ER500T CC1:C3460e 1,"B-P";3;0 NU0" ";(" "(NU),3);""; P3(3):P4(4):4,BBNU:MA:3,P3:4,P4 ST.ST642000:ER$ ! 0 WRITE BLOCK "UNRECOVERABLE WRITE ERROR"ER$:40008 GET BAM TO BM%(T,S)FTS1:TF0]1,"I0":3,8,3,"#"fS90"TRACK # BLOCKS TO TRANSFER"""BY4:NU0:T118:S10:C0$(.):450T%(BY4)41" M%(T%,J).SMSM1\:12);SM:S9S9SM5fSM.TST%TSTS1:890FpSM.TFT%VzBY143740z3:"START =";TS;" FINISH =";TF:S9"BLOCKS TO TRANSFER""APPROX"((2.45S9)60)"MINUTES FOR COPY"1,ER$,E1$,E2$,E3$:ER(ER9):: (45)044(46)01920*::::::::::::::::::::::::N"","BACKUP64K - KEITH HOPE"q:"MODIFIED FROM BACKUP 2031""BY JIM LAW / KEITH HOPE":"'GOTO 4000' IF PROGRAM QUITS ABNORMALLY":"DO NOT SAVE PROGRAM AFTER RUNNARE PROVIDED"9 d" AS A SERVICE TO MEMBERS OF THE UBLIC"h i" OMAIN SERS ROUP.OR INFO ON JOINING" n " WRITE TO THE ABOVE ADDRESS." s x }"HESE PROGRAMS MAY BE COPIED AND GIVEN" "TO ANYONE.OWEVER, IF YOU RECEIVED THIS"$ 207,255,32,138,3 145,3,32,128,3,165,144,208,3,200,208R(238,32,204,255,96,162,3,32,201,255,160,0,132t23,32,138,3,177,3,32,128,3,32<210,255,165,144,208,3,200,208,238,32,204,255F96,72,165,1,9,3,133,1,88,104,96,72,120,165,1,41,252,133,5J A$"Y" 500 O"" T' "": "$",8OPER FILENAME AND THEN RUN IT."S " LL THE PROGRAMS ON THIS DISK HAVE" "BEEN CONTRIBUTED TO THE SERS ROUP" "AND TO THE BEST OF OUR KNOWLEDGE ALL" "THE PROGRAMS ARE IN THE PU 7""(14)(158):53280,6:53281,11:TI$"000000"T"HE NTERTAINER"h"BY""COTT OPLIN""ARRANGEMENT":"BY":"ICK TERLING""PLEASE WAIT 3 MIN 25 SEC." "COFFEE BREAK! 50 WAV(K):NM0NMNM:WA1? DR%NM128:OC%(NM128DR%)16X NTNM128DR%16OC%f FRFQ(NT)u OC%7200 J6OC%1:FRFR2: HF%FR256:LF%FRHF%256 DR%1H%(K,I)HF%:L%(K,I)LF%:C%(K,I)WA:II1:120 J1DR%1:H%(K " S5,63:S6,240+ S10,8? S12,8:S13,9U S19,119:S20,7b S24,31n I0IM &S,L%(0,I):S7,L%(1,I):S14,L%(2,I) 0S1,H%(0,I):S8,H%(1,I):S15,H%(2,I) :S4,C%(0,I):S11,C%(1,I):S18,C%(2,I) ;59b44242,46873,49660,526130l55741,59056,62567,66288^ 338,340,336,585,331,583,322,324,320,569 315,567,306,308,304,553,299,297,296,551,-496,599 322,323,324,592,324,592,324,1616 352,354,355,356,352,354,612,347,610,1632 ,347,354,17602V340,341,342,599,345,599,340,341,342,599,345,599c`340,336,327,329,331,336,338,340,338,336,338j327,340,341,343,345,343,340,341,599,345,599,340,341,342,599,345,599t343,345,346,347,603,603,345,342,338,1367~340,341,342,59601,1882,343,594,343,594,343,594,1104,1109W340,344,347,612,354,347,352,1113,1114,345,344,1113,608,2146341,340,1109,601,1882,343,594,343,594,343,594,1104,853,341 345,608,599,336,338,340,597,-480,613,-480592,329,592,329,336,329,327,3"DISK AND ARE NOT A MEMBER, PLEASE JOIN"Q "OUR GROUP. HE COST IS ONLY $10/YEAR."W ] } "RESS RETURN TO CONTINUE" W$: W$"" 160 "" " LL THE PROGRAMS ARE WRITTEN IN BASIC" "AND CAN BE LISTED AND MODIFIED." %BLIC DOMAIN."3 "F THIS IS NOT THE CASE PLEASE CONTACT"Y "THE UBLIC OMAIN SERS ROUP." ,:"O VIEW THE DIRECTORY TYPE (Y/N)" 1"THE SCREEN WILL SHOW A SYNTAX ERROR IN 0" 6" BUT JUST TYPE AND HIT " @ A$ E (142)  599,327,327,583,5835 581,324,581,324,581,-256,329,338,329,336,338,336,324o583,326,583,326,583,-256,336,340,336,338,340,338,336329,328,329,599,597,336,340,339,340,601,352,343,340(592,592,340,594,1360,608,-416 0 338,340,336,585,331,583,322,324,320,569< 315,567,306,308,304,553,299,297,296,551,-496,599,571~ 560,567,567,567,565,576,564,576,564,576,551,567,551,576,567 571,560,567,567,567,565,576,564563,562,566,562,569,571,567,569,571 560,567,567,567, SETTING UP 20K BYTE ARRAY"7 S54272:LSS24:L,0:] H%(2,1200),L%(2,1200),C%(2,1200)i FQ(11) (V(0)17:V(1)65:V(2)33 -S3,8 2S9,140:S22,240:S23,244 <I011:FQ(I): dK02 nI0 xNM yTI$:""; NM02,I)HF%:L%(K,I)LF%:C%(K,I)WA:II1:I H%(K,I)HF%:L%(K,I)LF%:C%(K,I)WA1X II1:120g IIMIMIm z ,""; ." " /" " 0" I313S12,119:S13,534 <I571S12,53:S13,53:S10,6l =I823S12,10:S13,167:S10,0:S20,240:S5,15s DI F"HIT ANY KEY TO REPEAT" NA$:A$""590 OA$"" V" " W500 X35115,37203,39415,417322,323,324,592,324,592,324,1872@345,343,342,345,352,612,354,352,345,1634g. 322,323,324,592,324,592,324,16168 352,354,355,356,352,354,612,347,610,1632B352,354,356,352,354,612,352,354,352,356,352,354,612,352,354,352L356,352,354,6129,345,599,340,341,342,599,345,599@340,336,327,329,331,336,338,340,338,336,338 1360 , 327 , 326 , 327 , 592 , 329 , 592 , 329 , 336 , 329 327,336,340,599,340,336,327,585,592,340,594,1616,-448345,344,1113,608,2146 341,340,1109, 36,340,599,340,336,327#585,592,340,594,1360,608,-416]581,324,581,324,581,-256,329,338,329,336,338,336,324583,326,583,326,583,-256,336,340,336,338,340,338,336594,337,594,337,594,-256,341,345,341,343,345,343,341352,352,1120,601, " O USE THESE PROGRAMS JUST LOAD THE"M "PROPER FILENAME AND THEN RUN IT."S " LL THE PROGRAMS ON THIS DISK HAVE" "BEEN CONTRIBUTED TO THE SERS ROUP" "AND TO THE BEST OF OUR KNOWLEDGE ALL" "THE PROGRAMS ARE IN THE PUK 565,576,564,576,564,576,551,567,551,576,5679 -496,576,580,570,580,569,581,568,581Z567,580,567,571,576,567,560> 336,338,339,596,340,596,336,338,339,596,340,596,340,336,327C 1093,1096,1092,1095H 596,340,596,336,338,339,596,340,596  4,1879,343,570,578,567,568,569,581,562,581S564,578,568,578,1092,580,580,341,344,1109,597,2138,338,340,1106,5941879,343,570,578,567,568,313,309,308,306,840,331336,592,842,586,585,-480,597,-480569,569,579,579,580,576,580,576,582,582, ,578,321,578,-256,329,325,329,336,338,336,329C580,323,580,323,580,-256,336,343,336,338,340,338,336p329,328,329,585,585,329,576,580,579,580 582,582,325,581,324,576,567,560,-464 0 338,340,336,585,331,583,322,324,320,569  315,564  -496,560,567,554,567,553,569,552,568,551' 567,551,567,560,551,5448& 340,341,3420 560,567,551,567,560,567,551,567,549,569,581,568,564,567,551,567,560: 567,551,567D 560,567,564,563,562,567,562,569N 567,565,564,562,560,5672,569 564,571,568,571,1081,567,560,549,569,560,569,554,570,565,570e 546,569,553,569,551,570,562,570,554,570,551,552,297,293,292,290,1057 560,569,560,560,565,-480,549,-480 565,565,566,566,567,567,576,576,562,562,567,567,1072,544,-48051,544,-480 0 NV(32) "NOTE DPO";ND,NP,NO ND05070/ NV128ND16NONP< NV(I)NVF II1P 5000] J0I1 A$(NV(J)):(NV(J))15080 A$(A$,(A$)1) A$","; 576,562,562,567,567,1072,544,-480KKKKR343,345,346,343,599,598,345,336,338P\ 1355,336,338,339,596,340,596,336,338,339,596,340,596,340,336,327jf 1093,1096,1092,1098p 581,581,579,579,576,576,576,576z 582,582,325,581,1604,-448341,342,1109,601,2138 338,340,1106,59325,581,324,1092,592,-4321578,321,578,321,578,-256,329,325,329,336,338,336,329k580,323,580,323,580,-256,336,343,336,338,340,338,336587,330,587,330,587,-256,341,345,341,343,345,343,341336,336,1104,592,592,324,324,580,580 578,321,567,306,308,304,553,299,297,296,551,-496,567,583L 560,564,551,570,549,569,548,567,551,564,551,565,544,564,564r 583,560,564,551,570,549,569,548 547,546,562,562,566,567,551,553,555 560,564,551,570,549,569,548,567,551,564,551,565,544,564,551,567X 560,567,551,567,549,569,565,568b 564,567,560,570@l 565,565,566,566,567,567,567,567gv 562,562,567,567,560,551,544,-192 549,569,560,569,554,330,329,330,336,594 546,569,553,569,551,570,562,570,554,570,551,552,553,569,56 549,565,553,565,549,565,553,565,560,564,551,564,560,564,551,564P 551,565,555,565,551,565,555,565,563,1075,563,564,-1536 549,565,553,565,549,565,553,565,560,564,551,564,560,564,551,564 549,546,548,549,551,567,566,567,553,546,551,555,560,5KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK