' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"L뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ӡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(`# d£àĠz# u` @@A` @A@  B C BBCLCLfBL ީLhh`LLN7ɿLݍҭ -A@@i@@@i@AAݣ@ݢΩDDLeA@@lL /?@Hɷ@#@h@!ɵ@ɥͰi+hɝi@@/8e@@DAA͈@̈DDL܇@BA݅C@BAC濽տ`xxlt]iVȿQkKRE;BY;LꍁlL<ԍL WLHr7s8 LH HLݍ ,,(`l8 LH e UL׉ LH LH,, sL,,, t鍁` H `Le HL H LL H QL H Llש B\ȹ'ȹ' (LRANGWRITE PROEND DATFILE NOT FOUNVOLUMI/O ERDISK FULLOCKESYNTANO BUFFETYPE MISMATCTOO LARGNOT DIREC q`QrU`)`\N|Lي80ʭ) $% B橠 B  ` L߭ɍ_LةحW`8& 9ʩ8`WL () ~ۭ N N L,H whLZ؍^؍_`$,,L`hhhL٭0 ,0L,Ƀɛɍ8ɠnɻɺ: n(8l mnحuIn Lw8n {۠u  {ۥgh,,0۬ۍ،؍La8 L߭ u ب H بh,8m l بNۘHج,8۰h Z wةͼH h بLZ8Ѕυ Z0 Z LڭٍَٺHץ9ɾIn0 hH )? @(I7n׽Nשn I-- h+( ,,0 ,Hّ(ho Lލ ׭,0 )?( Ɉoɀ@MםH Ihh0 Lڊʰڍ,עLڍhhیڬ<۠x )ڠ8۬ڰ(HH `ȹ0,Ȍ ɍ  ɠ )?, @, LB LƠ LLւ&LݩLL#B B!P`L. (see 64K instructions) If you have 40-track drives (i.e. Rana Elite 1), you may press "free sectors when you catalog a disk. Note: This disables the CALL 1005 feature(see Random Access Text Files). Insert your DOS 3.3 disk and press . Diversi-DOS will be written onto the first 3 tracks of this disk. Now, when you boot the disk, itoperating system is loaded. Diversi-DOS will then control all disk operations. To add Diversi-DOS to a disk, enter "2" from the main menu. You will then be asked if you want to install the free sector patch. Press "Y" if you want to know the number of the Disk Operating System (DOS). When the disk boots, the DOS on these 3 tracks is loaded into the Apple memory. This DOS then controls all disk operations. Diversi-DOS modifies the first 3 tracks on the disk. Now, when the disk boots, the Diversi-DOS Your honesty will allow DSR TO DISTRIBUTE FUTURE PROGRAMS THE same, low-cost way. Putting Diversi-DOS onto a disk Putting Diversi-DOS onto a disk speeds up the processing of BASIC, Binary, and Text files. The first 3 tracks of a DOS 3.3 disk contain R OTHER USES, --- PLEASE SEND $30 DIRECTLY TO: DSR, Inc. 34880 Bunker Hill Farmington, MI 48018-2728 You will receive a User Support Number and a Validation Sticker as proof of payment. You will also get the latest version of the program! Diversi-DOS(tm) DSR HAS LICENSED EDUCATOR SOFTWARE TO INCLUDE DIVERSI-DOS ON THIS DISK TO USE WITH THE CLASS RECORDS PROGRAMS ONLY! ACCORDINGLY, THIS PROGRAM AND ITS DOCUMENTATION ARE INCOMPLETE. HOWEVER, TO LEGALLY RUN DIVERSI-DOS FO THE DIVERSI-DOS MASTER PROGRAMHAS BEEN CHANGEDPROGRAM ABORTED L<< %HELLO SMART PEOPLE/PLEASE DON'T TAKE OUT MY MESSAGES/THANKS/BILL BASHAMhhߚHHL#lmL #t$u$ # # XN0L-A0?$4 ) ɍ FN$ # #плFR$ LX # # O$P$N$LY `$L DLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOF` IH  /JJJJ"LL뷩 ᷩ췩 ɛ L vL L L#L#뷍췩  # `L^ _ If `` 54- #l#m뷍f n(` u` #`H I $ HH!"h"h!                                    SC> DURING BOOT FOR 48K DOS"N 1"-N409D$(4)\(55)170(40222)78ī12000r D$;"BLOADASMDIV"} 38400 C$""(38403)0C$"*"AD819237264256,0:257,0:259,0:AD6 :"DIVERSI-DOS(TM) VERSION 4.1-C";C$ĬōЬˍĬ̍Ҭԍ٬ˍ׍ɍԍԍččč:L16II4:I16I32)I12I16632893,IDA$(I4)bI4A$A$"K - STANDARD"tI4A$A$S$I1(A$)I32893,((A$,I,1))5600:32912,IL|8000:"ENTER SLOT # (0-7)";:A$A$"0"I0:5630I5600:32911,I.P:"ENTER RAM CARD SIZE":DUS$"K - SATURN "nZ"1 - 16K (MOST COMMON)":"2 - 32";S$d"3 - 64";S$:"4 - 128";S$f"5 - 64K LEGEND":"6 - 128K LEGEND":L0i5200nIxI6I1ī5200}I4II2:S$"K - LEGEND "32913,I/"DISABLE PRINT BUFFER(Y/N)?";A$<32882,0PI0:A$"Y"I1]32914,ImI0ī5500:"ENTER PRINTER CARD TYPE":I1NCI;" - ";:256,I1:30721 :5100I(I1INCī51002256,I1:30724<- TRYING BRUN"  D$;"BRUN";A$& . ADU :"* * * * * * * * * * * * * * *"y "UNABLE TO RUN PROTECTED DISK" 10000"RUNNING COPYA":D$;"RUN COPYA"NC(30720)"DISABLE KEYBOARD BUFFER(Y/N)?";A$:I0:A$"Y"I1 58M (I)128ĺ:"* * ERROR * *":"THIS IS A NON-BOOTABLE DISK":AD:10000_ A$A$((I))e k! & :"START-UP PROGRAM IS --> ";A$' + :"NOW RUNNING ";A$v 3250 D$;"RUN";A$ 3500 (222)13ī3500 :"RUN FAILED THE PUBLISHER CAN ADD":" DIVERSI-DOS TO THE PROTECTED DISK." ::"REMOVE THIS DISK (DIVERSI-DOS MASTER)":" AND INSERT PROTECTED DISK"::"PRESS RETURN WHEN READY";A$ AD3 (256)0ī3500 AD 3070:3115 A$"" I6296 "THIS PROGRAM WILL ATTEMPT TO RUN":" A PROTECTED DISK. THIS ATTEMPT":" WILL FAIL IF THE PROTECTION SCHEME":" USES A NON-STANDARD DISK FORMAT." :"IF THE PROTECTED PROGRAM WILL NOT":" START, OR RUNS ABNORMALLY, THEN"@ " ONLY D3 (256)0ī2100"3070-2200>D$;"INIT H"ND$;"CLOSE"c(256)0ī2200 :"DIVERSI-DOS NOW ADDED TO DISK"*100004ADR:"***UNABLE TO READ"f10000AD:"***UNABLE TO WRITE"10000 3500 ")B$:hB$"D"Ā:633,52:P40514,52:P"BINARY START ENABLED":G2017B$"4"Ĺ44725,160:48894,40:"40-TRACKS ENABLED":2020B$"X"Ĺ8491,56B$"D"Č37264:8520,173:8563,76:8527:8563,322100A. "8491,24:8520,76_:"USE DRIVE 2 FOR TWO "::"DRIVE SYSTEMS. "::" ":"PRESS 'D' FOR 64K DOS":"PRESS ANY OTHER KEY TO QUIT. "::" "::" 120037264"INSTALL FREE SECTOR PATCH?":" "::"*** IF UNSURE, HIT 'Y'"::"ENTER Y OR N --> ";:A$:A$:A$"Y"Č32576:"REMOVE THIS DISK (DIVERSI-DOS MASTER)":"THEN INSERT THE UNPROTECTED DATA DISK)128ī1230NMI=" * * ENTER SELECTION (0-";NM;")";F20MIa I0INMī1260nI0ī20}I1ī1400(256,I1:257,0:259,0:AD6:1200xI1256,I:257,0:259,0:II1:AD6(49152)3ī20(258)128ī14105~256,I:AD6:II1(M2ī1170>(258)128ī1150X(12):D$;"PR#0":20q:"INSTRUCTIONS:":"0 - RETURN TO MAIN MENU":"1 - ALL INSTRUCTIONS"I1I1;:I9ĺ" ";"- ";256,I:II1:257,0:259,1:AD6 (258ONS":D$;"RUN INSTRUCTIONS"& .216,0F L:"WHERE IS THE PRINTER":P V5600W [I ]::"1 - ALL MESSAGES":"2 - ERROR MESSAGES ONLY"::"ENTER SELECTION(1 OR 2) ";:A$:A$:M(A$) ^M1M2ī1117 `D$;"PR#";I j257,1 tI0yM2I001 d:"PLEASE ENTER A NUMBER BETWEEN 1 AND 3"; n:30Z "SEND INSTRUCTIONS TO:":c 20v "1 - PRINTER" :"2 - SCREEN" :"ENTER SELECTION (1 OR 2) ";:A$:I(A$) I2ī1200 I1ī20 1070 $A$:D$;"VERIFY INSTRUCTIL:A!CLASS RECORDS A1.08C OVERLAYS 9- 4-85, copyright (c) 1985J500\! FIX DATA "CLR":6:"YOUR C(HANGE/SUPPLEMENT) OPTIONS ARE: ":::6:"CHANGES:";:32,10:::"1. EXAM CONSTANTS":"2. NAMES/ID'S/TAGS":"3. SCORES":32,0::E%3:F$"I" ":; J" ":s K" ";::" ":: L" ";::" ": M(45886)173Ĺ45889,24:45890,234:45891,234 NAD9 O49107,141:44725,140:48894* "C1983 DSR, INC / BY BILL BASHAM"F :"1 - INSTRUCTIONS":o ("2 - PUT DIVERSI-DOS ONTO A DISK": 2"3 - EXIT TO BASIC ": <" ": F" ": H" ":  11000$(4);"MAXFILES 1"-N409D$(4)\(55)170(40222)78ī12000r D$;"BLOADASMDIV"} 38400 C$""(38403)0C$"*"AD819237264256,0:257,0:259,0:AD6 :"DIVERSI-DOS(TM) VERSION 4.1-C";C$      enpN F0!" R멚7Ӎ8Lp`LLcL 3F00 0Ѕ0O opFмFLF0^_O00 0FL3Յ3Ү 仆opFм!FLF3^_Ү! 33 3FLλpVすvވMݬၹ`  `,LH0L HL7ɸLVM7w`LLC1985 DSR, Inc./By Bill BashamenpM!F3!" RLp`L]L"F! 33 Px dB2:660:W0:K0:G(O)0:V0:Z0:X1E:ZZ(F(X))(A%(O,X)0):X:MZ50 ,Q1E:G(O)G(O)A%(O,Q)(F(Q)(B$(Q)"++"))(C%(O,Q)0):Q:E1G(O)A%(O,1)10:50 .B2G(O)(G(O)C(O))10:50 0G(O)((G(O)C(O))10)(ZM) 2O:B2ı 4X04:H(X)0:X:A10:):I:T0:I1E:TTE(I)(E(I)0):I:UM:V0:MTUTg D%10000:Q1E:(A%(O,Q)D%F(Q)0E(Q)0)34z D%A%(O,Q):YQ "Q:T040 $E(Y)UC(O)VD%U:U0:40 &UUE(Y):VVD%E(Y):TTE(Y):E(Y)0:U0T030 (O:7 *O1P:N3:686:N3:686:RA(H,5)S10(B(5)RA(H,5)):24? QQ1:RA(H,Q)18[ RA(H,Q)S10B(Q):24 S10B(Q)(10(B(Q1)B(Q))(RA(H,Q))(A(H,Q1)A(H,Q).00001).5) A%(O,H)S:O: O1P:M0C(O)0:402 N3:686:I1E:E(I)F(I)(A%(O,I)0I6LZ(222):(7)::15:Z6ĺ"CROSSROADS MENU IS NOT IN DRIVE 1":19530@LZ0Z16ĺ"ERROR IN DISK OPERATION -- CHECK DOOR."JL23::10::"HIT ANY KEY TO CONTINUE.";:TLKK01:KK((KEY)127):KK:KK(KEY):RKEY,0^L5dTW DISK WILL BE INI::A$::_'"WHEN YOU PRESS THE SPACEBAR, THE PRO- GRAM 'UPDATE DOS TO 64K' WILL BE RUN."$'22:"PRESS THE SPACEBAR WHEN READY. ";)'16368,0:I01:J(16384):I(J160):I:16368,0.':(4)"RUN UPDATE DOS TO 64K,D1":,LONERR ROUTINE193,196,217/'(4)"DELETE A":(4)"DELETE B"':"YOU HAVE A NEW DATA DISK WITH 48K DOS. THIS WILL NOW BE UPDATED TO 64K DOS." 'A$"":I138:A$A$"*"::::A$::" INSERT THE BACK SIDE OF YOUR CLASS RECORDS MASTER DISKETTE INTO DRIVE 1."16,192,173,0,192,201,160,208,249,104,96,201,206,211,197,210,212,160,77,65,83,84,69,82,160 0 196,201,211,203,201,206,211,197,210,212,160,78,69,87,160,196,201,211,203,208,210,197,211,211,160,211,208,193,195,197,194,193,210,160,215,200,197,206,160,210,197,TA  I768899:II:I,II:I: 32,88,252,72,138,72,162,0,189,74,3,157,88,6,232,224,18,208,245,240,19,32,88,252,72,138,72,162,0,189,92,3,157,90,6,232,224,15,208,245,162,0,189,107Y& 3,157,213,6,232,224,25,208,245,104,138,104,72,32,58,255,169,0,141,E:PRINT CHR$(4)"(34)"EXEC B"(34)-\"RUN"@a(4)"CLOSE A"f(4)"OPEN B":(4)"WRITE B":"NEW":10000,10400:"RUN":(4)"CLOSE B"k(4)"DELETE CROSSROADS,D2":975,2:SET 2-DRIVE FLAG p(4)"EXEC A,D2"z ENTER PROMPT ROUTINES & DARB,A$8000,L$2FA,"8(4)"OPEN A,S6,D2":(4)"WRITE A"R"LOAD CROSSROADS,D1"l "SAVE CROSSROADS,D2" "LOAD CLASS RECORDS,D1""SAVE CLASS RECORDS,D2" "LOAD MODIFY PARAMETERS,D1"*"SAVE MODIFY PARAMETERS,D2"9"NEW""H"10 HOM:"PLEASE BE PATIENT."7(4)"BLOAD CLR DATA,S6,D1"M(4)"BLOAD GARB"n(4)"INIT CROSSROADS,S6,D2"(4)"SAVE CROSSROADS"(4)"SAVE CLASS RECORDS"(4)"SAVE MODIFY PARAMETERS"(4)"BSAVE CLR DATA,A768,L80"(4)"BSAVE GA4)"CLOSE A"V(4)"OPEN B":(4)"WRITE B":"NEW":10000,10400:"RUN":(4)"CLOSE B"3000:975,1:LOAD BINARY, SET 1-DRIVE FLAG(4)"EXEC A" TWO DRIVES15:A1$:17:A2$;(8);(8)"2.":22:B$16368,0900::24E CROSSROADS"l"CALL768"6t"LOAD CLASS RECORDS"Ey"CALL789"_~"SAVE CLASS RECORDS"n"CALL768""LOAD MODIFY PARAMETERS""CALL789""SAVE MODIFY PARAMETERS""NEW""10HOME:?CHR$(4)"(34)"EXEC B"(34)"RUN" (.(4)"SAVE CLASS RECORDS"@8(4)"SAVE MODIFY PARAMETERS"dB(4)"BSAVE CLR DATA,A768,L80"G(4)"BSAVE GARB,A$8000,L$2FA"L(4)"OPEN A":(4)"WRITE A"V"CALL768"`"LOAD CROSSROADS"d"CALL789"f"DELETE CROSSROADS" j"SAV SINGLE DRIVE-:20:A1$:22:B$;16368,0D900e(4)"BLOAD CLR DATA,S6,D1"{ (4)"BLOAD GARB":20:A2$:22:B$16368,0900::7:15::"FORMATTING":$(4)"INIT CROSSROADS,S6,D1")(4)"SAVE CROSSROADS"TO RETURN TO THE":7:"CROSSROADS MENU."T24:"(BE SURE TO HIT 'ESC' WHILE BOOTING!)";:22:7::"PRESS SPACEBAR TO REBOOT.";::" ";^A$:A$"X"A$"x"100hA$(32)ĺ:(4)"PR#6"r(7);:350 PAUSEK01:K((16384)160):K:NITIALIZE THE NEW":7:"DATA DISK, YOU MUST REBOOT AND":7:"HIT 'ESC' WHILE REBOOTING. "@::7:"THIS WILL LOAD THE 48K DOS.":7:"THEN YOU WILL HAVE TO RUN":7:"'MAKE DATA DISK' AGAIN."::(J7:"PRESS THE SPACEBAR TO REBOOT,":7:"OR ENTER 'X' RUN CROSSROADS MENU! f19500y h:10::"LOADING CROSSROADS MENU":::" FROM DRIVE 1":D$"RUN CROSSROADS,D1,S6" TO BASIC :1210000 21:" .... DONE ...." , NEED 48K DOS -- REBOOTY6"SORRY:"::7:"TO PROPERLY IWILL BE RUN AUTOMATICALLY."Z X22:7::"PRESS SPACEBAR TO CONTINUE.";:A$:A$(32)88b Y: ZA1$"PUT MASTER DISK IN SLOT 6 DRIVE 1.":A2$(7)"PUT NEW DISK IN SLOT 6 DRIVE 1.":B$(7)"PRESS SPACEBAR TO CONTINUE." _A1000,2000,100,200 d : T"TO TAKE ADVANTAGE OF MORE MEMORY AND FASTER OPERATION, YOU WILL NEED TO RE- INSTALL THE '64K DOS' ON THE DATA DISK. AFTER THE DATA DISK IS MADE, YOU WILL BE PROMPTED FOR SIDE TWO OF THE" U"MASTER DISK. THE PROGRAM, 'UPDATE DOS TO 64K' DS MENU"% <7:"4. RETURN TO BASIC"H F24:"YOUR SELECTION: ";:A$:h PA(A$):A1A4ĺ(7);:70} QA82,82,100,200 R:2:"NOTE: THIS DATA DISK WILL OF NECESSITY BE CREATED WITH A '48K DOS' RATHER THAN THE '64K DOS' USED ON THE MASTER DISK."TIALIZED":7:"BEFORE TRANSFERRING THE FILES.":7:"ANY PROGRAMS OR DATA ON IT":7:"WILL BE LOST." 14:"SELECT DISK DRIVE USE:": 7:"1. SINGLE DRIVE (SLOT 6, DRIVE 1)" (7:"2. TWO DRIVES (SLOT 6,DRIVES 1&2)": 27:"3. RETURN TO CROSSROA9 MAKE DATA DISK 1.13 8-25-85, Copyright (c) 1985 w (4)"MAXFILES3"::KEY16384:RKEY16368:D$(4):RKEY,0 :3:(7);(7); (116)176300"MAKE A NEW DATA DISK":I120:"-";:::c "WARNING:"::7:"THE NEW DISK WILL BE INI        9:4);"OLD "F$" ";M$(C,B):I2023:L$:I:20:"REVISED "F$;:"INPUT$"," ";N$:N$""282M$(C,B)N$:"NO. "C" IS NOW: "N$:23:618:270"CLR":614:8:PH21ĺ:G$"MAXIMUM NO. OF NAMES REACHED.":618: 7:"INPUT$","ENTER NEW NAME: ";M$(PB3F$"TAG:"f"CLR":6:"RETYPE "F$:8:" (1-"P")":614:7:"STUDENT NO.: ";T$:C(T$):T$""ı}C1CPİ612:27015:M$(C,1)" IS STUDENT NO. "C".":5:"IS THIS THE ONE YOU WANTED ";:594:D1282,270,280,280612:"CLR":278V1 A TAG"::"4. ADD A NEW NAME":"5. DELETE A NAME"::"6. ALPHABETIZE BY NAMES":"7. ALPHABETIZE BY ID":"8. ALPHABETIZE BY TAG":32,0:E%8:F$"PRECEDING":664:B0260 B270,270,270,286,296,194,194,194 260F$" NAME:":B2F$"ID:" J411:(69J);3):KX1Y1:"PU",I$;A(K,J);:K::J:"WT ";:KX1Y1:RF(K):600:F(K);:K::"# OF UNITS DROPPED = D = "M:::"CLR":P1İ6304:"NAME/ID/TAG CHANGES:":32,7::::"1. CHANGE A NAME":"2. CHANGE AN ID":"3. CHANGEC2" = ":"(3 CHARACTERS OR LESS)":20:25:"INPUT$",B$(C2):(B$(C2))3į"BEEP",40,50:20:250xB$(C2)"++"F(C2)0~_"#"3);:QX1Y1:"PU",I$;Q;:Q::"LBL ";:QX1Y1:L1(B$(Q)));B$(Q);:Q:::"MAX ";:KX1Y1:"PU",I$;A(K,5);:K::84:MF2į"CLR":7:"ALLOWED DROPS = "F2:"DROP="M::"TOO MANY DROPS.":G$:M0:23:618bO$" ":"ENTER EXAM NO. (1-"E"): ";:670:O$H$:O$""248C2(((O$))):(C21C2E)O$"D"ĺG$;:(37):868:10:244_"NEW LABEL FOR EXAM " M "NEW MAX SCORE FOR EXAM "C2" = ";:"";Q$:G2(Q$):Q$""ĺG$:20:232 G2A(C2,4)ĺG$"NEW MAX LESS THAN 'A' BREAKLINE! OK";:594:R$"Y"ı G2A(C2,4)İ238:D2C2:696: A(C2,5)G2:U:"DROP HOW MANY UNITS: ";S$:M((S$)):6W"İ224 O$"M"İ232& O$"L"İ250= O$"B"D2C2:696M O$" ":206Z B1F(C2) "NEW WT. FACTOR FOR EXAM "C2"=";:"";P$:F(C2)(P$):P$""ĺG$:20:226 E20:I1E:E2E2(F(I)):I:684:(MF2)(ME2)ĺG$;"NOW TOO MANY DROPS!":6180:244:14:L$:13::O$""ı: B%0:A%0:O$"D"İ240:206 13:L$:13:"SELECT TYPE OF CHANGE FOR EXAM #"C2":"::5:"B(REAKPOINTS)":5:"W(EIGHT)":5:"M(AX SCORE)":5:"L(ABEL)";:20:O$:"LCTOUC",O$,O$::O$(13)ı I1923:L$:I:20:O$" = "CLR":L13:I$" ":E1ĺ"NO SCORES RECORDED":618:V X11:Y1E:EB2208 7:A$" ":M1B2:E$"VIEW":616:670:X1(H$):Y1X11B2:X11ĺG$;:204 "CLR":Y1EY1E:H$""ı 256:614:684:13:"ENTER D TO CHANGE DROP NO., OR":1664:B0186 B200,260,306& 186 "CLR":10:"NOW ";::"S'RTING";::QB5:O1P:M$(O,0)(O)::A%0:B%0:F%(0)2:F%(1)Q:F%(2)1(Q1):"SRT",M$(1,0)M$(P,0)F%(0) O1P:C%((M$(O,0)),0)O::G%(0)1:G%(1)0:"SRT",C%(1,0)C%(P,0)G%(0);!CLASS RECORDS A1.07E 8-16-85, copyright (c) 1985 D500V! FIX DATA "CLR":6:"YOUR C(HANGE/SUPPLEMENT) OPTIONS ARE: ":::6:"CHANGES:";:32,10:::"1. EXAM CONSTANTS":"2. NAMES/ID'S/TAGS":"3. SCORES":32,0::E%3:F$"MAIN":      :I2I21:366:EL.07E 8-16-85, copyright (c) 1985 D500VD! NEW DATA B F"CLR":5:"YOUR A(DD NEW DATA) OPTIONS ARE:":::7:"1. NEW EXAM SCORES (EXAM #"E1")":7:"2. BREAKPOINTS FOR EXAM #"E::7:"3. REENTER OLD EXAM"::7:"4. ALWHICH EXAM NO.?";:670:H$""ı>I2(H$):I21I2Eİ612:39618:"EXAM "I2" ("B$(I2)") IS GOING TO BE REPLACED.":10:"(HIT ";:662:" IF ALL IS O.K.)":I14:L$:I:L$;:19::10:"(ANYTHING ELSE TRIES AGAIN.)";:T$::T$(13)ı B%0:A%0"^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ` $76:DOS1:$5FFFnG$(7):D$(4)D$"BLOAD DOS 64K,D1"5 :(975)2Ģ10:G$"INSERT DATA DISK INTO DRIVE 1"::" (TO UPDATE DOS TO 64K.)"::21)0:384wz"ENTER WEIGHT FACTOR: 1";(8);:"";P$:"LCTOUC",P$,P$:F(I21)(P$)(P$""):5:22:F(I21)::P$""P$"1"|P$"Q"Ĺ34,0::~(P$"0"(P$)0)Ģ5:G$;:378O1PM$(O,1)": ";:"";W$:"LCTOUC",W$,W$:W$"Q"Ĺ34,0::1)(F$,3):B$(I21)"Q"ık t10:5:"MAXIMUM POSSIBLE SCORE: ";V$:"LCTOUC",V$,V$:K2(((V$))):V$"Q"ı~ vK20ĺG$:372xA(I21,5)K2:B%0:A%0:F(I21)1:1:7:"EXAM #"I21" (MAX SCORE = ";K2")";:::34,4::"CLR":B$(I21)"++"P$"0":F(I2 h j lI2E:366:EI2:Q nI2J2į"CLR":12:698:"BEEP",40,50:23:618: pP1į"CLR":10:"NO NAMES IN FILE.":16:618: r"CLR":3:7:"...HIT Q AT ANY TIME TO ABORT":8:"THREE-CHARACTER LABEL FOR EXAM #"I21": ";:"INPUT$",F$:B$(I2)"":O ^34,0:Q `B1H21ĺG$:"MAXIMUM NO. OF NAMES REACHED.":618:PB1:350k b((B2B3)B1P)350| dB1B11:344 f:10:"'ALL NEW NAMES' CLEARS ALL DATA"::"IN MEMORY AND STARTS OVER."::::15:"IS THIS OK";:594:D1362,360,358,358 ENTERING STUDENT ";F$;".":B11:" (ENTER ";:662:" TO TERMINATE.)"::O1P:M$(O,B)"":O::34,4:B1E0:M0 XB2B3ĺ(M$(B1,1),12);" "; ZF$"#"1(B110));B1": ";:"INPUT$",N$:CB1:M$(B1,B)N$:M$(B1,B)""352 \B1PB11:O1P:M$(O,2L NEW NAMES (NEW FILE)":7:"5. ALL NEW ID'S":7:"6. ALL NEW TAGS":c HE%6:F$"MAIN":664:B0324y JB5P1ĺG$:324 LD2E:B364,696,396,336,336,336 N326 PBB3:B2F$"ID":342 RB3F$"TAG":342 TF$"NAME":358o V"CLR":"NOW ;!CLASS RECORDS A1.07E 8-16-85, copyright (c) 1985 D500VD! NEW DATA B F"CLR":5:"YOUR A(DD NEW DATA) OPTIONS ARE:":::7:"1. NEW EXAM SCORES (EXAM #"E1")":7:"2. BREAKPOINTS FOR EXAM #"E::7:"3. REENTER OLD EXAM"::7:"4. AL        ^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`B RECORDS,D1" :(4)"MAXFILES 1":592::G$(7):((798)73(799)137)Ģ2::(4);"BLOAD CLR DATA":798,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB l݅Ȅ  L  L qr qʠ ʆ L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "ڢ0 $. *媆 gݥ 9 r륢H #h 40dNEF- ,00 *$,XǘP$,ȱ8# \ % ,;LLںLAYLAY.RM  { lݠ 5橴 R ސ Lvݥ % L  L  x  HX  +(`ʐ 8* L+^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ YSTEM AND THEN RUN 'UPDATE DOS TO 64K', AGAIN":22:A SECTRS TRACK:975,0 :10:"....... DATA DISK DONE .......":RWTSRWTS.RM   " ] L2L L j g R窘Ȋ 2:"PRESS SPACEBAR WHEN READY. ";:A$:(A$)32140D TRACK02T SECTR015u BLKDOS256(16TRACKSECTR) CNTRL2:"RWTS",CNTRL,TRACK,SECTR,BLK,0,1((975)2),66 CNTRL0ė:G$;G$:10:"--- 64K DOS NOT ADDED PROPERLY ---":::"CHECK Sb? !UPDATE DOS TO 64K, v1.05 9- 4-85, copyright (c) 1985 Y(175)256(176)46udDOS24576:DOS1:$5FFFnG$(7):D$(4)D$"BLOAD DOS 64K,D1"5 :(975)2Ģ10:G$"INSERT DATA DISK INTO DRIVE 1"::" (TO UPDATE DOS TO 64K.)"::2  hhߚHH 0:, jݪ + , ޥۤ jݪ +`GSWAPSWAP.RM ߅HH hE0hE0$0$0Hh`LvݼPROPERPROPER NAMES.RM { lݠȱȱHhP)hʄ^HA [i )? $"BLOAD CLR BPRINT":X$"P"0""H$"R"İ62:806?"$H$"S"İ6c"&D$"BLOAD CLR BGRADE":X$"G":@INPUT$STRING INPUT.RM  " ީ; = l݅ , LDRESETONERRRESET ONERR.RM^_<= 抠&<<i"=iLo LOFIXSTACKERR.RM34!O77734/!"OUT OF MEMORY.":5:698C!23::618:538M!740S!!:10:"DO YOU NEED TO SAVE A FILE (Y/N)";:594:D12ı!1010,191:1011,157:1012,56:1014,88:1015,255:103,0:104,26:5::D$"MAXFILES3":12İ716!:" D/ 54915:O(222):255::588:592:O254538< O5538 :10:O6ĺJ$" NOT FOUND,"::"OR SYSTEM DISK IS NOT IN DRIVE 1.":734 O9ĺ"DISK FULL -- USE ANOTHER DISK":734 O107İ698!O0O16ĺ"ERROR IN DISK OPERATION - CHECK DOOR":7(7):A$(0)"RAW":A$(1)"STD.":D1$"":S00āO0S01:D1$D1$((800O)):OB1$"":S10āO0S11:B1$B1$((816O)):OC1$"":S20āO0S21:C1$C1$((832O)):OB(0)0:I14:B(I)I(I)::B(5)100:"ONERR",718"RESETONERR",255:(12):H2H21:M$(H2,3),C%(H2,J2),A%(H2,J2),C(H2),G(H2),A(J2,5),B(10),F(J2),J%(H2),H(H2)J(H2),H%(5),L%(H2),E(J2),F%(2),G%(1),I(4),B$(J2),A$(1):I14:I(I)D(I15)::B211:J1D(21):A3D(22):FD(25)100:DD(26)100:P2D(27):T1D(28):P2F1:D0LG$68:D$(4):I029:D(I)(C3I):I:D(13)0ė:10:"SOUND",200,200:"CLR DATA IS FROM VERSION 2.1"::700:22:618:736:C$"M":11518WH2D(0)(D(0)255)(847):J2D(1):U1D(2):B3D(3):H1D(4):V1D(5):F10:X2D(7):I1D(8):K1D(9):S0D(10):S1D(11):S2D:D1Q2D1155ı,YNġ:YY1:692<588:592:iA(D2,0)0:O15:H%(O)A(D2,O):O:638:"CLASS SIZE OR EXAM NO. TOO LARGE.""REDO CLASS SETUP PROCEDURE"::A%0:B%0:C3768:D(29):L$"":I138:L$L$" "::Y216384:Z2163H$6(A%0H$"R")A$"STANDARD SCORES":682`(B%0H$"R")A$"RAW AVERAGES":682f"CLR":G$;A$;" MUST BE RECALCULATED.":23:618:H$"":F20:I1E:F2F2(F(I))(F(I)0):I:D1(Y2):D1128ıY1:Z2,0:D1160İ6266);(197O)": "H%(O):O::>"CLR":10:19::"BUSY"::S:"RETURN";::23:"(HIT ";:662:" FOR "F$" MENU.)":21:"ENTER 1-"E%": ";:C$:C$:C$(13)ġ:B(C$):B1BE%İ612:B0E10ľH$:H$:H$(13)H$""E9Ą"";ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ` $CȊ R ސ Lvݥ % L  L  x  HX  +(`ʐ 8* L+4SOUNDSSOUND EFFECTS.RM FQP,0EQ,0`^_:ʽe^^e__l^" <88 0:A G  >P?Qh0K8><*?=+Be*@Ce+A<=<>@>?>@A@=?<>`ؠL,RWTSRWTS.RM   " ] L2L L j g R窘56(16TRACKSECTR)7 "RWTS",2,TRACK,SECTR,BLK,0,1,6B SECTRM TRACK| :10:"....... DATA DISK DONE .......":BLKMOVMEMORY MOVE.RM$Hf g RP*Q+ $HL g RP,Q- $H02 g RPBQC*<+=,>-?C=B@B(175)256(176)467dDOS24576:DOS1:$5FFFSnD$(4):D$"CATALOG,D1"jD$"BLOAD DOS 64K":10:"INSERT DISK TO BE UPDATED TO 64K DOS."::"PRESS SPACEBAR WHEN READY. ";:A$:(A$)32140TRACK02SECTR015 BLKDOS2  0:"DO YOU NEED TO SAVE A FILE (Y/N)";:594:D12ĺ:::"LOADING CROSSROADS MENU"::" FROM DRIVE 1":J$"CROSSROADS":D$"RUN CROSSROADS,D1"@D11574BDE10584F586:(H1I1I1)ĺB1$;HJ"CLR"::D$;"PR#";X2:D1$;:LE1ĺCB508,512,186,324,66,404,740',538T.X$"C"ĺD$;"BLOAD CLR BFIX,D1":X$"C"Z02X$"A"ĺD$;"BLOAD CLR BADD,D1":X$"A"46X$"P"ĺD$;"BLOAD CLR BPRINT,D1":X$"P"8:X$"G"ĺD$;"BLOAD CLR BGRADE,D1":X$"G"<>:165200,0:1016:65200,2:Y(111)(109)256((112)(110))Y$C$"F"(1018)255Y(0)&C$"F"ĺY;::") ":22:30:" ":544(B(C$"L")2(C$"S")3(C$"C")4(C$"A")5(C$"V"C$"P")6(C$"G")7(C$"Q"):B2ĴB718,718,558,562,566,570*::"V(IEW SCORES)":"P(RINT SCORES)"::"F(REE SPACE CHECK)":"X(--> CROSSROADS MENU)":"Q(UIT -- TO BASIC)":32,0: 22:"PLEASE ENTER YOUR SELECTION:";:30:C$:"LCTOUC",C$,C$:C$;:21::C$"X"574:"C$"F"Ģ17:20:868:"= ";::(1018)255Ĺ$"-------------- ":A$;::"MAIN";::" ";::"MENU";::" "A$:1:30:"(OVERLAYS)":5:"SELECT BY ENTERING FIRST LETTER:":6:32,7::"L(OAD FILE FROM DISK)":"S(AVE FILE TO DISK)"::"A(DD DATA)"u"C(HANGE/SUPPLEMENT DATA)":"G(RADING HELP/SUMMARY)" TO "C$" FILE":10:"INPUT M TO RETURN TO MENU ";:Y$:"LCTOUC",Y$,Y$:Y$:Y$(13)J$T$:kY$"M"ġ::"I DO NOT UNDERSTAND YOUR RESPONSE.":19:"PLEASE TRY AGAIN:":I1750:I:532H1D(4):(1018)255Č1016:D$(4):F10:592:606:AC",Z$,Z$' Q:T$(77)T$(109)ġ:g T$(49)T$(50)Z$",D"T$:"CLR"::D$"CATALOG";Z$:520| T$""J$""514 T$""T$J$:[21:L$:L$:L$:L$:L$;:20::"THE OLD FILE WAS: "J$;A1$:"DESIRED FILE IS: "T$;Z$::10:"HIT ";:662:": 3:"ENTER THE DESIRED FILE NAME, OR:":7:662:" TO "C$" PRESENT FILE":7:"M(TO RETURN TO MAIN MENU)":7:"1 OR 2 = CATALOG (D1/D2)":10:"INPUT$",T$:T$""528 A1$Z$:Q1(T$):(T$,Q,1)(44)Z$(T$,Q):T$(T$,Q1):Q(T$)(Z$):"LCTOUM:O1E:F(O):Q15:A(O,Q):Q,O:O1P:M$(O,1):Q1E:C%(O,Q):Q:O:O1P:M$(O,2)::O1E:B$(O)::O1P:M$(O,3)::D$"CLOSE": "CLR":5::C$" FILE:":::J$""ĺ" THERE'S NO FILE NAME IN MEMORY.":518 "PRESENT FILE NAME: "J$;Z$ O,Q):Q,O:684:O1P:"INPUT$",M$(O,1):Q1E:C%(O,Q):Q:O:O1P:"INPUT$",M$(O,2):M$(O,3)""::O1E:"INPUT$",B$(O)::O1P:"INPUT$",M$(O,3)::D$"CLOSE": C$"SAVE":514:D$"OPEN G."J$;Z$:D$"DELETE G."J$:D$"OPEN G."J$:D$"WRITE G."J$:E:P:":65200,2g 2::(4);"BLOAD CLR BPRINT":103,1:104,8:X$"P":(175)256(176)46:660:702:538 C$"LOAD":514:D$"VERIFY G."J$;Z$:D$"OPEN G."J$:D$"READ G."J$:E:P:M:B%0:A%0:EJ2PH21ĺD$"CLOSE":222,77:718 O1E:F(O):Q15:A(' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoōVsL BKBɿ ɽA6H h B B( CLs BʠL5 y L Vj ުP ` Ѕ    L sq x ~ vL~ҝ  Oø:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`(1018)255(116)176ĺ(4)"BRUN GARB":65200,2K :(175)ɀ<2H?2< @ (h2`TXTTEXT OUTPUT.RM l݅qr  ,( L$8 qL ;L  e8.8  Șeй 8 * =ۦ `^_, ޥ8fإuvLECLRCLEAR SCREEN.RM $ ީE ީO PL L LB LXCTRLCHRSHOW CTRL CHAR.RM ɴK ީI 7v^ ɝ ў^im_i76H6^ȥ7^h67L^6ȱ^7 O ީF LɠɍɈ \ЭRNɛGH h $0 $䅅h)ݥO \An= $ $0 R \ LA٥ݩ  = {ڥ L٠ޙ \=ONERRLINEONERR FIX.RM ,݅L " ީ; = g RQP5LԅM l݅%ڥ$٤M \ۈM \ۈۅLȱȱߥۅMM܅Lڅ% [م$ޙ \ \ۈڅ% [م$ ,Ɉ+ɕ/ɍ?ɟDM)LL \ MLݱȱ`'RSETNORMRESET NORM.RM8`CRSETONERRRESET ONERR.RM^_<= 抠&<<i"=iLo L\GOTOYXGOTOYX.RM , g RQ1P-) [ g RQP)$$ ;L/`5LFORMINPUTFORMATTED INPUT.RM ,3D23::276:10@INPUT$STRING INPUT.RM  " ީ; = l݅ , L3SOUNDSOUND EFFECTS.RM FQP,0EQ,0`OFIXSTACKERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`0&RESTORERESTORE AMPERSAND.RMưVE TAB OR USE ANOTHER DISK."s2<(Z6C6)ĺ"CLASS RECORDS IS NOT ON THIS DISK."::"... PUT IN THE CORRECT DISK."2>Z8ĺ"UNABLE TO READ DISK -- CHECK DOOR."2@Z9ĺ"YOUR DISK IS FULL. INSERT ANOTHER DISK."2BZ10ĺ(4);"UNLOCK CLR DATA":480āZ0A11:F$F$((832Z)):ZT14E(3)22400:E(4)14400:E(5)29200:E(6)21800:16255:::223,250:"FIXSTACK",Z,G1:Z2541018"SOUND",250,220:Z250102:"CLR":"ERROR #"Z" ON LINE ";G1:10:Z4ĺ"YOUR DISK IS WRITE PROTECTED."::"... REMOB(20,3),A$(20),A(5),E(6),C(20,1),H$(8):I14:A(I)D(I15):0.SD(20):TD(21):JD(22):B%D(23):C%D(24):FD(25):DD(26):UD(27):VD(28):C$(4):G$(7):D$"":W0āZ0W1:D$D$((800Z)):Z00E$"":Y0āZ0Y1:E$E$((816Z)):Z"12F$"":A1/$(C16C17)U0296?/&278:A$;:C2ĝ:C36:286:C:C2E/(a/*:10:18::"BUSY"::<0,:F1768:D(29):I029:D(I)(F1I):I:MD(0)(D(0)255)(847):ND(1):OD(2):HD(3):KD(4):PD(5):GD(6):QD(7):LD(8):RD(9):WD(10):YD(11):A1D(12):M)):I:5."HIT ANY KEY TO CONTINUE. ";:A$:A$:T."GOTOYX",B(C,0),B(C,1);:j."GOTOYX",22,1;:."GOTOYX",C(C,0),C(C,1);A$(C)::."GOTOYX",C(C,0),C(C,1);:.A$(B(C,2)):(C4C6)(116)176ı. C10A$H$(P)."C15A$H$(U)$):"ONERRLINE",310:I13ĺ17(A$));:b-J$;:A$A$J$:(A$)16A$(A$,16):"SOUND",250,220k-258y- A$(0):- J$(0):-"GOTOYX",CB2(C3)(C5),4;A$(C);:-:"RETURN";:: .I36:B(I,2)(1.0(E(I)5000(20JTR)M)(403.2,D%Ģ23:276:186,105,A(A$):A13ġ:226F,A17ġ:230L,s,"CTRLCHR",:A$:"ONERRLINE",266,E1(A$):"ONERRLINE",310:(E113E117)256,"CTRLCHR",OFF:E117ġ:230,:226,A$;,J$:"ONERRLINE",268)-I(J:D%0:(L0LK)į"SOUND",250,220:"SMALL PRINT CANNOT HAVE FEWER":" COLUMNS/PG THAN STANDARD PRINT.":D%1::+((D$)16(E$)16(F$)16)į"SOUND",250,220:"ALL PRINTER COMMAND STRINGS MUST BE":" 16 CHARACTERS OR LESS.":D%1::198q*282:280:B$:B$:B$;:"GOTOYX",24,14:"ALL OK? Y";(8);:"SOUND",45,0:A$:A$;:A$"Y"A$"y"A$(13)*A$(13)188*K(B(2,2)21J)4:LB(5,2)(B(6,2)17J)4:V12(B(4,2)0):D$H$(3):E$H$(7):F$H$(8):B%B(2,2):C%B(6,2)w+"CLR":7)(C3C7C8)İ248:"CTRLCHR",OFF:H$(C)A$:278:214M)(C2C6)226)A$(B(C,2)):"FORMINPUT",3,A$,I$:I$(17)I$"":230)A$""226)(A$)0į"SOUND",250,220:198)B(C,2)(A$))282:C5(B(C,2))C8*C(C1)(C8)(C8):17ĺH$(B(C,2));:230R(B(C,2)B(C,2):H$(B(C,2));:"GOTOYX",B(C1,0),1:C4198r(B(C,2)āI14:B$:I:198("CTRLCHR",:" COLUMNS/PAGE: ";B(6,2):" COMMAND TO TURN ON : ";H$(7):" COMMAND TO TURN OFF: ";H$(8);:"CTRLCHR",OFF:1988));'C:(L0)196_'278:B(C,2);:278:C78:"CTRLCHR",:278:H$(C);:"CTRLCHR",OFF:Cg'C1w':282:278'C1ľA$:242:Q(A$):Q;(7(Q7));:278:200'(C4C5)214':282:278:A$:A(A$):278:A13ĺH$(B(C,2));:226(AЖ11:"------------------":::C18:284:A$(C(C6L));:C&280:B$:B$:B$;:"GOTOYX",23,9:272:" TO ACCEPT VALUE.":9:"CTRL-Q TO EXIT SCREEN.";:C15:278:B(C,2);:278:C3į"CTRLCHR",:H$(2);" ";:"CTRLCHR",OFF'C4C5ĺH$(B(C,28:C(4,1)3%A$(5)"IS SMALLER PRINT AVAILABLE?":C(5,0)11:C(5,1)3:A$(6)"COLUMNS/PAGE:":C(6,0)13:C(6,1)6:A$(7)"COMMAND TO TURN ON :":C(7,0)14:C(7,1)6:A$(8)"COMMAND TO TURN OFF:":C(8,0)15:C(8,1)6<&"CLR":"GOTOYX",1,11:"PRINTER PARAMETERS":,2)0:B(8,0)15:B(8,1)27:B(8,2)0 %H$(1)"YES":H$(0)" NO":H$(2)D$:H$(7)E$:H$(8)F$:A$(0)"":A$(1)"PRINTER SLOT:":C(1,0)5:C(1,1)3:A$(2)"COLUMNS/PAGE:":C(2,0)6:C(2,1)3:A$(3)"SETUP STRING:":C(3,0)7:C(3,1)3:A$(4)"END PRINT W/FORM FEED:":C(4,0)5,2):K(B%21J)4:L(L0)(C%17J)4:22::10"$B(1,0)5:B(1,1)17:B(1,2)Q:B(2,0)6:B(2,1)17:B(2,2)B%:B(3,0)7:B(3,1)17:B(3,2)0:B(4,0)8:B(4,1)26:B(4,2)(V0):B(5,0)11:B(5,1)31:B(5,2)(L0):B(6,0)13:B(6,1)20:B(6,2)C%:B(7,0)14:B(7,1)27:B(7(B(C,2));v"C::280:B$:B$:B$;:"GOTOYX",24,14:"ALL OK? Y";(8);:"SOUND",45,0:A$:A$;:A$"Y"A$"y"A$(13)"A$(13)1340#GB(3,2)(B(1,2)):E4040(G0):H(.1(E12(75(G0)(J28)(J15)))(3(G0))):S(.1(E5)3):OB(4,2)B(282:278:CB1:B(3,2); !142J!282:A$(B(C,2)):C3A$H$(B(C,2))q!278:A$;:(C2B(2,2)1)C3:142!(C2B(2,2)0)ĝ:"GOTOYX",9,8;" "!C(C1)(C5)(C5)(C2):142!282::C15:278:(C3B(2,2)0)ĺG; "C3ĺH$(C,2));e 278::(C1B(1,2)B(2,2))B(2,2)B(2,2):"GOTOYX",B(2,0),B(2,1);H$(B(2,2));:GC1(G0) (C2B(1,2)B(2,2))B(1,2)B(1,2):"GOTOYX",B(1,0),B(1,1);H$(B(1,2));:GC1(G0) B(2,2)0į"GOTOYX",B(3,0),1;B$;!(B(2,2)1C3)B1C:C3:15:278:C3ĺH$(B(C,2));9(C3B(2,2)0)İ278:G;DC:C1iA$(B(C,2)):C3A$H$(B(C,2)):282:278:A$;:278:A$:A(A$):A13162A17170C3ĺA$;:G(A$):B(C,2)G:C1G:G7į"SOUND",250,220 C3B(C,2)B(C,2):H$(BCREEN & KEYBOARD PARAMETERS":6:"----------------------------"::::" SCREEN USED:":C15:284:A$(C(C3B(2,2)0));:C:"GOTOYX",13,3;"KEYBOARD USED:"280:B$:B$:B$;:"GOTOYX",23,9:272:" TO ACCEPT VALUE.":9:"CTRL-Q TO EXIT SCREEN.";:C"":A$(1)"40 COLUMN SCREEN:":C(1,0)7:C(1,1)5:A$(2)"80 COLUMN SCREEN:":C(2,0)8:C(2,1)5A$(3)"(IN SLOT )":C(3,0)9:C(3,1)8:A$(4)"LOWER CASE DISPLAY:":C(4,0)14:C(4,1)5:A$(5)"LOWER CASE KEYBOARD:":C(5,0)15:C(5,1)5"CLR":"GOTOYX",1,6:"S|D%Ģ23:276:D%164 ~10~B(1,0)7:B(1,1)25:B(1,2)(G0):B(2,0)8:B(1,1)25:B(2,1)25:B(2,2)(G0):C1G:C10C13ZB(3,0)9:B(3,1)17:B(3,2)C1:B(4,0)14:B(4,1)26:B(4,2)(O0):B(5,0)15:B(5,1)26:B(5,2)(O2):H$(1)"YES":H$(0)" NO":A$(0)LAY VERSION.":D%2::dxD50į"SOUND",250,220:5:"GRADE POINT BONUS CANNOT BE OVER .5":::D%1zE%0:I311:E%E%(A(I)A(I1))::E%0į"SOUND",250,220:"MACHINE-SELECTED BREAKPOINTS MUST BE:":8:"UNIQUE":8:"IN DESCENDING ORDER":::D%1ER TO UPDATE DISK TO 64K DOS.":D%1::nt(NB(4,2)NB(6,2)(116)176)(NB(3,2)NB(5,2)(116)176)120v"SOUND",250,220:5:"YOU ARE USING "6416((116)176)"K DOS. WITH THIS":"DOS, TO USE "M" STUDENTS AND "N" EXAMS,":"YOU MUST USE THE OVERB(I,2)::"CLR":8:D%0:274:NB(5,2)į"SOUND",250,220:5:"NOT ENOUGH MEMORY FOR":10:M;" STUDENTS":10:N;" EXAMS":D%1::'rNB(6,2)(116)176į"SOUND",250,220:"NOT ENOUGH MEMORY USING 48K DOS.":::"RUN 'HELLO DIVERSIDOS' ON BACK OF SYSTEMMASTC17)(C17)15(C15U0):72l"SOUND",45,0:282::C12:286:C::C717:286:C::"GOTOYX",20,17;" ";:"GOTOYX",23,1:B$:B$;:"GOTOYX",24,14m"ALL OK? Y";(8);:A$:A$;:A$"Y"A$"y"A$(13)nA$(13)64pNB(2,2):I1114:A(15I)(16,2):D(100B(17,2)):C2āC36:286:C:C2:A$(B(C,2))Zd(C1C7C8C9)72fJB(7,2):TB(8,2):RB(9,2):MB(1,2):274:B1C:C36:286:"GOTOYX",B(C,0),B(C,1)(A$):((A$)4)((A$)3)((A$)2));:C:CB1:72h282:286jC(C1)(7108TC10P(P)8VC15UU:UĢ19:1:B$:B$^XC15UāC1617:282:286::C15fZ72\"FORMINPUT",B(C,3),A$,I$:I$(17)I$"":108^(A$)B(C,2)104`((A$)0C7C8C9C17)į"SOUND",250,220:72<bB(C,2)((A$)):FB,23,1:B$:B$;:"GOTOYX",23,9:272:" TO ACCEPT VALUE.":9:"CTRL-Q TO EXIT SCREEN.";::C117:286:C:C1HA$(B(C,2)):(C2C7)106JC10A$H$(P)LC15A$H$(U)N:282:278:(C10C15)92PA$;:278:A$:A(A$):A13104RA1 PARAMETERS ------":5:"EXAMS ALLOWED: STANDARD OVERLAY":"NEEDED 64K 64K ":"------ -------- --------":C12:282::(116)17668B6:24:"48K 64K 48K"DC715:282::C1617:Uİ282kFC:"GOTOYX")11:C(8,1)24:C(9,0)12:C(9,1)23:C(10,0)13:C(10,1)1>C(11,0)14:C(11,1)1:C(12,0)15:C(12,1)1:C(13,0)16:C(13,1)31:C(14,0)17:C(14,1)31:C(15,0)18:C(15,1)1:C(16,0)19:C(16,1)6:C(17,0)20:C(17,1)6@"CLR":"GOTOYX",1,1:"------ CLASS RECORDSA=":A$(12)"(& STANDARD SCORE GRADELINES) B=":A$(13)" C="7<A$(14)" D=":A$(15)"EMPLOY PLUS/MINUS GRADING SYSTEM:":A$(16)"% OF GRADE RANGE W/O + OR -=":A$(17)"GRADE-POINT BONUS FOR + =":C(1,0)3:C(1,1)1:C(2,0)8:C(2,1)1:C(7,0)10:C(7,1)1:C(8,02)T:B(9,2)R:B(16,2)F:B(17,2)D100:I1114:B(I,2)A(15I):I:274;:A$(1)"YOUR MAXIMUM CLASS SIZE:":A$(2)" ":A$(7)"COL'S FOR PRINTOUT: NAME =":A$(8)"ID =":A$(9)"TAG =":A$(10)"LETTER GRADES ON PRINTOUT?":A$(11)"MACHINE-SELECTED BREAKPOINTS: 0)10:B(7,1)29:B(7,3)2:B(8,0)11:B(8,1)29:B(8,3)2:B(9,0)12:B(9,1)29:B(9,3)2:B(10,0)13:B(10,1)31E8I1114:B(I,0)I3:B(I,1)35:B(I,3)2::I1517:B(I,0)I3:B(I,1)35:B(I,3)3::B(15,3)2:H$(1)"YES":H$(0)" NO":B(1,2)M:B(2,2)N:B(7,2)J:B(8,800:50U.A$E$:Y(E$):779,Y:AY:X816:50:A$F$:A1(F$):780,A1:AA1:X832:50[02A0āI0A1:XI,((A$,I1,1)):I4h6B(1,0)3:B(1,1)26:B(1,3)3:B(2,0)8:B(2,1)3:B(2,3)3:I36:B(I,0)8:B(I,1)195(I3)2(I4):B(I,3)3::B(7,(C%17J)4:K1K1,768,M(M256)255(M255):847,(M255)(M255):769,N:770,O:771,H:772,K:773,P:774,G:775,Q:776,L:777,R:781,0:I14:783I,A(I):I:788,S:789,T:790,J:791,B%:792,C%:793,F:794,D:795,U:796,V:A$D$:W(D$):778,W:AW:X2:12İ260:262:8:252 "X $:C$;"BLOAD CLR DATA,D1":798,73:799,137:797,33: &:(4);"VERIFY CROSSROADS":(4);"RUN CROSSROADS" (298:E4040(G0):H(.1(E12(75(G0)(J28)(J15)))(3(G0))):H1H1*K(B%21J)4:L(L0)128,180,28,36,30,38,32 14q 798,0:799,0::40:(4);"BSAVE CLR DATA,A$300,L$50,D1":798,73:799,137:10 :(4);"VERIFY CLASS RECORDS":(4);"RUN CLASS RECORDS" "RSETNORM":"CLR":"GOTOYX",5,1:"&RESTORE"::10:6:"...... END ......":2A%C(A%)< :270:A$:A(A$):A13ĝ:"SOUND",45,0:22o (A8A21A10A11)į"SOUND",200,200:16 :270:C(C1)(C8(A21A10))(C1)(C1(A8A11))(C8(A21A10))8(C1(A8A11)):"SOUND",13,62:16 C5İ40 A%C:C54,ANGE PRINTER PARAMETERS":A$(4)"SAVE PARAMETERS":A$(5)"LOAD NEW PARAMETERS" A$(6)"RUN CLASS RECORDS":A$(7)"--> CROSSROADS MENU":A$(8)"QUIT"::C18:270:C:"GOTOYX",22,15;"<-- OR --> TO SELECT, ":15:272:" TO ACCEPT." 16368,0:C1:A$" ":C256(176)46:298:300:B$" "::A%1` "RSETONERR",250L :"CLR":B6:B:6:"MODIFY PARAMETERS":6:"-----------------":A$(1)"CHANGE CLASS RECORDS PARAMETERS":A$(2)"CHANGE SCREEN/KEYBOARD PARAMETERS":A$(3)"CH1>!MODIFY PARAMETERS 1.84 10-15-85 : Copyright (c) 1985 :(12);(26)"1"::(12);(21):(4)"MAXFILES 3":((798)73(799)137)Ģ2::(4);"BLOAD CLR DATA,D1":798,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB":65200,2K :(175)                            տ@BBB BBB2B:NdB]yLRVɄ; ̢ B B BR )QHJJJJ phLp `,ɛ` CL DF DF / B BL/LQlRmUrꭠ`LÿL̿LLB  ,hإDLk]L7: 1L'MLL`,@ lPmQPi  Q3LclL`LLpL  $6hhА ,tpso`TLISPA p!p xxLMlLڍhhیڬ<۠x )ڠ8۬ڰ(HH `ȹ0,Ȍ ɍ  ɠ )?, @, LB LƠ LLւ&LݩLL#B B!P`Lﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~  B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"BLzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵` 紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0(ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L _ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I 8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ӡ@跻~!Wo*9~~~~ɬƬ~ABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵ChHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOlZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@on 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\ eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noLõĵ LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV @ NLi   L` -e L `sr ࣭ml ࣭srLLlۿڿLգ գ ze)rs zrsLq ] Qlr L̦ `8gh ࣥhgL `8LʨM ࣥˤLµH hLħõµ µõ8`D&F`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LlLգcl mllm ꢥFLȦAD@ C N cLuɠ% d: LꢩГcvc]ܢ @J0G eeʎd d F DUFX ЃDWcДJFgDfLH eeh) tt L [ _HH`]ɍ]ɬ` ɠ``DF ɤ<(LΡ DF`80!  eDeF eDDeFFτ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?L. The name of the start-up program appears, and it is RUN. This bypasses the loading of the old DOS 3.3 operating INFO for GPLE information. To receive compatible files for DOS Toolkit, send a signed statement that you own it with your $30 payment (licensed users send $5 and your user support number). Running Protected Programs Some protected disks will work by bversi-DOS. However, programs which reference locations within DOS may crash with Diversi-DOS, since these locations may have been changed. To be safe, it is best to have a back-up copy of the commercial program before adding Diversi-DOS. Note: RUN GPLEEL B!CLASS RECORDS A1.08E OVERLAYS 10-10-85, copyright (c) 1985K500\B3:A%0ı, 628:B%0:"CLR":2:5:"NOW ";::"CALCULATING";::" STD. SCORES.":CH:H1E:15:"CONVERTING EXAM NO. "H:10:H:HC:LM:684:15:"DROPPING "M" UNIT(S)"(AB(4Y)):" "(197G);:G0160W12(AB(GY))(B(G1Y)B(GY).001):(171((W11FAB(4Y))AB(5Y))173(W11FAB(1Y)));O1(J1K1(J10)(K10))(G1)25(E1))"MAX= ";:QHN1:"PU",I$;A(Q,5);:Q:B2E1ĺ" "(10B(10).5)G1J11466K$M$(I,2)" ":(K$)J11K$(K$,J11)LK$;J11(K$));d(1018)255Č1016jR11000ĭR1(R1).0999ĺ" ";B1B4V10(E1F10)ıAG(I).05001:Y0:B2B5Y5G12(AB(1Y))(AB(2Y))(AB(3Y))Ⱥ:N1:686:I:B3İ170)~E1ĺ(T1);:584>(E1)İ618:588D_K$L$:O11K$"":136|"LAY",M$(I,1)K$1,O115E1(I10));I"."I100);:U11(U10E11)į"PROPER",K$,K$K$" ";:G1K10K$L$:"LAY",M$(I,3)K$1,K1:K$" "; (B1));:B3ĺ" AVG."2pI1P:132:E1M11124brQHN1:B1C%(I,Q):B3B1(A%(I,Q)10.5)xtB10ĺL1);:122vB11ĺL11);"-";:122x"PU",I$;B1;zQ:P119(G(I)1000):R1(P1G(I).5001)P1:(B1B4)ĺE10)"=";R1;:150|%0E0)İ62:"CLR"#dB3İ6:"CLR"0fE1İ576Ph6E1);J$;:E1ĺ:::112j" --- "A$"SCORES"(13(E1));5);M" UNITS DROPPED":B3ĺ6);:I14:" "(64I)"="B(5I);:I:l162:172:QHN1:L1(B$(Q)));B$(Q);:Q:B2ĺ" TOTAL"n(13(H$):H(H$):N1H1M1:N1EN1ECVH1HEĺG$:M1M1O(B3):82kXB3G11:BB3:(H1I1EM1)H1M1xZE1İ620\EHD(4)OG1H1D(4)OG1^E1F1D(6):Y(F10):L1L1Y:I$I$(32Y):O1O15(F10)::586`"CLR":98:72b(B2BTANDARDIZED SCORES":::E%6:F$"MAIN":664:B072VLA$" RAW ":(B3B6)A$" STD. "NO((J1K1)L1):OO(O(J1K1)L1):M1M1O(B3):(EM1)H1:N1E:88PI1H1D(4)EH1O(B3)H1I1:632:78R"CLR":5:E0H0:N10:88 T616:670:H ARE:"::"NO STUDENT ID OR TAG:":G10:D11(E1):H1D(4):(EH1I1)H1I10J632:" 1. RAW SCORES":" 2. RAW SCORES W/TOTALS":" 3. STANDARDIZED SCORES"::"WITH STUDENT ID AND TAG:":" 4. RAW SCORES":" 5. RAW SCORES W/TOTALS":" 6. S(F(I)):J:I:M0E1āJ15:B(5J)B(5J)MA(1,J):J@I1E:J1P:A%(J,I)C%(J,I):J,I:A%0:26:42:I1P:G(I)10G(I):I:B%1:B! PRINT OUT DP1İ630FD11(C$"V"):E$"VIEW":632:E1E$"PRINT"GHF10:"CLR":5:"YOUR "E$" OPTIONSB(I)):A1A1ID(B1(1F)2I4)D(B1(1F)2):H(I)H(I)1:60Q 8I1II1:54j :G(O)0H(0)H(0)1 <O:C10:X04:C1C1H(X):X:A1(A1100C1.5)100:3>B2:660:W0:K0:I15:B(5I)0:I:I1E:WW(F(I)):J15:B(5J)B(5J)A(I,J)B$(Q)"++"))(C%(O,Q)0):Q:E1G(O)((B3)A%(O,1)(B2)A%(O,1)(F(1)))10:50q .B2G(O)(G(O)C(O))10:50 0G(O)((G(O)C(O))10)(ZM) 2O:B2ı 4X04:H(X)0:X:A10:O1P:I4:N3:686> 6(G(O).05001)B(I)B1(G(O)B(I))(B(I1)(Q)0)34 D%A%(O,Q):YQ) "Q:T040J $E(Y)UC(O)VD%U:U0:40 &UUE(Y):VVD%E(Y):TTE(Y):E(Y)0:U0T030 (O: *O1P:N3:686:G(O)0:V0:Z0:X1E:ZZ(F(X))(A%(O,X)0):X:MZ50P ,Q1E:G(O)G(O)A%(O,Q)(F(Q)( S10B(Q)(10(B(Q1)B(Q))(RA(H,Q))(A(H,Q1)A(H,Q).00001).5)W A%(O,H)S:O:s O1P:M0C(O)0:40 N3:686:I1E:E(I)F(I)(A%(O,I)0):I:T0:I1E:TTE(I)(E(I)0):I:UM:V0:MTUT D%10000:Q1E:(A%(O,Q)D%F(Q)0ES)":26:15:"CALCULATING NEW AVG.":42:ML:A%1:^ B$(H)"++"āO1P:A%(O,H)10C%(O,H):O: O1P:Q6:RC%(O,H):R0S10(1(R1)(R1)):24 N3:686:RA(H,5)S10(B(5)RA(H,5)):24 QQ1:RA(H,Q)18 RA(H,Q)S10B(Q):24DE !CLASS RECORDS A1.08E OVERLAYS 10-13-85, copyright (c) 1985 N500_B3:A%0ı/ 628:B%0:"CLR":2:5:"NOW ";::"CALCULATING";::" STD. SCORES.":CH:H1E:15:"CONVERTING EXAM NO. "H:10:H:HC:LM:684:15:"DROPPING "M" UNIT(     ,14,"BY WALT WILSON",15,15,"& NICK BROWN",19,4,"EDUCATOR SOFTWARE",20,4,"300 LILAC DRIVE",21,4,"LOS OSOS, CA 93402":VL(222):255::(7);(7):L25432X:10:L6Ğ:C$(F):::"IS NOT FOUND IN DRIVE ONE":94 ZL9ĺ"DISK FULL -- USE ANOTHER I::D$:I111:K,H,A$:K:H:A$:I:I122:I:39:"* *";::D$;R4,5,"CLASS RECORDS VERSION 3.0",5,4,"=============== AUGUST 1985", 9,10,"A GRADING SYSTEM",11,14,"FOR SECONDARY SCHOOL",12,14,"AND COLLEGE INSTRUCTORS",6,29,"(C)" uT 14NSFER"<D:12::C$(F):::" LOADING FROM DRIVE 1":PF:(4)"PR#"G:}H(12);(26)"1"::(12);(21):G0:70:JA(F,2):A(F,1):C$(F);:L:"HIT ANY KEY TO CONTINUE.";:78::NJ01:J((C)127):J:B,0:BPI138:D$D$"*":B$"RUN LABELS"::B$"VERIFY INDIV,D1":68:B$"RUN INDIV"x<B$"VERIFY MAKE DATA DISK,D1":68:B$"RUN MAKE DATA DISK">B$"VERIFY MERGE,D1":68:B$"RUN MERGE"@B$"VERIFY MISSING,D1":68:B$"RUN MISSING"BB$"VERIFY TRANSFER,D1":68:B$"RUN TRA10A21))((F14F4)(A11A8)):362.F1496=0:86h2F52,54,36,64,58,64,56,58,60,62,64,664B$"VERIFY CLASS RECORDS,D1":B$"RUN CLASS RECORDS"6B$"VERIFY MODIFY PARAMETERS,D1":B$"RUN MODIFY PARAMETERS"8B$"VERIFY LABELS,D1":68:URN";::" TO ACCEPT"! $:74:: &A$:A(A$):A1346O (A3İ74:F1:36 *A8A21A10A11į"SOUND",200,200:38%,"SOUND",13,62:74:F(F1)((A10A21)F14)(F1)((A11A8)F1)(F14(A10A21))14(F1(A11A8))((F2F12)(AO BASIC":A(14,1)D:A(14,2)E14 ::"CROSSROADS FOR CLASS RECORDS":"----------------------------":2:31:"(48K DOS)";:(116)176Ė32:"64"; ":31:"(IN USE.)":F114:FF(F3)(F13):74:F:F1:B,0:14:22:"<-- OR --> TO SELECT,":15::"RET8,2)E8:C$(9)"MAKE A NEW DATA DISK":A(9,1)D:A(9,2)E9:C$(10)"MERGE FILES TO NEW FILE":A(10,1)D:A(10,2)E10 C$(11)"MISSED ASSIGNMENT REPORT":A(11,1)D:A(11,2)E11:C$(12)"TRANSFER OVERALL SCORE OR ONE EXAM":A(12,1)D:A(12,2)E12:C$(14)"EXIT TD:A(2,2)E2:C$(4)"BLANK CLASS SHEET":A(4,1)D:A(4,2)E4:C$(5)"CLASS RANKING PRINTOUT":A(5,1)D:A(5,2)E5:C$(6)"DUPLICATE FILE - W/O EXAMS":A(6,1)D:A(6,2)E6q C$(7)"EXTENDED LABEL MAKER":A(7,1)D:A(7,2)E7:C$(8)"INDIVIDUAL REPORT":A(8,1)D:A(,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB":65200,2_ 24:27::"HIT SPACEBAR";:p (C)12820y B,0 C$(20),A(20,20):(175)256(176)46:26 D5:E4:C$(1)"CLASS RECORDS":A(1,1)D:A(1,2)E1:C$(2)"MODIFY PARAMETERS":A(2,1)5 !CROSSROADS 1.16 8-15-85: COPYRIGHT (C) 1984  (4)"MAXFILES3":(103)1(104)8(2048)0Ĺ103,1:104,8:2048,0:(4);"RUN CROSSROADS,D1":72::B16368:C16384:B$(4):(798)73(799)13724> 80::(4);"BLOAD CLR DATA":798       e Computers: Each additional computer license fee is $25, up to a maximum of $200 for all the computers owned by a company. Note: DOS 3.3 is a copyrighted program of Apple Computer, Inc. licensed to DSR to distributed for use only in combination with Di HELLO and ASMDIV, on their disk at no charge. The disk must be initialized with standard DOS 3.3. The user then has the option of adding Diversi-DOS to the disk, and sending the $30 to DSR, or using standard DOS without paying an additional fee. Multiplly use Diversi-DOS with other programs, you may send $30 directly to: DSR, Inc., 34880 Bunker Hill, Farmington, MI 48018. You will receive a Diversi-DOS utility disk with documentation. Alternatively, publishers may include the 2 Diversi-DOS files,5E14);:O15ĺO1);:176,"NAME";O14);RK13G1ĺ(K1(K10))G1);:180e"TAG";K12);J12G1ĺ(J1(J10))G1);:184"ID";J11);EL 1E:15:"CONVERTING EXAM NO. "H:10:H:HC:LM:684:15:"DROPPING "M" UNIT(1ĺ" ";WM;_:O1(J1K1(J10)(K10))(G1)25(E1))"EXAM# =";:QHN1:"PU",I$;Q;:Q:::" ":7E1)"THERE ARE "C1" NONZERO SCORES.":7E1)"OVERALL GPA="A1" WITH":7E1);:Q411:22E1);H(Q)" "(69Q);:Q:22E1);H(0)" F":10;:O411:O1(J1K1(K10)(J10))(G1)25(E1));(69O)"=";:" ";:QHN1:"PU",I$;A(Q,O);:Q:B2E1ĺ" "(10B(5O).5)10; N2:686::O:O1(J1K1(J10)(K10))(G1)25(E1))"WEIGHT=";:QHN1:RF(Q):596:;F(Q);:Q:B2Eϱ^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X0CROSSROADS,D1":72::B16368:C16384:B$(4):(798)73(799)13724> 80::(4);"BLOAD CLR DATA":798LںLAYLAY.RM  { lݠ 5橴 l݅Ȅ  L  L qr qʠ ʆ L^_:ʽe^^e__l^" ަư8^_氠{ lݠ R % ک; ީ ڢ0 $. *媆 gݥ 9 r륢H #h 40dNEF- ,00 *$,XǘP$,ȱ8# \ % ,;L>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)+ (.Q.0.уȱ.у```0./ ꥃL8. K"ȱ.^ȱ._$J0 ^ЫK`  +._.^. LPUPRINT USING.RM RG.ІF/GEFD$1 ީ I0 &ŔÄ'ĕнеȱаȱ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8F:E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D ^iȥ_ixA@ ./CBHH$1H+H1)L-+ .H.h$1+`,,,0 B``LvL HH 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g $ ީE ީO PL L LB LXEBEEPBEEP.RM6  <  L=,0 J= <`3SOUNDSOUND EFFECTS.RM FQP,0EQ,0`9ONERRONERR FIX.RM , ޥ8fإuvLSRTARRAY SORT.RM^^HA [i )? 詍 lݍ `ʤsLCTOUCLC TO UC.RM { lݠȱȱHh#)ha {)ߙ l݅ `ECLRCLEAR SCREEN.RM&<<i"=iLo LOFIXSTACKERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`GSWAPSWAP.RM ߅HH hE0hE0$0$0Hh`LvݼPROPERPROPER NAMES.RM { lݠȱȱHhP)hʄDISK":94C\L0L16ĺ"ERROR IN DISK OPERATION - CHECK DOOR":94U^23::76:32`::10:12:".... DONE ....":22:1014,88:1015,255:@INPUT$STRING INPUT.RM  " ީ; = l݅ , LDRESETONERRRESET ONERR.RM^_<= 抠on't set any higher) HIMEM moves down for MAXFILES>3 4. Error messages print 5. Hit to abort a CATALOG 6. BSAVE without "A" and "L" after a BLOAD, for example: BLOAD BFILE BSAVE BFILE 7. RUN can have "L", i.e. RUN filename,L100 (runs frod RENUMBER need patches to work with 64K DOS. To patch them, EXEC FIX FID, or EXEC FIX RENUMBER. * NEW FEATURES * * 64K DOS * 1. CATALOG shows "Free Sectors" 2. Type INIT X to format non-bootable disks (with 32 extra free sectors) 3. HIMEM=48896 (drd. Use this file with CORVUS (after BRUN PATCH), or if you want to make the DOS move optional after the boot. You can BRUN DDMOVER from within a program without destroying the program as follows: 10 ?CHR$(4);"BRUN DDMOVER" 20 (continue program) FID an and press "D" to add 64K DOS to this disk. Menu option #7 will BSAVE the file, DDMOVER, onto your disk. If you added 64K DOS to your disk with option #2, then you don't need the DDMOVER file. However, BRUN DDMOVER will move 48K Diversi-DOS to the RAM canot be moved. You can avoid the move by hitting during the boot (IF PEEK(55)>190 then DOS was moved). Note: To INIT a blank disk to boot 64K Diversi-DOS, you must first INIT the disk with standard 48K Diversi-DOS (or DOS 3.3). Then use option #2,r language card) giving about 10K added memory. You will also have many new features! (see next section) 64K Diversi-DOS requires a 16K RAM card in slot #0 (Apple //e OK), and Applesoft ROM on the motherboard. If they are not present, Diversi-DOS will $(4);"BLOAD COPY.OBJ40" SAVE COPYA40 BLOAD COPY.OBJ0 POKE 770,40 POKE 863,40 BSAVE COPY.OBJ40,A$2A0,L$12B 64K Diversi-DOS Use option #2 and press "D" to put 64K Diversi-DOS onto your disk. When this disk boots, Diversi-DOS will be moved to a RAM card(o6FA (After BRUN BUFFER) POKE 48885,1 POKE 48975,128 POKE 48990,139 To avoid printing on the screen when you BRUN BUFFER: BLOAD BUFFER POKE 34488,190 BSAVE BUFFER,A$8000,L$6FA To back-up 40-track disks, modify COPYA as follows: LOAD COPYA 70 PRINT CHRt in slot 0, change DOS as follows: POKE 42424,N*16+128 POKE 42432,N*16+129 If you have an Integer machine and use a RAM card in slot #0 to load Applesoft, you can still get a 4K print buffer as follows: BLOAD BUFFER POKE 34451,16 BSAVE BUFFER,A$8000,L$,96 - Turns off line feed after carriage return POKE 46849,169 - Allows input of ctrl-C If you have an old Integer machine with an APPLESOFT ROM card: BLOAD BUFFER POKE 32915,N (N is ROM card slot #) BSAVE BUFFER,A$8000,L$6FA If the ROM card is noo: 10 POKE 63261,96:POKE 49058,0:CALL 49054:POKE 49058,181:POKE 63261,32 After you "BRUN BUFFER", the following POKE's will modify the printing: POKE 49028,96 - Turns off output to the screen when printing POKE 49028,76 - Turns it back on POKE 44762rrectly this way. However, an occasional drive will destroy disks. To find the number of free sectors from within a program (requires free space patch): 10 POKE 48376,96:CALL 48351:POKE 48376,32 20 FR=PEEK(70)*256+PEEK(68) With DDMOVER change line 10 t40286,101: POKE 40287,216 With DDMOVER, use 48918-9, not 40286-7. To avoid reloading a RAM card with BASIC on every boot: POKE 49107,173 To speed up DOS even more, change the motor start time to 1/2 sec with: POKE 47102,236 99% of drives will work coth 32 more free sectors. (DDMOVER does this automatically) If you boot a data disk by mistake, you will have to press . POKE 42348,22 POKE 44723,4 POKE 46922,96 Reset Trapping: Reset=RUN POKE 40286,102: POKE 40287,213 Reset goes to ONERR POKE If you hear about Diversi-DOS from your dealer, please pay him the extra $10. He earned it! You will then send $30 to DSR for the license and latest disk. Diversi-DOS POKE's After the following POKE's, INIT will initialize non-bootable "Data" disks wiversi-DOS. Apple requires that publishers obtain a license to distribute DOS 3.3 disks. For more information, call Apple License Dept. (408 973-4771) Diversi-DOS from clubs or dealers Clubs and dealers may charge a $10 distribution fee for Diversi-DOS. patible with Corvus DOS. To correct the COPY3 program: LOAD COPY3 50 X=76:DV=3 SAVE COPY3 Checksum Feature * * * * * When this disk boots, it checksums itself. If any bytes of the program are changed, you will hear 2 beeps. This indicates a bad or mod 8 saves the file "PATCH" onto a disk. BRUN PATCH converts standard DOS 3.3 into DIVERSI-DOS. This can be used to convert a running DOS to Diversi-DOS, i.e. with hard disks or RAM disk emulators. Corvus Hard Disk DOS * * * * * PATCH and DDMOVER are comRUN (add 64K DOS to disk again) When running 64K DOS, POKE 49007,0 disables ctrl-I completely. POKE 49007,137 to re-enable. To disable macros and ctrl-I(if they cause problems): POKE 57006,32:POKE 57007,30:POKE 57008,191 PATCH file * * * * * Option To load the DVORAK keyboard table: BLOAD DVORAK//E or BLOAD DVORAK//+ Then hit all the keys to find out what their new meanings are. Good luck! NOTE: You can change the insert mode key from ctrl-I to ctrl-J as follows: LOAD HELLO 87 POKE 35186,138 r key into a real delete: ctrl-I ctrl-@ ctrl-U ctrl-I ctrl-H ctrl-I ctrl-I To save a macro table, enter: BSAVE MACRO,A$DC00,L$100 You can use other file names, besides "MACRO". To load a macro table: BLOAD MACROned the ctrl-D and ctrl-T keys. Hit them to see! If you make a mistake in macro mode, hit <--. It's just like normal insert mode except for ctrl-@. To include the <-- (same as ctrl-H), or ctrl-I keys in a macro, hit first. Here's how to turn youhen type the definition of the key. When you're done, hit ctrl-@ to define the next key, or ctrl-I to exit macro-define mode. Example - Hit the following keys: ctrl-I ctrl-@ ctrl-D PRINT CHR$(4);" ctrl-@ ctrl-T TLIST ctrl-I You have now re-defi@ to enter macro-define mode. Ctrl-@ is shift-ctrl-P (II+) or shift-ctrl-2 (//e). Your current macro definitions (if any) will appear. First press the key you want to define. It will appear flashing on the screen (lowercase letters show new symbols). Tce a new character, or many characters, whenever it is pressed. Use this feature to enter common phrases or commands with a single keystroke, or make your own custom editing keys. To re-define a key, first hit ctrl-I to enter insert mode. Then hit ctrl-hit <-- to delete. To exit insert mode, hit ctrl-I again. Note that the cursor stops flashing while in insert mode. Also, only part of the input buffer is shown with 80-col cards. 12. Keyboard Macros You can re-define any key on your keyboard to produacters are displayed, and can be copied with -->. 11. INSERT MODE When you are copying a line with -->, you can insert by hitting ctrl-I. This freezes the cursor in place, and displays the input buffer backwards from the cursor. Type your insertion, or e, "S" to single-space, "D" to double space, ":" to split multiple statement lines, ";" to cancel the split, to return to the start line, ctrl-C or to abort. For easier line copying with the --> key, TLIST does not indent . Control char the screen into the program in memory. (use and --> ). This is one of TLIST's most powerful features. If you don't enter a filename, you will TLIST the program in memory. TLIST,L100 or TLIST During a BASIC TLIST, hit to advance one linist file to screen When you TLIST a text file, it displays on the screen. Hit to abort, or to pause. When you TLIST a BASIC file, you can specify a starting line (defaults to first line): TLIST PROG,L100 Then you can copy this line off You can use "?" instead of "=". Hit Y or N to pick the proper file. (Don't use "=" or "?" by itself) 9. Lowercase is accepted. 10. 3 additional DOS commands: PAD - Print "A" and "L" of last BLOAD C - Catalog (from keyboard only) TLIST filename - Lm line 100) 8. Wildcard File Names: Use "=" to avoid typing the entire file name. You get the first file in the Catalog which matches all characters before the "=". I.E. type RUN H= instead of RUN HELLO, if HELLO is the first file beginning with "H" . t`H 0 RI@ CF#H O}h #"` &L    0 L H h @86` ׂ؂  `    L`PARALLEL 16K - STANDARD smqqtmrr{myy|mzzqyuwx0 ` C C C C`ĭ߼\ Bl şL/Ơ!߼DF DF /L\l6QUADRAM APIC/G Ϳп ɿϿ ̿`DUMPLING GXȿ Ϳп ɿI̿IϿ`GRAPPLER (OLD)ȿ LȿCCS 7720Bȿl6MPI AUTOPLOTϿп ѿҿ7ӿ`ALS PRINTERMATEϿl6CPS PARALLEL@@N7O N#NN`CPS SERIALl6GRAPPLER +7ʿ l6PKASO@@ȿ wan Lx $x<@` $x  `x@ i@``PARALLEL `COMMUNICATIONSl6SUPER SERIALp.OBJ0,A$93FE,L$44 TEST it on a back-up data disk!u added 64K DOS to your disk with option #2, then you don't need the DDMOVER file. However, BRUN DDMOVER will move 48K Diversi-DOS to the RAM card. Use this file with CORVUS (after BRUN PATCH), or if youdealer). * Use COPYA (or FID) to make a copy of the BPI disk. Then use option #2, but press "X" instead of to add Diversi-DOS to the copy. If the BPI disk contains "I/O.OBJ0", change it as follows: BLOAD I/O.OBJ0 CALL-151 9421:A8 AC BSAVE I/Oget this disk to boot on an old Integer machine, BRUN FID to transfer the files "APPLESOFT" and "FPBASIC" from your DOS 3.3 system master to this disk. However, I recommend you get an Applesoft ROM board and switch the ROM's to your motherboard (ask your s will be notified by mail. The updated disk may be purchased from DSR for $5.00 or you can get them from a friend without payment. Licensed users will also be notified of any new programs released by DSR. Old Apple II (Integer) Computers * * * * * To ll 313 553-9460 on weekdays between 3 and 5 P.M. (Eastern Time) for support. This is Diversi-DOS version 4-C. "4" refers to the Master Disk version. "C" refers to the DOS version (displayed during a CATALOG). If the program is updated, all licensed userified copy of Diversi-DOS. If you modify Diversi-DOS, the menu will show version number 4-C*. The "*" shows that changes have been made. To eliminate the beeps, reboot and make a copy (option 4). User Support and Updates * * * * * Licensed users may caVsL BKBɿ ɽA6H h B B( CLs BʠL5 y L Vj ުP ` Ѕ    L sq x ~ vL~ҝ  Oñտ@BBB BBB2B:NdB]yLRVɄ; ̢ B B BR )QHJJJJ phLp `,ɛ` CL DF DF / B BL/LQlRmUrꭠ`LÿL̿LLB  ,hإDLk]L7: 1L'MLL`,@ lPmQPi  Q3LclL`LLpL  $6hhА ,tpso`TLISPA p!p xxLMlLڍhhیڬ<۠x )ڠ8۬ڰ(HH `ȹ0,Ȍ ɍ  ɠ )?, @, LB LƠ LLւ&LݩLL#B B!P`LIH & `&æL şL 𤄅Oٿ &`H`ߪ~1 9 rzH I$$ٿɓ O ] Ƀ7ɮ fh 'Ɋ Ў ]ɍ)Ь hl6XR#>P`R`i `       KEYBOARD BUFFER ---> INSTALLEDDISABLED PRINTER R.A.M. CARD TYPE -> SLOT -> PRINTER CARD DIVERSI-DOS(TM) 4-C C1983 BILL BASHAM R.O.M. CARD NONE(4AKT_nw`~‚҂ TO "C$" FILE":10:"INPUT M TO RETURN TO MENU ";:Y$:"LCTOUC",Y$,Y$:Y$:Y$(13)J$T$:kY$"M"ġ::"I DO NOT UNDERSTAND YOUR RESPONSE.":19:"PLEASE TRY AGAIN:":I1750:I:532H1D(4):(1018)255Č1016:D$(4):F10:588:602:C",Z$,Z$' Q:T$(77)T$(109)ġ:g T$(49)T$(50)Z$",D"T$:"CLR"::D$"CATALOG";Z$:520| T$""J$""514 T$""T$J$:[21:L$:L$:L$:L$:L$;:20::"THE OLD FILE WAS: "J$;A1$:"DESIRED FILE IS: "T$;Z$::10:"HIT ";:662:": 3:"ENTER THE DESIRED FILE NAME, OR:":7:662:" TO "C$" PRESENT FILE":7:"M(TO RETURN TO MAIN MENU)":7:"1 OR 2 = CATALOG (D1/D2)":10:"INPUT$",T$:T$""528 A1$Z$:Q1(T$):(T$,Q,1)(44)Z$(T$,Q):T$(T$,Q1):Q(T$)(Z$):"LCTOUM:O1E:F(O):Q15:A(O,Q):Q,O:O1P:M$(O,1):Q1E:C%(O,Q):Q:O:O1P:M$(O,2)::O1E:B$(O)::O1P:M$(O,3)::D$"CLOSE": "CLR":5::C$" FILE:":::J$""ĺ" THERE'S NO FILE NAME IN MEMORY.":518 "PRESENT FILE NAME: "J$;Z$ O,Q):Q,O:684:O1P:"INPUT$",M$(O,1):Q1E:C%(O,Q):Q:O:O1P:"INPUT$",M$(O,2):M$(O,3)""::O1E:"INPUT$",B$(O)::O1P:"INPUT$",M$(O,3)::D$"CLOSE": C$"SAVE":514:D$"OPEN G."J$;Z$:D$"DELETE G."J$:D$"OPEN G."J$:D$"WRITE G."J$:E:P:":65200,2g 2::(4);"BLOAD CLR BPRINT":103,1:104,8:X$"P":(175)256(176)46:660:702:538 C$"LOAD":514:D$"VERIFY G."J$;Z$:D$"OPEN G."J$:D$"READ G."J$:E:P:M:B%0:A%0:EJ2PH21ĺD$"CLOSE":222,77:718 O1E:F(O):Q15:A(.#! STARTi(103)0(104)26(6655)0Ĺ103,0:104,26:6655,0:(4);"RUN CLASS RECORDS,D1" :(4)"MAXFILES 1":588::G$(7):((798)73(799)137)Ģ2::(4);"BLOAD CLR DATA":798,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB          ĬōЬˍĬ̍Ҭԍ٬ˍűŲɍԍԍččč LnL&L&@ yhAgq@AAİįq@Ș M@M@`3634)(D$;"BLOADLMESS1,A";AD12812LE(43617)256(43616)<A2AD1281LEFA21,0PD$;"BLOAD LMESS2,A"; P  LLʬLoō,i ۿ ۿڿL흍ٿ vLQ!߼HH ᥠ L\ֿLDá99L`A %ALϕϕEFN L2=Wҡˢf~ Ҿ8TVZ, ŵBѵ`, ѵB8` Lz9[` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL x àĠà]H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s w6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLL WLsL Q(`L׬L şĭ/OBND8HFFhDh N ş`Ȍ`nL߼ 0 L&RE;BY; LlLi? `]LlۿڿLգ ` ` Lܫ1 WD\L \ şL_ NLjL]Lᦢ ş \8  ş Lȟdq,\Z[PRR3\ɄSɊ"RQJ(0F:S2D(12):H2H21:M$(H2,3),C%(H2,J2),A%(H2,J2),C(H2),G(H2),A(J2,5),B(10),F(J2),J%(H2),H(H2)J(H2),H%(5),L%(H2),E(J2),F%(2),G%(1),I(4),B$(J2),A$(1):I14:I(I)D(I15)::B211:J1D(21):A3D(22):FD(25)100:DD(26)100:P2D(27):T1D(28):P2F1:D0Q16368:D$(4):I029:D(I)(C3I):I:D(13)0ė:10:"SOUND",200,200:"CLR DATA IS FROM VERSION 2.1"::700:22:618:736:C$"M":11518\H2D(0)(D(0)255)(847):J2D(1):U1D(2):B3D(3):H1D(4):V1D(5):F10:X2D(7):I1D(8):K1D(9):S0D(10):S1D(11)İ626:D1Q2D1155ı1YNġ:YY1:692A584:588:nA(D2,0)0:O15:H%(O)A(D2,O):O:638:"CLASS SIZE OR EXAM NO. TOO LARGE.""REDO CLASS SETUP PROCEDURE"::A%0:B%0:C3768:D(29):L$"":I138:L$L$" "::Y216384:Z2TOUC",H$,H$:;(A%0H$"R")A$"STANDARD SCORES":682e(B%0H$"R")A$"RAW AVERAGES":682k"CLR":G$;A$;" MUST BE RECALCULATED.":23:618:H$"":F20:I1E:F2F2(F(I))(F(I)0):I:D1(Y2):D1128ı Y1:Z2,0:D1160)": "H%(O):O::3"CLR":10:19::"BUSY"::H:"RETURN";::23:"(HIT ";:662:" FOR "F$" MENU.)":21:"ENTER 1-"E%": ";:C$:C$:C$(13)ġ:B(C$):B1BE%İ612:B0E10ľH$:H$:H$(13)H$""E9Ą"";H$ "LC$)):U$""Q1H%(O):Q1H%(W1)ı/Q10656NQ1A(D2,5)A(D2,5)0656i(Q1H%(W1)W4)656o~G$::638"CLR":4:"EXAM #"D2:"PRESENT BREAKPOINTS ARE: ":A(0,5)B(55(H$"R")):"(MAX SCORE = "A(D2,5)")"::O411:6);(197OKEEP THE SAME VALUE.)":15:O411:WO:646:U$""H%(O)Q1:12O:11:Q1;" ":15_O658:20:"IS THIS O.K.";:590:D1644,638,642,642B%0:A%0:O14:A(D2,O)H%(O):O:!L$:15:"INPUT NEW '"(197W)"' LINE: ";:"";U$:15:Q1((U2rQ215:Q25((Y2)127):Q2:Q2(Y2):Z2,0:>tE0ıjv"CLR":7:"YOU HAVE NO DATA.":618::xE10:O18(A328)(A315):M1B3:L13:I$" ":D1634,636,632,636zE11:L14:I$" ":O11A3:M1H1|X~658:18:"(HIT ";:662:" TO "E$"ED AT ONCE.":2:"SELECT 1ST TEST NO. (1-"E"): ";:cj:"HIT ANY KEY TO CONTINUE.";:626::xl(E1)İ618:624n"CLR":10:"IS YOUR PRINTER READY?":22:"HIT ANY KEY TO BEGIN.":"HIT ESC TO ABORT PRINTING.";:G$;:O$:O$:O$(27)ġ:p^" IN MEMORY)":1:S`:10:"DO YOU NEED TO SAVE A FILE (Y/N)";:590:D12ġYbd"CLR":10:"RESPONSE NOT ALLOWED. ";::"TRY AGAIN."::Q11000:Q:f22::"(HIT ";:662:" FOR PRECEDING MENU.)":7h"ONLY "M1(M10);A$"SCORES ARE C",R$,R$:R$:D1(R$"Y")2(R$"N")4(R$(13)):(D1)594PD13:"CLR":5:10:"PLEASE ANSWER ";::"YES OR NO";::".":Q1500:Q:"CLR"RTRL1((R)):R0600VR);XZ:3:"(";:J$""ĺJ$;\E1$J$:J$""ĺ"NO FILE NAME";ROADS MENU"::" FROM DRIVE 1":J$"CROSSROADS":D$"RUN CROSSROADS,D1"U@E10580pB582:(H1I1I1)ĺB1$;vDF"CLR"::D$;"PR#";X2:D1$;:HE1ĺC1$;J:(4)"PR#"F1:L(12);(26)"1"::(12);(21):F10:586::N"?";:R$:"LCTOU,406,746,538>.X$"C"ĺD$;"BLOAD CLR BFIX,D1":X$"C"D0q2X$"A"ĺD$;"BLOAD CLR BADD,D1":X$"A"w46X$"P"ĺD$;"BLOAD CLR BPRINT,D1":X$"P"8:X$"G"ĺD$;"BLOAD CLR BGRADE,D1":X$"G"<G>608::::"LOADING CROSS:Y(111)(109)256((112)(110))C$C$"F"(1018)255Y(0)n&C$"F"ĺY;::") ":23:30:" ":544(B(C$"L")2(C$"S")3(C$"C")4(C$"A")5(C$"V"C$"P")6(C$"G")7(C$"Q"):B2ĴB718,718,558,562,566,570*B508,512,186,326,66(RINT SCORES)"::"F(REE SPACE CHECK)":"X(--> CROSSROADS MENU)":"Q(UIT -- TO BASIC)":32,0: 23:"PLEASE ENTER YOUR SELECTION:";:30:C$:"LCTOUC",C$,C$:C$;:22::C$"X"İ574$"C$"F"Ģ18:20:868:"= ";::(1018)255Ĺ65200,0:1016:65200,2"CLASS RECORDS MAIN MENU":I123:"-";:::1:30:"(OVERLAYS)":6:"SELECT BY ENTERING FIRST LETTER:":32,7::"L(OAD FILE FROM DISK)":"S(AVE FILE TO DISK)"::"A(DD DATA)":"C(HANGE/SUPPLEMENT DATA)"^"G(RADING HELP/SUMMARY)"::"V(IEW SCORES)":"PS)":26:15:"CALCULATING NEW AVG.":42:ML:A%1:^ B$(H)"++"āO1P:A%(O,H)10C%(O,H):O: O1P:Q6:RC%(O,H):R0S10(1(R1)(R1)):24 N3:686:RA(H,5)S10(B(5)RA(H,5)):24 QQ1:RA(H,Q)18 RA(H,Q)S10B(Q):24DE !CLASS RECORDS A1.08E OVERLAYS 10-13-85, copyright (c) 1985 N500_B3:A%0ı/ 628:B%0:"CLR":2:5:"NOW ";::"CALCULATING";::" STD. SCORES.":CH:H1E:15:"CONVERTING EXAM NO. "H:10:H:HC:LM:684:15:"DROPPING "M" UNIT(     ^ưȭ氩L8ˍ`:)0Ĺ103,0:104,26:6655,0:(4);"RUN CLASS RECORDS,D1" :(4)"MAXFILES 1":588::G$(7):((798)73(799)137)Ģ2::(4);"BLOAD CLR DATA":798,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB L qr qʠ ʆ L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l 9 r륢H #h 40dNEF- ,00 *$,XǘP$,ȱ8# \ % ,;LLںLAYLAY.RM  { lݠ 5橴 l݅Ȅ  L 0.уȱ.у```0./ ꥃL8. K"ȱ.^ȱ._$J0 ^ЫK`  +._.^. LPUPRINT USING.RM { lݠ R % ک; ީ ڢ0 $. *媆 gݥ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8F:E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)+ (.Q..H.h$1+`,,,0 B``LvL HH 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g RG.ІF/GEFD$1 ީ I0 &ŔÄ'ĕнеȱаȱ,0 J= <`3SOUNDSOUND EFFECTS.RM FQP,0EQ,0`9ONERRONERR FIX.RM , ޥ8fإuvLSRTARRAY SORT.RM^ ^iȥ_ixA@ ./CBHH$1H+H1)L-+ ʤsLCTOUCLC TO UC.RM { lݠȱȱHh#)ha {)ߙ l݅ `ECLRCLEAR SCREEN.RM $ ީE ީO PL L LB LXEBEEPBEEP.RM6  <  L=ޥۤ jݪ +`GSWAPSWAP.RM ߅HH hE0hE0$0$0Hh`LvݼPROPERPROPER NAMES.RM { lݠȱȱHhP)hʄ^HA [i )? 詍 lݍ `,0:104,26:5::D$"MAXFILES3":12İ716:152007":@INPUT$STRING INPUT.RM  " ީ; = l݅ , LDRESETONERRRESET ONERR.RM^_<= 抠&<<i"=iLo LOFIXSTACKERR.RMhhߚHH 0:, jݪ + , DOOR":734!O777348!"OUT OF MEMORY.":5:698L!23::618:538V!746\!!D$"BLOAD CLR BPRINT":X$"P":H$"R"İ62:744!H$"S"İ6!D$"BLOAD CLR BGRADE":X$"G":/"608:1010,191:1011,157:1012,56:1014,88:1015,255:103R",255:8 54915:O(222):255::584:588:O254538E O5538 :10:O6ĺJ$" NOT FOUND,"::"OR SYSTEM DISK IS NOT IN DRIVE 1.":734 O9ĺ"DISK FULL -- USE ANOTHER DISK":734 O107İ698 !O0O16ĺ"ERROR IN DISK OPERATION - CHECKG$(7):A$(0)"RAW":A$(1)"STD.":D1$"":S00āO0S01:D1$D1$((800O)):OB1$"":S10āO0S11:B1$B1$((816O)):OC1$"":S20āO0S21:C1$C1$((832O)):OB(0)0:I14:B(I)I(I)::B(5)100"ONERR",718 "RESETONER5E14);:O15ĺO1);:176,"NAME";O14);RK13G1ĺ(K1(K10))G1);:180e"TAG";K12);J12G1ĺ(J1(J10))G1);:184"ID";J11);EL 1E:15:"CONVERTING EXAM NO. "H:10:H:HC:LM:684:15:"DROPPING "M" UNIT(1ĺ" ";WM;_:O1(J1K1(J10)(K10))(G1)25(E1))"EXAM# =";:QHN1:"PU",I$;Q;:Q:::" ":7E1)"THERE ARE "C1" NONZERO SCORES.":7E1)"OVERALL GPA="A1" WITH":7E1);:Q411:22E1);H(Q)" "(69Q);:Q:22E1);H(0)" F":10;:O411:O1(J1K1(K10)(J10))(G1)25(E1));(69O)"=";:" ";:QHN1:"PU",I$;A(Q,O);:Q:B2E1ĺ" "(10B(5O).5)10; N2:686::O:O1(J1K1(J10)(K10))(G1)25(E1))"WEIGHT=";:QHN1:RF(Q):596:;F(Q);:Q:B2E(AB(4Y)):" "(197G);:G0160W12(AB(GY))(B(G1Y)B(GY).001):(171((W11FAB(4Y))AB(5Y))173(W11FAB(1Y)));O1(J1K1(J10)(K10))(G1)25(E1))"MAX= ";:QHN1:"PU",I$;A(Q,5);:Q:B2E1ĺ" "(10B(10).5)G1J11466K$M$(I,2)" ":(K$)J11K$(K$,J11)LK$;J11(K$));d(1018)255Č1016jR11000ĭR1(R1).0999ĺ" ";B1B4V10(E1F10)ıAG(I).05001:Y0:B2B5Y5G12(AB(1Y))(AB(2Y))(AB(3Y))Ⱥ:N1:686:I:B3İ170)~E1ĺ(T1);:584>(E1)İ618:588D_K$L$:O11K$"":136|"LAY",M$(I,1)K$1,O115E1(I10));I"."I100);:U11(U10E11)į"PROPER",K$,K$K$" ";:G1K10K$L$:"LAY",M$(I,3)K$1,K1:K$" "; (B1));:B3ĺ" AVG."2pI1P:132:E1M11124brQHN1:B1C%(I,Q):B3B1(A%(I,Q)10.5)xtB10ĺL1);:122vB11ĺL11);"-";:122x"PU",I$;B1;zQ:P119(G(I)1000):R1(P1G(I).5001)P1:(B1B4)ĺE10)"=";R1;:150|%0E0)İ62:"CLR"#dB3İ6:"CLR"0fE1İ576Ph6E1);J$;:E1ĺ:::112j" --- "A$"SCORES"(13(E1));5);M" UNITS DROPPED":B3ĺ6);:I14:" "(64I)"="B(5I);:I:l162:172:QHN1:L1(B$(Q)));B$(Q);:Q:B2ĺ" TOTAL"n(13(H$):H(H$):N1H1M1:N1EN1ECVH1HEĺG$:M1M1O(B3):82kXB3G11:BB3:(H1I1EM1)H1M1xZE1İ620\EHD(4)OG1H1D(4)OG1^E1F1D(6):Y(F10):L1L1Y:I$I$(32Y):O1O15(F10)::586`"CLR":98:72b(B2BTANDARDIZED SCORES":::E%6:F$"MAIN":664:B072VLA$" RAW ":(B3B6)A$" STD. "NO((J1K1)L1):OO(O(J1K1)L1):M1M1O(B3):(EM1)H1:N1E:88PI1H1D(4)EH1O(B3)H1I1:632:78R"CLR":5:E0H0:N10:88 T616:670:H ARE:"::"NO STUDENT ID OR TAG:":G10:D11(E1):H1D(4):(EH1I1)H1I10J632:" 1. RAW SCORES":" 2. RAW SCORES W/TOTALS":" 3. STANDARDIZED SCORES"::"WITH STUDENT ID AND TAG:":" 4. RAW SCORES":" 5. RAW SCORES W/TOTALS":" 6. S(F(I)):J:I:M0E1āJ15:B(5J)B(5J)MA(1,J):J@I1E:J1P:A%(J,I)C%(J,I):J,I:A%0:26:42:I1P:G(I)10G(I):I:B%1:B! PRINT OUT DP1İ630FD11(C$"V"):E$"VIEW":632:E1E$"PRINT"GHF10:"CLR":5:"YOUR "E$" OPTIONSB(I)):A1A1ID(B1(1F)2I4)D(B1(1F)2):H(I)H(I)1:60Q 8I1II1:54j :G(O)0H(0)H(0)1 <O:C10:X04:C1C1H(X):X:A1(A1100C1.5)100:3>B2:660:W0:K0:I15:B(5I)0:I:I1E:WW(F(I)):J15:B(5J)B(5J)A(I,J)B$(Q)"++"))(C%(O,Q)0):Q:E1G(O)((B3)A%(O,1)(B2)A%(O,1)(F(1)))10:50q .B2G(O)(G(O)C(O))10:50 0G(O)((G(O)C(O))10)(ZM) 2O:B2ı 4X04:H(X)0:X:A10:O1P:I4:N3:686> 6(G(O).05001)B(I)B1(G(O)B(I))(B(I1)(Q)0)34 D%A%(O,Q):YQ) "Q:T040J $E(Y)UC(O)VD%U:U0:40 &UUE(Y):VVD%E(Y):TTE(Y):E(Y)0:U0T030 (O: *O1P:N3:686:G(O)0:V0:Z0:X1E:ZZ(F(X))(A%(O,X)0):X:MZ50P ,Q1E:G(O)G(O)A%(O,Q)(F(Q)( S10B(Q)(10(B(Q1)B(Q))(RA(H,Q))(A(H,Q1)A(H,Q).00001).5)W A%(O,H)S:O:s O1P:M0C(O)0:40 N3:686:I1E:E(I)F(I)(A%(O,I)0):I:T0:I1E:TTE(I)(E(I)0):I:UM:V0:MTUT D%10000:Q1E:(A%(O,Q)D%F(Q)0E13:M$(Q,X)M$(Q1,X):X:G(Q)G(Q1):X1E:C%(Q,X)C%(Q1,X):A%(Q,X)A%(Q1,X):X,Q:PP1:A%0:X13:M$(P1,X)"":X:X1E:C%(P1,X)0:X:"CLR":11:"THERE ARE NOW "P" STUDENTS.":23:618:2984"CLR":8:" (1-"P")":614:7:"STUDENT NUMBER: ";T$I)1:I(288d*"CLR":8:" (1-"P")":614:7:"NO. OF STUDENT TO DELETE: ";T$:C(T$):T$""ı{,C1CPİ612:298.15:M$(C,1)" IS STUDENT NO. "C".":5:"DELETE THIS NAME";:590:D1306,298,304,3040612:"CLR":3022660:QCP1:X:G$"MAXIMUM NO. OF NAMES REACHED.":618:f"7:"INPUT$","ENTER NEW NAME: ";M$(P1,1):M$(P1,1)""ı$12:M$(P1,1)" IS NOW STUDENT NO "P1".":5:"IS THIS O.K.";:590:D1294,288,292,292&B%0:A%0:PP1:M$(P,2)"":M$(P,3)"":E0āI1E:C%(P,:"IS THIS THE ONE YOU WANTED ";:590:D1284,272,282,282K612:"CLR":28019:4);"OLD "F$" ";M$(C,B):I2023:L$:I:20:"REVISED "F$;:"INPUT$"," ";N$:N$""284M$(C,B)N$:"NO. "C" IS NOW: "N$:23:618:272' "CLR":614:8:PH21ĺ262' B272,272,272,288,298,194,194,1940262NF$" NAME:":B2F$"ID:"aB3F$"TAG:""CLR":6:"RETYPE "F$:8:" (1-"P")":614:7:"STUDENT NO.: ";T$:C(T$):T$""ıC1CPİ612:272615:M$(C,1)" IS STUDENT NO. "C".":5NAME/ID/TAG CHANGES:":32,7::::"1. CHANGE A NAME":"2. CHANGE AN ID":"3. CHANGE A TAG"::"4. ADD A NEW NAME":"5. DELETE A NAME"::"6. ALPHABETIZE BY NAMES":"7. ALPHABETIZE BY ID":"8. ALPHABETIZE BY TAG":32,0: E%8:F$"PRECEDING":664:B0LBL ";:QX1Y1:L1(B$(Q)));B$(Q);:Q:::"MAX ";:KX1Y1:"PU",I$;A(K,5);:K::J411:(69J);3):KX1Y1:"PU",I$;A(K,J);:K::J:"WT ";:KX1Y1:RF(K):596:F(K);:K::"# OF UNITS DROPPED = D = "M:::"CLR":P1İ6304:"$))):(C21C2E)O$"D"ĺG$;:(37):868:10:2467"NEW LABEL FOR EXAM "C2" = ":"(3 CHARACTERS OR LESS)":20:25:"INPUT$",B$(C2):(B$(C2))3į"BEEP",40,50:20:252B$(C2)"++"F(C2)0"#"3);:QX1Y1:"PU",I$;Q;:Q::"D2C2:696:!A(C2,5)G2(G20)::"DROP HOW MANY UNITS: ";S$:M((S$)):684:MF2į"CLR":7:"ALLOWED DROPS = "F2:"DROP="M::"TOO MANY DROPS.":G$:M0:23:618O$" ":"ENTER EXAM NO. (1-"E"): ";:670:O$H$:O$""2501C2(((O:618 S "NEW MAX SCORE FOR EXAM "C2" = ";:"";Q$:G2(Q$):Q$""ĺG$:20:232 (G2)4G20ĺ"MAX SCORE MUST BE >3":(7):22:618: G20G2A(C2,4)ĺG$"NEW MAX LESS THAN 'A' BREAKLINE! OK";:590:R$"Y"ı G20G2A(C2,4)İ240::O$"W"İ224 O$"M"İ232, O$"L"İ252C O$"B"D2C2:696S O$" ":206` B1F(C2) "NEW WT. FACTOR FOR EXAM "C2"=";:"";P$:F(C2)(P$):P$""ĺG$:20:226 E20:I1E:E2E2(F(I)):I:684:(MF2)(ME2)ĺG$;"NOW TOO MANY DROPS!"OR":10:246:14:L$:13::O$""ı@ B%0:A%0:O$"D"İ242:206 13:L$:13:"SELECT TYPE OF CHANGE FOR EXAM #"C2":"::5:"B(REAKPOINTS)":5:"W(EIGHT)":5:"M(AX SCORE)":5:"L(ABEL)";:20:O$:"LCTOUC",O$,O$::O$(13)ı I1923:L$:I:20G%(0) C "CLR":L13:I$" ":E1ĺ"NO SCORES RECORDED":618:\ X11:Y1E:EB2208 7:A$" ":M1B2:E$"VIEW":616:670:X1(H$):Y1X11B2:X11ĺG$;:204 "CLR":Y1EY1E:H$""ı 258:614:684:13:"ENTER D TO CHANGE DROP NO., MAIN":664:B0186# B200,262,308, 186 "CLR":10:"NOW ";::"SORTING";::QB5:O1P:M$(O,0)(O)::A%0:B%0:F%(0)2:F%(1)Q:F%(2)1(Q1):"SRT",M$(1,0)M$(P,0)F%(0) O1P:C%((M$(O,0)),0)O::G%(0)1:G%(1)0:"SRT",C%(1,0)C%(P,0)A!CLASS RECORDS A1.08C OVERLAYS 9- 4-85, copyright (c) 1985J500\! FIX DATA "CLR":6:"YOUR C(HANGE/SUPPLEMENT) OPTIONS ARE: ":::6:"CHANGES:";:32,10:::"1. EXAM CONSTANTS":"2. NAMES/ID'S/TAGS":"3. SCORES":32,0::E%3:F$"     H$""D2E:10:17:E+ H$"R"H$"S"418B H$"R"(B%)İ740Y H$"S"(A%)İ740 676:O05:H%(O)B(O5(H$"R"O0)):O:O1P:J%(O)G(O).10001::424:660:422 D21D2Eİ612:406 O1P:J%(O)C%(O,D2)::424:660:O15:H%(O) A!CLASS RECORDS A1.08C OVERLAYS 9- 4-85, copyright (c) 1985J500c ! MAKE UP GRADES 628:"CLR":E10:10:17:E::10:"R = TOTAL RAW SCORES":10:"S = AVERAGE STANDARD SCORES":10:"WHICH EXAM NO.: ";:670:"LCTOUC",H$,H$:D2(H$):     HIT ";:662:" IF ALL IS O.K.)":I14:L$:I:L$;:19::10:"(ANYTHING ELSE TRIES AGAIN.)";:T$::T$(13)ıB%0:A%0:I2I21:368:ELNEW EXAM SCORES (EXAM #"E1")":7:"2. CHANGE BREAKPOINTS FOR EXAM #"E::7:"3. REENTER OLD EXAM"::7K20B$(I2)"++")((I(O)100)(K2).5):O:D2I2:H$"":O15:H%(O)A(D2,O):O:658:23:618:"CLR":614:7:"REPLACE WHICH EXAM NO.?";:670:H$""ıI2(H$):I21I2Eİ612:398m18:"EXAM "I2" ("B$(I2)") IS GOING TO BE REPLACED.":10:"(:"ENTER STUDENT SCORES:"::O1P\M$(O,1)": ";:"";W$:"LCTOUC",W$,W$:W$"Q"Ĺ34,0::zW$"0"C%(O,I21)0:396W$"-"C%(O,I21)1:396C%(O,I21)(W$):C%(O,I21)0C%(O,I21)(K2)ĺG$;:388]O:34,0:I2I21:O14:A(I2,O)("I21": MAX SCORE = "K2","::34,4::"CLR":B$(I21)"++"P$"0":F(I21)0:386|"ENTER WEIGHT FACTOR: 1";(8);:"";Q$:"LCTOUC",Q$,Q$:G2(Q$)(Q$""):5:22:G2:Q$"Q"Ĺ34,0::~(Q$"0"G20)Ģ5:G$;:380F(I21)G2:1:29:"WT = "G2 "INPUT$",F$:F$"Q"ıL vB$(I21)(F$,3):B$(I21)"++"V$"999":K2999:378 w10:5:"MAXIMUM POSSIBLE SCORE: ";V$:"LCTOUC",V$,V$:K2((V$)):V$"Q"ı xK20(K2)4ĺG$"MAX MUST BE >3":374MzA(I21,5)(K2):B%0:A%0:F(I21)1:1:"EXAM #60,360 j: lJ$"":, nI2E:368:EI2:a pI2J2į"CLR":12:698:"BEEP",40,50:23:618: rP1į"CLR":10:"NO NAMES IN FILE.":16:618: t"CLR":3:".........HIT Q AT ANY TIME TO ABORT":8:"THREE-CHARACTER LABEL FOR EXAM #"I21": ";:P:M$(O,2)"":O `34,0:Y bB1H21ĺG$:"MAXIMUM NO. OF NAMES REACHED.":618:PB1:352s d((B2B3)B1P)352 fB1B11:346 h:10:"'ALL NEW NAMES' CLEARS ALL DATA"::"IN MEMORY AND STARTS OVER."::::15:"IS THIS OK";:590:D1364,362,3R":"NOW ENTERING STUDENT ";F$;".":B11:" (ENTER ";:662:" TO TERMINATE.)"::O1P:M$(O,B)"":O::34,4:B1E0:M0 ZB2B3ĺ(M$(B1,1),12);" "; \F$"#"1(B110));B1": ";:"INPUT$",N$:CB1:M$(B1,B)N$:M$(B1,B)""354 ^B1PB11:O1:"4. ALL NEW NAMES (NEW FILE)":7:"5. ALL NEW ID'S":7:"6. ALL NEW TAGS":k JE%6:F$"MAIN":664:B0326 LB4P1ĺG$:326 ND2E:B366,696,398,338,338,338 P328 RBB3:B2F$"ID":344 TB3F$"TAG":344 VF$"NAME":360w X"CL E !CLASS RECORDS A1.08E OVERLAYS 10-13-85, copyright (c) 1985 WF! NEW DATA J H"CLR":5:"YOUR A(DD NEW DATA) OPTIONS ARE:":::7:"1. NEW EXAM SCORES (EXAM #"E1")":7:"2. CHANGE BREAKPOINTS FOR EXAM #"E::7:"3. REENTER OLD EXAM"::7    EXAM? ";:670:U$H$:Q1(U$):U$""308?>Q11Q1EĺG$;G$:312@22:L$:22:B1(C%(C,Q1)1):"OLD SCORE WAS ";(45B1);:B1ĺC%(C,Q1);B::L$;:22::"ENTER CORRECTED SCORE: ";O$:C%(C,Q1)(O$):A%0:B%0:O$"-"C%(C,Q1)1D312E:C(T$):T$""ı%6C1CPİ612:3088"CLR":5:M$(C,1)":"::"EXAM SCORE/MAX LABEL":J1E:" "J10);J;:YC%(C,J):8((Y)));:Y1ĺ"-";:316:Y;$<" /"A(J,5);:20:B$(J):J:::24:"(HIT ";:662:" IF DONE.)";:21::"CHANGE WHICH th 32 more free sectors. (DDMOVER does this automatically) If you boot a data disk by mistake, you will have to press . POKE 42348,22 POKE 44723,4 POKE 46922,96 Reset Trapping: Reset=RUN POKE 40286,102: POKE 40287,213 Reset goes to ONERR POKE If you hear about Diversi-DOS from your dealer, please pay him the extra $10. He earned it! You will then send $30 to DSR for the license and latest disk. Diversi-DOS POKE's After the following POKE's, INIT will initialize non-bootable "Data" disks wiversi-DOS. Apple requires that publishers obtain a license to distribute DOS 3.3 disks. For more information, call Apple License Dept. (408 973-4771) Diversi-DOS from clubs or dealers Clubs and dealers may charge a $10 distribution fee for Diversi-DOS. e Computers: Each additional computer license fee is $25, up to a maximum of $200 for all the computers owned by a company. Note: DOS 3.3 is a copyrighted program of Apple Computer, Inc. licensed to DSR to distributed for use only in combination with Di HELLO and ASMDIV, on their disk at no charge. The disk must be initialized with standard DOS 3.3. The user then has the option of adding Diversi-DOS to the disk, and sending the $30 to DSR, or using standard DOS without paying an additional fee. Multiplly use Diversi-DOS with other programs, you may send $30 directly to: DSR, Inc., 34880 Bunker Hill, Farmington, MI 48018. You will receive a Diversi-DOS utility disk with documentation. Alternatively, publishers may include the 2 Diversi-DOS files,0āO1W2:(42);:O:K%J488QJK%ĺ(W2E%3)(E%W2((IT2(J1)R2))));qJ:IJ%(L21)IJ%(P)1R2I:E1ĺ(T1);:584(E1)ľA$:A$ELERAGE STANDARD SCORES":10:"WHICH EXAM NO.: ";:670:"LCTOUC",H$,H$:D2(H$):U2T2:N1:686::E1ĺ5);zJ1K%:Z0I(J1)U2:Z10:V214:B1Z0H%(V2):Z1V2(B10(B1)T2):V2V24Z1:V2:(Z1)ĞZ0;(32(37Z1)(Z10));::W20J%(L%(J))I(J1)U2484W2W21:L%(J)1L2L%(J)L%(J)1:478K%K%1W21)(I%U22):O1K%:L%(O)0:QPL211:J%(Q)J%(P)(O1)U2(O1)(T21)L%(O)Q:QL21vQ:O:E1ĺ3);J$" ";:"... ";:D2ĺA$(H$"S");" SCORE OVERVIEW: MAX = "K2;:472"EXAM "D2" ("B$(D2)") MAX="A(D2,5);IJ%(P)J%(P)1RINT HISTOGRAM":32,0::22:F$"MAIN":E%4:664:B458,436,456,456H452]D15B:632:460|638:660:428:434:436:E1İ620660:I%J%(P)J%(L21)1:R222:E%13:E1İ582:446::R250:E%20\T21((I%1)(3R2)):U2R2T2:K%1(I%U2"H%(3)" C="H%(2)" D="H%(1):I)"OVERALL GPA="A1" WITH":I);:Q411:L17:RG(Q):596:G(Q)" "(69Q)",";:Q:4);G(0)" F":?E10::"CLR":5:"GRADING AIDS:":8:32,7::"1. CHANGE THE BREAKPOINTS":"2. EXAM SUMMARY"::"3. VIEW HISTOGRAM":"4. P:21::618:Q2144E11:620:576:436:(T1):586:E10;I7E1:I);C1" SCORES >0 IN: "J$", ";:D20ĺA$(H$"S")"SCORE OVERVIEW":450"EXAM #"D2" ("B$(D2)")"~I)"AVERAGE= "M2;5)"MEDIAN SCORE = "O2;5)"STD DEV = "N2:I)"A="H%(4)" B=EAK # OF":11:"GRADE POINTS STUDENTS":11:"----- ------ --------" O401:13:(70O(O0));:L18:RH%(O):596:H%(O);:RG(O):596:G(O):O::8:"EXAM GPA = "A1:P2Ė8:"(USING +/- GRADING)"5E10Ģ24:"(CTRL-P DUMPS SCREEN TO PRINTER)";((M2C1)10.5)10:B1(C11)2:O2(J%(B1L2.6)):~ :2:"EXAM #"D2" ("B$(D2)")";:D20ė:2:A$(H$"S")" SCORE OVERVIEW";E ::9:C1" SCORES >0":9:"AVERAGE = "M2:9:"MEDIAN = "O2:9:"STD DEV = "N2:9:"MAXIMUM SCORE = "K2::11:" BRA1QD(B1(1F)2Q4)D(B1(1F)2):G(Q)G(Q)1:Q1:Q:432X Q:J%(O)0G(0)G(0)1 O:C10:X04:C1C1G(X):X:A1(A1100C1.5)100:L2PC1:2 M20:A20:O1L2C1L2:M2M2J%(O):A2A2J%(O)J%(O):O:N2(10((A2M2M2C1)C1.5))10:M2A(D2,O):O* K2H%(5):428:434:436:452: "CLR":10::"SORTING";::" SCORES: ":G%(0)1:G%(1)0:"SRT",J%(1)J%(P)G%(0):B%0:A%0:"CLR":10 < X04:G(X)0:X:A10:O1P:Q411:J%(O)H%(Q)B1(J%(O)H%(Q))(H%(Q1)H%(Q).001):A1ist file to screen When you TLIST a text file, it displays on the screen. Hit to abort, or to pause. When you TLIST a BASIC file, you can specify a starting line (defaults to first line): TLIST PROG,L100 Then you can copy this line off You can use "?" instead of "=". Hit Y or N to pick the proper file. (Don't use "=" or "?" by itself) 9. Lowercase is accepted. 10. 3 additional DOS commands: PAD - Print "A" and "L" of last BLOAD C - Catalog (from keyboard only) TLIST filename - Lm line 100) 8. Wildcard File Names: Use "=" to avoid typing the entire file name. You get the first file in the Catalog which matches all characters before the "=". I.E. type RUN H= instead of RUN HELLO, if HELLO is the first file beginning with "H" .on't set any higher) HIMEM moves down for MAXFILES>3 4. Error messages print 5. Hit to abort a CATALOG 6. BSAVE without "A" and "L" after a BLOAD, for example: BLOAD BFILE BSAVE BFILE 7. RUN can have "L", i.e. RUN filename,L100 (runs frod RENUMBER need patches to work with 64K DOS. To patch them, EXEC FIX FID, or EXEC FIX RENUMBER. * NEW FEATURES * * 64K DOS * 1. CATALOG shows "Free Sectors" 2. Type INIT X to format non-bootable disks (with 32 extra free sectors) 3. HIMEM=48896 (drd. Use this file with CORVUS (after BRUN PATCH), or if you want to make the DOS move optional after the boot. You can BRUN DDMOVER from within a program without destroying the program as follows: 10 ?CHR$(4);"BRUN DDMOVER" 20 (continue program) FID an and press "D" to add 64K DOS to this disk. Menu option #7 will BSAVE the file, DDMOVER, onto your disk. If you added 64K DOS to your disk with option #2, then you don't need the DDMOVER file. However, BRUN DDMOVER will move 48K Diversi-DOS to the RAM canot be moved. You can avoid the move by hitting during the boot (IF PEEK(55)>190 then DOS was moved). Note: To INIT a blank disk to boot 64K Diversi-DOS, you must first INIT the disk with standard 48K Diversi-DOS (or DOS 3.3). Then use option #2,r language card) giving about 10K added memory. You will also have many new features! (see next section) 64K Diversi-DOS requires a 16K RAM card in slot #0 (Apple //e OK), and Applesoft ROM on the motherboard. If they are not present, Diversi-DOS will $(4);"BLOAD COPY.OBJ40" SAVE COPYA40 BLOAD COPY.OBJ0 POKE 770,40 POKE 863,40 BSAVE COPY.OBJ40,A$2A0,L$12B 64K Diversi-DOS Use option #2 and press "D" to put 64K Diversi-DOS onto your disk. When this disk boots, Diversi-DOS will be moved to a RAM card(oʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ` $B SPACEBAR WHEN READY. ";:A$:(A$)32140TRACK02 SEC j g R窘Ȋ R ސ Lvݥ % L  L  x  HX  +(`ʐ 8* L+4SOUNDSSOUND EFFECTS.RM FQP,0EQ,0`^_:+=,>-?C=B@B<88 0:A G  >P?Qh0K8><*?=+Be*@Ce+A<=<>@>?>@A@=?<>`ؠL,RWTSRWTS.RM   " ] L2L LTR015C BLKDOS256(16TRACKSECTR):"BLKMOV",BLK,BLK255,BUFFj "RWTS",2,TRACK,SECTR,BUFF,254,1,6u SECTR TRACK I14:(7);:BLKMOVMEMORY MOVE.RM$Hf g RP*Q+ $HL g RP,Q- $H02 g RPBQC*<(175)256(176)467dDOS24576:DOS1:$5FFFSnD$(4):D$"CATALOG,D1"gxBUFFDOS40963D$"BLOAD DOSS 64K":10:"INSERT DISK TO BE UPDATED TO 64K DOS."::"PRESS SPACEBAR WHEN READY. ";:A$:(A$)32140TRACK02 SEC!! ! ! ! 3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿuӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  ODLSAVBPILOCUNLOCIBPIBPIB` L IH  /JJJJ"L뷩 ᷩ췩 ɛ LD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~ hh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (FD Z $0x8x D- ܸDL\HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ <=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪV 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ```0' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō"" " " " " """""""""