NSUG.15  CKWRITE   HEXCALC  ADD-EM "  SHORTLI , HANGIT 0 RANSEED @ RANREM A YAHTZEE E  YAHTZEE1O  YAHTZEE2Y  YAHTZEE3c  YAHTZEE4m  YAHTZEE0w DIRCOMP y  23)  26),"CHECK WRITER"  26),"VERSION 1.5" ( 24),"BY TED WARSHAUER" 2 I1 8\\ < X0 \ ER SELECT CODE .F X11\X22\ TEMP PATCH ER ROL VARIABLES #P N$57)\ MAX GTH PAYEE NAME Z CHECK SPACING VARIABLES d T153\ MTH n T28\ PAYEE NAME x T366\ AMOUNT  T466\ DATE D3 " T59\ SPACING BETWEEN CHECKS #X,80 D N1$" " > "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT" ; "NINE","TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN" < "FIFTEEN","SIXTEEN","SEVENTEEN","EIGHTEEN","NINETEEN" : "TWENTY","THIRTY","FORTY","FIFTY","SIXTY","SEVENTY"  "EIGHTY","NINETY" ? "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" ; "AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"  "ENTER DATE (MMDDYY): ",D ( "----"   "PAYEE NAME: ",N$  N$N$N1$  N$1,3)"END"  " "AMOUNT OF CHECK: ",A , "PRINTER READY? ",Z$ @ PARSE DATE NUMBER J D1D10000) T D2DD110000)100) ^ D3DD1100D2)100) r | I1 D1  X0$  I  DATE  #X,T1),X0$,D2,T4),D3  #X,""  #X,T2),N$,T3),%C$9F2,A  #X,""  A0   A1A " N1A11E3)\ AMT IN THOUSS % CAN'T AMOUNTS OVER 99,999.99  N199   N10     #X,"THOUSAND ",  A1A1N11E3 #& N1A1100)\ AMT IN HUNDREDS 0 N10 N :  D #X,"HUNDRED ", N A1A1N1100) !X N1A1)\ AMT IN ES TENS b N10  l A1  v     #X,"DOLLARS",  A1A1N1  A1.01 \ ANY CENTS?  A1   #X," AND",  A1A1100  #X,A1," CENTS"  SPACE CHECK  I1 T5  #X,""  I  65252,X1  RESTART RINE  ! RINE GET WDS NUMBERS   N121 p * 4 I1 N120)10)20) > X0$ H I R #X,X0$, \ A3N1N110)10) f z p A3N1 z A30   #X,"-",   I1 A3  X0$  I  #X,X0$," ",   #X,"*****VOID*****"    pAB^J^A_ A^9TED WARSHAUER 9 " HEX/DECIMAL/BINARY/SPLIT OCTAL STACK CALCULATOR" + REQUIRES 24K MEM BY ROGER GLASSEY 5 1163 KEELER AVE BERKELEY 94708 415) 8451483 6 H.P HAD DE THE PROGRAMMERS CALCULAR INSTEAD 6 OF T.I , IT MIGHT HAVE BEEN SOMETHING LIKE THIS 6# A$16) , S4),C$20),C1$20),B116),D15),H14) ( M1$32),L15),R15) %- START INITIALIZATI E2 M1$"DECIMALHEXBINARYOCTALSPLIT OCTAL"\ C1$"THNOSXRLSMPZ*+-/?" 7 COMMS IN C1$ < M1 5\ L1M),R1M)\ M =A 1,7,8,10,11,16,17,21,22,32\INE WD BOUNDARIES IN M1$ ;F J1 5\ LJ)\ J\ LARGEST II CODE LEGAL NUMBER K 57,70,49,55,55 /P M1 5\ L2M)\ M\ PUT) IN MODE M U 5,4,16,6,6 Z J0 16 \ B1J)2J\ J !_ J0 4 \ H1J)16J \ J !d J0 5 \ D1J)10J \ J "i J 0 6 \ O1J)8J \ J n J0 5 \ S8J) \ J s 1,8,64,256,2048,16384 4x M1 \ SET DECIMAL MODE INITIALIZATI }"INSTRUCTIONS",\ A$  A$1,1) "Y" 5 12) \ M FEED CLEAR EEN IN STARD VIDEO E" THIS CLACULATOR HAS A 4 REGISTER STACK ,S, AND ONE MEMORY" A"REGISTER. IT RECOGNIZES THE 4 BASIC ARITHMETIC OPERATORS;" ?"EG., WHEN YOU ENTER - FOLLOWED BY RETURN, THE RESULT IS " B"S(1)=S(2)-S(1); S(2)=S(3) ETC. THE S(1) REGISTER IS CALLED" D" X FOR SHORT. OTHER LEGAL ENTRIES ARE NUMBERS IN THE CURRENT" C"MODE AND CERTAIN SINGLE LETTER COMMANDS FOLLOWED BY RETURN. " 2"THE COMMAND ? WILL PRINT THE COMMAND TABLE." C" MODES : DECIMAL=T HEX=H BINARY=N OCTAL=O SPLIT OCTAL=S" <"A MODE SHIFT COMMAND WILL CAUSE DISPLAY OF X. EXCEPT" ?"IN DEC MODE, NEGATIVE NUMBERS ARE DISPLAYED AS THE TWO'S" ="COMPLEMENT, FLAGGED BY -. THE INITIAL MODE IS DECIMAL." 8"AS USUAL IN BASIC PROGRAMS, THE INPUT PROMPT IS ?"  ' PROCESG BEGINS HERE  A$ \ N A$) , N 0 O \ ACTS LIKE ENTER  XA$) \ B$A$ 5 47X X58) 64X X 71) \ NUMERAL  I1 17 \ COMM DECODE  B$C1$I,I)  I %"ILLEGAL INPUT CHARACTER"\  I6 Y II5 : I ^,c,h,m,r,w,,,,,,& * MODE CVERSI OF NUMBERS   A0 2 J1 N \ HA$J,J))\ H IS CURT NUMERAL - HLM) J \ O BIG THIS MODE 2 H57 HH55 HH48 \ GET NUM. OF H  M ",',,,1,6 ." AAHD1NJ)\ ; \ DECIMAL CVERS ,' AAHH1NJ)\ ; \ HEX CVERSI /, AAHB1NJ)\ ; \ BINARY CVERSI )1 AAHO1NJ)\ ; \ OCTAL CV /6 AAHS8NJ)\ ; \ SPLIT OCTAL CV ; J .@  \ S1)A \ ROLL UP REPLACE S1) E \ BACK RINE 9J "ILLEGAL INPUT IN ",M1$L1M),R1M))," MODE" \ -O  \  \ ROLL UP STACK PUT X T PROCESS COMMS Y MI \  \ CHANGE MODE 5^ XS2) \ S2) S1) \ S1)X \ \ EXCHANGE 7c XS1)\ S1)S2)\  \ S4)X \  \ ROLL &h S1)S1) \ \ SIGN CHANGE m M1S1)\  \ SRE X /r  \ S1)M1 \  \ RE X FROM M1 0w L 1 4 \ XSL) \  \ L \ STK |  S1)0 \  - S1)S1)S2) \  \  \ TIMES , S1)S1)S2) \  \  \ PLUS - S1)S2)S1) \  \  \ MINUS 1 S1)S2)S1)) \  \  \ DIVIDE  PUT STARTS HERE  XS1) \  \ - M1 %6I,X," T"  \ \ DEC - J1 20 \ C$J,J)" " \ J \ C2$" " 0 C$L2M),L2M))"0" \ INITIALIZE PUT STR  X 0   ( XX65536 \ C2$"-" \ COMPLEMENT % X)65535  \ OVERFLOW  YX \ J1 L2M) ! M ,,,, 3 ZH1L2M)J) \  \ POWERS OF BASE  ZB1L2M)J) \  ! ZO1L2M)J) \  ! ZS8L2M)J) \   XZ   Y1 YZ) \ YYY1Z  Y19  , C$J,J)Y148)\  \ 09 % C$J,J)Y155) \ AF  J 8 C$L2M)2,L2M)3)C1$M,M)C2$ \ ADD MODE, SIGN  C$ \  "OVERFLOW" \   PUT RINE  ROLL UP STACK & J 1 3 \S5J)S4J)\ \ ! ROLL DOWN STACK COPY TT !! J2 3 \ SJ)SJ1)\\ & COMM LE + 12) =0 "L - CHANGE SIGN OF X - OUTPUT 2'S COMPL EXCEPT IN DEC" 5"S - STORE X" : "M - RECALL X FROM MEMORY" ? "P - PRINT STACK" D "R - ROLL STACK DOWN" %I "X - EXCHANGE X AND Y IN STACK" N "Z - SET X TO ZERO" S"T - SET MODE TO DECIMAL" X"H - SET MODE TO HEX" ]"N - SET MODE TO BINARY" b"O - SET MODE TO OCTAL" g"S - SET SPLIT OCTAL MODE" #l"? - PRINT THIS COMMAND TABLE" q jLIST /yjAArh 0 H jTHNOSXRLSMPZ*+-/? 12) F "**************************************************************" & 14),"THIS IS AN ADDITION GAME" F "**************************************************************"  24),"+" ( 22),"+ + +" 2 24),"+" ?< "ARE YOU A BEGINNER(B), INTERMEDIATE(I), EXPERT(E)--",A$ F P 2Z "GIVE ME A NUMBER BETWEEN 1 AND 100 --->",A _ A1 Z d A100 x n A99 Z x ZA100  A$"B"  A$"I" T  A$"E"  12)  W0  N1 10  S0  J1 3 H  YX91)   J   N  I1 1000\TI\ I\12) $ "YOUR SCORE IS",W10)100,"%" " W1050  , 0, "DO YOU WANT TO PLAY AGAIN(YES/NO)---",C$ 6 C$"YES" 7@ C$"NO" "COME SEE ME AGAIN SOMETIME"\"GAMES" J T 12) ^ W0 h N1 10 r S0 | J1 3  H  YX100)    J    N  I1 1000\TI\ I\12) $ "YOUR SCORE IS",W10)100,"%"  W1050   1 "DO YOU WANT TO PLAY AGAIN (YES/NO)---",C$  C$"YES" T / C$"NO" "SEE YOU NEXT TIME"\ "GAMES"   12)  W0  N1 10  S0  J1 3 & H 0 YX1000) :  D J N  X N ] I1 1000\TI\ I\12) %b "YOUR SCORE IS ",W10)100,"%" g W1050  l 1l "DO YOU WANT TO PLAY AGAIN (YES/NO)---",C$ v C$"YES"  / C$"NO" "SEE YOU NEXT TIME"\ "GAMES"   SSY  10),%5I,Y   " ---------"  "ANSWER ",B  BS "TERRIFIC"  BS WW1  BS 4   BS "TRY AGAIN PLEASE"  "ANSWER ",B  BS "TERRIFIC"   BS WW1  BS 4   '* BS "THE RIGHT ANSWER IS ",S <4"-----------------------------------------------------" > H ZZ0.0005 R I100JZ)100 \ I0.99 II0.3 f XI) p 4 X63488\ 'X'IS THE EEN IGINUPPER LEFT CNER 5 Y7\ OTHER THAN POLLY VTI USE CURS CHARACTER  J1 2 $ I0 30\X66416I),Y\ I $ I0 30\X76416I),Y\ I $ I0 30\X86416I),Y\ I $$ I0 30\X96416I),Y\ I %. I0 30\X106416I),Y\ I 78 Y35\ OTHER THAN POLLY VTI USE DFET CHARACTER B J 4L \\\\\\\\\\"THAT WAS A GREAT GAME "\ V  *_ E @PA)`C AA)hu@)`C 5>y["!L%j DIRECRY COMPACR 5 ADAPTED FROM SOFTWARE WKS UTILITIES PACKAGE 3 BY R HIPSCHMAN 4578 TEL415)7554341 ( A8) &2 C$12)\ CLEAR EEN CHARACTER < C$ /F " DIRECTORY LIST COMPACTOR"  " /" H " /" R  \ " / \" f " / \" p " / \" z  A$," was the word."   "May your ", * R7) ,,,,,,$  "brain be eaten by ants"  ` # "eyes be plucked by vultures"  ` ) "intestines be digested by maggots"  `  "body be consumed by fire"  `  "tongue swell and burst"  ` % "veins be infested by dogworms"  ` %$ "skull be inhabited by roaches" . ` 8 .B "R I G H T ! ! ! ",A$," was the word!!" L "Darn, you win.", 2V E5 " But you came very close to dying!" ` 'j "Care for another chance to die", t A$ ~ A$1,1)"Y" 7 39,"LEOPARD","JAGUAR","TIGER","LIONESS","CHEETA" 7 "PUMA","MONKEY","ALLIGATOR","COCKROACH","LIZARD" 1 "SNAKE","SPIDER","MANTIS","COYOTE","ZEBRA" 1 "ANTELOPE","STEER","BUFFALO","RHINOCEROUS" 4 "GIRAFFE","PUSSY","RACOON","OYSTER","OCTOPUS" 1 "SQUID","GAZELLE","MOUSE","RABBIT","SHEEP" 2 "VULTURE","WHALE","DOLPHIN","SHARK","SHREW" 2 "PANDA","WALRUS","CAMEL","HOUND","BACTERIA" : 52,"DATA","CONTROL","ELECTRICITY","THOUGHT","BRAIN" 9 "CENTRAL","ARITHMETIC","DECIMAL","TERMINAL","PORT" : "INPUT","OUTPUT","PUNCH","READ","PROGRAM","EXECUTE" : "CARRY","FETCH","CHANNEL","CALCULATE","LOAD","EDIT" 6 "ASSEMBLE","CONSTANT","VARIABLE","BINARY","BIT" :  "CARRIAGE","DISCRETE","MONOLITHIC","CHIP","FORTRAN" 1 "PROGRAM","ELECTRONIC","TELETYPE","RETURN" 8 "KEYBOARD","COBOL","LINKAGE","COMPILER","ADDRESS" ;( "ABSOLUTE","TRANSISTOR","CONSOLE","CARRIER","BRANCH" 42 "BASIC","DISK","CRT","JOYSTICK","REITERATIVE" < "SUBROUTINE" ;F 22,"SILVER","ALUMINUM","HYDROGEN","HELIUM","SILICON" 2P "GOLD","PLATINUM","URANIUM","XENON","SHALE" 5Z "BOULDER","WATER","DIAMOND","GLASS","SAPPHIRE" 4d "RUBY","CARBON","OXYGEN","ALCOHOL","METHANOL" n "ETHANOL","GASOLINE" 2x 30,"CARROT","CORN","APRICOT","PEAR","LEMON" : "ORANGE","AVOCADO","GRAPEFRUIT","GRAPE","CANTELOPE" 8 "MANGO","APPLE","TOMATO","POTATO","OLIVE","ONION" 6 "PINEAPPLE","REDWOOD","SEQUOIA","ACORN","MELON" 4 "GRASS","POPPY","CABBAGE","SPINACH","PARSLEY" 6 "SOYBEAN","WATERMELON","ARTICHOKE","EUCALYPTUS"   : THE RANSEED FILE IS USED SET UP THE DOS ROMIZE 9 THE SEQUENCES GENERATED BY THE FUNCTI IN BASIC. > THE FOLLOWING SEQUENCE OF OPERATIS WILL INSTALL RANSEED\ ( LF DOS 3000 2 LF RANSEED 39E0 < SF DOS 3000 @F THE SOURCE CODE RANSEED MAY BE FOUND IN THE FILE RANSRC 8P RANSEED IS USED BY ING IT FROM BASIC AS FOLLOWS\ %Z A 10720) 65536 ) 8d CE RANSEED DEPS THE DISK ROLLER PSEUDOSECR "NUMBERS FOR ",A$A,A9),"-- ",C0),C1),C2),C3),C4)  T3   "HOW MANY? ",E  E25 "  S911\ 0\ "YAHTZEE3"  A10P1\ " E1 \ E5 6 , S911\ 0\ "YAHTZEE4" 6 "WHICH DICE:" @ E J,T,^,h,r J F0)\ | T F0),F1)\ | ^ F0),F1),F2)\ | h F0),F1),F2),F3)\ | r F0),F1),F2),F3),F4) | Q1 2 F1 0 E1\ FF1)1 FF1)5 Q0\ F1  Q0 6 % F1 0 E1\CFF1)1)0\ F1  TT1\  DE ROLLING # A$A,A9),"--SCOREBOARD ID:"  S91  0  "YAHTZEE2"   PP1\ PN  XX1\ X13  "END OF GAME"  S919\ 0\ "YAHTZEE4"  "PLAY AGAIN? (Y/N): ",Q$  Q$"Y"  & "YAHTZEE" 0 SUBR CK PT FILE : J0) D #0,"YAHTZEE0" 2N #0,S9,J,X,P,N,A$,C0),C1),C2),C3),C4),T X D20 1\ D10 12 b #0,KD1,D2)\ D1\ D2 l #0 v  "GAMES"  & "YAHTZEE2" < C4),K12,1),G5),F5),H26),L26),B52),B82),A$20)  #0,"YAHTZEE0" 2( #0,S9,J,X,P,N,A$,C0),C1),C2),C3),C4),T 2 A10P1 < D2 0 1\ D1 0 12 F #0,KD1,D2) P D1\ D2 Z #0 d I0 n I025 x S912\ l\ "YAHTZEE3"  I01 I013 d II01  KI,P)1 9 A$A,A9),"-- YOU HAVE ALREADY USED ROW ",I0\ d  I06  CAT. 16 KI,P)0 / G0 4\ CG)I0 KI,P)KI,P)I0\ G N ) I06 ,,,,,,: - 34 OF A KIND, YAHTZEE & FULL HOUSE  R3\   R4 % TC0)C1)C2)C3)C4)\ "  R0\T25\ "  R5\T50 " H31 6\ H0 4 , CH)H3 H2H3)H2H3)1 6 H\ H3 @ R0 r J FULL HOUSE TEST 4T H 1 6\ H2H)3 H2H)2 RRH2H)\ H )^ R5 T0\ WASN'T A FULL HOUSE h KI,P) T\ N 2r H0\ H3 1 6\ H2H3)H H H2H3)\ H3 | HR T0  KI,P)T  N  STRAIGHTS # T30\ \ SMALL STRAIGHT  T40\ LARGE STRAIGHT  D1 0 3  D2 D1 4  CD1) CD2)   ZCD1)\CD1)CD2)\CD2)Z  D2\ D1  H11  H 1 4 " CH)CH1)1 H1H11\ H  CHECK STRAIGHT GTH  H15 0  I011 T0\ 0 & H14 T0\ 0 0 KI,P)T\ N : CHANCE $D KI,P)C0)C1)C2)C3)C4) &N NOW, BACK THE MAIN PROGRAM 2X A$A,A9),"-- ",KI,P)," POINTS IN ROW ",I0 b S91\ l\ "YAHTZEE1" !l SUBR CHECK PO FILE v #0,"YAHTZEE0" 2 #0,S9,J,X,P,N,A$,C0),C1),C2),C3),C4),T  D20 1\ D10 12  #0,KD1,D2)  D1\ D2  #0   / % YAHTZEE3  C4),K12,1),A$20)  #0,"YAHTZEE0" 2( #0,S9,J,X,P,N,A$,C0),C1),C2),C3),C4),T 2 AP101 < D20 1\ D10 12 F #0,KD1,D2)\ D1\ D2 P #0 Z I 0 12 d KI,P) 0  n I6 (x I1 ,,,,,, $ I6 ,,,,,  "SNAKE EYES"\   "TWOS"\   "THREES"\   "FOURS"\   "FIVES"\   "SIXES"\   "3 OF A KIND"\   "4 OF A KIND"\   "FULL HOUSE "\   "SMALL STRAIGHT"\   "LARGE STRAIGHT"\   "YAHTZEE"\   "CHANCE"  I  BACK ING PROGRAM " S9 11 "YAHTZEE1" , "YAHTZEE2"  & YAHTZEE4  C4),A$20),K12,1) ' IN CHECK POED FILE LY) ( #0,"YAHTZEE0" 22 #0,S9,J,X,P,N,A$,C0),C1),C2),C3),C4),T < D20 1\ D10 12 F #0,KD1,D2) P D1\ D2 Z #0 d ALL SCES n , x P9 0 N1  A910P91 * \"SCORE FOR ",A$A9,A99),"--"\T10  X90 5 # KX9,P9) 0 T1T1KX9,P9) X9  "TOP HALF = ",T1  T235\ T163 T20  "BONUS = ",T2 T30  X96 12 " KX9,P9)0 T3T3KX9,P9) X9  "BOTTOM HALF = ",T3 5 A$A9,A99),"-- YOUR TOTAL SCORE IS ",T1T2T3  P9  , 0" S911 S919 "YAHTZEE1"\ "YAHTZEE2" 6, "**********************************************" 6  : 'DIRCOMP' COMPACTS THE DISK DIRECRY THE FILES).  #0,"DIRECTRY" \ T32  I0 63 \ #0 %I16,&F0  F0T  \ JI1 63 "( #0 %J16,&F0 \ F0T  -2 #0,&F1,&F2,&F3,&F4,&F5,&F6,&F7,&F8,&F9 (7 "MOVING ",F0),F1),F2),F3), 8 F4),F5),F6),F7), : " FROM",J," TO",I !< #0,&G0,&G1,&G2,&G3,&G4,&G5 )F #0 %J16,&T,&T,&T,&T,&T,&T,&T,&T, #P #0,&T,&T,&T,&T,&T,&T,&T,&T, 1Z #0 %I16,&F0,&F1,&F2,&F3,&F4,&F5,&F6,&F7, +d #0,&F8,&F9,&G0,&G1,&G2,&G3,&G4,&G5, n   \    "DONE"  #0 \