NSUG11  PROPERTYU TEST1 Y  TEST2 c  SETSIZE m SCIFI q INVNTRY - LISTS  MYSTERY  PGMLIST  HELLO R PASSBUCK TOKEN  SECTOR  BANNER ** WORLD1.E1 VDMSTAR E * DECHEX N ) "ORIGINAL LISTING BY R.E. MICHELS." 4 "PUBLISHED JAN 78, BY INTERFACE AGE, PAGE 94." < "THE REVISIONS ARE FOR USE THRU A NORTHSTAR DISCETTE." > "IN ADDITION TWO FILES MAY BE ACCESSED TO EITHER DEMON-" ;( "STRATE THE PROGRAM OR IN ACTUAL USAGE TO STORE THE " 22 "LAST CALCULATION FOR SUBSEQUENT REFERENCE." < \ 3F " THIS IS SUBMITTED BY DON ANDERSON, 2/17/78" >P " I AM AVAILABLE RE THIS PROGRAM BY PHONE (408)252-6593" U \ :Z " ******** PROPERTY INVESTMENT ANALYSIS ********" d n x M5),N5),O5)  Q5),R5),T5),U5),V5)  C$MASTER IO CODE  IMASTER INDEX 8 "DO YOU NEED HELP WITH THIS PROGRAM ?(Y)YES,N(NO)" 1 C$   C$"N" , 6 "THIS PROGRAM COMPUTES THE COMPONENTS OF PROFIT" 5 "RELATED TO THE PURCHASE OF AN APARTMENT BLDG." < "THE COMPONENTS OF PROFIT ARE GOI-GROSS OPER. INCOME," ? "NOI- NET OPERATING INCOME,CASH FLOW OR SPENDABLE INCOME" ) "EQUITY INCOME,AND TAXABLE INCOME." 9 "IN ADDITION CAP RATE IS COMPUTED,AS WELL AS PRICE"  "PER SQ FT." 9 "PARAMETERS SUCH AS MORTGAGE INTEREST RATES CAN BE" < "VARIED TO SEE THEIR EFFECT ON THE PROFIT COMPONENTS." " \ 7, "WOULD YOU LIKE TO SEE A SAMPLE RUN ? Y=YES,N=NO" 6 1 F$\ @ F$ "N"  9J " DO YOU PREFER AN EXAMPLE WITH 1 OR 2 MORTGAGES ?" T 1 X \ ^ X 2  h #1,"TEST1" 5r #1,G1,V1,E1,N1,F1,P1,J,M1),N1),O1),A1,A2,Y1 | #1,H$,D$,Y2,P7,P9,L  #1    #2,"TEST2" ; #2,G1,V1,E1,N1,F1,P1,J,M1),N1),O1),M2),N2),O2) # #2,A1,A2,Y1,H$,D$,Y2,P7,P9,L  #2   3 "WHAT IS THE YEARLY SCHEDULED GROSS INCOME ?"  1 G1\  Z1   Y1  1 "WHAT IS THE VACANCY ALLOWANCE IN PERCENT?"  1 V1\  Z2   Y1  5 "WHAT IS THE EXPENSE RATIO (%)REL TO THE GOI ?" & 1 E1\ 0 Z3  : Y1  ,D "HOW MANY UNITS DOES THIS BLDG HAVE ?" N 1 N1 \ .X "HOW MANY SQ.FT. DOES THIS BLDG. HAVE ?" b 1 F1\ -l "WHAT IS THE PROPOSED PURCHASE PRICE ?" v 1 P1\  Z4   Y1  * "HOW MANY MORTGAGES WILL THERE BE ?"  1 J\  L0 7 "FOR INTEREST ONLY MORTGAGES SET MONTHS=10000 "\  I1 J  NI)0\ MI)0\ OI)0  TI)0\ UI)0\ VI)0  I  Z0  I1 J < "WHAT IS THE AMOUNT($),TERM(MONTHS),AND INT. RATE (%)"  "FOR MORTGAGE NUMBER ",I  1 MI),NI),OI)\   Z5   LLMI)   I * Y1  ;4 "FOR DEPREC. PURPOSES WHAT IS THE PERCENT ALLOCATION" > "TO THE BUILDING ?" H 1 A1\ 5R "WHAT IS PERCENT ALLOC. TO PERSONAL PROPERTY ?" \ 1 A2\ 2f "WHAT IS THE DEPREC. METHOD FOR THE BLDG. ?" p "DDB,SL,125%, ?" z 1 D$\ , "WHAT IS THE BLDG. DEPREC. IN YEARS ?"  1 Y1\ 8 "PERS. PROP. DEPREC. METHOD IS:DDB,SL,125%,150% ?"  1 H$\  "PP PERIOD IN YEARS IS ?"  1 Y2\  Z6   Y1   COMPUTE VACANCY $ GOI  V2V1100)G1  G2G1V2  COMPUTE GROSS MULTIPLIER  P6P1G2)  COMPUTE ENSE $ NOI  E2E1100)G2  G3G2E2 $ CG3 $. COMPUTE PRICE RATIOS EQUITY 8 P2G3100)P1) B P3P1N1) L P4P1F1) V P5P1L &` COMPUTE $ ALLOCATI BLDG PP j A3A1100)P1 t A4A2100)P1 ~ D$"SL"   A5A3Y1)    D$"DDB"   A5A3Y1)2    D$ "125%"   A5A3Y1)1.25  H$"SL"   A6A4Y2  F  H$ "DDB"   A6A4Y2)2  F   H$"125% THEN 1060  A6A4Y2)1.25  F )( PUT IN RANGE TEST DEPREC. METHOD 2 H$ "150%"  < A6A4Y2)1.5 F A7A5A6 /P COMPUTE ERESTPRINCIPAL AMTS. MTGAGE Z MTHLY PAYMENT d I1 J n QI)OI)1200 x T1QI))NI)  RI)MI)QI)T)T1)  I  TAL FIRST YEAR EREST  I1 J  TI)0  T3MI)  K1 12  T2T3QI)  TI)TI)T2  T3T3RI)T2)  K  I / COMPUTE FIRST YEAR PRINCIPAL % CASH FLOW  I1 J  VI)RI)12  UI)VI)TI) " CCVI) , NI)900 T 6 TI)MI)OI)100) @ VI)TI) J UI)0 T I ^ P7CP5)100 h COMPUTE EQUITY r P80 | P90  T10  I1 J  P8P8UI)  I  T1P8C  P9T1P5)100  COMPUTE TAXABLE INCOME  TT1A7)\\ ! "********* BASIS *********"  "SCHEDULED GROSS",32),G1 ! "VACANCY(",V1,"%)",33),V2  " GOI",32),G2 ' "EXPENSE RATIO(",E1,"%)",32),E2 " " NOI",32),G3\\ 9& "MORTGAGE 1 2 3" 10 "INTEREST",12),T1),28),T2),42),T3) 2: "PRINCIPAL",13),U1),28),U2),42),U3) 2D "TOTAL",12),V1),28),V2),42),V3)\\ *I 30),"***** ANNUAL RESULTS *****"\ 2O 28),"CASH FLOW(",%5F2,P7,"%)",53),%8F2,C %Y 28),"PRINCIPAL",53),%7F2,P8 5c 28),"EQUITY RTN (",%5F2,P9,"%)",53),%7F2,T1 'm 28),"DEPRECIATION",52),%6I,A7 %v 28),"TAXABLE",53),%7I,T\\ = "PURCHASE PRICE= ",P1," LOAN AMOUNT= ",L," EQUITY= ",P5 4 "CAP RATE= (",P2,"%)",36),"GROSS MULT= ",P6 2 "PRICE PER UNIT=",P3,35),"PRICE/SQ FT=",P4  \\ < "DO YOU WISH 1-DISPLAY CURRENT VALUES,2-CHG. A VAL.," " "3-RERUN THE PROGRAM,4-DONE"  1 K   YK  K 4 j  K3  K2   K1   "PLEASE INPUT 1,2,3, OR 4"       % Z0 * "DO YOU WISH TO CHANGE:" 4 "1-SCHEDULED GROSS INCOME" > "2-VACANCY ALLOWANCE" H "3-EXPENSE RATIO" R "4-PURCHASE PRICE" \ "5-MORTGAGE INFORMATION" f "6-DEPRECIATION INFO" p 1 Z z  Z1   Z2   Z3   Z4 l  Z5   Z6 4 + "PLEASE INPUT A NUMBER FROM 1 THRU 6"  p $ "PLEASE INPUT SL,DDB, OR 125%"  f * "PLEASE INPUT DDB, SL, 125% OR 150%"     2 "BUILDING HAS ",N1," UNITS AND ",F1," SQ FT" 6 "BDLG DEPR ALLOC= ",A1, "%, PERS PROP= ",A2," %" 3$ "BLDG DEPREC AT ",D$," OVER ",Y1," YEARS" 7. "PERS PROP DEPREC AT ",H$," OVER ",Y2," YEARS" 8 I1 J ?B "LOAN #",I," FOR ",MI)," OVER ",NI)," MOS AT ",OI),"%" L I V `  !j "THANK YOU AND GOOD LUCK !" /vFD BE0ACdB'BE)PFA eF0CBpB@A BDDBSLPAA2)rfA eF BE0A8B'BE&F0F0CB9EDApB@A BDDBSLPA BE0A8B'BE&F A0F0CB9ECApB@A BDDBSLPAWYeQAB F 0 SETSIZE IRV MCKNIGHT 13078 / SETS NTHSTAR BASIC WK AREA 00008K - MAX AREA AVAILABLE ABOVE BASIC 2A00H) $ 11),"SET UP BASIC WORK AREA" 5 \"TO USE THE 8K UNDER DOS (0-1FFFH) TYPE 'L'." ?"ANY OTHER ANSWER USES ALL THE RAM IT CAN FIND ABOVE DOS." 8"WE FIND ONLY RAM IN 4K BLOCKS UP TO 40K (,*,>,R,f,R,f  "WANT OUR WOMEN ",  R3) ,,  "TAKE A FEW AND LEAVE."  :  "ARE FRIENDLY."  : (* "ARE FRIENDLY BUT MISUNDERSTOOD ", 4  > "MISUNDERSTAND US ", H  #R "UNDERSTAND US ALL TO WELL ", \  0f "LOOK UPON US AS A SOURCE OF NOURISHMENT " p R3) ,z, z "AND EAT US."  :  "AND ARE ",  R2) ,  "RADIOACTIVE ",    "NOT RADIOACTIVE ",  "AND"  R3) ~,,~  "CAN BE KILLED BY ",  R3) ,,j * "A CROWD OF PEASANTS WITH TORCHES.",  : " R5) ,,.,B,V  "THE ARMY."  :  "THE NAVY." $ : . "THE AIR FORCE." 8 : B "THE MARINE CORPS." L : V "THE COAST GUARD." ` : j "THE ATOMIC BOMB." t : ~ "CANNOT BE KILLED BY ",  R3) ,,  "THE ATOMIC BOMB ",   " R5) ,,,,  "THE ARMY ",    "THE NAVY ",    "THE AIR FORCE ",    "THE MARINES ",    "THE COAST GUARD ",   ) "A CROWD OF PEASANTS WITH TORCHES " & R6) (,d,|,,d,| ( "BUT THEY DIE FROM" "2 R5) <,,P,<,P < "CATCHING THE CHICKEN POX" F : *P "WATCHING OLD RONALD REAGAN MOVIES." Z : d "BUT" n R3) x,,6 3x "A CUTE KID CONVINCES THEM PEOPLE ARE O.K. ",   ' "A PRIEST TALKS TO THEM OF GOD ",  "AND THEY ",  R3) ,,  "DIE."  :  "LEAVE."  :  "TURN INTO"  R4) ,,,"  "DISGUSTING LUMPS."  :  "CUTE LITTLE KIDS."  :  "BEAUTIFUL GIRLS."  : " "PRIESTS." , : 6 "THEY FALL IN LOVE WITH ", @ R3) J,,J J "THIS BEAUTIFUL GIRL ", T R4) ,^,, ^ "AND" 5h "THEY GET MARRIED AND LIVE HAPPILY EVER AFTER." r : | "SO...." $ "SCIENTISTS INVENT A WEAPON ", " R5) ,,,,  "WHICH FAILS ",  R2) (,  "WHICH KILLS THEM."  :  "WHICH TURNS THEM INTO"    R4) ,,,0  "SO THEY KILL US."  :  3 "SO THEY PUT US UNDER A BENIGN DICTATORSHIP."  :  "SO"  "THEY TURN US INTO ", &  0 "SO THEY EAT US." : \\\ 3D I1 9000\\AY ELIMINATE TTY IS USED) N NN1 X A$ b NE d l "HAD ENOUGH??????? ", v Q$  Q$1,1)"Y"   EE25\ d   < INVENRY A + BY CHIP HILTS119784155953569 +( 3622 REPOSO WAY,BELMT,CA ,94002 B2 < 0F FILE NAME IS S,PROGRAM NAME IS INVNTRY 1P MAXIMUM ENTRIES WITH 100 BLOCK FILE 239 8Z 2980 STARTS A FILE SEARCH PROGRAM d n A26\ CLEAR EEN II x Z$A)\Z$\ CLEAR EEN % M19004\ MEMY BEE PROGRAM , 0)," BYTES OF MEMORY REMAIN UNUSED" V1$5)  Q1$15),Q2$15),Q3$20)  L6$10) ) G0$7),G1$1),G2$2),G3$1),G4$2) * G5$1),G6$1),G7$7),G8$1),G9$10) H0$7) S1107 : E$S1),E1$S1),W$S1),B$30)\ STRINGS HOLD ENTRY ( B$" " # 20),"INVENTORY PROGRAM"\\ "ENTER FILE NAME >",F$\  #0,F$,L\ #0,N 1 "THERE ARE ",L," BLOCKS IN THE ",F$," FILE"  Z$\ SELECT SUBRINE 1 "THERE ARE ",N," RECORDS NOW IN THIS FILE." A" "#1....ADD TO LIST #6....SORT BY INV # AND PRINT" 6, "#2....LIST ENTRIES #7....PRINT LABELS" :6 "#3....EXAMINE ONE ENTRY #8....ALPHABETIZE LIST" =@ "#4....UPDATE AN ENTRY #9....ALPHABETICAL SEARCH" 8J "#5....DELETE AN ENTRY #10...EXIT PROGRAM"\ !T "SELECT SUBROUTINE:(#) ",M ^ M1 M10 T h M1  r M2 D | M3   M4   M5   M6   M7   M8   M9   M10 z  Z$\ ADD  N239   "FILE FULL"\  / E$B$B$B$B$B$B$\ CHG E$ ALL BLANKS # Z$\ \ COLLECT ENTRY E$  #0%NS15,E$  NN1 ! \ "ADD ANOTHER? (Y/N) ",A$ & A$"Y"  0 #0%0,N, :  D 4N Z$\20),"THIS SUBROUTINE PRINTS ALL ENTRIES" X "START ENTRY: ",L\ %b "PAPER COPY? (Y/N) ",P$\\  l JL N1 v #0%JS15,E$    p  J\\   p    INE % Z$\ "EXAMINE ENTRY NUMBER: ",J  JN   3 "I DONT HAVE THAT MANY ENTRIES-TRY N-1"\   #0%JS15,E$   *\ "EXAMINE ANOTHER ENTRY? (Y/N) ",A$  A$"Y"      Z$\ UPDATE  "ITEM TO UPDATE: ",J\ 6  JN1"THERE ARE ",N," ENTRIES--TRY N-1" > !* \ "TRY ANOTHER? (Y/N) ",A$ 4 A$"Y"   > #0%JS15,E$ H  \ 'R "UPDATE THIS ENTRY? (Y/N) ",A$\ \ A$"Y" z f "TRY ANOTHER? (Y/N) ",A$ p A$"Y"   z \   #0%JS15,E$, & \"THIS IS THE UPDATED ENTRY."\   \ # "IS THIS CORRECT? (Y/N) ",A$  A$"Y"  z  Z$\ ETE ! "DELETE WHICH ENTRY? ",D\ 5 DN "NO SUCH #,TRY N-1."," ","N-1 IS ",N1  DN p  DN   UP ETE  #0%DS15,E$   ' "DELETE THIS ENTRY? (Y/N) ",A$\  A$"Y" 8  "TRY AGAIN? (Y/N) ",A$ $ A$"Y"  .  '8 "PRESS 'RETURN' TO DELETE ",R$\ B #0%N1)S15,E1$ L JN2 D 1 V #0%JS15,E$ ` #0%JS15,E1$, j E1$E$ t ~ NN1  N0 N0  #0%0,N, ( "DELETE ANOTHER ENTRY? (Y/N) ",A$  A$"Y"     ST BY INVENRY #    1 \Z$\"THIS MODULE IS NOW SORTING RECORD #"  ST BY INVENRY #   X0 N1  X,  #0%XS15,E$ ( Y0 X 2 #0%YS15,E1$ < E$1,5)E1$1,5)  F SWITCH HERE P W$E$ Z E$E1$ d E1$W$ n #0%XS15,E$, x #0%YS15,E1$,  Y  X    ING SUBRINE BASIC   : E$1,5)," ",E$6,20)," ",E$21,35)," ",E$36,55)      ! "NO LABELS AVAILABLE"\   SUBRINE ITEM LY  E$36,55)     ALPHABETIZE BY ITEM  X0 N1  X, & #0%XS15,E$ 0 Y0 X : #0%YS15,E1$ !D E$36,55)E1$36,55)  N SWITCH HERE X W$E$ b E$E1$ l E1$W$ v #0%XS15,E$,  #0%YS15,E1$,  Y  X   $ ALPHABETICAL SEARCH RINE $ Z$\"ALPHABETICAL SEARCH:"\\ 5 "SEARCH BY LOCATION OR ITEM NAME ? ",A$\  A$"N"  0 "LOCATION TO BE SEARCHED ? ",L$\\L$L$B$  J0 N1\ #0%JS15,E$  E$56,65)L$1,10)   J   p    ITEM SEARCH !  "ITEM SEARCHING FOR: ",W$\ % W$W$B$ * J0 N1\ #0%JS15,E$ > E$36,55)W$1,20)  H R \ p \  f &p "PRESS RETURN TO CONTINUE",R$\ z #0%0,N,\ #0\  SUBRINES LABEL SPACING  \\  \\\ \\\\  P$"Y" P1$,\\ ER ! P$"Y" P2$,\\ ER OFF 0 P$"Y" P3$,\\ ER ,RESET PAGE COUNT " SUBRINE GET ENTRY E$  F$"BOOKS"   F$"RECORDS"   F$"MAGAZIN"   F$"LISTS"   "N IS NOW ",N / "INVENTORY #(SAME AS N): ",V1$\V1$V1$B$  V1$1,1)" " V1$E$1,5)  V1$1,1)"^"  +$ "CLASSIFICATION(15): ",Q1$\Q1$Q1$B$ . Q1$1,1)"^"  !8 Q1$1,1)" " Q1$E$6,20) 'B "SUB CLASS(15): ",Q2$\Q2$Q2$B$ L Q2$1,1)"^" $ "V Q2$1,1)" " Q2$E$21,35) &` "ITEM NAME(20): ",Q3$\Q3$Q3$B$ j Q3$1,1)"^" B "t Q3$1,1)" " Q3$E$36,55) ~ RESERVED EXTRAS 3300 % "LOCATION(10): ",L6$\L6$L6$B$  L6$1,1)"^" ` " L6$1,1)" " L6$E$56,65) 0 "ORIGINAL PRICE(1234.56): ",G0$\G0$G0$B$  G0$1,1)"^" " G0$1,1)" " G0$E$66,72) + "ESTIMATED PRICE(*): ",G1$\G1$G1$B$  G1$1,1)"^" " G1$1,1)" " G1$E$73,73) * "YEAR ACQUIRED(YY): ",G2$\G2$G2$B$  G2$1,1)"^" " G2$1,1)" " G2$E$74,75) < "ACQUISITION CODE(P/G): ",G3$\G3$G3$B$\ PURCH GT  G3$1,1)"^" " G3$1,1)" " G3$E$76,76) , "EST LIFE IN YRS(##): ",G4$\G4$G4$B$ ( G4$1,1)"^" "2 G4$1,1)" " G4$E$77,78) -< "DEPRECIATION CODE(#): ",G5$\G5$G5$B$ F G5$1,1)"^"  "P G5$1,1)" " G5$E$79,79) *Z "RECEIPT CODE(Y/N): ",G6$\G6$G6$B$ d G6$1,1)"^" < "n G6$1,1)" " G6$E$80,80) 6x "CURRENT MARKET PRICE(1234.67): ",G7$\G7$G7$B$  G7$1,1)"^" Z " G7$1,1)" " G7$E$81,87) + "ESTIMATED PRICE(*): ",G8$\G8$G8$B$  G8$1,1)"^" x " G8$1,1)" " G8$E$88,88) / "PURCH.AT/GIFT FROM(10): ",G9$\G9$G9$B$  G9$1,1)"^" " G9$1,1)" " G9$E$89,98) / "SALVAGE VALUE(1234.67): ",H0$\H0$H0$B$  H0$1,1)"^" # H0$1,1)" " H0$E$99,105)  RESERVED 3780 EXTRAS G E$V1$Q1$Q2$Q3$L6$G0$G1$G2$G3$G4$G5$G6$G7$G8$G9$H0$   SUBRINE CRT ) "INVENTORY # IS: ",E$1,5) ," "CLASSIFICATION IS: ",E$6,20) -, "SUB CLASS IS: ",E$21,35) -6 "ITEM IS: ",E$36,55) -@ "LOCATION IS NOW: ",E$56,65) 7J "ORIGINAL PRICE WAS $",E$66,72),E$73,73) @T "ACQUIRED IN: 19",E$74,75)," BY : ",E$76,76) 7^ "ESTIMATED LIFE IS: ",E$77,78)," YEARS " -h "DEPRECIATION CODE IS: ",E$79,79) -r "DO YOU HAVE A RECEIPT ? ",E$80,80) 7| "CURRENT PRICE IS EST. AT: ",E$81,87),E$88,88) - "ITEM WAS FROM ",E$89,98) . "ITS SALVAGE VALUE WILL BE ",E$99,105)   SEARCH ANY FILE  U$1000)  "FILE NAME: ",U2$  #3,U2$\  3)0   3)1 #3,N N\ #3,U$  U$\   "END MARK DETECTED"\ & RsuTtus>twsksvwswLtss8uvvZs*w&B  B00012sEQUIPME   "END MARK DETECTED"\ & sIvtdvvttwet t}wtttusw&B  A 4t Jt  uw t t 3)0   3)1 #3,N N\ #3,U$  U$\   "END MARK DETECTED"\ & HuwJvwu4vxuauxxuuxBviu.wPu&B  B u ",E$77,78)," YEARS " - "DEPRECIATION CODE IS: ",E$79,79) - "DO YOU HAVE A RECEIPT ? ",E$80,80) 7 "CURRENT PRICE IS EST. AT: ",E$81,87),E$88,88) - "ITEM WAS FROM ",E$89,98) ." "ITS SALVAGE VALUE WILL BE ",E$99,105) , ' SEARCH ANY FILE ' U$1000) ' "FILE NAME: ",U2$ ' #3,U2$\ ' 3)0 ' ' 3)1 ' ' #3,N ' N\ ' ' ' #3,U$ ' U$\ ' ' ' "END MARK DETECTED"\ ' '  Bi00000EQUIPMENT COMPUTER HORIZON DEN 1899.00 78P071Y1899.00*BYTE 100.00 i00001EQUIPMENT COMPUTER NAKED TERMINAL BOARDDEN 350.00 78P071Y350.00 *BYTE 15.00 i00002EQUIPMENT COMPUTER PANASONIC MONITOR DEN 150.00 78P071Y150.00 *BYTE 10.00 i00003EQUIPMENT COMPUTER CHERRY KEYBOARD DEN 150.00 78P071Y150.00 *BYTE 15.00 i00004EQUIPMENT COMPUTER 8K RAM DEN 225.00 78P071Y225.00 *BYTE 20.00 i00005EQUIPMENT COMPUTER 8K VECTOR GR. RAM DEN 229.00 78P071Y229.00 *BYTE 20.00 i00006FURNITURE BOOKCASES 2 CUSTOM DEN DEN 289.00 *73P101N350.00 *MICHAELS 50.00 i00007FURNITURE SOFA DEN HIDABED DEN 75.00 *75P051N50.00 *JIM SMITH 10.00 i00008EQUIPMENT OFFICE SPERRY TYPEWRITER DEN 820.00 77P071Y820.00 *BURL.OFFIC50.00 i00009EQUIPMENT OFFICE TYPING TABLE DEN 65.00 *78P071Y65.00 *SEARS 10.00 i00010FURNITURE SOFA LIVING RM SOFA LIVING RM 500.00 *75P101Y699.00 *R.B. 50.00 i00011FURNITURE BED WATER BED MASTER 350.00 73P101Y450.00 NAT.ENV. 50.00 i00012EQUIPMENT EDUCATIONAL WAIS TEST DEN 40.00 77P101N40.00 *JKK 5.00  )n THE KILOBAUD MYSTERY PROGRAM $x FROM KILOBAUD APR. 1978 ISSUE " ED IN BY BILL MROW NSUG A42)  J3 28  AJ)J62  J  J1 10  AJ29)J47  J  J1 2  AJ)J31  J $ NOW IT GETS ME MYSTERIOUS  AA1)3)AA2))7  T0  J1 9 " TTJ , J 6 AT5)T1 @ AATT1)T5)TT3)3 J TTA2) T JT4 ^ ATJ2J)JTTJ)1      T  T0 &     & T0 D 0  :  D T1  N JT) X T b K1 J l  v K    TA24)A29)   J1 T2    J     AT)), *  T)  & 5,1,3,18,20,11,14,1,8,2,17,14 9 2,0,22,20,27,1,6,7,14,7,22,11,16,9,1,14,11,16,7,21 . 1,39,33,30,1,3,16,6,1,39,34,30,4,40,1 5 1,3,9,3,11,16,2,0,16,17,25,1,20,7,15,17,24,7,1 7 39,32,30,29,1,39,35,30,29,1,3,16,6,1,39,36,30,1 = 20,11,6,6,14,7,4,40,1,25,10,3,22,42,21,1,3,1,22,10,20 < 2,7,1,22,17,7,6,1,21,14,17,22,10,41,0,4,40,6,7,14,7 > 22,7,1,39,37,30,29,1,39,38,30,29,1,3,16,6,1,2,39,30,1 < 3,1,10,3,2,1,10,3,2,1,10,3,2,1,10,3,2,1,0,11,42,15,1 : 3,1,5,17,15,18,23,22,7,20,29,1,16,17,22,1,3,1,28,2 ( 17,14,17,9,11,21,22,2,0,4,27,7,1   dT$ԴkKKKKKKKKKJJ K;KDKKKKBKCKKLLJK ;[뻻;OKIKKCKAIEKaEKOI+;;;;KIFICKIFAJKI@LCOODDDDDDDDDDDDDd PROGRAM ING !n WRITTEN BY ROBERT L. ER x MARCH 12, 1978  8 "THIS PROGRAM LISTS A BASIC PROGRAM FROM DISK." * "THE FILE MUST BE RE-TYPED AT 3."  \  T$80),D$25)  "FILE NAME? ",F$  "TITLE? ",T$  "DATE? ",D$ #1,F$  T$)33   T$)33   L33T$)  I 1 L  T$T$" "  I    T$T$1,33)  D$)24 h " D$)24 ^ , L24D$) 6 I 1 L @ D$D$" " J I T h ^ D$D$1,24) h T$T$" "D$" PAGE " r P1 | \\\\T$,P\  I 1 60  #1,&L \ BYTE  L1   #1,&N1,&N2  256N2 N1,  J 1 L3  #1,&B  B13   B128   B),    B128 "LET",  B129 "FOR",  B130 "PRINT",  B131 "NEXT",  B132 "IF", & B133 "READ", 0 B134 "INPUT", : B135 "DATA", D B136  N B137 ( X B138 "RETURN", b B139 "DIM", l B140 "STOP", v B141 "END",  B142 "RESTORE",  B143 "REM",  B144 "FN",  B145 "DEF",  B146 "!",  B147 "ON",  B148 "OUT",  B149 "FILL",  B150 2  B151 "OPEN",  B152 "CLOSE",  B153 "WRITE",  B155 "CHAIN",  B156 "LINE",  B161 "LIST",   B176 "STEP",  B177 "TO",   B178  * B179 "TAB", 4 B180 "ELSE", > B181 "CHR$", H B182 "ASC", R B183 "VAL", \ B184 "STR$", f B185 "NOENDMARK", p B224 "(", z B226 "*",  B227 "+",  B229 "-",  B231 "/",  B236 "AND",  B237 "OR",  B239 ">=",  B240 "<=",  B241 "<>",  B244 "<",  B245 "=",  B246 ">",  B247 "NOT",  B225 "^",  B198 "INT",  B204 "LEN",  B205 "CALL", $ B206 "RND", . B202 "SGN", 8 B203 "SIN", B B196 "SQRT", L B210 "ATN", V B216 "FREE", ` B217 "INP", j B218 "EXAM", t B219 "ABS", ~ B220 "COS",  B221 "LOG",  B222 "EXP",  B223 "TYP",     J  I  PP1  |  I1    II1  I 60   \\\   "THEN", \ x  "GOTO", \ x ( "GOSUB", \ x 2 "EXIT", \ x x #1,&B  JJ1  B32   B154   #1,&N1,&N2  256N2N1,  JJ2    " ",  x C#d+?ݩ]4rd*`X;[ 7aK3?Ӈ2b4V1]t[tv]7\cXV4* Z&L8gB/#s5 This program is almost the same as HELLO in 9 David Ahl's "101 BASIC Computer Games," p.120. / & adapted for N.S.BASIC Feb.,'78, by ; H.Frohbach,573 Connemara Way,Sunnyvale, CA 94087.  408) 7369324. + A$30)\M112\ M1 IS CLEAR EEN CODE.  M1) "" ******************" 2( " HELLO, I'M A PROGRAMMED PSYCHIATRIST." #2 \ "...WHAT'S YOUR NAME? ",A$ ;<" HI THERE,",\f\". ARE YOU HAPPY IN GENERAL? ",B$ F B$1,1)"Y" P B$1,1)"N" 9Z " ",\f\", I DON'T UNDERSTAND YOUR ANSWER OF '", d B$"'." ?n "PLEASE ANSWER YES OR NO. ARE YOU GENERALLY HAPPY?",B$\ x F . \" OH, I'M GLAD TO HEAR THAT,",\f\ ? \" OH, SORRY TO HEAR THAT,",\f\". MAYBE I CAN HELP" % " BRIGHTEN UP YOUR LIFE A BIT." ;\"SAY, ",\f\", I CAN SOLVE ALL KINDS OF PROBLEMS" 9"---EXCEPT THOSE DEALING WITH GREECE. WHAT KIND OF" 8"PROBLEMS DO YOU HAVE? (ANSWER SEX, HEALTH, MONEY,"  "OR JOB): ",C$  C$"SEX"   C$"HEALTH" h  C$"MONEY" @  C$"JOB"  :\"OH,",\f\", I'M AFRAID YOUR ANSWER OF '"C$"'" "IS GREEK TO ME."\ 7\" I CAN SYMPATHIZE WITH YOU,",\f\". MY BOSS" < "MAKES ME WORK LONG HOURS FOR NO PAY -- AND SOMETIMES" 8" "BEATS MY KEYBOARD. MY ADVICE TO YOU IS TO GO ON" 7,"WELFARE,",\f\". EVERYBODY ELSE IS DOING IT." 6  9@ \"SORRY,",\f\", I'M BROKE, TOO. WHY DON'T YOU" 9J "SELL ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP" 9T "EATING OR GO ON WELFARE SO YOU WON'T NEED SO MUCH" ^ "MONEY."\ *h \"MY ADVICE TO YOU,",\f\", IS:" r" 1. TAKE TWO ASPIRIN" ?|" 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER)." !" 3. GO TO BED (ALONE)."   8\" IS YOUR PROBLEM TOO MUCH OR TOO LITTLE? ",D$\  D$"TOO MUCH"   D$"TOO LITTLE"  6"DON'T GET ALL SHOOK,",\f\", JUST ANSWER THE" 7"QUESTION WITH 'TOO MUCH' OR 'TOO LITTLE.' WHICH?"   9\" YOU CALL THAT A PROBLEM? I SHOULD HAVE SUCH" C"PROBLEMS! IF IT BOTHERS YOU,",\f\", TAKE A COLD SHOWER!"   <\" THEN WHY ARE YOU HERE,",\f\"? YOU SHOULD BE" 9"IN SOMEPLACE LIKE NEW YORK, OR TOKYO, OR AMSTERDAM" $"WHERE THERE IS REAL ACTION. "  \\ 2" ANY MORE PROBLEMS YOU WANT SOLVED,",\f & "? ",E$\ 0 E$1,1)"Y" X : E$1,1)"N"l 6D " JUST A SIMPLE YES OR NO,PLEASE,",\f\"." N  2X " WHAT KIND (SEX, JOB, HEALTH, MONEY)? ",C$ b 8l \" THAT WILL BE $5.00 FOR THE ADVICE,",\f\"." 3v "PLEASE LEAVE THE MONEY BESIDE THE KEYBOARD."  A3000  \\\ I1A\  I1 22\\  M1) ( " DID YOU LEAVE THE MONEY? ",G$  G$1,1)"Y"   G$1,1)"N"  6"YOUR ANSWER OF '",G$"' CONFUSES ME,",\f\"." / "PLEASE RESPOND WITH A SIMPLE YES OR NO."   \\\ I1 A\ 6" HEY! ",\f\"??? YOU DIDN'T LEAVE ANYTHING!" 8"YOU ARE CHEATING ME OUT OF MY HARD-EARNED LIVING." + "BUG OFF,",\f\", YOU CHEAPSKATE." 8 \" NOW LET ME TALK TO SOMEBODY, ANYBODY, ELSE."  H 7  "THAT'S HONEST,",\f\", BUT HOW DO YOU EXPECT" <*"ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS" #4"DON'T PAY THEIR BILLS?"\\\ ,>" NOW LET ME TALK TO SOMEBODY ELSE." 5H"NICE MEETING YOU,",\f\". HAVE A NICE DAY!" R I1 2A\ \  f" "A$, p HUGH B NAH SEXEY Y= This program was written by Phil Feldman & Tom Rugg < of Los Angeles, & published in the July, '77 issue : of Kilobaud, p.90. Adapted for North Star BASIC 6( 31178 by Hugh Frohbach, 573 Connemara Way, -2 Sunnyvale, CA 94087, 408) 7369324 4< M112\M1)\" **** PASS THE BUCK ****" 'F M1 is the "clear screen" code. %P " (A decision maker)" Z F$110)\ L$110) d S$40)\ K$40) n M11,11)\ x L$I)  L$CI1),CI)1)  F$I)  F$DI1),DI)1)   C0)1\D0)1 ? Y$"Y"\" I can help you make decisions by choosing the" > " best possibility for you out of several alternatives." > " All I need to do is organize information you already", > " have."\" Which of these best describes the type of" % " decision you have to make?"\ 3 " 1-Choose an item from several alternatives" > " 2-Choose a course of action from several alternatives" 8 \1" Which type (1 or 2) do you have to make? ",C  C1 \ C2  9 M1)\ C1 " What type of item is it that you" *" C1 1" need to decide upon? ",S$ ", C2 S$"course of action" 6 L$"" /@ \" I will now need a list of each "S$ =J " that you are considering. Please input them one at a" 1T " time. The order doesn't matter at all." 8^ \1" First, how many are there altogether? ",L0 h L02 \ L010  )r \ I1 L0\" Number",I," please." $| K$\CI)CI1)K$)\L$L$K$  I 5 " OK. This is the list under consideration:"\ ! I1L0\6),I,". "L$I)  I\   B$Y$ 6  F$"" : \" Now, how many different factors are important" / " to you in choosing the "S$"? "\ F0 3 " I need a list of each of these factors:"  F1$40) $ I1 F0\" Factor number ",I ' F1$\DI)DI1)F1$)\F$F$F1$  I ; \" Now look at the following list of factors you" > " have provided and decide which is the most important."  \ I1 F0\6),I,".", & " "F$I)\ I 80 \" Which factor (by number) is most important?" 6: " (Type 0 if you wish to change the list)"\ F2 D F20  N F21 F2F0 0 l " has a value of 10 since it's the top of the scale. On" ?v " this scale, what value would each of the other factors" 5 " have? (Decimal fractions are OK.)"\\ I1F0  IF2   F$I)\ FI)  FI)0 FI)10  2 " That input is no good. Try again."\  4 \FF2)10\C0\ I1 F0\CCFI)\\ I1 F0 : FI)FI)C\\M1)\" Now consider how each "S$ ; " rates with respect to each of the factors. We will" ; " consider each factor separately and then rate each" - " "S$" in terms of that factor only." 3 " Let's consider "L$1) " to have a " 9 " value of 10 in each scale. Then every other "S$ 7 " will be given a number higher or lower than 10" 3 " according to how much better or worse than" 4  " "L$1) " you think it is."\ I1 F0\ , " Considering "F$I)" only, and" 2  " assuming "L$1) " has a value of 10," <* " what value would you give to each of the following:" 4 \ J2 L0 5> " "L$J) ,\ MJ,I)\ MJ,I)0 R 9H " C'mon. No negative numbers. Try again."\ > 2R J\\M1,I)10\ I\ I1 F0\C0\ J1 L0 2\ CCMJ,I)\ J\ J1 L0\MJ,I)MJ,I)C\\ 7f J1 L0\VJ)0\ I1 F0\VJ)VJ)MJ,I)FI) .p I\J\ I110\ZI)I\\CL01\ J1 L0 3z I1 C\N1ZI)\N2ZI1)\ VN1)VN2)   ZI1)N1\ZI)N2 1 I\J\C1Z1)\C2Z2)\C100VC1)\ J1 L0 $ VJ)CVJ)\\\\DVC1)VC2) 5 " Well, your best choice seems to be "L$C1) ( D10 " but it's pretty close." 0 D20 \ D10 " by a fair margin." ) D20 " by a good-sized margin." - " Here's the final list with "L$C1) = " given a value of 100 and the others set accordingly."  %#10F2 - \" RATING",15),S$\ J1 L0\CZJ)  " ",VC),15),L$ C)\ J  $ 9 \ " (The number must be between 2 and 10.)"\ ^ + " Is this correct (YES or NO)?"\ A$  B$A$))\ $ \\\ hhg3hch= KEN LE BASIC  RELEASE 3 BASIC  ( "TOKEN TABLE FOR NS BASIC" 2 < N14306 F N114667 P ZN) Z NN1 d NN1 n Z128 x " ",  Z1 Z16.01)  Z2ZZ116 QAZ1) QAZ2) "H =", P Z), P FUNCTI NIBBLE IN HEX AX) X148  X10 X155  XX1),  X  OV`WfEfpEpW%PCxWBBBW SECR  ' BY PHIL HIGA FEBRUARY 1978 ( 72 DETERMINES GTH OF PROGRAM IN 256 BYTE 'BLOCKS' < F A11 \ CLEAR EEN P Z$A)\Z$\ CLEAR EEN 'Z M10812\ MEMY AFTER ING BASIC 4d M0))256)1," Blocks"\\\ PROGRAM GTH n \20),"* SECTOR *"\ ?x \\"THIS PROGRAM WILL PRINT A TABLE WHICH WILL GIVE YOU" @ "THE NUMBER OF BLOCKS OF DISK SPACE REQUIRED FOR A BASIC " ? "LANGUAGE PROGRAM. USE 'PRINT FREE (0) TO DETERMINE THE " > "AMOUNT OF FREE MEMORY AVAILABLE AND THEN REFER TO THE " > "TABLE FOR THE CORRESPONDING NUMBER OF BLOCKS REQUIRED." , \\ "Output To Printer? (Y/N) ",P$ % P$"Y" 12) \ TURN ER  Z$ $ 21),"NORTH STAR USER GROUP" $ 21),"=====================" + 25),"02-10-78 P.H."\ BY PHIL HIGA . 16),"TABLE TO FIND NUMBER OF SECTORS" ! 22),"USE: PRINT FREE(0)" H "===============================================================" E 4),"16K. MEMORY 24K. MEMORY 32K. MEMORY" H "==============================================================="  " I0 19004 256 , U12620I \ L1U1255 6 U210812I \ L2U2255 @ U319004I \ L3U3255 J S12620U1)256)1 T S210812U2)256)1 ^ S319004U3)256)1 2h S10 S10 \ U10 U10 \ L10 L10 2r S20 S20 \ U20 U20 \ L20 L20 2| S30 S30 \ U30 U30 \ L30 L30 2 U10 S10 \ U20 S20 \ U30 S30 2 " ",%5I,U1," TO",%5I,L1," =",%2I,S1," ", / %5I,U2," TO ",%5I,L2," =",%2I,S2," ", ' %5I,U3," TO ",%5I,L3," =",%2I,S3  I H "===============================================================" ' P$"Y" 12)\ TURN ER OFF \\ / " *****************************" / " ** PROGRAM BANNER **" / " ** PHIL HIGA **" /( " ** 02/18/78 **" /2 " *****************************" 9< "NOTE: If you are running Basic with 24K of memory" 4F " run DEFUNCT before using this program." P B140) \ A$40) Z "REMARK:" 8d " THIS PROGRAM WILL PRINT BANNER PAGES IN A 63" n " BY 25 MATRIX FORMAT." 9x " PLEASE ENTER YOUR MESSAGE UP TO 40 CHARACTERS" 9 " LONG (ALPHA CHARACTERS ONLY!!, SPACES ARE OK)" : " AND END YOUR ENTRY WITH A PERIOD AND A RETURN."  \ \ A$ \ \ G "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" G "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"  I1 40 G "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" G "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" . A$I,I)"."  \ A$I,I)" "  . A$I,I)"A" & \ A$I,I)"B" v . A$I,I)"C"  \ A$I,I)"D" 4 . A$I,I)"E"  \ A$I,I)"F"  . A$I,I)"G" 8 \ A$I,I)"H"  . A$I,I)"I"  \ A$I,I)"J"  . A$I,I)"K" < \ A$I,I)"L"  . A$I,I)"M"  \ A$I,I)"N"  ." A$I,I)"O" T \ A$I,I)"P"  ., A$I,I)"Q"  \ A$I,I)"R" N .6 A$I,I)"S"  \ A$I,I)"T"  .@ A$I,I)"U" f \ A$I,I)"V"  .J A$I,I)"W"  \ A$I,I)"X" 8 .T A$I,I)"Y" \ A$I,I)"Z" ^ Gh "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" Gr "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" | I  \ \ "END OF MESSAGE"    X1 D \ BX) \ X  Y$"X" \ N$" "  L1 D  BL) 0  " C1 BL)) \ N$, \ C  BL) 0  \  BL) 0   Q1 BL) \ Y$, \ Q  L \ ^  " "  S1 10 G "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"  S \ h & "A" 0 \ D108 \  7: 5,43,15,0,5,47,11,0,5,49,9,0,24,5,16,10,8,0 6D 24,5,19,8,7,0,24,5,21,7,6,0,24,5,23,6,5,0 6N 24,5,23,6,5,0,24,5,24,5,5,0,24,5,24,5,5,0 6X 24,5,24,5,5,0,24,5,24,5,5,0,24,5,23,6,5,0 6b 24,5,23,6,5,0,24,5,21,7,6,0,24,5,19,8,7,0 7l 24,5,16,10,8,0,5,49,9,0,5,47,11,0,5,43,15,0 v "B"   \ D136 \  $ 5,53,5,0,5,53,5,0,5,53,5,0 0 5,5,19,5,19,5,5,0,5,5,19,5,19,5,5,0 0 5,5,19,5,19,5,5,0,5,5,19,5,19,5,5,0 0 5,5,19,5,19,5,5,0,5,5,19,5,19,5,5,0 0 5,5,19,5,19,5,5,0,5,5,19,5,19,5,5,0 0 5,6,18,5,18,6,5,0,6,6,16,7,16,6,6,0 1 6,6,16,7,16,6,6,0,7,7,12,11,12,7,7,0 0 8,8,7,8,1,8,7,8,8,0,10,20,3,20,10,0 + 12,15,9,15,12,0,14,10,15,10,14,0  "C"   \ D108 \  7 14,35,14,0,11,41,11,0,9,45,9,0,8,9,29,9,8,0 3 7,8,33,8,7,0,6,7,37,7,6,0,5,6,41,6,5,0 3  5,6,41,6,5,0,5,5,43,5,5,0,5,5,43,5,5,0 3 5,5,43,5,5,0,5,6,41,6,5,0,5,6,41,6,5,0 3  6,7,37,7,6,0,7,8,33,8,7,0,8,9,29,9,8,0 ;* 9,14,17,14,9,0,11,12,17,12,11,0,14,9,17,9,14,0 4 "D" > H \ D102 \  3H 5,53,5,0,5,53,5,0,5,53,5,0,5,5,43,5,5,0 3R 5,5,43,5,5,0,5,5,43,5,5,0,5,5,43,5,5,0 3\ 5,5,43,5,5,0,5,5,43,5,5,0,5,5,43,5,5,0 3f 5,5,43,5,5,0,5,6,41,6,5,0,6,6,39,6,6,0 3p 6,6,39,6,6,0,7,7,35,7,7,0,8,8,31,8,8,0 *z 10,43,10,0,12,39,12,0,14,35,14,0  "E"   \ D126 \  $ 5,53,5,0,5,53,5,0,5,53,5,0 0 5,5,19,5,19,5,5,0,5,5,19,5,19,5,5,0 0 5,5,19,5,19,5,5,0,5,5,19,5,19,5,5,0 0 5,5,19,5,19,5,5,0,5,5,19,5,19,5,5,0 0 5,5,19,5,19,5,5,0,5,5,19,5,19,5,5,0 * 5,5,19,5,19,5,5,0,5,5,43,5,5,0 3 5,5,43,5,5,0,5,5,43,5,5,0,5,5,43,5,5,0 3 5,5,43,5,5,0,5,5,43,5,5,0,5,5,43,5,5,0  "F"   \ D94 \  $ 5,53,5,0,5,53,5,0,5,53,5,0 6 29,5,19,5,5,0,29,5,19,5,5,0,29,5,19,5,5,0 6 29,5,19,5,5,0,29,5,19,5,5,0,29,5,19,5,5,0 6 29,5,19,5,5,0,29,5,19,5,5,0,29,5,19,5,5,0 .$ 53,5,5,0,53,5,5,0,53,5,5,0,53,5,5,0 .. 53,5,5,0,53,5,5,0,53,5,5,0,53,5,5,0 8 "G" B L \ D116 \  7L 14,35,14,0,11,41,11,0,9,45,9,0,8,9,29,9,8,0 3V 7,8,33,8,7,0,6,7,37,7,6,0,5,6,41,6,5,0 3` 5,6,41,6,5,0,5,5,43,5,5,0,5,5,43,5,5,0 9j 5,5,43,5,5,0,5,6,41,6,5,0,5,6,18,5,18,6,5,0 0t 6,7,16,5,16,7,6,0,7,8,14,5,14,8,7,0 +~ 8,9,12,5,12,9,8,0,9,25,6,14,9,0 ) 11,23,6,12,11,0,14,20,6,9,14,0  "H"   \ D76 \  / 5,53,5,0,5,53,5,0,5,53,5,0,29,5,29,0 2 29,5,29,0,29,5,29,0,29,5,29,0,29,5,29,0 2 29,5,29,0,29,5,29,0,29,5,29,0,29,5,29,0 2 29,5,29,0,29,5,29,0,29,5,29,0,29,5,29,0 $ 5,53,5,0,5,53,5,0,5,53,5,0  "I"   \ D16 \  . 63,0,5,53,5,0,5,53,5,0,5,53,5,0,63,0  "J"   \ D76 \  2  14,9,40,0,11,12,40,0,9,14,40,0,8,9,46,0 . 7,8,48,0,6,7,50,0,5,6,52,0,5,6,52,0 . 5,5,53,0,5,5,53,0,5,5,53,0,5,6,52,0 .( 5,6,52,0,6,7,50,0,7,8,48,0,8,9,46,0 &2 9,49,5,0,11,47,5,0,14,44,5,0 < "K" F P \ D102 \  /P 5,53,5,0,5,53,5,0,5,53,5,0,28,7,28,0 -Z 27,9,27,0,25,13,25,0,23,8,1,8,23,0 7d 21,8,5,8,21,0,19,8,9,8,19,0,17,8,13,8,17,0 9n 15,8,17,8,15,0,13,8,21,8,13,0,11,8,25,8,11,0 3x 9,8,29,8,9,0,7,8,33,8,7,0,5,8,37,8,5,0 3 5,6,41,6,5,0,5,4,45,4,5,0,5,2,49,2,5,0  "L"   \ D76 \  8 5,53,5,0,5,53,5,0,5,53,5,0,5,5,53,0,5,5,53,0 8 5,5,53,0,5,5,53,0,5,5,53,0,5,5,53,0,5,5,53,0 8 5,5,53,0,5,5,53,0,5,5,53,0,5,5,53,0,5,5,53,0 . 5,5,53,0,5,5,53,0,5,5,53,0,5,5,53,0  "M"   \ D76 \  / 5,53,5,0,5,53,5,0,5,53,5,0,44,14,5,0 5 40,14,9,0,36,14,13,0,32,14,17,0,28,14,21,0 6 24,14,25,0,20,14,29,0,24,14,25,0,28,14,21,0 4 32,14,17,0,36,14,13,0,40,14,9,0,44,14,5,0 $ 5,53,5,0,5,53,5,0,5,53,5,0  "N"  " \ D76 \  /" 5,53,5,0,5,53,5,0,5,53,5,0,45,13,5,0 4, 41,17,5,0,37,17,9,0,33,17,13,0,29,17,17,0 66 25,17,21,0,21,17,25,0,17,17,29,0,13,17,33,0 1@ 9,17,37,0,5,17,41,0,5,13,45,0,5,9,49,0 $J 5,53,5,0,5,53,5,0,5,53,5,0 T "O" ^ h \ D102 \  7h 14,35,14,0,11,41,11,0,9,45,9,0,8,9,29,9,8,0 3r 7,8,33,8,7,0,6,7,37,7,6,0,5,6,41,6,5,0 3| 5,6,41,6,5,0,5,5,43,5,5,0,5,5,43,5,5,0 3 5,5,43,5,5,0,5,6,41,6,5,0,5,6,41,6,5,0 3 6,7,37,7,6,0,7,8,33,8,7,0,8,9,29,9,8,0 ( 9,45,9,0,11,41,11,0,14,35,14,0  "P"   \ D102 \  4 5,53,5,0,5,53,5,0,5,53,5,0,29,5,19,5,5,0 6 29,5,19,5,5,0,29,5,19,5,5,0,29,5,19,5,5,0 6 29,5,19,5,5,0,29,5,19,5,5,0,29,5,19,5,5,0 6 29,5,19,5,5,0,29,6,17,6,5,0,30,6,15,6,6,0 5 30,6,15,6,6,0,31,7,11,7,7,0,32,8,7,8,8,0 * 34,19,10,0,36,15,12,0,38,11,14,0  "Q"   \ D112 \  7 14,35,14,0,11,41,11,0,9,45,9,0,8,9,29,9,8,0 3 7,8,33,8,7,0,6,7,37,7,6,0,5,6,41,6,5,0 3 5,6,41,6,5,0,5,5,43,5,5,0,5,5,43,5,5,0 .& 5,5,4,2,37,5,5,0,5,6,3,2,36,6,5,0 90 5,6,2,3,36,6,5,0,6,10,34,7,6,0,7,8,33,8,7,0 /: 8,9,29,9,8,0,6,48,9,0,5,4,2,41,11,0 D 5,2,7,35,14,0 N "R" X b \ D122 \  $b 5,53,5,0,5,53,5,0,5,53,5,0 6l 27,7,19,5,5,0,26,8,19,5,5,0,26,8,19,5,5,0 9v 22,12,19,5,5,0,22,12,19,5,5,0,18,16,19,5,5,0 1 18,8,3,5,19,5,5,0,14,12,3,5,19,5,5,0 1 14,8,7,6,17,6,5,0,10,12,8,6,15,6,6,0 2 5,13,12,6,15,6,6,0,5,13,13,7,11,7,7,0 + 5,9,18,8,7,8,8,0,5,9,20,19,10,0 ' 5,5,26,15,12,0,5,5,28,11,14,0  "S"   \ D140 \  < 14,9,16,10,14,0,11,12,13,16,11,0,9,14,10,21,9,0 / 8,9,15,10,4,9,8,0,7,8,16,8,9,8,7,0 0 6,7,17,7,13,7,6,0,5,6,18,6,17,6,5,0 0 5,6,18,6,17,6,5,0,5,5,19,5,19,5,5,0 0 5,5,19,5,19,5,5,0,5,5,19,5,19,5,5,0 0 5,6,17,6,18,6,5,0,5,6,17,6,18,6,5,0 / 6,7,13,7,17,7,6,0,7,8,9,8,16,8,7,0 ,  8,9,4,10,15,9,8,0,9,21,10,14,9,0 + 11,16,13,12,11,0,14,10,16,9,14,0  "T" * 4 \ D76 \  .4 53,5,5,0,53,5,5,0,53,5,5,0,53,5,5,0 .> 53,5,5,0,53,5,5,0,53,5,5,0,53,5,5,0 $H 5,53,5,0,5,53,5,0,5,53,5,0 .R 53,5,5,0,53,5,5,0,53,5,5,0,53,5,5,0 .\ 53,5,5,0,53,5,5,0,53,5,5,0,53,5,5,0 f "U" p z \ D76 \  1z 15,43,5,0,11,47,5,0,9,49,5,0,8,10,45,0 . 7,8,48,0,6,7,50,0,5,6,52,0,5,6,52,0 . 5,5,53,0,5,5,53,0,5,5,53,0,5,6,52,0 / 5,6,52,0,6,7,50,0,7,8,48,0,8,10,45,0 & 9,49,5,0,11,47,5,0,15,43,5,0  "V"   \ D76 \  1 53,5,5,0,47,11,5,0,41,17,5,0,35,20,8,0 6 29,20,14,0,23,20,20,0,17,20,26,0,11,20,32,0 3 5,20,38,0,5,14,44,0,5,20,38,0,11,20,32,0 5 17,20,26,0,23,20,20,0,29,20,14,0,35,20,8,0 & 41,17,5,0,47,11,5,0,53,5,5,0  "W"   \ D76 \  / 5,53,5,0,5,53,5,0,5,53,5,0,5,14,44,0 5 9,14,40,0,13,14,36,0,17,14,32,0,21,14,28,0 6 25,14,24,0,29,14,20,0,25,14,24,0,21,14,28,0 4$ 17,14,32,0,13,14,36,0,9,14,40,0,5,14,44,0 $. 5,53,5,0,5,53,5,0,5,53,5,0 8 "X" B L \ D104 \  5L 5,4,45,4,5,0,5,8,37,8,5,0,5,12,29,12,5,0  Uses small modules to aid change,checking,comprehension > Procedures check params. Safety is first, speed second :. Main ref.Creat. Comp JanFeb 78p.4853,James Murphy :8 & Morton, Intro to BASIC, Matrix Pub. 1977, 159162 ?B Ref.1971)Meadows,World Dynamics,Wright Allen,Forrester Z"resources left,10B=birth/1000,10M=death/1000,G=resource" 6["growth,10U=resource use/1000,10P8=10xchange inP" <\"C8=change inC,10R8=10xchange in R, C/P=capital/person" ` D10\ G10\ debug options 3j RX,L,H)\ range check. if x in l,h) ret 0 t LX XH 0\ 1\ 8~ MX,Y)\ value is absolute) memory loc of x,y) * RX,0,63) RY,0,15) O 1 6 X0.5X)\Y0.5Y)\ 124096256)X15Y)64  9 IZ,N)\ interpolate Z into X9,value is Y9,N pts.   = trial to eliminate awkward passing arrays for interpol /ZCZ,X91),X9N))\I1N\X9I)X\I ;FZX9I1))X9I)X9I1)))Y9I)Y9I1))Y9I1) 8D1"Z,N,X1,XN,Y1,YN ",Z,N,X91),X9N),Y91),Y9N)  H  Z CZ,X91),X9N)) - I1 N\ X9I)Z \ I\ - A7X9I1)\ B7X9I)\ P7Y9I1) /  F ZA7)B7A7))Y9I)P7)P7 - D11 "200,A,B,P,F",A7,B7,P7,F  F ( 02 CX,A,B)\ clip x to lie in range a,b) %< X A A\ B X B\ X F 5P PX,X1,X2,Y1,Y2)\ plot x,y uses full grid) \"Resources=0"\\ halt r0 9>%3I,T,%#5F2,P,C,R,B,M,G,U,P8,C8,10R8,CP\\ report H D10 \ I 1 4 )R I,B11),B2I),X9I),Y9I)\ I\ /\ T 205 >\ \ end after 10 yr. !,+_+N *!5.+_+!/+_+B+P!R+! R+!%R+!R+!R+!R+! R+!%R+y!V+x²*y*!,8+0CK>:‹*0 ‹*0|*>0œ*ž*à*p#q#s#!B,&+_+Y *ɷ*y*!+8+é*!,8+_+#wl+ !2*+####*#~*yc+*xc+#xG#yO**+!,8+é*!+8+*z2+B+~2+#&+:+Wz2+#+կ> zF+ɯxG\+606* !+8+*d=s+r+p+HEY! YOU CAN ONLY SHOOT STARS, NOT BLACK HOLES. TRY AGAIN.THAT WASN'T A VALID STAR NUMBER. TRY AGAIN.YOU LOST THE GAME! WANT TO SHOOT SOME MORE STARS?YOU WIN!! GOOD SHOOTING! YOU FIRED  SHOTS. BEST POSSIBLE SCORE IS 11 SHOTS. WANT TO SHOOT AGAIN, DEADEYE?YOU GIVE UP TOO EASILY! WANT TO SHOOT SOME MORE STARS?YOUR SHOT? * * * * * * * * * S H O O T I N G S T A R S * * * * * * * * * . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . A B R A I N T E A S E R G A M E ! ! !. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . NORTHSTAR USERS GROUP VERSION JANUARY 1978 DAVID L. HAVERTYDO YOU WANT THE RULES? (TYPE N FOR NO)THERE ARE STARS: * AND THERE ARE HOLES: 0 IN THE UNIVERSE. YOU SHOOT A STAR, (NOT A BLACK HOLE) BY TYPING ITS NUMBER. 1 2 3 * * * 0 0 0 4 5 6 * 0 * 0 0 0 7 8 9 * * * 0 0 0 YOU WIN IF YOU GET THE PATTERN IN THE MIDDLE. YOU LOSE IF YOU GET THE PATTERN ON THE RIGHT.EACH STAR IS IN A GALAXY. WHEN YOU SHOOT A STAR EVERYTHING IN ITS GALAXY CHANGES. ALL STARS BECOME BLACK HOLES AND ALL BLACK HOLES BECOME STARS. . . . . . . GALAXIES: . . . . . . . 1 * 0 * 2 * 0 * 3 * 0 0 0 * 0 * * 0 0 0 0 0 * * 4 0 0 * 5 * 0 0 0 0 0 0 0 0 0 * 0 0 0 * 0 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 0 0 * 0 0 0 0 0 0 0 0 0 0 0 6 * * 0 0 0 0 0 * * 0 0 * 7 * 0 * 8 * 0 * 9 READY TO PLAY. TYPE ANY KEY TO START. GOOD LUCK!1 234)5Z67 h8@9' O0\ SET O THE DESIRED PUT PT ; #O,"Decimal/Hexidecimal conversion code by Al Harral" 7 #O,"conversions within the range 1-65534 Decimal" " #O,"and 1-FFFF Hexidecimal."  H1$16)  H1$"0123456789ABCDEF" $ C116\C2162\C3163\C41641  #O, . #O,"Select type of calculation desired." #O, 3 #O,"(0).....A ZERO returns you to this point" 1 #O,"(1).....Convert decimal to Hexidecimal" 1 #O,"(2).....Convert hexidecimal to decimal" 6 #O,"(3).....Hexidecimal addition or subtraction" : #O,"(4).....Hexidecimal multiplication and division"  T  T1T4  T,,+,O  DEC HEX  #O,  1"Decimal Number ",N  N0  NC4    H$H$1,4)  9 #O," is Hex ",H$," and occupies ",%5F1,N5," blocks"    HEX DEC  #O,  1"Hex number ",H$ $ I1H$)\H$I,I)" ")\I ! H$)1# " H$"0" # H$)4 $ % NC4 & <' #O," is Decimal ",N," and occupies ",%5F1,N5," blocks" (  ) #O," NO spaces please" *  + ADD SUBTRACT IN HEX &, #O,"NO spaces or commas please!" :- #O,"First Hex number,operator,and second Hex number" . "Hex1+(or-)Hex2 ",I$ / LI$) 0 L13 1 I$1,1)"0" 2 . 3 L9. 4 I25 5 I$I,I)"+"; 6 I$I,I)"-"< 7 I$I,I)" "9 8 I 39 #O,"EXAMPLE CFD+3EF NO spaces please" : . ; M1\= < M2 = J$I$1,I1)\K$I$I1,L) > H$J$\\N1N ? H$K$\\N2N @ M1NN1N2NN1N2 3A NC4N100000#O,"TOO BIG! larger than ",C4 B NC4. C N0G D REVERSE DER E N3N1\N1N2\N2N3\NN1N2 F L$J$\J$K$\K$L$ G  H I L$"+" J M2L$"-" >K #O,"In Hex ",J$,L$,K$,"=",H$," and occupies ",%5F1,N5, L #O," blocks" (M #O,"or in Decimal ",N1,L$,N2,"=",N N . O MULTIPLY DIVIDE IN HEX &P #O,"No spaces or commas please!" :Q #O,"First Hex number,operator,and second Hex number" R "Hex1*(or/)Hex2 ",I$ S LI$) T L1W U I$1,1)"0" V R W L9R X I25 Y I$I,I)"*"_ Z I$I,I)"/"` [ I$I,I)" "] \ I 4] #O,"Example: 3F*1A NO spaces please" ^ R _ M1\a ` M2 a J$I$1,I1)\K$I$I1,L) b H$J$\\N1N c H$K$\\N2N d M2j e NN1N2 f N1100000N2100000R *g NC4#O,"TOO BIG! larger than ",C4 h NC4R i t j N1N2o k N1100000N2100000R l REVERSE DER m N3N1\N1N2\N2N3 n L$J$\J$K$\K$L$ o NN1N2) p R1N1NN2 q N3N r NR1\\R$H$ s NN3 t  u v L$"*" w M2L$"/" >x #O,"In Hex ",J$,L$,K$,"=",H$," and occupies ",%5F1,N5, y #O," blocks" z M1| ;{ #O,"with a Hex remainder of ",R$," or ",R1," Decimal" (| #O,"or in Decimal ",N1,L$,N2,"=",N } R ~ , Subroutine to find the Hex value H$) ! of the decimal number N).  H$" "  ANC3) RNAC3  BRC2) RRBC2  CRC1) DRCC1 ( A1)A1\A2)B1\A3)C1\A4)D1  I411 JAI)  H$H1$J,J)H$  I  / Ssuboutine to find the Decimal value N)  of the Hex number H$). I13  H$)4H$"0"H$  I I14 J116  H$I,I)H1$J,J)  J . #O," Not a valid HEX number"\N1000000\ AI)J1  I # NA1)C3A2)C2A3)C1A4)   N5N1)C2  N6N5N5)  N6.1  N60  N5N5).1  ccc