' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( ŠΠӠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d Ġɪz# u`13DO16310JDODO1"T:I^"DISK CONTROLER SLOT NUMBER--";DNehDN(DN):DN1DN7340urSLOT,DN16}|:"DISK DRIVE NUMBER--";DNDN(DN):DN1DN2380DRIVE,DN1000 GET INPUT FROM KEYBOARD(KB -- KEY IN HOLD7(DRIVE)1(DRIVE)23101:"THE PRESENT SET UP IS:":"DOS - ";DO1;" SECTORS":"SLOT - ";(SLOT)16:"DRIVE - ";(DRIVE)2:"DO YOU WISH TO CHANGE ANY OF THE ABOVE?":430:KB21710006:"ARE YOU USING 13 OR 16 SECTOR DISKS";:DO@DO8,6,201,160,176,2,233,127,32,76,249d " 200,192,0,208,233,169,00,133,32,169,40,133,33,169,0,133,34} , 169,24,133,35,96,0 -DO(47465):DO200DO12 .SLOT,(47095):DRIVE,(47096):DO201DO15 /DO12DO153100(SLOT)162(SLOT)16,133,35@ 162,0,189,0,64,32,218,253,232,224,0,208,245,169,0y 133,32,169,40,133,33,169,0,133,34,169,24,133,35,96  0,0,0,169,7,133,32,169,32,133,33,169,3,133,34  169,19,133,35,32,88,252,169,20,133,35,160,0,162,2#  185,0,64,201,128,4 1,96,1,0,17,0,32,3,0,64,0,0,1,0,0,96,1,0,0,0,0,0,0,1,239,216h RWTS18,BUFFER(BUFFER256)256 RWTS19,(BUFFER256) X0121 DN HEXX,DN X 169,7,133,32,169,32,133,33,169,3,133,34,169,19,133,35 32,88,252,169,20 FHEX17000:ASSIIHEX56* PBUFFER16384 ZRWTS768:IOBRWTS10:SLOTRWTS11:DRIVERWTS12:TRACKRWTS14:SECTRWTS15:DEVRWTS16:COMNDRWTS22:VOLUMNRWTS24:ERRRWTS23 dXRWTSRWTS35 nDN xX,DN X 169,3,160,10,32,217,3,96,0,0B OM JACOBSEN []. [] 04/20/81 []K [] GREEN APPLES []h [] 4417-129 [] [] NORTH ZIRCON LANE [] [] CEDAR FALLS, IOWA [] [] 50613 [] o\o\o\o\o\o^\o\o\o\o\o\ (16384 2M(15) <2000013500:J::::::i"DO YOU WANT TO SEE THIS DEMONSTRATION AGAIN, "A$" (YES OR NO)";:D$(D$,1)"Y"ė:60::::"BYE !!"::7(N:(24):"LET ME DEMONSTRATE."QX"ONE POSITIVE CHARGE, ONE NEGATIVE"ibX0:Y95:A279:B95ylXX2:AA2vAX2670X,Y:A,B0:X2,Y:A2,B:7620::"PARTICLES WITH OPPOSITE CHARGES ";:"ATTRACT" :JCT" :"2. REPEL"+ :"3. NEITHER"x :"TYPE IN THE ANSWER OF THE ONE YOU THINK IS CORRECT (1,2, OR 3)";:C :: C1ĺ"GOOD JOB, "A$" !" &C2C3āJ135:L(S):L118:L1:J:"WRONG, "A$ 0C1C3520 :J13500:JD7 X2Y158A277B2420( 370N ::"LIKE CHARGES ";::"REPEL"a :J13500:Ji : ::" STATIC ELECTRICITY" : :"WHEN TWO PARTICLES WITH OPPOSITE" "CHARGES ARE BROUGHT TOGETHER, THEY " :"1. ATTRA:A279:B95% XX2:AA2:Y95:B953 X,Y:A,BK "0:X2,Y:A2,B:7[ ,AX30320d 6270o @J16 JXX1:YY2:AA1:BB2 TX,Y:A,B ^0:X1,Y2:A1,B2:7 hJ rXX2:YY1:AA2:BB1 |X,Y:A,B 0:X2,Y1:A2,B1:"RIGHT, "A$" !"K A1A3āJ135:L(S):L118:L1:J:"WRONG, "A$\ A1A3130m J12000:Js | :7 (24):"LET ME DEMONSTRATE WITH" B((1)2):B0B$"POSITIVE" B1B$"NEGATIVE" "TWO "B$" CHARGES" X0:Y95 F:::; P"WHEN TWO PARTICLES WITH THE SAME CHARGE"^ Z"ARE BROUGHT TOGETHER, THEY"s d:"1. ATTRACT" n:"2. REPEL" x:"3. NEITHER" :"TYPE IN THE ANSWER OF THE ONE YOU THINK IS CORRECT (1,2, OR 3)"; A :: A2ġ **STATIC ELECTRICITY**; ** BY **X ** BRANDON WEBER **u ** THE GREEN APPLES ** ** CEDAR FALLS IOWA ** S16336A$(100)(:"WHAT IS YOUR NAME? ";A$2 <::" STATIC ELECTRICITY"     0:2160 ` KB155İ13000:21401j KB1762330It KB185KB1932330Z~ KB1982330q KB185DNKB176 KB192DNKB183 DNDN((NB)16)16 NB,DN 12000 NBNB1:NHNH1:NH39NH8:NVNV1:NV19NV4:NBBUFFER 2160NB,DN 12000  NHNH1, NV:NH=$ :" "::NHF. 430_8 KB141İ12000:2000B KB136NHNH1:NH8NH39:NVNV1:NV4NV19:NBBUFFER255L KB149NBNB1:NHNH1:NH39NH8:NVNV1:NV19NV4:NBBUFFERV KB136KB149İ1200KB149NHNH1:NH39NH8:NVNV1:NV19NV4:NBBUFFER\KB136KB149İ12000:2330uKB155İ13000:2140KB1762180KB185KB1932180KB1982180KB185DNKB176KB192DNKB183DNDN16(NB)((NB)16)16 0:NV4DN)HH$(A$,1):10000:NH82DNSR22:10:"TYPE THE CHANGES AT CURSER"d\F$"A"2510uf HEX CHANGEpNV:NHz:" "::NH430KB141İ12000:2000KB136NBNB1:NHNH1:NH8NH39:NVNV1:NV4NV19:NBBUFFER255<32:DN:DN'DN(DN):DN1DN82000XDN2040,2060,2700,2660,2690,2800,2080,11300c12000m2000x 130002000 22:10:"ENTER LOCATION(HEX)-- "*22:32:A$4H$A$:10000:A$H$:NBBUFFERDN:EF12080 >H$(A$,1):1000 DOS)--";DN)8DN(DN):DN0DNDO1050:BSDN:SECT,SGLCOMND,1{VRWTS:KB(ERR):KB16KB32KB64KB12820000`11000j1200022:10:"ENTER COMMAND NUMBER-- "22:32:DN:DNDN(DN):DN1DN82000 DN4Ģ22:ER)16368,0.KB(16384):KB128450>16368,0:Y GET TRACK AND SECTORa:"TRACK NUMBER(0-34)--";DNDN(DN):DN0DN341020TDN:TRACK,T:$"SECTOR NUMBER(0-15 FOR DOS 3.3)" ." (0-12 FOR OLD?????O---%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%??????,mI)---mI)%??????,mI)---mI)%??????,-----------%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%????????,mI)---mI)%??????,mI)---mI)%????????????,------------????;????,----MI----%????;????,----MI----%????;????,-----------%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%????????????????????????,--------????????,-----------%????????????,-----------%????????????,-----------%????????????,------------????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%????????????????????????,-----------%????????????,mI)---mI)%?????I----%????;????,----MI----%????;????,-----------%????????????,mI)-------%?????????,mI)-------%?????????,mI)-------%????????????,-----------%????????????????????????,-----------%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????---------%????????????,mI)-------%?????????,mI)-------%?????????,mI)-------%????????????,-----------%????????????????????????,-----------%????????????,-------mI)%?????????,-------mI)%?????????,-------mI)%????????????,-----------%????;????,----M------%????????????,-----------%????????????,-----------%????????????????????????,-----------%????????????,-------mI)%?????????,-------mI)%?????????,-------mI)%????????????,-----------%????????????,-----------%????????????,-----------%????????????,--`Cs????????????,-----------%????????????,-----------%????????????,-----------%????????????,-----------%????????????,-----------%????;????,----MI----%????;????,----MI----%????;????,-----------%????????????,-----------%????????????,-----     FICATION COMPLETE ":15120K";22:10:VF;" DIFFERENCES DETECTED "`";""k";11400"hB FIRST LIST OF COMMANDS"mB4:1:"1 HEX ""rB5:1:"2 ASC ""|B6:1:"3 READ""B7:1:"4 SAVE""B8:1:"5 NEW "#B9:1:"6 NEXT"256!:RWTS19,(BUFFER256)8!:216,0:COMND,1:RWTSD!:20000|!:BUFFERBUFFER256:RWTS18,BUFFER(BUFFER256)256!:RWTS19,(BUFFER256)!:VF0!:X0255!:(BUFFERX)(BUFFER256X)15080!:VFVF1!:X":VF0Ģ22:10:"VERI,0:59,64 6418D 6::"PRESS M FOR MENU - ANY OTHER TO CONT."\ 6CT$:CT$"M"14100p 6(59)6414010{ 614030 711000 7F$"H"İ12000 (7F$"A"İ13000 2711300 : VERIFY SECTOR!:BUFFERBUFFER256:RWTS18,BUFFER(BUFFER256)DN):DN1DN82000K,DN14000,15000,11400,11400,11400,11400,17000,50000a. HEX SCREEN DUMP{.1:18:" HEX DUMP ".HEX.F$"H"/2 ASC II DUMP21:18:"ASC II DUMP"2ASSII2F$"A"26 DISASSEMBLE BUFFER 6:58DRAW MORE COMMANDS&B,4:1:"1 DASM":L,5:1:"2 VERI"NV,6:1:"3 "b`,7:1:"4 "vj,8:1:"5 "t,9:1:"6 "~,10:1:"7 MORE",11:1:"8 STOP",22:10:"ENTER COMMAND NUMBER-- ",22:32:DN:DN,DN("TRACK"f+14:" ";T(p+17:" SECT"8z+18:" ";Sj+:3:7:" 0 1 2 3 4 5 6 7 8 9 A B C D E F "+20:7:" 0 1 2 3 4 5 6 7 8 9 A B C D E F "+CV$"0123456789ABCDEF"+X116+X3:7:(CV$,X,1);40);(CV$,X,1)+X+:$, 'DN255DN0EF1'2* DRAW DISPLAY SCREEN8+T +1:1:"VOL-";(VOLUMN)h+4:1:"1 HEX "| +5:1:"2 ASC "*+6:1:"3 READ"4+7:1:"4 SAVE">+8:1:"5 NEW "H+9:1:"6 NEXT"R+10:1:"7 MOD "W+11:1:"8 MORE"\+13:000 ' CONVERT HEX TO DECIMAL)'EF0D$'CV$"0123456789ABCDEF"W.'(H$)110070j8'(H$)210080~B'(H$)2EF1:L'EF1:V'H$"0"H$`'DN0j'X116t'(H$,1)(CV$,X,1)DNDN(X1)16~'(H$,2)(CV$,X,1)DNDNX1'X20000 F$"H"İ12000+ F$"A"İ130005 2000Y SS1:SDOS0:TT1:T34T0v 14:" ";T;" ":TRACK,T 18:" ";S;" ":SECT,S COMND,1:RWTS KB(ERR):KB16KB32KB64KB12820000" F$"H"İ12000, F$"A"İ130006 2TRACK NUMBER ";:34:T5 T(T):T0T342690R 14:" ";T;" ":TRACK,T 22:10:"ENTER NEW SECTOR NUMBER ";:36:S S(S):S0SDO2693 18:" ";S;" ":SECT,S 2000 COMND,1:RWTS KB(ERR):KB16KB32KB64KB128ĭKB136KB149İ13000:25204( KB155İ12000:2140?2 NB,KBJ< 13000F NBNB1:NHNH2:NH39NH8:NVNV1:NV19NV4:NBBUFFERP 2520Z 2000d COMND,2n RWTS:KB(ERR):KB16KB32KB64KB12820000x 2000 22:10:"ENTER NEW  ASCII CHANGE, NH2(NH2)NHNH18 NV:NHI :" "::NHR 430k KB141İ13000:2000 KB136NBNB1:NHNH2:NH8NH39:NVNV1:NV4NV19:NBBUFFER255 KB149NBNB1:NHNH2:NH39NH8:NVNV1:NV19NV4:NBBUFFER **SHIP CAPTAIN CREW**3 ** BY **O ** DAVID SPARKS **k **THE GREEN APPLES ** **CEDAR FALLS IOWA ** Y MAY NEPTUNE STRAIGHTEN YOUR WAKE, AND SMOOTH THE WAY AFORE' YE!"255:J12000::J11000:::"AVAST! YE'VE SQUANDERED ALL THE SHIP'S""TREASURE, YE BILGE RAT! ASHORE WITH YE!"E AT ANCHOR WHILE YOU THROW THE OTHER FOUR DICE."7fp" IF YOU HAVE A SHIP AND GET A CAPTAIN, YOU MAY PUT HIM ABOARD WHILE TOSSING THREE TO FIND A CREW."zk" IF YOU FAIL AFTER THREE TRIES, YOUR WAGER IS FORFEIT. OUANY GOOD TO FIND A CREW."W:" AND YES, YOU MAY BE FORTUNATE ENOUGH TO GET TWO, OR EVEN ALL THREE OF THE DICE YOU NEED ON A SINGLE THROW.":1\" YOU GET THREE ROLLS OF THE DICE BEFOREYOUR TURN IS OVER. IF YOU GET A SHIP YOU MAY LET IT RIDW. IT IS THE LESSON OF THE SEA THAT ALL ARE NEEDED IFANY ARE TO BE OF USE."H:" A FOUR ON THE DIE IS A CREW. YOU NEED A SIX, A FIVE, AND A FOUR TO WIN."R:" OF COURSE, YOU'LL HAVE TO HAVE BOTH A SHIP AND A CAPTAIN BEFORE IT'LL DO YKILL OF THECAPTAIN."4:" A FIVE ON THE DIE IS A CAPTAIN. YOU NEED A CAPTAIN FOR YOUR SHIP, BUT YOU NEED NO CAPTAIN IF YOU HAVE NO SHIP."Q>:" EVEN SO, NEITHER VESSEL NOR CAPTAIN CAN TRAVERSE THE DANGERS OF THE SEA IF THERE BE NO BULLY CRE."b :" A SIX ON THE DIE IS A SHIP. YOU MUSTHAVE ONE BEFORE YOU HAVE ANY USE FOR ANYOTHER."*:" THE ANCIENT MARINERS ALSO KNEW, AYE, 'TWAS OFTEN THE ONLY THING THAT BARRED MUTINY, THAT THEIR LIVES DEPENDED ON THEEXPERIENCE AND NAVIGATIONAL STERS BETWEEN THE IS- LANDS MEN CALL HOME."0" THE RULES WERE AS SIMPLE AS THE RULES OF SURVIVAL AT SEA. FIRST, THE SAILORS KNEW THAT THEY MUST HAVE A BOAT. THIS IS THE THING OF GREATEST IMPORTANCE.":" YOU ARE GIVEN FIVE DICE TO THROW WOULD YET CLAIM THEM, THESE HARDENED MEN 'ROLLED THE BONES' AND GAMBLED FOR THE SPOILS OF WAR."n*" SOMEHOW IT KEPT THEM SAFE FROM THE THING ALL SAILORS FEAR--THE MADNESS THATLURKS IN THE VAST, UNCARING, MONOTONOUS,EVER-THREATENING WA FROM THE FINGER-BONES OF THEIR HUMAN ENEMIES.":" THEN THEY WOULD PLAY A GAME ON THE FLOORS OF DUGOUT CANOES, AS THE STARS LED THEM HOMEWARD FROM CONQUEST."h" ATOP THE SEA IN HOLLOWED HALFS OF TREES, NOT KNOWING IF THE WATERF THE WORLD'S MAJOR SEAPORTS."&" THERE, AMID THE DIN OF CLACKING DICE AND BELCHING, SODDEN MEN, THE STORY CLINGS STUBBORNLY TO A MURMURING EXISTENCE."2" IT IS SAID THAT ANCIENT, SEA-GOING SAVAGES MADE THE FIRST DICEATED THOSE ISLES OF PARADISE."$" LONG LOST IN THE MISTS OF ANTIQUITY, THE FACTS CANNOT ANY LONGER BE VERIFIED TO THE SATISFACTION OF SERIOUS SCHOLARS.":" BUT AGED SAILORS STILL GATHER IN THE" "SEAMY ALEHOUSES AND DANK ALLEYWAYS OON. "::660#(ZZ$,1)"Y"İ700+:6:100" THE GAME OF 'SHIP CAPTAIN CREW' GROWSFROM THE SHIMMERING LEGENDS OF THE VAST SOUTH PACIFIC.":" ITS ORIGIN IS AS MYSTERIOUS AS THAT OF THE TAN, TENACIOUS MICRONESIANS WHO FIRST POPUL {BETSTAKE615 C " WELCOME TO 'SHIP, CAPTAIN, CREW!" :"WOULD YE BE WANTING THE STORY AND THE RULES, MATE? ANSWER YES OR NO. ";ZZ$ (ZZ$,1)"Y"(ZZ$,1)"N"ĺ:"IT'S DANGEROUS TO MAKE ME REPEAT MYSELF YE SWAB. NOW PAY ATTENTI 66 &21> 0"TOO BAD. YOU LOST. "N 2J11900:W 5W1` :600h D62 XW2W0:STAKE100:615 bBETBETW:STAKESTAKEBET dSTAKE0990 g l"YOUR STAKE IS NOW $";STAKE v:"HOW MUCH DO YOU BET? $";BET212 U"KEEP A SIX AND THROW FOUR DICE. "; ^200H cN1380U h625,95e rJ11000:m wN1v |440 21:"KEEP A SIX AND FIVE. THROW THREE DICE." 200 N1420 N2440 625,95 588,95 J11000: N2:"A WINNER";::"!!!!!!!!! "A J11800G O W1W S0] f 570{ ERASE ALL FIVE CC1:C3C0::550 J11500: JN4 D(J)25J63,95 , THROW FIVE 6200 @N0 J440 T FJN4 GD(J)25J63,95$ H/ d TESTJ eNNN1:NN102,107,112U fJ04f gD(J)6105n hS1t i jS1300 kJN4 lD(J)5110 mS2 n oS2340 pJN4 qD(J)4115 rS3 s tS3390 x213  W2! D$(4)>D$"BLOAD H-DICE,A$6000"I232,0U(233,96^-650y2"ENTER A NUMBER";SEED4D(SEED)5D(4)634,207:0:1:3<600>:0:1:3?S0@N0:C0BJN4CD(J)((1)61)E        RS ON 13 SECTOR DOS."%\N(ERR)128ĺ:"READ ERROR. THE RWTS ROUTINE WAS, AFTER48 REPEATED ATTEMPTS, UNABLE TO READ EITHER THE ADDRESS FIELD OR THE DATA FIELD. IF THE DATA FIELD FOR THE "T&fN(ERR)128ĺ:"SPECIFIED SECTOR HAS NEVER HAD ANYTHINDIFFER-ENT THAN THE VOLUME SPECIFIED IN BYTE 4."$HN(ERR)32ĺ"THE VOLUMN FOUND WAS ";(VOLUMN);".":"THE EXPECTED VOLUMN WAS ";(RWTS13);"."%RN(ERR)64ĺ:"DRIVE ERROR. SOMETHING UNUSUAL IS HAPPENING. THIS ERROR CAN BE CAUSED BY EMPTY SECTO#B10:1:"7 MOD "*#B11:1:"8 MORE"4#B2000R# N ERROR HANDLING ROUTINESX#*N#4N(ERR)16ĺ:"DISKETTE IS WRITE-PROTECTED AND CANNOT BE WRITTEN TO."0$>N(ERR)32ĺ:" VOLUME MISMATCH ERROR. THE VOLUME NUMBER OF THE DISKETTE FOUND WAS ,240:780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76a788,2:789,3:790,96:DIE:L200:6010:D1200:DA23:"WANT TO PLAY AGAIN? (Y/N)";IA$XA$"Y"Āc:110p PLAY TONES SUBROUTINEz768,P:769,L:770: TONE POKES770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3E77923,2528:23,2527&P129:6010::H LOSE SUBROUTINE P255:L20:"YOU LOSE!":Z120:6010:Z:D1500:D:: PLAY TAPSL100:P129:6010:L60:6010:L255:P96:6010 PLAY DIVE BOMBERL5:DIE23192:PDIE:6010: C = 96, LETTER G ( :13| 22,2913:22,2919:14,1822:14,1829:15,1824:15,1825:15,1626:15,1727 P96:6010:: G = 129, LETTER H :1421,2722:21,2729:22,2921:22,2927:23,2523:23,2524:14:15,2015:15,2017:15,2018:15,2019>P64:6010::a E=76, LETTER Y k:1213,2021:13,2027:21,2713:21,2714:21,2714:21,2720:23,2515:24,1616,2022:16,2026:17,2023:17,2025P76:6010:: 100:6010:D175:D4P76:L50:6010:D150:DUP64:L255:6010:D1200:DzP47:L10:D115:6010:D:5050 GR + PITCH SETTER  HIGH G = 64, LETTER T :1+13,2013:13,2019:13,1913:13,1920:15,20OK M(S$(R))5010) G212İ1000: &G217İ2000K 0G199İ3000\ :G200İ4000c DRo N PAUSE XD11000:D bX l::10:"CONGRATULATIONS, YOU WON!" v PLAY "CHARGE" L100:P129:6010:P96:6010:P76:L70:6010P64:LrR1X  READ KEYBOARD$ CB4 G(16384)> CC1U 22:"TIME LEFT: "k C100Ģ22:12:C C9C100Ģ22:12:" ";C C10Ģ22:12:" ";C C15010 G127500 410 :16368,0 MG128  SEE IF RESPONSE WAS RETURN' KEY TO START.";:A$:F DETERMINE MELODY, PUT INTO MATRIXR R125i S(R)((1)31.5)p R{ ,X1N 6S1X @S(S)1S$(S)"T":1000 JS(S)2S$(S)"Y":2000 TS(S)3S$(S)"G":3000 ^S(S)4S$(S)"H":4000 hS x:D$:D(D$):D1D41105 D1L255:N5:B200O D2L100:N10:B100g D3L50:N15:B50~ D4L5:N25:B25 :"GOOD. USE KEYS T, Y, G AND H TO RESPOND.":"BE CAREFUL NOT TO BUMP ANY OTHER KEYS"::"OR YOU WILL LOSE." :"PRESS 'S(50),S$(50),R$(50) P6030- Z:255::2 d"WELCOME TO 'SIMON', A PROGRAM WHICH"::"SIMULATES THE POPULAR ELECTRONIC GAME." n:"PLEASE SELECT THE DESIRED DIFFICULTY"::"LEVEL BY NUMBER."::"1. EASY":"2. MEDIUM":"3. HARD":"4. VERY HARD" b ' * S I M O N * -I * ELECTRONIC GAME *m * SIMULATION * s#( * WRITTEN 12/80 BY *2 * MARK WELTY * 3 * THE GREEN APPLES *4 * CEDAR FALLS IOWA *7< F     -uTHE AUTHOR OF THIS PROGRAM WOULD VERY MUCH LIKETO RECEIVE A COPY OF ALL CORRECTIONS OR MODIFICATIONSMADE-uSEND TO ADDRESS AT START OF LISTING. THANK YOU-u[][][][][][][][][][][]-PÀRE USE..,{uCOMMAND 4 -- FOR FUTURE USE.U,|uCOMMAND 5 -- FOR FUTURE USE.|,}uCOMMAND 6 -- FOR FUTURE USE.,~uCOMMAND 7 -- RETURN TOORIGINAL COMMANDS.,uCOMMAND 8 -- THIS EXITS YOU FROM THE PROGRAM.,u[][][][][][][][][][][]r YOU A SECOND MENU OF COMMANDS - SEE THE FOLLOWINGx+xuCOMMAND 1 -- THIS WILL ALLOW YOU TO DISASEMBLE THE BUFFER AREA.+yuCOMMAND 2 -- THIS WILLREAD IN THE DESIGNATED SECTOR AND VERIFY IT WITH THE PREVIOUS BUFFER.,zuCOMMAND 3 -- FOR FUTU NEXT TRACK AND SECTOR.*luCOMMAND 7 -- THIS ALLOWS YOU TO MODIFY THE BUFFER. FOLLOW THE INSTRUCTIONS. YOU MAY USE RIGHT AND LEFT ARROWS.*vuTHE ESCAPE KEY WILL SWITCH YOU TO THE ALTERNATE DUMP MODE.3+wuCOMMAND 8 -- THIS GIVESOWN ON SCREEN.)NuCOMMAND 4 -- THIS WRITES BUFFER AREA TO TRACK AND SECTOR SHOWN ON THE SCREEN. YOU MUST PUSH 4 TWICE.)XuCOMMAND 5 -- THIS ALLOWS YOU TO CHANGE THE TRACK AND SECTOR.*buCOMMAND 6 -- THIS WILL READ TO THE BUFFER THENF$"H"İ12000#(NF$"A"İ13000-(N2000s(0uCOMMAND 1 -- THIS DUMPS BUFFER AREA TO SCREEN IN HEX FORMAT.(:uCOMMAND 2 -- THIS DUMPS BUFFER AREA TO SCREEN IN ASCII FORMAT.)DuCOMMAND 3 -- THIS READS TO BUFFER THE TRACK AND SECTOR SHBAD SUBSCRIPT ERROR.">'N(222)163ĺ:"TYPE MISMATCH ERROR"z'N(222)254ĺ:"BAD RESPONSE TO INPUT STATEMENT ERROR."'N(222)255ĺ:"CTRL C INTERRUPT ATTEMPTED."'N222,0'N::"DO YOU WANT TO CONTINUE?";:E$'NE$"Y"50000'N11000(G WRITTEN ON IT, THEN A READ ERROR WILL RESULT, BECAUSE THERE IS NOTHING TO READ."_&pNERR,0&zN(222)16ĺ:"SYNTAX ERROR--ALLSO SONETIMES CONT. C OR WRONG TYPE AS RESPONCE TO INPUT."&N(222)53ĺ:"ILLEGAL QUANTITY ERROR."'N(222)107ĺ:"PN_ G(I)NĞ:"PLAYER ";I;" GUESSED THE NUMBER WAS ";G(I);" AND HE WAS RIGHT !!!!"} :I:I139:"!";:I:"" "PLAY AGAIN ?" A$:(A$,1)"Y"230 :::I15::2000:I::1 I124::"]":I:12 ::100:93:0,39I:0,39I:I+ I1250:I::BY :2:5::"I'M THINKING OF THE NUMBER":j I15000:I I1PN:"PLAYER NO. ";I;" GUESSED ";G(I);"" I "THE NUMBER WAS " B039:"?";:B:"" B12500:B:" ";N;" " I1Y PLAYERS ? ==>";PN nNOPN101 xN((1)NO)= I1PN| "THE NUMBER MAY BE ANYWHERE BETWEEN 1 AND ";NO;" ." "PLAYER ";I;" ::: >> INPUT GUESS <<":G(I) G(I)NOG(I)0135 I B13:2000:::B B13 10::I03 ***********************;** GAMBLER **X** BY **u** JAMES CARROLL **** THE GREEN APPLES **(** NORTH CENTRAL **-** IOWA **2*********************** d:5:10:"HOW MAN   H"10);"5 STOP"4:12:"ENTER NUMBER ";AFA1A55050XA(A)5050yA6000,2000,2600,2900,200005050p DEMO VALUESuF10:F20:F30:F40vS$"+ "zMY2:MX3:B24:S100:MG232900 N:EBRA PROGRAM NUMBER 1"-14)"Y = M X + B"\:" THOMAS JACOBSEN 8-26-79"jA12000rDAyA:718);"MENU":10);"1 DEMO"10);"2 INPUT COORDINATES"10);"3 INPUT EQUATION"10);"4 PLOT GRAP(16384) 16368,0(* A1273260/4 09> 3320n CHANGE X Y COORDINATES TO HIGH RES COORDINATESX(F51)((XGS70).5)150Y(F51)(1)((YGS70).5)70F5F51 MENU AND MAIN CONTROL PROGRAM:108);"ALG, MG.05MG.05BS50B(1)S503300T "PRESS ANY KEY TO CONTINUE ";:R$^ :: FLASH LINE IF IT LIES ON AXIS "PRESS ANY KEY TO CONTINUE" X(1),Y(1)X(2),Y(2) D1100: 3 X(1),Y(1)X(2),Y(2) D1100:  A0 F513224 YGS* XG(YGB)MGA XG0XGSİ4000P F513224^ YG(1)So XG(YGB)MG XG0XGSİ4000 PLOT LINE X(1),Y(1)X(2),Y(2) F31X1(1)S35X1S353300 MG20F313300 MG20F313300 F50g XG(1)S"l YGMGXGB>q YG(1)SYGSİ4000Mr F503202Vs YGSgv XG(YGB)MGx XG(1)SXG0İ4000z F503202| YG(1)S~ XG(YGB)MG XG(1)SXG0İ4000 XGS YGMGXGB YG(1)SYGSİ400X ";S$;B 3150" F213120/! MGMYMXW& "EQUATION Y = ";MYMX;" X ";S$;Ba+ 3150n0 MGMYMX5 "EQUATION Y = ";MY;"/";MX;" X ";S$;BN PLOT LINES F313170U F50X XGX1:YGS:4000Z XGX1:YG(1)S:4000] 3250b103045 BGBG10 SS10) 30203 :21Z "EACH DIVISION = ";S10;" UNITS." PRINT EQUATION AND SET UP FOR POLTTING LINE F313080 "EQUATION X = ";X1 3150 F413100 MGMY "EQUATION Y = ";MY;" | 148,A152,A& 80A,6880A,72, J 127,7131,7:129,5129,9o 133,4136,7139,4:136,7136,10 232,70236,70:234,68234,72 238,67244,73:238,73244,67 DESIDE MAGNITUDE OF GRAPH BG(B):S10 F31BG(X1) BG Y = "; F412810* MY;" X ";S$;B4 2850C F212840] MY;"/";MX;" X ";S$;Bg 2850} MYMX;" X ";S$;B" :"PRESS ANY KEY TO CONTINUE"' R$, T DRAW GRAPH^ c 3h 150,0150,140m 80,70220,70r A01407 2 FRACTION" F4$ F4127503 F422760? :2720U "ENTER M ";MY_ 2770y "CHANGE IN Y ";MY "CHANGE IN X ";MX F10:F20:2400 :"B = Y INTERCEPT" "ENTER B ";B S$"+ ":B0S$"" :"EQUATION X INTERCEPT ";n X15x :"EQUATION X = ";X1[} :"PUSH ANY KEY TO CONTINUE ";c R$i  :"EQUATION FORMAT IS Y = M X + B" "M = SLOPE = CHANGE IN Y / CHANGE IN X" "HOW DO YOU WANT TO ENTER M?"  " 1 DECIMAL":" XA:F11 2465 -( INPUT EQUATIONE2 F10:F20:F30:F40< :"THIS PORTION OF THE PROGRAM ALLOWS YOU TO ENTER THE EQUATION OF A STRAIGHT LINE"F "IS THE LINE PARALEL TO THE Y AXIS?"P R$Z (R$,1)"Y"2700d F31i :"INPUT ,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83 89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167 173,179,181,191,193,197,199 A:A1992510 AMYAMX2510 MYA(MYA)MXA(MXA)2460 MYMYA:MXMES ARE LIMITED TO SAVE TIME.^b THEREFORE LOWEST COMON DENOMINATOR MAY NOT ALLWAYS BE FOUNDre MX0MY0F11j MYMX02430t MY(MY)(1):MX(MX)y 2435~ MY(MY):MX(MX) MYMX(MYMX)2450 F21:F11  ; 2,3,5COORDINATES GIVEN")3 S$"+ ":B0S$""84 F202370`8 :10);"Y = ";MYMX;" X ";S$;" ";Bj= 2380B :10);"Y = ";MY;"/";MX;" X ";S$;" ";BL :"PRESS ANY KEY TO CONTINUE"Q R$V ` FIND LOWEST COMON DENOMINATORa NUMBER OF PRIM2400 F102300% F2022900 4:15G " = ";MYMX:2300R 4:15g " = ";MY;"/";MX~ "B = Y INTERCEPT"  "SUBSTITUTE TO SOLVE FOR B"  "B = Y - M X = Y1 - M X1"  MGMYMX  BY1MGX1 $ "B = ";B. :"EQUATION FOR TE SLOPE FLAG F31 23808 15);"Y = M X + B"] "M = SLOPE = (Y2-Y1) / (X2-X1)"s MYY2Y1:MXX2X1 "M = ";MY;"/";MX F10:F20  F1 IS CHANGE IN MY OR MX FLAG  F2 IS WHOLE NUMBER FLAG  FIND LOWEST COMON DENOMINATOR )  DEVELOPE EQUATION FROM COORDINATESc :"(";X1;",";Y1;")";28);"(";X2;",";Y2;")":F30:F40t X1X22220 :"THESE COORDINATES CAN NOT BE DEFINED BY Y = M X + B. THE EQUATION FOR THIS LINE IS:" :" X = ";X1  F3 IS INFINA21 " ENTER Y1 ";Y18 15);"(";X1;",";Y1;")"? 8d "SECOND COORDINATES (X2,Y2)"} " ENTER X2 ";X2 9:21 " ENTER Y2 ";Y2 X1X2Y1Y22046 15);"(";X2;",";Y2;")" %A11000 *DA /A 02200 423 S$"+ " (5000>  INPUT TWO SETS OF COORDINATES :"THIS PORTION OF THE PROGRAM GENERATES A STRAIGHT LINE EQUATION FROM TWO SETS":"OF COORDINATES SUPPLYED BY YOU." :"FIRST COORDINATES (X1,Y1)" " ENTER X1 ";X1 6:***********************;** ALGEBRA 1 **X** BY **u** TOM JACOBSEN **** THE GREEN APPLES **** CEDAR FALLS IOWA *************************F10:F20:F30:F40 MY2:MX3:B24:S100:MG            TH SO THE LENGTH OF THE WRITE MAY BE OFF A DAY OR TWO."=<.<." IF AT ANY TIME YOU WANT TO RETURN TO THE MAIN MENU DURING THE PROGRAM; JUST HIT A WHEN INPUT IS ASKED FOR.";</A$</A CALL ON IT.";.;." IT WILL ALSO FIGURE YOUR COMMISSION COSTS FOR YOUR STOCK AND OPTIONS INTO YOUR RATE OF RETURN.";.7<." A MAXIMUM OF 50 OPTION WRITES CAN BE STORED IN ONE FILE. THE NO. OF DAYS OF A WRITE IS FIGURED ON A 30 DAY MON.04:J)COCO1.04:T)COCOOL0:^)CO89CO89>:h)CCCC100O:r)CC89CC89\:|)CCCCNRt:)CC(CC100.5)100:)CO(CO100.5)100:);.:5:" THIS PROGRAM IS DESIGNED TO SHOW YOU THE POSSIBLE RATE OF RETURN IF YOU BUY A STOCK AND WRITE OL0ī104509(COCOOL*9(NR0ī10470;9(CCCCNR100K9(CCCC.0099[9(COCO.0099p9(CC(CC100)1009)CO(CO100)1009)PAPRNS9)PA5000COCO1.069")PA5000COCO1.049,)PA5000CCCC1.0696)PA5000CCCC1.04:@)CCCC108((Z0Z082(CCCC2Z(8<(ZCCNR78F(Z65Z65C8P(CCZNR[8Z(PA5000CCCC1.15s8d(PA5000CCCC1.18n(CCCCCC8x(8( ALLOCATE ROUTINE8(CCCC1.088(COCO1.088(CCCC1.58(NR0COCO1.58(COCC30CO0:CC30: 9(07'PA5000CC1.15-7'PA5000CC1.1>7'PAPRNR100U7'PA5000CC1.15j7'PA5000CC1.1u7'CCNR7'PA30000CCPA.0041427'PA30000CCPA.006827(PA20000CCPA.009227 (PA2500CCPA.013127(CCCC6NR8(ZNR10 - OC6.' 68'86B' SINGLE LOT/ODD LOT ROUTINES6L'PA2500CPA.00922m6V'PA2500CPA.013126`'PA800CPA.026.46j'C65C656t'PA5000CC1.156~'PA5000CC1.16'6' MULTIPLE ROUND LOT ROUTINE6'PAPR1007'100501305&CXCCCO5&NRNR1(5&1013045&NRNR1A5&CYCCCXN5&CCCXCO_5&COCYCOCYj5&10370t5&9980z5&5' "OPTION COMMISSION = ";OC5'5' : PRINT "PURCHASE = $";NO * OP * 100 + OC6$' : PRINT " SALE = $";NO * OP * 10PAOLPR4%100504%COC*4%PA100PR54%10050A4%CXCCOJ4&NR2U4 &10130^4&NR1k4 &CYCCCXx4*&CCCXCO44&COCXCOCX4>&103704H&99804R&101304\&103704f&99804p& MULT LOTS + ODD LOT4z&PAPROL4&100504&COC5&1SUBROUTINE3%OL0NR0J103&%OL0NR1J2C30%OL0NR1J3V3:%OL0NR1J4i3D%OL0NR1J53N%J9570,9620,9670,9810,98403X%3b%PANSPR3l%100503v%COC3%103703%99803%PANSPR3%100503%CCC3%103703%99804%762$NO5OC67.6.2$NO5OP1.75OC62.4J2$NO5OP1.3125OC57.2]2$NO6OC81.12x2$NO6OP1.75OC74.882$NO6OP1.375OC68.642$NO7OC94.642$NO7OP1.8125OC87.362$NO7OP1.375OC80.082%9990 3% ASSIGN ROUTINE 81J$NO2OP1.75OC31.2.1T$NO3OC48.67H1^$NO3OP2.5OC45.43e1h$NO3OP1.9375OC43.681r$NO3OP1.9375OC40.561|$NO3OP1.1875OC37.441$NO4OC56.241$NO4OP2OC54.081$NO4OP1.75OC49.922$NO4OP1.3125OC45.(CC100.5)1000#OCCC#0#9990;0#NO4OP2OC54.08K0#NO1OC25f0$NO1OP2OP4OC300$NO2OP1.75OC33.280$NO2OC38.940"$NO2OP3.3125OC36.770,$NO2OP2.5625OC34.6106$NO2OP2.3125OC301@$NO2OP2OC33.25OP.4375OC716OP(NO1)4I/#OP.375OP.625OC716OP(NO1)5.5p/#OP.5625OP1OC716OP(NO1)7/#OC0ī9990/# ABOVE LINE QUITS WHILE AHEAD/#PROP:NRNO:PANRPR100/#PA800ī9210/#9490/#OP2CCCC1.040#OP2CC................. ,.(# OPTION COMMISSIONSL.2# "NUMBER OF OPTIONS ";NOb.<# "PREMIUM ";OPy.F# FIND OPTION COMM.P#OP.0625NO1OC2.5.Z#OP.0625NO1OC82.5(NO1).d#OP.125OC92.5(NO1).n#OP.1875OC102.5(NO1)/x#OP.1877LOSE ";F$-5-@ >>> .....CREATE NEW FILE ..... ;-EZ-F::"CLOSE ";F$;" FILE":p-G:D$;"CLOSE ";F$-H:D$;"LOCK ";F$-J:"NAME OF NEW FILE";:F$-TF$""ĺD$;"CATALOG":8010-^D$;"OPEN ";F$-hD$;"CLOSE ";F$-r5000.'# .....CK ";F$X,b"NAME OF FILE TO USE":" RETURN FOR CATALOG":" 'NEW' FOR NEW FILE"m,g" ";F$,lF$""ĺD$;"CATALOG ":7010,nF$"NEW"ġ:8010,p,q"OPENING ";F$;" FILE",r,tD$;"UNLOCK ";F$,vD$;"OPEN ";F$ -D$;"C0:J:5000+zD$;"UNLOCK ";F$2+D$;"OPEN ";F$G+D$;"DELETE ";F$Z+D$;"OPEN ";F$b+D$l+5000v+N7000+S5000+W ..................... +X ......INPUT FILE NAME --F$,]F$""ĺ:D$;"CLOSE ";F$::"CLOSING ";F$;" FILE"::D$;"LO:"# OF YOUR CHOICE?";:A$:J((A$,1))R*J200,1470,1450,6000,6990,8000,5995\*5000*k10);::"LOCKING ";F$;" FILE";:*o:D$;"CLOSE ";F$:D$;"LOCK ";F$:*p:"DELETE ";F$;" FILE";:A$:(A$,1)"Y"6010 +q:"FILE NOT DELETED":J145"SELECT OPTION"/):5);"1 WRITE OPTION"N):5);"2 RECALL OPTION"w):5);"3 LIST OF OPTIONS ON FILE"):5);"4 DELETE FILE ENTRIES"):5);"5 INPUT NEW FILE "):5);"6 CREATE NEW FILE"):5);"7 EXIT PROGRAM")*.06( PA5000CCCC1.04*( CCCC1.049( COCO1.04F( COCOOLW( CO89CO89e(CCCC100v(CC89CC89( CCCCNR(CC(CC100.5)100(CO(CO100.5)100(( ........................ ( SELECT OPTIONS ()SSION = $30.00"$' CO0:CC30:16304' OL0ī3510A' COCOOLQ' NR0ī3520b' CCCCNR100r' CCCC.0099' COCO.0099' CC(CC100)100' CO(CO100)100' PAPRNS' PA5000COCO1.06' PA5000COCO1.04( PA5000CCCC10Z0&\ CCCC2Z &a ZCCNR/&f Z65Z65;&k CCZNRS&p PA5000CCCC1.15k&u PA5000CCCC1.1z&z CCCCCC& & ALLOCATE ROUTINE& CCCC1.08& COCO1.08& CCCC1.5& NR0COCO1.5& COCC30ī3500' "MINIMUM COMMIA5000CC1.15%% PA5000CC1.16%% PAPRNR100M%* PA5000CC1.15b%/ PA5000CC1.1m%4 CCNR%9 PA30000CCPA.004142%> PA30000CCPA.00682%C PA20000CCPA.00922%H PA2500CCPA.01312%M CCCC6NR%R ZNR10&W ZSION $ $ 1$ SINGLE LOT/ODD LOT ROUTINEL$ PA2500CPA.00922f$ PA2500CPA.01312$ PA800CPA.026.4$ C65C65$ PA5000CC1.15$ PA5000CC1.1$ $ MULTIPLE ROUND LOT ROUTINE$ PAPR100$ 3300% P0 #v 3280#{ 3340# 3460)# 3280C# MULT LOTS + ODD LOTP# PAPROLZ# 3300c# COCm# 3340z# CXCCCO# NRNR1# 3340# NRNR1# CYCCCX# CCCXCO# CY0COCOCY# 3460# 3280# $ CC=FINAL STOCK COMMIS10" PANSPR" 3300"" COC," 34606" 3280C" PANSPRM"! 3300V"& CCC`"+ 3460j"0 3280w"5 PAOLPR": 3300"? COC"D PA100PR"I 3300"N CXCCO"S NR2"X 3340"] NR1"b CYCCCX"g CCCXCO"l CY0COCOCY#q 346R SHARE: ";PRG! NSPR100ĺ"10% COMMISSION = $";(NSPR10.5)100:O! J0a! MAP ROUTINEr! NR(NS100)! OLNSNR100! OL0NR0J1! OL0NR1J2! OL0NR1J3! OL0NR1J4! OL0NR1J5" J3075,3100,3125,3195,32LUNT ELLIS & LOEWI, INC. STOCK COMMIS- SION PROGRAM. ADAPTED FOR THE APPLE BY DAVID G. SPARKS 1980." INPUT ROUTINE "NUMBER OF SHARES: ";NS ! INPUT "PRICE PE:1460A4"ERROR NUMBER ";ER:"AT LINE # ";EN::D$;"CLOSE ";F$G>mH:"FILE NOT FOUND"::F$"":6990R"VOLUME MISMATCH"\"I/O ERROR"f"DISK FULL"p"FILE LOCKED"z"SYNTAX ERROR"2100 ..................... "BR10ī2100IER2020,2054,2040,2060,2070,2120,2130,2140,2150,2160,2170QERo"LANGUAGE NOT AVAILABLE""RANGE ERROR""RANGE ERROR" "WRITE PROTECTED""END OF DATA":RN$"END"2090 RN$;" ...IS NOT IN THIS FILE"*I12:I65 DAYS > ";A((A(14)A(4)100)365A(10));"%";4);:M"RECALL ANOTHER?";gA$:(A$,1)"Y"1470wA$R$5000}5000D$;"CLOSE ";F$ ...................... ERROR SUBROUTINE EN(218)(219)256:ER(222):E7):33);A(1)A(11)A(12)3(18):31);" -";A(4)f(19):10);"ADD. APPRECIATION";34);A(A(13))(21):10);"TOTAL ";34);A(A(14))(23):5);"NET RETURN ";::A(15);::" % FOR ";A(10);" DAYS"55);A((A(8)A(4)100)365A(10));" % < 3(17),r(12):15);"DIVIDENDS ";A(7)e|(14):15);"TOTAL ";A(7)(A(6)A(1)A(17))(15):5):"NET RETURN ";::A(9);" %";::" FOR ";A(10);" DAYS "(16):"IF ";NAME$;" CALLED @ ";A(11);" ";A(11)A(1);" -";A(12);" = "(1S$,3,2))"@DL5DD((S$,2,2))?J(7):"SELL------ CALL"T" ";MN$;" ";A(11);" @";A(6);" ";A(1)A(6);" -";A(17);" = ";A(1)A(6)A(17)Y" EXP. ";MN$;" ";DD^10:"IF ";NAME$;" STAYS AT ";A(16)h(10):15):"OPTION INCOME ";A(6)A(1)ABEGINNMNG OF THE STOCK REVIEW PORTION 3D$:ZZ4<:2^10);"DATE OF WRITE$ ";A(2)"(3):"BUY------- ";NAME$;30);"COST",(4):A(1);2);NAMES$;" @ ";A(16);3);A(16)A(1);" +";A(3);" =";::A(4):6S$(A(5)):DL(S$):DL6DD((]ZZ1ZZ2::"LIST OF STOCKS ON FILE":"------------------------------":V1K:Z$(V):VeK0:D$(4):"NAME OF STOCK TO BE REVIEWED; ";:RN$RN$""5000:"LINE 806"ZZ31320 *************************& THIS IS THE FILE (2D$;"OPEN ";F$2<D$;"READ ";F$QFNAMES$:KK1:Z$(K)NAMES$ZPMN$fZI117pdA(I)wnIxRN$R$ĺD$:1450ZZ3ĭRN$NAMES$15301350D$81015);::"ONE MOMENT PLEASE ":::ZZ1:RN$"END":1320BNAMES$LMN$VNS(`M2;D2;Y20jCM8tC1F~LN,DD,YYNPCVDV]TeN1lLtSP|C3AAT2N2P1C2D$  RETURN TO 810# ....................... INPUT INFO FROM ECP 50.84,51.92,53.00,54.08,55.16,56.24,57.32,58.41,59.49,60.57,61.65,62.73 53.54,54.35,55.16,55.97,56.78,57.60,67.06,68.14,69.22,70.30,71.39 72.47,73.55,74.63,75.71,76.79D$(4)$.D$;"APPEND ";F$8D$;"WRITE ";F$ p980,zDD((DT$,3,2)):YY((DT$,2))OLN((DT$,2)):X1LN:MN$:XUeTMLN30DDuTDM230D2YYY2ī980LTMTD425"360 8 IS LENGTH"L(365TD)TM425 JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,D5 DAYS > ";A((T2C1100)365L);"%";4);:A$:q "SAVE THIS WRITE?";:A$:(A$,1)"Y"ĺD$;"UNLOCK ";F$:1040*K0::"RECALL A PREVIOUS ONE? ";:A$:(A$,1)"Y"147045000>D$;"CLOSE ";F$HR(DT$)8ī970\(DT$)6890f420-";C1AA(SPNSC3)C1J(19):10);"ADD. APPRECIATION";33);A(AA)VT2TAA|(21):10);" TOTAL ";33);A(T2)(23):5);"NET RETURN ";::A(T2C1100);::" % FOR ";L;" DAYS" :N2A(T2C1100)05);A((TC1100)365L);"% < 36NPUT SPPRSPM PRINT "COMMISION,IF SOLD AT THIS PRICE ";: INPUT C3W3000aC3CC"COMMISION COST IS: ";C3:J11500::34,0(16):"IF ";NAME$;" CALLED @ ";SP;" ";SPNS;" -";C3;"= "(17):33);NSSPC3(18):32);""DIVIDENDS ";DV&(14)I015):"TOTAL ";DV(PCNSOC)]:TDV(PCNSOC)gDC2OCqN(15)X5):"NET RETURN ";::A(TC1100);" %";::" FOR ";L;" DAYS"bN1A(TC1100)l34,19:v PRINT "STRIKING PRICE OF CALL";: I CALL"E" ";MN$;" ";SP;" @";PC;" ";NSPC;" -";OC;"= ";PCNSOC]"EXP. ";MN$;" ";DDj34,18:"AMOUNT OF DIVIDENDS";:DV34,010:"IF ";NAME$;" STAYS AT ";P1(10)15):"OPTION INCOME ";PCNSOC(12)15): ";PSNS;"+";CM;"= ";30);::PSNSCM:X|C1PSNSCM: C1=TOTAL COST OF STOCKb(19)"STRIKING PRICE OF CALL";:SP"CALL PREMIUM ";:PC"EXP. DATE OF CALL (MMDDYY)";:DT$:850NONS1009000(7)"SELL------ "CALL OPTION WRITTING WORKSHEET":"----------------------------------------"V ,P1PSw 6 CONVERT TD$ TO TODAYS DATE @M2((TD$,2)) JD2((TD$,3,2)) TY2((TD$,2)) ^(3) h"BUY------- ";NAME$;" @ ";PS;30);"COST"-rNS;" ";NAME$;"T":"----------------------------------------"Z "NAME OF STOCK";:NAME$:NAME$""5000 "NUMBER OF SHARES (100'S) ";:A$:NS(100(A$)):NS "PRICE/SHARE ";:PS:PRPS 3000 CMCC "COMMISION COST IS: ";CM J11500:L ":6);Z:1 dA(20):2000:D$(4): D$ = CONTROL D= nD$(4)d x5);"TODAYS DATE (MMDDYY):";:TD$w (TD$)6120 (TD$)1120 A(X)((X100))100 Z$(30): R$(13) 7000 5000 . 6);"CALL OPTION WRITTING WORKSHEE *"4 $"* BY *"c ("* DAN RHOADES *" 2"* *" <"***************************************" F P"INSTRUCTION? (Y OR N)";:A$:(A$,1)"Y"İ12000 * *6 * GREEN APPLES *T * NORTH CENTRAL IOWA *r ************************x  "***************************************" "* *" #"* OPTION WRITER 4  ************************? * DAN RHOADES *^ * *} * COMMISSIONS BY * * DAVE SPARKS * * OCT. 6 1980 * * * * 50 STOCKS PER FILE *                             CEDAR FALLS,IOWA 50613LLL NOT TO CHANGE ANY PART OF THIS PROGRAM AT THE BEGINING AS I HAD TO POKE SOME ABSOLUTE ADDRESSES TO STORE THE STRINGS IN ARRARYS TO IMPROVE THE SPEED.. !&B' DAN RHOADES GREEN APPLES 3228 SCENIC DRIVE THIS WAY YOU CAN PLACE YOUR MORE FREQUENTLY USED FILES AT THE END OF YOUR CATALOG..... $.' "DF" STANDS FOR DELETED FILE IN THE CATALOG SO YOU CAN SWITCH A FILE WITH THE POSITION OF A DELETED FILE HIGHER UP IN THE CATALOG.....%8' BECAREFU28749,0:28750,255:28751,255:28752,0:8#a28753,255:>#bH#'::d#' INSTRUCTIONS #' THIS PROGRAM ALLOWS YOU TO SWITCH TWO PROGRAMS AROUND SO THAT YOU CAN POSITION THE FILES AS YOU WISH...AT THE END OF CATALOG FOR EXAMPLE....[$$'17:g"^28726,3:28727,238:28728,19:28729,112:28730,206:28731,15:28732,112:28733,208:28734,241:"_28735,169:28736,15:28737,141:28738,15:28739,112:28740,169:28741,64:28742,141:28743,19:(#`28744,112:28745,96:28746,0:28747,0:28748,0:693,0:28694,1:28695,0:28696,0:28697,96:28698,1:B![28699,0:!\28708,0:28709,0:28710,0:28711,169:28712,2:28713,208:28714,2:28715,169:28716,1:"]28717,141:28718,22:28719,112:28720,169:28721,112:28722,160:28723,10:28724,32:28725,22)255ĺ:"CTRL C INTERRUPT ATTEMPTED." X28672,0:28673,1:28674,239:28675,216:28676,0:28677,0:28678,0:28679,0:28680,0: Y28681,0:28682,1:28683,96:28684,1:28685,0:28686,17:28687,15:28688,0:28689,112:4!Z28690,0:28691,64:28692,0:28SO SONETIMES CONT. C OR WRONG TYPE AS RESPONCE TO INPUT."g(222)53ĺ:"ILLEGAL QUANTITY ERROR."(222)107ĺ:"BAD SUBSCRIPT ERROR."(222)163ĺ:"TYPE MISMATCH ERROR"(222)254ĺ:"BAD RESPONSE TO INPUT STATEMENT ERROR."' (22 ADDRESS FIELD OR THE DATA FIELD. IF THE DATA FIELD FOR THE "(ERR)128ĺ:"SPECIFIED SECTOR HAS NEVER HAD ANYTHING WRITTEN ON IT, THEN A READ ERROR WILL RESULT, BECAUSE THERE IS NOTHING TO READ."ERR,0;(222)16ĺ:"SYNTAX ERROR--ALLJ(ERR)16ĺ:"DISKETTE IS WRITE-PROTECTED AND CANNOT BE WRITTEN TO."(ERR)64ĺ:"DRIVE ERROR. SOMETHING UNUSUAL IS HAPPENING."A(ERR)128ĺ:"READ ERROR. THE RWTS ROUTINE WAS, AFTER48 REPEATED ATTEMPTS, UNABLE TO READ EITHER THE "I/O ERROR":5180+"DISK FULL":5180P211:"OR":"FILE LOCKED":3080j("SYNTAX ERROR":51802"NO BUFFERS AVAILABLE":5180<:"ERROR # ";ER;" OCCURED AT LINE # ";LNF:Pp IOB ERROR HANDLER z:ERRIOB2330,5140,5150,5160,5170 5180D"LANGUAGE NOT AVAILABLE":5180]"RANGE ERROR":5180v"RANGE ERROR":5180"WRITE PROTECTED":5180 END OF DATA ERROR:D$;"CLOSE ";FILE$"FILE NOT FOUND":700"VOLUME MISMATCH":518087114KB(IOB23):KB16KB32KB64KB1286010N:D$;"CATALOG":::e ERROR HANDLERER(222):LN(218)(219)256: ER IS ERROR CODE AND LN IS LINE # WHERE ERROR OCCURRED.ER125180ER5050,5060,5070,5080,5090,5110,5120,51):BADR1,NT(2,4)7 POKE N$(1) INTO BUFFER O$(2) NNARAR2(A23)42kBADR(NAR)(NAR1)256J029:K((N$(1),J1,J1)):BADRJ,K:BADRBADR3J02:BADRJ,NT(1,J): BADRBADR33*BADR,NT(1,3):BADR1,NT(1,4)2140 "4000(,:"SWITCHING FILES":?6NARAR2(A13)42\@BADR(NAR)(NAR1)256h POKE N$(2) INTO BUFFER O$(1) rJ029:K((N$(2),J1,J1)):BADRJ,K:|BADRBADR3J02:BADRJ,NT(2,J):BADRBADR33BADR,NT(2,3J04:NT(1,J)FT(A,J):'N$(1)O$(A)H:"WITH WHAT PROGRAM #";:AUA0700vAHĺ"NOSUCH PROGRAM":4050A2AJ04:NT(2,J)FT(A,J):N$(2)O$(A)"REPLACE : ";N$(1):"WITH : ";N$(2)"(Y OR N)";:A$(A$,1)"Y"4YWAY?";:A$::A$"Y"3110# 700=& :D$;"UNLOCK ";O$(A)C+ [0 D$;"DELETE ";O$(A)q: "DELETED ";O$(A)w? D 700 SWITCH ::"PROGRAM TO REPLACE #";:AA0700AHĺ"NOSUCH PROGRAM":4010A1A1008:1008:A$:A$"Y"ĺ:3060* 700g FTYPE(A,0)255ĺ"FILE ALLREADY DELETED":J1500::700 FTYPE(A,2)84ĺ:5150 :D$;"DELETE ";O$(A) 936 "DELETED ";O$(A) 700 IF FILE LOCKED O$(A):"DO YOU WISH TO DELETE AN LOAD ):"LOAD PROGRAM#";:AKAHĺ"NOSUCH PROGRAM":2010YA0ī700f:1220z"LOAD ";O$(A) DELETE  :"PROGRAM TO DELETE #";:A A0700 AHĺ"NOSUCH PROGRAM":3010! "DELETE ";O$(A);"?":1008:)DELETE(4)SWITCH(5)END";:1008:1008:1008:1008:1008:A^A1000,2000,3000,4000,9999mA0Ľ:14v700~: RUN :"RUN PROGRAM #";:AAHĺ"NOSUCH PROGRAM":1010A0ī700 :1220"RUN ";O$(A)(H)315: NEXTHH1Y H IS SET TO THE NUMBER OF CATALOG ENTRYS READ IN fNT(2,5)qN$(2)N$(1)" "N$(2)N$(1)1220:34,20:"END OF CATALOG (0)CATALOGS NEW DISK">"(1)RUN(2)LOAD(3?|H81Č1220:"HIT ANY KEY FOR REST OF CATALOG";:O$(0)::i}H80ĢH80:H;" ";FT$;" ";O$(H):315~H60ĢH60:H;" ";FT$;" ";O$(H):315H40ĢH40:H;" ";FT$;" ";O$(H):315H20ĺH;" ";FT$;" ";(O$(H),13):660H:H;" ";FT$;" ";O$FT$" B"XO$(0)"EXIT"670,]H9630LbH:1);H;" ";FT$;" ";O$(H)\l315: NEXTzvH21Ĺ33,20:32,20:936xH61Ĺ33,20:32,20:936zH41Č1220:"HIT ANY KEY FOR REST OF CATALOG";:O$(0)::{H20ĢH:H;" ";FT$;" ";O$(H):315$"DF":600-FTYPE(H,2)128FT$"*T":600OFTYPE(H,2)129FT$"*I":600qFTYPE(H,2)130FT$"*A":600&FTYPE(H,2)132FT$"*B":6000FTYPE(H,2)0FT$" T":FTYPE(H,2)1FT$" I":600DFTYPE(H,2)2FT$" A":600 NFTYPE(H,2)490FILEFILEZ1/FILEFSIZEFILE0:440@PSPSDENTRYI500_PSPSDENTRYLINKqSECTRSECTR1SECTR15ĺ"LINE 460":A$ GOTO 315 I=I-1I1Č936 INVERSEHINDEX: FOR H=1 TO I FTYPE(H,0)FFFT;IIZ1 <H0 >K0% @JZ0Z2E JFTYPE(I,H)(PSJ):HHZ1:X KINDEXINDEXZ1u LOAZ1,BLOW:OAZ2,BHIGH MBLOWBLOWDENTRY:BLOWFFBLOWBG:BHIGHBHIGHZ1 NOAOAZ3 TJ33ZE:FTYPE(I,H)(PSJ):HHZ1:(PS4)Z0O$(0)"EXIT":4 START16384, LINK11: DIRECT HEADERK DENTRY35: DIRECT SIZEW FSIZE7d ESIZE34q BLOW14:BHIGH64 J050 O$(J)".............................." AZ(107)(108)256 ARAZ ARAR17 OAAR 936:4:16);"DAN RHOADES":5:18);::"READING":> d28715J gINDEX0V iSECTR0a kFILE0m nO$(80) pO$(0)".............................." sAR(107)(108)256 xFTYPE(80,5) 936:(4):16);"GREEN APPLES":5:18);::"SORTING": IS LOADED) <PS16395: PS=START + LINKM FZ00:Z11:ZS15:Z33:ZE34:Z22] HFT$"BLANK"h KFF255r LBG14 NIOB28672 P CALL 28715 READ DISK RER0:LN0:5000 W(47465)200ĹIOB15,12:IOB64,12:90 XIOB15,15:IOB64,153 Z************************< INSTRUCTIONS AT 10000 G 16384Q ::e J0:H0:I0:K0q D$(4)w  #(286721)1ĭ(2867241)208ĭ(2867272)11255 (7000 2 CALL 28711 WRITE DISK 7 JUMP TO HERE IF BINARY$  ************************? * DAN RHOADES *^ * *} * GREEN APPLES * * USER'S GROUP * * * * * * NOV. 20 1980 *           z#???   ͧӠˠҠ' ǠԠҠРΠנȭŠ à٠  ҠҠ Ԯŭ² ͧӠȠ̠ϠŠ٠àӠӠΧӠȠ ΧӠΠҠ6 ŠΠӠ ٠ŠΠƠԠǠԠΠ ͧӠȠҠҠ PPLES **$I*********************** BY **[?** THOMAS JACOBSEN **wD** THE GREEN APPLES **I**********************V USING 'APPLE WRITER'.|\ THIS PROGRAM WILL THEN READ THEM WITHOUT THE NEED OF DISTRIBUTING COPY- WRITED SOFTWARE.0**********************5**APPLEWRITER READER**:** BY **?** THOMAS JACOBSEN **D** THE GREEN A CURSOR POS.%t NH$ - LINE HOLDER4yB$"":EF0J~(NH$)40EF1:c(NH$)38ĢV:NH$:zX((40(NH$))2)B$" "NH$(B$,X)NH$V:NH$HR PREPARE THE APPLE- CATION NOTES3100 MC96MCMC32:3100: MC128MCMC64:3100V MC192MCMC128:3100n MC192MC64:3100 MC224MCMC96:3100 MCMC192 SLSL10 (MC);5 CCCC1:MC13CC0: 3015` CENTER OUTPUT ROUTINE j V - VERTICALT ON PRIOR TO RUNING THIS PROGRAM AND USE THE SCREEN DUMP WHICH IS FORMATED FOR 40 COL.j :SL6400:CC0 PRINT FILE FROM MEMORY(SL -- STARTING ADDRESS) CC79CC0: MC(SL):MC96ĺD$;"PR#0":1105 MC32MCMC64:3100 MC64::V10:NH$"THANK YOU":60000RV12:NH$"THE INTERNATIONAL APPLE CORE":60000Xg200:1200 D$;"PR#1": PLACE APPROPRIATE COMMANDS FOR YOUR PRINTER HERE. YOUR PRINTER SHOULD BE SET FOR 80 COL.W IF YOU HAVE A 40 COLUMN PRINTER, TURN I24:"==================PRESS================= EXT PAGE / TART OVER OAD FILE /

RINT FILE / UIT"; `35,21::: j200 900:KB2062000 KB2111105 KB2041080 KB2083000 KB2091500 1200 CATALOG":60000:900 - $D$;"CATALOG"3 )i .V24:NH$"PRESS ANY KEY TO CONTINUE.":60000:900 8:V8:NH$"ENTER FILE NAME TO READ":60000:10:10:NH$ B(NH$,5)"TEXT."NH$"TEXT."NH$ LD$;"BLOAD";NH$;",A$1900" Q:SL6400} V:LIST OUT":60000L V7:NH$"APPLE WRITER FILES ONE PAGE AT A TIME.":60000 V12:NH$"THE FILE WILL BE FOUND IN THE CATALOG":60000 V13:NH$"IN THE FOLLOWING FORM:":60000 V15:NH$"TEXT.'FILE NAME'":60000 V20:NH$"PRESS ANY KEY TO VIEWMC141LCLC1:CC0& MC96FE1:O (MC);:CCCC1:CC40CC0:LCLC1_ LC20ī215e  GET INPUT FROM KEYBOARD(KB -- KEY IN HOLDER) 16368,0 KB(16384):KB128910 16368,0: :V5:NH$"THIS PROGRAM IS DESIGNED TO RITER FILES"' 2EF0:FE0:DR1:D$(4)8 7X12000:XB P1000j d BLOAD DATA FILE(NH$ -- FILE NAME) nD$;"BLOAD";NH$;",D";DR x SCREEN DUMP FROM MEMORY(SL -- STARTING ADDRESS) FE0:LC0:CC0 MC(SL):MC64MCMC192 SLSL1:( 56400::D V5:NH$"APPLECATION NOTE READER":60000fV7:NH$"PREPARED FOR":60000V9:NH$"THE INTERNATIONAL APPLE CORE":60000V11:NH$"BY":60000V13:NH$"THOMAS JACOBSEN":60000 #V17:NH$"THIS PROGRAM READS APPLE W    (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     8.         ($73,74)     ```2=  . =  , =   ,=    .   .                . = .              . = = =         = = =    '     -  .     $0= $1= $ 2       1                            . = = =             Ӎ              V$  ! A,E,I,O,U,YO B,C,D,F,G,H,J,K,L,M,N,P,Q,R,S,T,V,W,X,ZZ K1Ic K2 S(K)PPğ:15:P$(K)::S1  S1ı I24:"GAME WON AT ";PP;" POINTS!!!" : |100 N$""" X1NL(K)2, 10006 2000< ] NL(K)(NL(K)2)20İ1000j N$(K)N$p   CONSONANT ROUTINE J1(1)207 C$  N$N$C$  $  VOWEL ROUTINE J1(1)61 V$  N$N$K)ĺ16)"CORRECT!!":S(K)S(K)1:NL(K)NL(K)1:300L (40(N$(K)))29x ""SORRY, IT WAS ";N$(K):NL(K)NL(K)1 'NL(K)2NL(K)2 ,J12500:: 6J(0) @ JK1I T Y15 ^P$(K);": ";S(K) h rJ15000: w4000 "? 4:(40(N$(K)))2J N$(K)_ J1NL(K)500: 4:" " 6:(40(N$(K)))27:"YOUR GUESS: ";N$ 8:" "5 N$N$( ":10H ("NAME OF PLAYER #";K;X 2": ";P$(K)^ 7d <y FK1I:NL(K)3: dK1I n900 x K1I 1:(40(P$(K)))2 P$(K);":" 4:"PRESS 'RETURN' WHEN READY.";RZ$' 4:"  ::'"HOW MANY PLAYERS? ";IP:"HOW MANY POINTS TO PLAY TO? ";PPZ t ** MEMORY GAME ** BY DAVID SPARKS GREEN APPLES WATERLOO, IOWA  P$(I),NL(I),N$(I),S(I)K1I- 10:"     %- DOS 3.2.1 AND 3.3 DISK MODIFIER-REV 2iFOR INSTRUCTIONS SEE REM STATEMENTS STARTING AT 30000.y:6:102033,8::33,40X11000:X o\o\o\o\o\o^\o\o\o\o\o\ []TOM'S DISK MODIFIER[] [] REV C BY [] [] T     :7753,28:7754,31:7755,50:7756,62:_7757,55:7758,10:7759,33:7760,44:7761,45:7762,0:e K:7726,54:7727,14:7728,14:7729,14:y7730,45:7731,12:7732,12:7733,12:7734,36:7735,28:7736,28:7737,6:7738,0:7739,63:7740,23:7741,23:7742,23:7743,54:7744,14:7745,14:7746,14:7747,45:%7748,12:7749,12:7750,12:7751,36:7752,282:7699,12:7700,4:7701,0:7702,63:z7703,23:7704,23:7705,23:7706,54:7707,14:7708,14:7709,14:7710,45:7711,12:7712,12:7713,12:7714,36:7715,28:7716,28:7717,22:7718,58:7719,63:7720,63:%7721,0:7722,63:7723,23:7724,23:7725,23$,1)"Y"60::*232,252:233,29{7676,4:7677,0:7678,10:7679,0:7680,25:7681,0:7682,45:7683,0:7684,63:7685,0:7686,12:7687,12:7688,12:7689,45:7690,21:7691,14:7692,21:7693,21:$7694,21:7695,21:7696,45:7697,12:7698,1ROM AN ATOM PRODUCE ALL THE COLORS OF THE SPECTRUM."EbK17000:l"WHEN AN ELECTRON LOSES SO MUCH ENERGY THAT IT FALLS TO THE NUCLEUS, X-RAYS AREPRODUCED."vK17500::: "DO YOU WANT TO SEE THIS DEMONSTRATION AGAIN?";:A$:(AH11J,77$J170ĕ1JH1,773&K135:KJ0:1263,77:JG1:T:::D"PHOTONS TRAVEL AT ABOUT 186,000 MILES PER SECOND, AND MANY PHOTONS PUT TOGETHER MAKE LIGHT."NK17000:5X"DIFFERENT AMOUNTS OF ENERGY TAKEN AWAY F OCCURS, A ";::"PHOTON";::" OF LIGHT IS PRODUCED. WATCH CLOSELY.";XK17500:q2100X,77Y:WW40{A50XW((A31.42)):YW((A31.42))XX(.2X)2100X,77Y510290H13:***********PHOTONJ1702630X,77Y r100X1,76Y1! |A/ JG1570 "WHEN ENERGY IS ADDED TO THE ATOM, THE ELECTRON JUMPS TO AN OUTER ELECTRON 'ORBIT', OR SHELL." K15500::H"WHEN ENERGY IS TAKEN AWAY, THE ELECTRON JUMPS TO AN INNER 'ORBIT'. WHEN THIS "THE ELECTRON 'ORBITS' THE NUCLEUS, BUT DOES NOT TOUCH IT.K W75:H5\ "A50150H ,XW((A31.42)):YW((A31.42)) 6XX(.2X) @X1W(((AH)31.42)):Y1W(((AH)31.42)) JX1X1(.2X1) TA50360 ^2100X1,77Y1 h210 NEUTRAL CHARGE"- :"(HIT ANY KEY)";:A$9 :::M (232)252210^ :670:(24)g :7q 1:0 396,73:4106,72 "THIS IS THE NUCLEUS OF OUR DEMONSTRATIONATOM. IT IS COMPOSED OF 1 NEUTRON AND 1PROTON." K16000: > UCED. FIRST, YOU MUST KNOW THAT THERE ARE 3 TYPES OF BASIC ";X "PARTICLES INVOLVED" :" THE ELECTRON, WHICH HAS A 'NEGATIVE' CHARGE;" " THE PROTON, WHICH HAS A 'POSITIVE' CHARGE;" " AND THE NEUTRON, WHICH HAS A OF LIGHT" P- Z" BY"P d" BRANDON WEBER"X n:> x" LIGHT IS CONSIDERED BOTH A PARTICLEAND A WAVE BY PHYSICISTS. THIS THEORY IS HARD TO EXPLAIN, BUT I WILL ATTEMPT TO SHOW YOU EXACTLY HOW LIGHT IS PRO- Df  **********************; ***** WRITTEN BY *****X **** BRANDON WEBER ***u( ******* 3/10/81 ******- ***THE GREEN APPLES***. ***CEDAR FALLS IOWA***2 ********************** <:::::A F" PRODUCTION     :J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1S KEPT.";" THE MISSED":"WORDS CAN BE REVIEWED AFTER THE TEST.":"WORDS ARE PRESENTED IN RANDOM ORDER TO AVOID ROTE MEMORY RESPONSES.":"PRESS A KEY FOR MENU: ";:A$:1 CREEN TO PROMPT THE USER FOR TYPING OUT ON THE KEYBOARD." l:"PROVISION IS ALSO MADE FOR A PRINTER LISTING."::"THE SPELLING TEST PROVIDES FOR THREE LOOKS AT THE WORD BEFORE IT IS BYPASSED TO THE NEXT WORD. A RECORD OF NUMBER OF CORRECT WORDS I(A$,1)"Y"190B:"DON'T BLAME ME IF YOU DON'T GET YOUR"_"SPELLING TEST RIGHT!!"ekxI1NUMI(I)ĺW$(I)I:X"THIS PROGRAM PROVIDES FOR ENTERING A LIST OF SPELLING WORDS WHICH WILL THEN BE FLASHED ON THE S00|CV(37)CV:1:B$.T10CC1F"YOUR SCORE IS:";CMNU:x"YOU GOT ";C;" WORDS CORRECT"~:"DO YOU WANT TO SEE THE WORDS YOU MISSED (Y/N)? ";A$(A$,1)"Y"İ500:"DO YOU WANT TO DO IT AGAIN (Y/N)? ";A$ ";""DO YOU WANT TO SEE THE WORD AGAIN? ";J,A$:1:B$].TT1:T3400o1A$(13)240y6:A$;(W$(I),1)" "320<W$(I)(W$(I),((W$(I))1)):315@(A$,((W$(I))))W$(I)380ET1I(I)1JT11:T3240T4 ":C00I1NUM:R(I)0:I(I)0:I\"SPELLING TEST: TO BEGIN PRESS RETURN"qA$:(A$)13Ā~N1NUMI%(NUM.5)(1)1R(I%)0222II%:R(I)1T0:T1010:W$(I)J120Q(3)J10:1:" M1:D$;"READ SPELLING LIST,R";NUM/W$(NUM)DW$(NUM)""145wD$;"CLOSE SPELLING LIST":NUMNUM1:OPN1180(4);"PR#1"(20)I1NUM5)I;". ";W$(I)I(4);"PR#0"B$"  gD$;"CLOSE SPELLING LIST"= hD$;"LOCK SPELLING LIST":1_ i(A$)0Ģ(37)2:958:100m nNUM(A$) s:"ENTER WORD: ";W$(NUM) xD$;"WRITE SPELLING LIST,R";NUM }W$(NUM) NUMNUM1:80 D$;"OPEN SPELLING LIST,L20":NUM0"NUMNU0" PNUMNUM1:NLNL1; RD$;"READ SPELLING LIST,R";NUMH UW$(NUM)b WW$(NUM)""NL20:95 ZD$:5)NUM;". ";W$(NUM) _NL20NL0:D$::"IF YOU WANT TO MAKE A CORRECTION, ENTER # OF WORD,OTHERWISE PRESS RETURN: ";A$:105 dW$(NUM)""8035,22% #D$;"DELETE SPELLING LIST"F (D$;"OPEN SPELLING LIST,L20"o -NUMNUM1:D$:5)NUM;". ";:W$(NUM) 2D$;"WRITE SPELLING LIST,R";NUM 7W$(NUM) <W$(NUM)""45 F LIST SPELLING WORDS HNL0:NUM0:: KD$;"OPEN SPELLING LIST,L2 D$;"UNLOCK SPELLING LIST"> OPN370: CORRECT WORDS !:"** SPELLING LIST IS ABOUT TO BE DELETED."::10)"PRESS ESC TO AVOID.":A$:(A$)271 "::"ENTER YOUR WORD AFTER THE ?":I(37):24:"PRESS RETURN AFTER ? TO END INPUT. ";:I1::ND CORRECT WORDS") 5)"4. PRINT LIST"C 5)"5. INSTRUCTIONS"m 5)"6. STOP"::"INPUT OPTION? ";OPN D$(4):D$;"OPEN SPELLING LIST,L20" OPN1140 OPN4140: PRINT SPELLING LIST OPN5ė:600: INSTRUCTIONS OPN6ĺ(7): "W$(100),R(100),I(100):NUM0=:13)"SPELLING TEST"h:10)"BY RICHARD A. MICHAEL 1980  **THE GREEN APPLES** **CEDAR FALLS IOWA** :"OPTIONS:"5)"1. TAKE SPELLING TEST"5)"2. ENTER NEW WORDS" 5)"3. LIST A      OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOADE #(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL̍΍Íōٍٍ΍ԍٍٍFIELD FOR THE "fN(ERR)128ĺ:"SPECIFIED SECTOR HAS NEVER HAD ANYTHING WRITTEN ON IT, THEN A READ ERROR WILL RESULT, BECAUSE THERE IS NOTHING TO READ."pNERR,0 zN(222)16ĺ:"SYNTAX ERROR--ALLSO SONETIMES CONT. C OR WRONG TYPE AS RESPONCE TETHING UNUSUAL IS HAPPENING. THIS ERROR CAN BE CAUSED BY EMPTY SECTORS ON 13 SECTOR DOS."\N(ERR)128ĺ:"READ ERROR. THE RWTS ROUTINE WAS, AFTER48 REPEATED ATTEMPTS, UNABLE TO READ EITHER THE ADDRESS FIELD OR THE DATA FIELD. IF THE DATA " VOLUME MISMATCH ERROR. THE VOLUME NUMBER OF THE DISKETTE FOUND WAS DIFFER-ENT THAN THE VOLUME SPECIFIED IN BYTE 4."HN(ERR)32ĺ"THE VOLUMN FOUND WAS ";(VOLUMN);".":"THE EXPECTED VOLUMN WAS ";(RWTS13);"."_RN(ERR)64ĺ:"DRIVE ERROR. SOM0256X:500SECT,X"RWTS)X:34,0:35,21L:"CATALOG"Rb:"DONE":m35,24s~N50000 N ERROR HANDLING ROUTINES*N4N(ERR)16ĺ:"DISKETTE IS WRITE-PROTECTED AND CANNOT BE WRITTEN TO."z>N(ERR)32ĺ:S;" ";OF;" ";DS;" ";DFG OF7OF0:OSOS1:3020^ DF7DF0:DSDS1 N(16411OS256OF35):N35N0OFOF1:3020 600 OFOF1:DFDF1 3020 ***WRITE CATALOG***COMND,2XDOS11 BUFFER2060S15t(20601(DS1)256),17:(20602(DS1)256),DS=~DSV ***READ CATALOG***cCOMND,1sXDOS11BUFFER16400256X:500SECT,XRWTSX ***COMPACT CATALOG*** OSDOS:OF0:DSDOS:DF0 OS04000* " ";O20601:20600,0860,BEG(BEG256)256:61,(BEG256)_62,EN(EN256)256:63,(EN256)66,DEST(DEST256)256:67,(DEST256)$768L:34,21:V"OLD SECT-";::"OLD FILE";::"-NEW SECT-";::"NEW FILE":`34,22:jDS1DO60,BEG(BEG256)256:61,(BEG256)M62,EN(EN256)256:63,(EN256)z66,DEST(DEST256)256:67,(DEST256)768 ***ZERO DESTINATION BUFFER***768,216:769,160:770,0:771,76:772,44:773,254BEG20600:EN24700:DESTЫ1000$***SET BUFFER ADDRESS*** JRWTS18,BUFFER(BUFFER256)256eRWTS19,(BUFFER256)kX ***MOVE CATALOG FILE***b768,216:769,160:770,0:771,76:772,44:773,254lBEG16411OS256OF35:DEST20611DS256DF35:ENBEG34&v,1)"Y"CH1" JCH1DNS1:370* T:Q ^"DISK CONTROLER SLOT NUMBER--";DNm hDN(DN):DN1DN7340} rSLOT,DN16 wCH1DNS2:410 |: "DISK DRIVE NUMBER--";DN DN(DN):DN1DN2380 DRIVE,DN TRACK,17:SECT,DOS! ***SLOT AND DRIVE SET UP***< ***48K ONLY***t S1(47095)16:S2(47096):S21S22S12S17206} 208 S16:S21 :"CURRENT SETUP -- SLOT=";S1;" DRIVE=";S2 "DO YOU WANT TO CHANGE SLOT OR DRIVE NO.? ":CH$: (CH$WTSRWTS35 nDN xX,DN$ XF 169,3,160,10,32,217,3,96,0,0 1,96,1,0,17,0,32,3,0,64,0,0,1,0,0,96,1,0,0,0,0,0,0,1,239,216 DEV,((RWTS32)((RWTS32)256)256):DEV1,((RWTS32)256) RWTS1,(IOB256):RWTS3,IOB(IOB256)256NG. INPUT NUMBER OF SECTORS(13 OR 16). ";DOSS FDOSDOS1:DOS15DOS1260s P ***RWTS AND IOB SET UP*** ZRWTS775:IOBRWTS10:SLOTRWTS11:DRIVERWTS12:TRACKRWTS14:SECTRWTS15:DEVRWTS16:COMNDRWTS22:VOLUMNRWTS24:ERRRWTS23 dXR:11% 9);"TOM'S TRASH COMPACTOR"6 X12000:XA (16384M -20000l / ***AUTO DOS DETECTION*** 0 ***48K ONLY*** 2(47465)201DOS15:90 7(47465)200DOS12:901 <:"THE PROGRAM WAS UNABLE TO DETERMINE THE DOS YOU ARE USI *********************9 ** TRASH COMPACTOR **U ** TOM JACOBSEN **q ** 02-21-81 ** **THE GREEN APPLES ** ** NORTH CENTRAL ** ** IOWA ** ********************* SEE REMS AT END. :      3N::"CATALOG COMPACTION HAS BEEN ABBORTED.":z0u THIS PROGRAM REMOVES HOLES LEFT IN THE CATALOG BY DELETED FILES.:u THIS PROGRAM WILL WORK IN BOTH 3.2 AND 3.3 DOS AND IT WILL DETERMINE AUTOMATICALLY WITCH IT IS RUNNING UNDER.PÀO INPUT."5N(222)53ĺ:"ILLEGAL QUANTITY ERROR."_N(222)107ĺ:"BAD SUBSCRIPT ERROR."N(222)163ĺ:"TYPE MISMATCH ERROR"N(222)254ĺ:"BAD RESPONSE TO INPUT STATEMENT ERROR."N(222)255ĺ:"CTRL C INTERRUPT ATTEMPTED."N222,0W YOU TO COLLECTDATA THAT WOULD BE SIMILAR TO THE DATA THAT RUTHERFORD, HIMSELF, WOULD HAVE COLLECTED FROM ";"HIS EXPERIMENT.""(HIT SPACE BAR TO CONTINUE) ":A$IA SPEED OF 36 MILLION MILES PER HOUR AND AIMED DIRECTLY AT A THIN PIECE OF GOLD (.0000001 INCH THICK).:"HIT SPACE BAR TO CONTINUE":L$q:" THIS COMPUTER PROGRAM (WRITTEN BY BRANDON WEBER) SIMULATES RUTHERFORD'S EXPERIMENT. IT WILL ALLODISCOVERED THAT SOME ELEMENTSWERE RADIOACTIVE, THAT IS PARTICLES WOULD SUDDENLY SHOOT OUT OF THE ATOMS. HE SET UP A LEAD BOX WITH A RADIOACTIVE ELEMENT, THAT(14):(15):"SHOT OUT A LIGHT WEIGHT,"h"POSITIVELY CHARGED PARTICLE, TRAVELLING AT ING RADIATION, TO HELP BETTER UNDERSTAND THE STRUCTURE OF THE ATOM. HE WAS A STUDENT OF J.J. THOMSON'SAND SET UP HIS EXPERIMENT TO TEST THOMSON'S IDEAS"(7):(17):"ABOUT THE ATOM.""":" HERE IS HOW THE EXPERIMENT WORKS. RUTHERFORD A$\A$"Y"A$"YES"9003fA$"N"A$"NO"890<p830gz"TOTAL SHOTS =";N1:J14000:J:::"DO YOU WANT TO CLEAR THE SCREEN ";A$A$"N"A$"NO"210P12:50"":" IN 1910, ERNEST RUTHERFORD PERFORMEDAN EXPERIMENT US0:XX1,YC:7650,XXX1:YYC=X0Y0790FX,YZ0:XX1,YC:7c700lC1CX1(5(C1.0555))CC.042  J*4(24)>"# OF PARTICLES IN CENTER=";M1H"DO YOU WANT TO DO IT AGAIN ";R :530' D178CC180C180C0:620S N160CC164C164C((1)21)70:620 X164CC171C171C((1)40)21:620 b171CC178C178C((1)29)61:620 l750 vD((1)2) D0700 XXX1:YYC X0Y159790 X,Y0CC157C157C((1)30)46:450K 157CC160C160C((1)30)86T 750d D((1)2)q D0530 XXX1:YYC X279Y159790 X,Y 0:XX1,YC:7 480 XXX1:YYC X279Y0790 &X,Y 00:XX1,YC:7X,Y:320 hC((1)181)) rC160580K |C100C100C0:M1M11:450v 100CC115C115C((1)20)1:450 115CC135C135C((1)4)41:450 135CC143C143C((1)80)8:450 143CC150C150C((1)18)28:450$ 152000:P8 "HOW MANY PARTICLES DO YOU WISH TO FIRE ";? AL A0820W J1Am K115:L(S):K (15):"SHOT # ";J  N1N11 "N3J ,N3N315:N3((N3))B22:150 6X10:Y80 @0:X5,Y:7 JXX5 TX160360 ^10 FB20 P(24)& Z0,7910,796 d0,8010,80F n0,8110,81Z xP12F12:150 "FIRST, THE SOURCE OF RADIOACTIVE PARTICLES" K12000:K 160,73160,87 161,73161,87 B22ı F12210 "NEXT THE GOLD LEAF" P1  ***********************= ** RUTHER **[ ** BRANDON WEBER **y ** ** ** THE GREEN APPLES ** ** NORTH CENTRAL IOWA** ***********************S16336(9402::7 <M     111111 111111 "E=H16:11:" 11 22222 "aI17:11:" 111 2 2 "J18:11:" 11 2 "K19:11:" 11 222 "L20:11:" 11 2 "M21:11:" 11 2 "N22:11:"1111 00000 ";;>16:11:" 11 11 "_?17:11:" 111 111 "@18:11:" 11 11 "A19:11:" 11 11 "B20:11:" 11 11 "C21:11:" 11 11 "D22:11:" 9 "19416:11:" 11 00000 "]517:11:" 111 0 0 "618:11:" 11 0 0 "719:11:" 11 0 0 "820:11:" 11 0 0 "921:11:" 11 0 0 ":22:11:" 118888 "'7*16:11:" 999999 "[+17:11:" 9 9 ",18:11:" 9 9 "-19:11:" 999999 ".20:11:" 9 "/21:11:" 9 "022:11:" "5 16:11:" 88888 "Y!17:11:" 8 8 "}"18:11:" 8 8 "#19:11:" 88888 "$20:11:" 8 8 "%21:11:" 8 8 " &22:11:" 8 "316:11:" 7777777 "W17:11:" 7 "{18:11:" 7 "19:11:" 7 "20:11:" 7 "21:11:" 7 " 22:11:" 7 "  1 16:11:" 66666 "U 17:11:" 6 6 "y18:11:" 6 "19:11:" 666666 "20:11:" 6 6 "21:11:" 6 6 " 22:11:" 66666 " /16:11:" 5555555 "S17:11:" 5 "w18:11:" 5 "19:11:" 555555 "20:11:" 5 "21:11:" 5 5 "22:11:" 55555 " -16:11:" 4 "Q17:11:" 4 4 "u18:11:" 4 4 "19:11:" 4444444 "20:11:" 4 "21:11:" 4 "22:11:" 4 " + 16:11:" 33333 "O 17:11:" 3 3 "s 18:11:" 3 " 19:11:" 33 " 20:11:" 3 " 21:11:" 3 3 "22:11:" 33333  ) 16:11:" 22222 "M 17:11:" 2 2 "q 18:11:" 2 " 19:11:" 222 " 20:11:" 2 " 21:11:" 2 " 22:11:" 2222222 ' 16:11:" 11 "K 17:11:" 111 "o 18:11:" 11 " 19:11:" 11 " 20:11:" 11 " 21:11:" 11 " 22:11:" 111111 "% 16:11:" 00000 "I 17:11:" 0 0 "m 18:11:" 0 0 " 19:11:" 0 0 " 20:11:" 0 0 " 21:11:" 0 0 " 22:11:" 00000 " T12000,2010,2020,2030,2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150] #X1l (T01400v )TT1 -1030 xT0:SC(U)SC(U)T:2210 }(7) 1999 AAR1400 TT1 SC(U)SC(U)T:1:(7):(7) (7):(7) y d6000!T15:C0:AR0:X0/16368,0>T01999NX401300^R(16384)nR1271110xBXX1L1030V16368,0ZR1411500[R176R1851090`RR176e11:27C:Rj(7)oARAR10R:CC1t1090U           #J ** BY **6#T ** TOM JACOBSEN **Q#^ **THE GREEN APPLES**l#h **CEDAR FALLS IOWA**r# Nx#%NHOW MANY PROBLEMS IN THIS COMPETITION?"/"vNPH"{NP1NP(NP)7045R"7020X"d"X1NS"1:"NAME OF STUDENT # ";X"11X:S$(X)"S$(X)S$(X)" ""S$(X)(S$(X),24)""3000#@ **TOM'S MATH DRILL**="!!p*!uS$(5),S(5),SC(5),ST(5)5!zX15Z!S$(X)" "u!S(X)2:SC(X)0:ST(X)0{!!U1:P1!X!\12:"HOW MANY STUDENTS WILL COMPETE?(1TO5)"!]NS!bNS1NS5NS(NS)7020!g7000!l'"q12:"5230,5240,5250 ZP310" _5260, dP3506 i5260A nP3100K s5260V xP3200` }5260l P31000 P1((1)(P31)) P2((1)(P11)) AP1P2 11:" "!11:11:P1;16);"-";19);P2;24);"5060P3505060$P3100.50609P3200C5060OP31000eP1((1)(P31)){P2((1)(P31))AP1P211:" "11:11:P1;16);"+";19);P2;24);"=" PS(U)5210,5220,5S(U)5D 3155#I S(U)S(U)16N S(U)1S(U)1BS SC(U)0IX UP] Pxb 23:1:"DO YOU WANT TO TRY AGAIN?"g S$(0):(S$(0),1)"N"20000l m X15n SC(X)0:ST(X)0o q 3000S(U)5010,5020,5030,5040,5050P310X  X(1) X.5İ5200. X.5İ50008 2160B 1000T ST(U)ST(U)Td U2:27:Px U2:35:ST(U) X11000 X U! P3(P3)3165& U1NS+ SC(U)3031300 SC(U)1531455 3155: S(U)S(U)1 ? S(U) N O O "419:11:" N N N O O "X20:11:" N N N O O "|21:11:" N NN O O "22:11:" N N OOO "  P1NP U1NS 2200  U2:1:S$(U)  X11000 2:11:" GGG OOO "#wX1:1:" STUDENT PROBLEM SCORE "f3:S$(1)t4:S$(2)5:S$(3)6:S$(4)7:S$(5)16:11:" N N OOO "17:11:" NN N O O "18:11:" N N 11:" 111111 55555 "!mEp16:11:" GGG OOO "iq17:11:" G G O O "r18:11:" G O O "s19:11:" G O O "t20:11:" G GGG O O "u21:11:" G G O O "v21:" 111111 4 "cCf16:11:" 11 5555555 "gg17:11:" 111 5 "h18:11:" 11 5 "i19:11:" 11 555555 "j20:11:" 11 5 "k21:11:" 11 5 5 "l22:" 111111 33333 "YA\16:11:" 11 4 "e]17:11:" 111 4 4 "^18:11:" 11 4 4 "_19:11:" 11 4444444 "`20:11:" 11 4 "a21:11:" 11 4 "b22:1 111111 2222222 "O?R16:11:" 11 33333 "cS17:11:" 111 3 3 "T18:11:" 11 3 "U19:11:" 11 33 "V20:11:" 11 3 "W21:11:" 11 3 3 "X22:11:12:SF0TT1SSS1'TT2SFS2-z.......................................................................pTHIS PROGRAMS ALLOWS YOU TO COPY A RANGE OF SECTORS FROM ONE DISK TO ANOTHER. `JND".  2,181,183 96,0,03 1,96,1,0,0,0,80,31,0,32N 0,0,1,0,0,96,1,0,0,0l 0,0,0,1,239,216,0,0,0,0~...SUBROUTINE TO SET PROPER RANGE FOR READING AND WRITING SECTORSUP15050SS0:SF12TT1SSS1TT2SFS2SS............................................................O 7936=$1F00l $1F00 234 NOP ... NOP 169 LDA # 31 $1F 160 LDY 169,31,160,58 32AST2: PREVIOUS DRIVE #`RJ:...............................................................\"***************************************"T:..............................................................: "END"<T ...........#IOB5,J: SECTOR #7IOB12,2: WRITE COMMANDIIOB9,BUFFEReIOB13,0: ERROR CODEIOB16,LAST: PREV. DRIVE 8064: $1F80ET(7959)ET(IOB13)"WRITING ";T;" ";J;" ";ET4BUFFERBUFFER1>L.......6"***************************************"Y.............................................................WRITING.................................BUFFER32JSSSFUPIOB2,2: DRIVE 2IOB4,T: TRACK EADIOB13,0: ERROR CODE?&IOB16,LAST: PREV. DRIVESD7936: $1F00dIET(IOB13)R"READING ";T;" ";J;" ";ETlBUFFERBUFFER1vLAST1: PREVIOUS DRIVE #J:........................................................*************************************"fBUFFER32: HIGH-ORDER BYTE OF DATA BUFFER STARTING ADDRESSvJSSSFUP|IOB2,1: DRIVE 1IOB4,T: TRACK #IOB5,J: SECTOR # IOB9,BUFFERIOB12,1: COMMAND...R200: RETURN KEY "936: 'LAST1: PREVIOUS DRIVE #Q *T2T1TST1:TFT2a ,TTSTFUPg 4 5.......START.......... h4990:...SET SECTOR START...STOP ................................READING.................................&"**R ";T2,S2 T20T2351652 S20S212165; UP1Y T1T2UP1: COUNT DOWNp T1T2S1S2UP1 TST1:TFT2 UP1TST2:TFT1 ::"HIT ";:50,127:"RETURN";:50,255:" TO START COPYING " A(16384):A128200 A141STER IN DRIVE ";:50,127:"1":50,255- :e " COPY IN DRIVE ";:50,127:"2":50,255m 35y ::: "(USE DECIMAL)": "ENTER TRACK,SECTOR ";T1,S1 T10T135155 S10S112155 : "ENTER TRACK,SECTO47 +(RW1I),234: NOP0 .(RI),234: NOP7 0ID 2I4887K 5JZ 9(RW1I),Jg :(RI),Jn <It A F......................................................................... d936::: x" INSERT " }:% " MA....................................M !.......POKE IOB AND CALLING PROGRAMq ".......BOTH USE SAME IOB TABLE #....POKE IOB AND CALLING PROGRAM $ $1F00 7936 % $1F80 8064 &IOB7994: $1F3A 'RW17936:R8064 (I0 ***********************;** TWO DRIVE COPY **X** BY **u** TOM O'BRIEN **** GREEN APPLES **** NORTH CENTRAL IOWA************************* 100$ .....................................      PL  ;   `    ` `G P E O LLLL`ª`LQLY0:2160 ` KB155İ13000:21401j KB1762330It KB185KB1932330Z~ KB1982330q KB185DNKB176 KB192DNKB183 DNDN((NB)16)16 NB,DN 12000 NBNB1:NHNH1:NH39NH8:NVNV1:NV19NV4:NBBUFFER 2160NB,DN 12000  NHNH1, NV:NH=$ :" "::NHF. 430_8 KB141İ12000:2000B KB136NHNH1:NH8NH39:NVNV1:NV4NV19:NBBUFFER255L KB149NBNB1:NHNH1:NH39NH8:NVNV1:NV19NV4:NBBUFFERV KB136KB149İ1200KB149NHNH1:NH39NH8:NVNV1:NV19NV4:NBBUFFER\KB136KB149İ12000:2330uKB155İ13000:2140KB1762180KB185KB1932180KB1982180KB185DNKB176KB192DNKB183DNDN16(NB)((NB)16)16 0:NV4DN)HH$(A$,1):10000:NH82DNSR22:10:"TYPE THE CHANGES AT CURSER"d\F$"A"2510uf HEX CHANGEpNV:NHz:" "::NH430KB141İ12000:2000KB136NBNB1:NHNH1:NH8NH39:NVNV1:NV4NV19:NBBUFFER255<32:DN:DN'DN(DN):DN1DN82000XDN2040,2060,2700,2660,2690,2800,2080,11300c12000m2000x 130002000 22:10:"ENTER LOCATION(HEX)-- "*22:32:A$4H$A$:10000:A$H$:NBBUFFERDN:EF12080 >H$(A$,1):1000 DOS)--";DN)8DN(DN):DN0DNDO1050:BSDN:SECT,SGLCOMND,1{VRWTS:KB(ERR):KB16KB32KB64KB12820000`11000j1200022:10:"ENTER COMMAND NUMBER-- "22:32:DN:DNDN(DN):DN1DN82000 DN4Ģ22:ER)16368,0.KB(16384):KB128450>16368,0:Y GET TRACK AND SECTORa:"TRACK NUMBER(0-34)--";DNDN(DN):DN0DN341020TDN:TRACK,T:$"SECTOR NUMBER(0-15 FOR DOS 3.3)" ." (0-12 FOR OLD13DO16310JDODO1"T:I^"DISK CONTROLER SLOT NUMBER--";DNehDN(DN):DN1DN7340urSLOT,DN16}|:"DISK DRIVE NUMBER--";DNDN(DN):DN1DN2380DRIVE,DN1000 GET INPUT FROM KEYBOARD(KB -- KEY IN HOLD7(DRIVE)1(DRIVE)23101:"THE PRESENT SET UP IS:":"DOS - ";DO1;" SECTORS":"SLOT - ";(SLOT)16:"DRIVE - ";(DRIVE)2:"DO YOU WISH TO CHANGE ANY OF THE ABOVE?":430:KB21710006:"ARE YOU USING 13 OR 16 SECTOR DISKS";:DO@DO8,6,201,160,176,2,233,127,32,76,249d " 200,192,0,208,233,169,00,133,32,169,40,133,33,169,0,133,34} , 169,24,133,35,96,0 -DO(47465):DO200DO12 .SLOT,(47095):DRIVE,(47096):DO201DO15 /DO12DO153100(SLOT)162(SLOT)16,133,35@ 162,0,189,0,64,32,218,253,232,224,0,208,245,169,0y 133,32,169,40,133,33,169,0,133,34,169,24,133,35,96  0,0,0,169,7,133,32,169,32,133,33,169,3,133,34  169,19,133,35,32,88,252,169,20,133,35,160,0,162,2#  185,0,64,201,128,4 1,96,1,0,17,0,32,3,0,64,0,0,1,0,0,96,1,0,0,0,0,0,0,1,239,216h RWTS18,BUFFER(BUFFER256)256 RWTS19,(BUFFER256) X0121 DN HEXX,DN X 169,7,133,32,169,32,133,33,169,3,133,34,169,19,133,35 32,88,252,169,20 FHEX17000:ASSIIHEX56* PBUFFER16384 ZRWTS768:IOBRWTS10:SLOTRWTS11:DRIVERWTS12:TRACKRWTS14:SECTRWTS15:DEVRWTS16:COMNDRWTS22:VOLUMNRWTS24:ERRRWTS23 dXRWTSRWTS35 nDN xX,DN X 169,3,160,10,32,217,3,96,0,0B OM JACOBSEN []. [] 04/20/81 []K [] GREEN APPLES []h [] 4417-129 [] [] NORTH ZIRCON LANE [] [] CEDAR FALLS, IOWA [] [] 50613 [] o\o\o\o\o\o^\o\o\o\o\o\ (16384 2M(15) <20000%- DOS 3.2.1 AND 3.3 DISK MODIFIER-REV 2iFOR INSTRUCTIONS SEE REM STATEMENTS STARTING AT 30000.y:6:102033,8::33,40X11000:X o\o\o\o\o\o^\o\o\o\o\o\ []TOM'S DISK MODIFIER[] [] REV C BY [] [] T          !!! ! ! ! ! !!!!!!!!!""" " " " " G WRITTEN ON IT, THEN A READ ERROR WILL RESULT, BECAUSE THERE IS NOTHING TO READ."_&pNERR,0&zN(222)16ĺ:"SYNTAX ERROR--ALLSO SONETIMES CONT. C OR WRONG TYPE AS RESPONCE TO INPUT."&N(222)53ĺ:"ILLEGAL QUANTITY ERROR."'N(222)107ĺ:"RS ON 13 SECTOR DOS."%\N(ERR)128ĺ:"READ ERROR. THE RWTS ROUTINE WAS, AFTER48 REPEATED ATTEMPTS, UNABLE TO READ EITHER THE ADDRESS FIELD OR THE DATA FIELD. IF THE DATA FIELD FOR THE "T&fN(ERR)128ĺ:"SPECIFIED SECTOR HAS NEVER HAD ANYTHINDIFFER-ENT THAN THE VOLUME SPECIFIED IN BYTE 4."$HN(ERR)32ĺ"THE VOLUMN FOUND WAS ";(VOLUMN);".":"THE EXPECTED VOLUMN WAS ";(RWTS13);"."%RN(ERR)64ĺ:"DRIVE ERROR. SOMETHING UNUSUAL IS HAPPENING. THIS ERROR CAN BE CAUSED BY EMPTY SECTO#B10:1:"7 MOD "*#B11:1:"8 MORE"4#B2000R# N ERROR HANDLING ROUTINESX#*N#4N(ERR)16ĺ:"DISKETTE IS WRITE-PROTECTED AND CANNOT BE WRITTEN TO."0$>N(ERR)32ĺ:" VOLUME MISMATCH ERROR. THE VOLUME NUMBER OF THE DISKETTE FOUND WAS FICATION COMPLETE ":15120K";22:10:VF;" DIFFERENCES DETECTED "`";""k";11400"hB FIRST LIST OF COMMANDS"mB4:1:"1 HEX ""rB5:1:"2 ASC ""|B6:1:"3 READ""B7:1:"4 SAVE""B8:1:"5 NEW "#B9:1:"6 NEXT"256!:RWTS19,(BUFFER256)8!:216,0:COMND,1:RWTSD!:20000|!:BUFFERBUFFER256:RWTS18,BUFFER(BUFFER256)256!:RWTS19,(BUFFER256)!:VF0!:X0255!:(BUFFERX)(BUFFER256X)15080!:VFVF1!:X":VF0Ģ22:10:"VERI,0:59,64 6418D 6::"PRESS M FOR MENU - ANY OTHER TO CONT."\ 6CT$:CT$"M"14100p 6(59)6414010{ 614030 711000 7F$"H"İ12000 (7F$"A"İ13000 2711300 : VERIFY SECTOR!:BUFFERBUFFER256:RWTS18,BUFFER(BUFFER256)DN):DN1DN82000K,DN14000,15000,11400,11400,11400,11400,17000,50000a. HEX SCREEN DUMP{.1:18:" HEX DUMP ".HEX.F$"H"/2 ASC II DUMP21:18:"ASC II DUMP"2ASSII2F$"A"26 DISASSEMBLE BUFFER 6:58DRAW MORE COMMANDS&B,4:1:"1 DASM":L,5:1:"2 VERI"NV,6:1:"3 "b`,7:1:"4 "vj,8:1:"5 "t,9:1:"6 "~,10:1:"7 MORE",11:1:"8 STOP",22:10:"ENTER COMMAND NUMBER-- ",22:32:DN:DN,DN("TRACK"f+14:" ";T(p+17:" SECT"8z+18:" ";Sj+:3:7:" 0 1 2 3 4 5 6 7 8 9 A B C D E F "+20:7:" 0 1 2 3 4 5 6 7 8 9 A B C D E F "+CV$"0123456789ABCDEF"+X116+X3:7:(CV$,X,1);40);(CV$,X,1)+X+:$, 'DN255DN0EF1'2* DRAW DISPLAY SCREEN8+T +1:1:"VOL-";(VOLUMN)h+4:1:"1 HEX "| +5:1:"2 ASC "*+6:1:"3 READ"4+7:1:"4 SAVE">+8:1:"5 NEW "H+9:1:"6 NEXT"R+10:1:"7 MOD "W+11:1:"8 MORE"\+13:000 ' CONVERT HEX TO DECIMAL)'EF0D$'CV$"0123456789ABCDEF"W.'(H$)110070j8'(H$)210080~B'(H$)2EF1:L'EF1:V'H$"0"H$`'DN0j'X116t'(H$,1)(CV$,X,1)DNDN(X1)16~'(H$,2)(CV$,X,1)DNDNX1'X20000 F$"H"İ12000+ F$"A"İ130005 2000Y SS1:SDOS0:TT1:T34T0v 14:" ";T;" ":TRACK,T 18:" ";S;" ":SECT,S COMND,1:RWTS KB(ERR):KB16KB32KB64KB12820000" F$"H"İ12000, F$"A"İ130006 2TRACK NUMBER ";:34:T5 T(T):T0T342690R 14:" ";T;" ":TRACK,T 22:10:"ENTER NEW SECTOR NUMBER ";:36:S S(S):S0SDO2693 18:" ";S;" ":SECT,S 2000 COMND,1:RWTS KB(ERR):KB16KB32KB64KB128ĭKB136KB149İ13000:25204( KB155İ12000:2140?2 NB,KBJ< 13000F NBNB1:NHNH2:NH39NH8:NVNV1:NV19NV4:NBBUFFERP 2520Z 2000d COMND,2n RWTS:KB(ERR):KB16KB32KB64KB12820000x 2000 22:10:"ENTER NEW  ASCII CHANGE, NH2(NH2)NHNH18 NV:NHI :" "::NHR 430k KB141İ13000:2000 KB136NBNB1:NHNH2:NH8NH39:NVNV1:NV4NV19:NBBUFFER255 KB149NBNB1:NHNH2:NH39NH8:NVNV1:NV19NV4:NBBUFFER -uTHE AUTHOR OF THIS PROGRAM WOULD VERY MUCH LIKETO RECEIVE A COPY OF ALL CORRECTIONS OR MODIFICATIONSMADE-uSEND TO ADDRESS AT START OF LISTING. THANK YOU-u[][][][][][][][][][][]-PÀRE USE..,{uCOMMAND 4 -- FOR FUTURE USE.U,|uCOMMAND 5 -- FOR FUTURE USE.|,}uCOMMAND 6 -- FOR FUTURE USE.,~uCOMMAND 7 -- RETURN TOORIGINAL COMMANDS.,uCOMMAND 8 -- THIS EXITS YOU FROM THE PROGRAM.,u[][][][][][][][][][][]r YOU A SECOND MENU OF COMMANDS - SEE THE FOLLOWINGx+xuCOMMAND 1 -- THIS WILL ALLOW YOU TO DISASEMBLE THE BUFFER AREA.+yuCOMMAND 2 -- THIS WILLREAD IN THE DESIGNATED SECTOR AND VERIFY IT WITH THE PREVIOUS BUFFER.,zuCOMMAND 3 -- FOR FUTU NEXT TRACK AND SECTOR.*luCOMMAND 7 -- THIS ALLOWS YOU TO MODIFY THE BUFFER. FOLLOW THE INSTRUCTIONS. YOU MAY USE RIGHT AND LEFT ARROWS.*vuTHE ESCAPE KEY WILL SWITCH YOU TO THE ALTERNATE DUMP MODE.3+wuCOMMAND 8 -- THIS GIVESOWN ON SCREEN.)NuCOMMAND 4 -- THIS WRITES BUFFER AREA TO TRACK AND SECTOR SHOWN ON THE SCREEN. YOU MUST PUSH 4 TWICE.)XuCOMMAND 5 -- THIS ALLOWS YOU TO CHANGE THE TRACK AND SECTOR.*buCOMMAND 6 -- THIS WILL READ TO THE BUFFER THENF$"H"İ12000#(NF$"A"İ13000-(N2000s(0uCOMMAND 1 -- THIS DUMPS BUFFER AREA TO SCREEN IN HEX FORMAT.(:uCOMMAND 2 -- THIS DUMPS BUFFER AREA TO SCREEN IN ASCII FORMAT.)DuCOMMAND 3 -- THIS READS TO BUFFER THE TRACK AND SECTOR SHBAD SUBSCRIPT ERROR.">'N(222)163ĺ:"TYPE MISMATCH ERROR"z'N(222)254ĺ:"BAD RESPONSE TO INPUT STATEMENT ERROR."'N(222)255ĺ:"CTRL C INTERRUPT ATTEMPTED."'N222,0'N::"DO YOU WANT TO CONTINUE?";:E$'NE$"Y"50000'N11000(