8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RNEW.DISK}' ,BASIC.SYSTEM(*+*BASICS.ASM ,  (BIKE.LOG& a00+ *BINGO.DATA0e0# ,'CHECKIT5 6/ ϲ ,CUSTOM.BINGO=., *+DISK.DOCTORV M,  }-DISK.DOCTOR.S_?z, }9FRAMER, u"INVERSE, 0- 'NIBMENU 00&PRODOS }<n% SCRN.80L, N1SCRN.80.DEMOX, { SPACE.WEIGHTSI, SPLITU, { 'SPLIT.S9, { 'STARTUP ®3p.STARTUP.SCREENC 9`4? LG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLL !"#$%**************************** * BASICS.ASM Source Code * * by Sandy Mossberg * * COPYRIGHT(C) 1990 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 * **************************** * APW ASSEMBLER ScreenMode gequ $80 ;640x200 super hi-res mode ***************************************************************** * StartUp start * * Startup tool sets: * ***************************************************************** using GlobalData ; Startup first 2 tool sets: _TLStartUp ;----start Tool Locator pha ;space for result _MMStartUp ;----start Memory Manager jsr HandlErr PullWord MasterID ;save master ID ; Startup other tool sets: PushLong #0 ;space for result PushWord MasterID ;master ID PushWord #0 ;ptr is reference PushLong #SSRecOrig ;ptr to orig StartStop record ldx #$1801 ;----call StartUpTools jsl $E10000 jsr HandlErr PullLong SSRecFinal ;ptr to final StartStop record _InitCursor ;convert cursor: wait -> arrow rts ;................................................................ ; ; StartUp data: ; SSRecOrig anop ;original StartStop record dc i2'0' ;flag word must be zero dc i2'ScreenMode' ;640x200 super hi-res dc i2'0' ;set by StartUpTools dc i4'0' ;set by StartUpTools dc i2'TTSize/4' ;number of tool sets ToolArray dc i2'$03,$0300' ;Miscellaneous Tools dc i2'$04,$0301' ;QuickDraw II dc i2'$05,$0301' ;Desk Manager dc i2'$06,$0300' ;Event Manager dc i2'$07,$0200' ;Scheduler dc i2'$09,$0201' ;Apple Desktop Bus dc i2'$0A,$0202' ;SANE dc i2'$0B,$0200' ;Integer Math dc i2'$0C,$0201' ;Text Tools dc i2'$0E,$0301' ;Window Manager dc i2'$0F,$0301' ;Menu Manager dc i2'$10,$0301' ;Control Manager dc i2'$12,$0300' ;QuickDraw Auxiliary dc i2'$13,$0300' ;Print Manager dc i2'$14,$0301' ;LineEdit dc i2'$15,$0301' ;Dialog Manager dc i2'$16,$0300' ;Scrap Manager dc i2'$17,$0300' ;Standard File Operations dc i2'$1B,$0301' ;Font Manager dc i2'$1C,$0301' ;List Manager dc i2'$22,$0100' ;TextEdit TTSize equ *-ToolArray ;number of array bytes end ***************************************************************** * ShutDown start * * Shutdown tools sets: * ***************************************************************** using GlobalData PushWord #0 ;ptr is reference PushLong SSRecFinal ;ptr to final StartStop record ldx #$1901 ;----call ShutDownTools jsl $E10000 PushWord MasterID ;master ID _MMShutDown _TLShutDown rts end ***************************************************************** * HandlErr start * * Check for error and handle fatal error: * ***************************************************************** bcs FatalErr ;error detected rts ;no error on carry clear FatalErr pha ;error code in A reg PushLong #0 ;use default failure message _SysFailMgr ;die a horrible death end ***************************************************************** * GlobalData data * * Global program data: * ***************************************************************** SSRecFinal ds 4 ;ptr to final StartStop record MasterID ds 2 ;master memory ID of application end '()*+,-./+ RM 1 NJ NF NKPnSz| Trip | Trip | Trip | Avg. | Cum. | Tr ips| Trip ps| Tri ps| Tri ps, Trip description | Date | Miles| Min.| mph | mph | 0- 9.9| 10-1 19.9| 20- 29.9| 30  ++H9=|<=|9=|9=|9=|9=|9=9=|9=9=|9=9=|9=9=|| | | |:N@|IN@|7$@7$@|7$@?7$@?|7$@@7$@@|7$@@7$@@|| | | |:N@|IN@|7$@7$@|7$@?7$@?|7$@@7$@@|7$@@7$@@|| | | |:N@|IN@|7$@7$@|7$@?7$@?|7$@@7$@@|7$@@7$@@|| | | |:N@|IN@|7$@7$@|7$@?7$@?|7$@@7$@@|7$@@7$@@|| | | |:N@|IN@|7$@7$@|7$@?7$@?|7$@@7$@@|7$@@7$@@ !=|$=|!=|!=|!=|G======================================================================|!=!=|!=!=|!=!=|# ==================================!= TOTAL MILES:||| AVG. MPH IN RANGE: LN@ LN@ LN@ LN@123431 " Byte" "Eight bits" " BASIC" "Computer language used extensively on microcomputers" "Simulation" "Computer imitation of a situation or object" " Blaise Pascal" "Frenchman who made the first adding machine" " Herman Hollerith" "He used punched cards on his machine to tabulate the census" " ENIAC" "First electronic computer" " Mark I" "Electro-mechanical computer used from 1944 to 1959" " Grace Hopper" "She developed COBOL" " COBOL" "Popular computer language used mostly for business applications" " FORTRAN" "Developed to solve scientific and engineering problems" "Error in a computer program" "Bug" "Central Processing Unit" "CPU" "Misuse of computerized information" "Breaking into a computer system" " CAD-CAM" "Computer aided design and manufacturing" " Computer Graphics" "Drawings by computer" "The physical equipment of acomputer system" "Hardware" " Nanosecond" "One-billionth of a second" "The data reported by the computer" "Output" "Peripheral equipment" "Computer accessories - disk drive, printer, modem, CRT" " Software" "Computer program" "Computerized mail" "Sending messages via computer" " Cybernetics" "Relationships between men and machines" "Machine that closely simulates human behavior" "Robot" " K" "1024 bits" " RAM" "Random access memory" " ROM" "Read only memory" " Binary Digit" "Bit" "Communication lines that link computer systems" "Network" "Specialized terms and phrases" "Jargon" "Using small dots to represent characters" "Dot matrix" " Programmer" "Writes computer programs" 6789:;<. ********** NIBBLE PRD DISK **********[ * CHECKIT * * COPYRIGHT 1988 BY MINDCRAFT PUBL.CORP. *( * CONCORD, MA 01742 *2 *************************************' <:::"CHECKIT":"COPYRIGHT 1988 BY MINDCRAFT PUBL. CORP."0 F90\ PI0377:ML:CSCSML:::CS48127100 Z:"ERROR IN DATA STATEMENTS!":"PROBABLY LOCATED ON OR BEFORE LINE ";(123)(124)256: d216,0:768,0:H(3):H(0)1:H(1)16:H(2)256:H(3)40969 n6:"ARE YOU ENTERING A HEXADECIMAL":"FILE?";:A$:16368,0:A$d xA$"N"A$(110)İ370:34218,128:210 A$"Y"A$(121)110 768,1:10:958:"WHAT IS THE STARTING ADDRESS OF THE":"FILE (IN HEX)";:H$:290:AH2 A736A39424ĺ:"INVALID ADDRESS. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:140| 13:958:"WHAT IS THE LENGTH OF THE FILE":"(IN HEX)";:H$:290:BH B1B32000ĺ"INVALID LENGTH. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:160 :::34,1:2:"INSTALLING CHECKIT..."x A6144İ320:5799,(A256):5798,A256(5799):5801,(B256):5800,B256(5801):5802,0:230: ABOVE $1800 SOMEWHERE A6144İ370:34215,(A256):34214,A256(34215):34217,(B256):34216,B256(34217):34218,0:210: BELOW $1800 SOMEWHERE' (48896)76Ĺ56,0:57,133:1002:250B (4);"IN#A$8500":250l (48896)76Ĺ56,0:57,22:1002:250 (4)"IN#A$1600":250 :::34,1:2:"CHECKIT INSTALLED" (768)1ĺ:"ENTER THE MONITOR BY TYPING":" CALL -151"  Y"H0:L(H$):L1L4300:I1L:D((H$,I,1)):HHH(LI)(D48(D58D47)55(D64D71)):_,t6 $1600 VERSION@I0377:ML:5632I,ML:I:C5632JI018:ML:CML,(CML)111:T^21:"PRESS RETURN TO CONTINUE ";:CH$:CH$:16368,0:h $8500 VERSION5rI0377:ML:34048I,ML:I;| 216,32,27,253,201,154,240,31,201,141,208,26,134,224,32,178,133,32,251,218,32,128,254,56,165,8 229,9,32,218,253,32,132,254,166,224,169,141,96,32,106,134,44,170,133,16,43,169,1,133,6,169_ 8,133,7,160,0,177,6,133,251,200,177,6,133,252,240,63,200,177,6,32,79,134,200,177,6,32 79,134,165,251,133,6,165,252,133,7,208,221,173,167,133,133,7,173,166,133,133,6,160,0,177,6& 32,79,134,230,6,208,2,230,7,230,251,208,2,230,252,165,251,205,168,133,165,252,237,169,133,144 227,162,0,189,171,133,32,237,253,232,224,7,144,245,44,16,192,32,128,254,164,8,166,9,32,64 249,32,251,218,32,132,254,169,152,96,0,0,0,0,0,20,15,20,1,12,58,32,32,106,134,133> 6,169,2,133,7,160,0,177,6,201,176,144,73,201,186,176,69,177,6,44,170,133,16,53,201,210 208,4,166,251,240,61,201,162,208,8,72,169,1,69,251,133,251,104,201,160,208,6,166,251,208,25 240,26,201,191,208,19,132,226,160,0,185,117,134,32,79,134,200,192,5,144,245,164,226,176,3,32o 79,134,200,196,224,144,188,96,166,224,104,104,169,141,96,132,226,136,177,6,201,160,240,249,201,186 240,8,201,176,144,36,201,186,176,32,164,226,200,177,6,201,197,208,23,200,177,6,201,205,208,166 169,210,32,79,134,169,197,32,79,134,169,205,32,79,134,96,164,226,177,6,24,144,135,162,8,10 38,8,38,9,144,14,72,165,8,73,33,133,8,165,9,73,16,133,9,104,202,208,232,96,169,0 133,8,133,9,133,251,133,252,96,208,210,201,206,212 16,41,44,73,79,92,97,106,123,128,135,180,203,246,249,261,316,321,326 >?@ABCDEFGHIJKLMNOPQRSTU' ******************************M * CUSTOM.BINGO *s * BY TERRY BAYLOR *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 * F ******************************' P(21):BL$(7): BELLF ZD$(4):PD(((48896)76))a dNA0:BS$(8)" "(8) nDN1: DEFAULT DRIVE NUMBER xA$(100),B$(5,5),AC$(100),Q$(100) ***** MAIN MENU *****  6:"CUSTOM BINGO BY TERRY BAYLOR":"COPYRIGHT(C) 1990 MINDCRAFT PUBL. CORP."B 5:"1. ENTER NEW SET OF ANSWERS"\ "2. ENTER QUESTIONS" "3. REVIEW, DELETE OR ADD QUESTIONS" " AND ANSWERS (Q&A)" "4. SAVE Q&A TO DISK" "5. LOAD Q&A FROM DISK" "6. PRINT BINGO CARDS" "7. PRINT Q&A"0 "8. DELETE SET OF Q&A FROM DISK"[ "9. SET SLOT & DRIVE AND SEE CATALOG"l "Q. QUIT": "CHOOSE >>>";:C$:C$ C$(13)140 "C$"Q"C$"q"4440 ,C(C$) 6C(C)140 @C1C9140 JC1C9270# TC360,3810,1010,1560,1800,2340,3120,2030,3650, ^270P h ***** NEW ANSWERS INPUT *****h r:"WARNING!!":BL$ |"CONTINUING THIS ROUTINE WILL ERASE" "ANY Q&A CURRENTLY IN THE COMPUTER." "(BUT NOT THOSE STORED ON DISK)": "PRESS 'RETURN' TO CONTINUE OR"6 "OR ESC FOR THE MAIN MENU >>>";:C$:C$H C$(13)460Z C$(27)140c 370l NA0 X1100:Q$(X)"":X  NANA1 :3560:NA100ė:20:"YOUR INPUT HAS REACHED 100 ITEMS!!"::X115:BL$:X:X11000:X:140-"THE SCREEN DISPLAY WILL SHOW HOW THE"U"ANSWER WILL APPEAR ON THE CUSTOM"{"BINGO CARD PRINTOUT."::3560:&"PRESS 'RETURN' TO TERMINATE INPUT."0"PRESS 'ESC' TO RETURN TO THE MAIN MENU."::"ENTER ANSWER #";NA:13D THE INPUT BOX!N:X116:" ";:X:EXX14:" ";::14);::" ":X^bX116:" ";:X::l33,14:32,1: RESET TEXT SCREENv14:1BS$(8)" "(8): BACKSPACE680A$(NA)X$:820 INPUT ROUTINEX$""W$:(X$)56āX15:BL$;:X:730$W$(34)780AW$(27)NANA1::140_(W$)32(W$)126790qW$(8)770X$""ĺBL$;:690(X$)1X$"":BS$;:690X$(X$,(X$)1):BS$;:690W$(13)ı BL$;:690W$;:X$X$W$:(X$)53ĺBL$; 6905* **** INPUT VERIFICATION ****c433,40:32,0::33,14: RESET TEXT SCREENm>::H"ANSWER # ";NA::RA$(NA)::\33,40f3560:p"(RETURN) >> ACCEPT THIS ENTRY AND GET"z" READY TO INPUT THE NEXT" " ANSWER":@"(R) >> REDO THIS ENTRY":n"(M) >> ACCEPT THIS ENTRY AND RETURN TO"" MAIN MENU":3560"CHOOSE>>>";:C$:C$(C$)13480C$"R"C$"r"ė:500C$"M"C$"m"140X13:BL$;:XX:"CHOOSE 'RETURN' OR 'R' OR 'M'"::"PRESS RETURN TO CONTINUE";:RT$:RT$:820 ***** REVIEW AND EDIT ANSWERS *****3560:"1. REVIEW Q&A":"2. DELETE Q&A":$"3. ADD MORE ANSWERS":."4. ADD MORE QUESTIONS":$8"5. RETURN TO MAIN MENU":.B3560WL15:1:"CHOOSE>>>";:C$:C$:C(C$)iVC$(27)140{`C1C51100b((C1C2)NA0)Ģ20:"NO ANSWERS IN MEMORY":"PRESS RETURN TO CONTINUE";:RT$:1020jC1140,1320,480,3810,140t ***** REVIEW OR EDIT AN ANSWER *****$~03560:S"ENTER THE NUMBER OF THE Q&A"|"BE EDITED OR AN 'A' TO REVIEW ALL""Q&A.":35601:9:"CHOOSE>>>";C$C$"A"3400(C$)(NA)(C$)0Ė1:11:"NO ANSWER WITH THAT NUMBER":1210:33,14#"ANSWER #";C$8A$((C$)):::C33,40Z"QUESTION #";C$:o Q$((C$)):::"PRESS RETURN TO CONTINUE";:C$:1010( ***** DELETE AN ANSWER *****2:3560:<1:3:"ENTER THE NUMBER OF THE Q&A TO DELETE"-F"OR 'M' TO RETURN TO THE MAIN MENU"=P">>";:AD$NZAD$"M"140d(AD$)(NA)(AD$)0AD$"0"Ė1:7:"NOT A VALID NUMBER":1340n:33,14:AD(AD$)x"ANSWER #";ADA$(AD):33,40:3560:"QUESTION #";AD:Q$(AD):::3560A"ENTER A 'D' TO CONFIRM DELETION ";:C$:C$SC$"D"1010bXADNA1A$(X)A$(X1):Q$(X)Q$(X1)XQ$(AD)""NANA133,40:"DELETION COMPLETE":X1500:X1010 ***** SAVE Q&A TO DISK *****":3560:?,"ENTER THE NAME OF THE FILE TO BE SAVED"g6"OR RETURN TO GO TO THE MAIN MENU"@"OR 'C' TO CATALOG THE DISK"J">>>";:C$TC$""140^C$"C"C$"c"ĺD$("CATALOG",74PD):"ANY KEY TO CONTINUE";:C$::1570hC$""1570r:3560:3|"SAVING "C$" TO DISK"::=3560H2240XD$"OPEN"C$iD$"WRITE"C$qNA}X1NA ENCLOSE Q&A IN QUOTES(34);A$(X);(34)(34);Q$(X);(34)XD$"CLOSE"140 ***** LOAD FROM DISK *****:3560:E"ENTER THE NAME OF THE FILE TO BE LOADED"m&"OR RETURN TO GO TO THE MAIN MENU"0"OR '?' TO CATALOG THE DISK":">>>";:C$DC$""140NC$"?"ĺD$("CATALOG",74PD):"ANY KEY TO CONTINUE";:C$::1800X:3560:b"LOADING ";C$:"l3560-v2240=D$"OPEN"C$MD$"READ"C$UNAaX1NAlA$(X)wQ$(X)~XD$;"CLOSE"216,0: RESET ERROR FLAG140 ***** FILE DELETION *****:3560:2240$ "ENTER THE NAME OF THE FILE TO BE DELETED"L"OR RETURN TO GO TO THE MAIN MENU"n "OR 'C' TO CATALOG THE DISK"*">>>";:C$:C$""1404C$"C"C$"c"ĺD$("CATALOG",74PD):"ANY KEY TO CONTINUE";:C$::2040>:3560:H"PRESS 'D' TO CONFIRM DELETION OF THE"/R"FILE NAMED ";C$;" ":A$@\A$"D"2160If140Tp2240bz:3560:}"DELETING FILE ";C$:3560D$;"UNLOCK";C$;",D";DND$;"DELETE";C$;",D";DN216,0:140 ERROR ROUTINESY(222)"ERROR DETECTED"1Y4ĺ"DISK IS WRITE PROTECTED":2320UY0ĺ"OUT OF DATA ERROR":2320~Y6ĺ"FILE OR PATH NOT FOUND":2320Y8ĺ"I/O ERROR":2320Y9ĺ"DISK FULL":2320 Y10ĺ"FILE ALREADY EXISTS AND IS LOCKED"  :"PRESS RETURN TO CONTINUE";:C$:  216,0:140B $ ***** PRINT BINGO CARDS ***** . NA0ė:"NO ANSWERS IN MEMORY":20:"PRESS RETURN TO CONTINUE";:RT$:RT$:140 8 :10:S$"":FS$"" B 3560: L "BINGO CARD PRINTOUT"::!V "ENTER THE TITLE TO BE PRINTED ON EACH"2!` "BINGO CARD OR ESC FOR THE MAIN MENU":>>";:T$:T$!~ (T$)70ĺ"TITLE TOO LONG (MAXIMUM 70 CHARACTERS)":2390! T$(27)140! :10! 3560:! "EACH CARD WILL BE MADE UP INDEPENDENTLY."" "IF THERE ARE FEWER THAN 24 ANSWERS"?" "CURRENTLY IN THIS SET OF INPUT, ANSWERS"m" "WILL BE REPEATED TO FILL ALL 24 SPACES"" "ON A CARD.":" 3560" "HOW MANY CARDS DO YOU WANT PRINTED?"" ">>>";NC" NC1140" :10" 3560:# "CUSTOM BINGO PRINTS TWO CARDS TO"2# "A STANDARD SHEET OF PAPER."_#( "MAKE SURE THE PAPER IS POSITIONED AND"#2 "THE PRINTER IS TURNED ON."::#< "PRESS RETURN TO CONTINUE OR ESC FOR"#F "MAIN MENU";::3560#P "CHOOSE >>>";:A$:A$#Z A$(27)140'$d X156:S$S$" ":X: SPACES FOR TABBINGS$n FS$"FREE FREE FREE": FREE SPACE SETUPk$x FS$FS$FS$FS$FS$w$ A1NC$ :"GENERATING CARD #";A:$ GENERATE PRINTOUT ARRAY B$(5,5)$ 3590: SETUP CHOICE ARRAY AC$(X)$ R15$ C15% CHECK FOR FREE SPACE4% R3C3B$(R,C)FS$:2840m% RN((1)CH1):(AC$(RN))56B$(R,C)AC$(RN):2800~% Q$(X):::% B$(R,C)AC$(RN)(S$,56(AC$(RN))): FILL BLOCK WITH ANSWER AND SPACES & REPLACE CHOSEN ANSWER WITH THE LAST ELEMENT IN THE ARRAY& AC$(RN)AC$(CH)G& CHCH1: DECREASE NUMBER OF CHOICESW& CH0İ3590^& Ce&" R&, 10:"PRESS 'ESC' TO INTERRUPT PRINTING"&6 PRINT THE CARD&@ D$"PR#1"&J (9)"80N"&T : TOP SPACE&^ 31);"CUSTOM BINGO"'h T$: TITLE'r 31);"CARD #";A+'| 3570: ASTERISKSH' BR15: ROWS OF BLOCKSh' R14: ROW WITHIN A BLOCK' C15: COLUMNS OF BLOCKS' PRINT ONE ROW OF TEXT IN EACH BLOCK' "*";(B$(BR,C),(R1)141,14);' C' X(16384): KEYBOARD CHECK$( X127Ĺ16368,0::D$;"PR#0":140=( "*": LAST * ON ROWD( RY( 3570: ROW OF *a( BR( :: SPACING BETWEEN CARDS( PREP FOR NEXT CARD( D$;"PR#0"( A(& 140(0 ***** PRINT Q&A *****(: :10(D 3560:)N "TURN ON PRINTER.":2)X "PRESS RETURN TO CONTINUE OR 'M' FOR"F)b "MAIN MENU.":P)l 3560i)v "CHOOSE >>>";:A$:) A$"M"A$"m"140) :3560:) "ENTER THE TITLE FOR THESE ANSWERS") ">>>";T$) D$;"PR#1") (9);"80N") "ANSWERS FOR ";T$::@* "CHECK OFF THE NUMBERS TO THE LEFT AS YOU USE THE ANSWERS."L* X1NAo* "1 2 3 4 5 >>>";X;". ";A$(X)* 17);"QUESTION --> ";* LQ(Q$(X))* XX1LQ* (Q$(X),XX,1);* XX49(XX49)ĺ:30);* XX* :** X*4 D$;"PR#0"+> 140++H DISPLAY ALL ANSWERS ON SCREEN3+R X1@+\ :33,14X+f "ANSWER #";X:::p+p A$(X)::::33,40+z "QUESTION #";X:+ Q$(X):+ 3560+ "PRESS RETURN TO CONTINUE OR 'M' FOR"+ "THE EDIT MENU":C$:+ C$"M"C$"m"1010, XX1, XNA1010, 3420<, ***** SUBROUTINES *****], ROW OF ASTERISKS FOR MENUSx, XX139:"*";:XX::, ROW OF ASTERISKS FOR BINGO CARD, X176:"*";:X::, SET UP ANSWER CHOICE ARRAY,X1NA,AC$(X)A$(X),$X-.CHNA -84-B RESET THE SLOT AND DRIVE NUMBERB-L:3560:j-V"SELECT SLOT NUMBER (2,5,6 OR 7)";-`SN$:SN$:SN(SN$)-jSN2SN5SN6SN73660-t5:1:"SELECT DRIVE NUMBER (1 OR 2)";-~DN$:DN$:DN(DN$)-DN1DN23700.3780/.D$("CATALOG",74PD)",S"SN",D"DNM.PDĺD$"PREFIX,S"SN",D"DN.216,0:"PRESS RETURN TO CONTINUE";:RT$:RT$.140.216,0:21:"DISK ERROR. PRESS RETURN TO CONTINUE";:RT$:RT$:3660. THE END.D$"CLOSE"::/ QUESTION INPUT/:NA03860E/"NO ANSWERS IN MEMORY. ANSWERS MUST BE"`/"ENTERED FIRST.":BL$/ "PRESS RETURN TO CONTINUE";:X$:X$:140/3560:/"QUESTIONS TO BE USED WHILE PLAYING"/("CUSTOM BINGO MAY NOW BE ENTERED."02"THE CORRESPONDING ANSWER WILL BE"D0<"DISPLAYED BEFORE QUESTION INPUT."::3560o0F"ENTER THE NUMBER OF THE QUESTION TO"0P"INPUT OR RETURN FOR THE MAIN MENU."0Z">>>";C$0dC$""1401n(C$)(NA)(C$)0ĺ"NO ANSWER WITH THAT NUMBER.";BL$:X1500:X:38101xQN(C$)1:33,1431"ANSWER #";QN:E1A$(QN):::P133,40~1"ENTER THE QUESTION THAT CORRESPONDS TO"1"ANSWER SHOWN ABOVE (80 CHARS. MAX)":1"OR PRESS (RETURN) TO LEAVE THIS"1"QUESTION BLANK"1 INPUT ROUTINE240802Q$(QN)X$:4200#2X$""F2W$:(X$)80ĺBL$:BL$:4120Y2W$(34)4170x2(W$)32(W$)12641802W$(8)41602"X$""ĺBL$:40902,(X$)1X$"":BS$;:409026X$(X$,(X$)1):BS$;:40902@W$(13)ı3JBL$;:4090#3TW$;:X$X$W$:(X$)250ĺBL$-3^4090T3h **** QUESTION VERIFICATION ****a3r:33,14t3|"ANSWER #";QN3A$(QN):333,403"QUESTION #";QN3Q$(QN)335603QN(NA)ĺ"LAST ANSWER":::4320 4"(RETURN) >> ACCEPT THIS QUESTION AND")412);"GET READY TO ENTER"G412);"QUESTION #";QN1:j4"(R) >> REDO THIS QUESTION":4"(S) >> ACCEPT THIS QUESTION AND THEN"48);"SELECT ANOTHER QUESTION":4"(M) >> ACCEPT THIS QUESTION AND RETURN" 58);"TO THE MAIN MENU"::3560!5"CHOOSE>>>";C$35QN(NA)4400L5&C$""QNQN1:3970d50C$"R"C$"r"3970|5:C$"S"C$"s"38105DC$"M"C$"m"1405NBL$:4200 6X19:"ALL QUESTIONS IN MEMORY":"WILL BE ERASED."::"ARE YOU SURE? (Y/N)";:RT$:RT$"Y"RT$"y"ė:6b140WXYZ[\]^L PRODOS DISK DOCTOR BY MICHAEL E. ANDERSON (C) 1990 MINDCRAFT PUBL. CORP. ݬݬݬݬݬݬݬݬҠĠɭ֮=堨򠲩ߤߤ련ƩߤɯϠϠŠ٠Π٠Ω٠Š٠Ωɠؠˍ렭렭堭ɠ؍렭렭堭þߠþߠԠ卼קӾߠؠɠԍӠ٠ٺ٠Ω٠Ω   wL "% X$ "  L&  L>= LS   ɠ Ls   LP "%$ "P #`%$ ""#K!` L X   LȌ LLD$% " 2LɎ!ɑ!Ƀ!Ɍ!ɒ!ɗ!ɐ!Ʌ!Ɂ!` ` 0` ` ` ` O` K` ` {`  X  LX  L,  L L w`%$ "} L ɛ ) L `  `  `H 7`98 7`9 7`Hi3 7`ɍ@ɠ<8  7)  7 ) `)`9 7 ɛɁ/ɕɈɋɊ kL` L :L NL zL { 7L9 7 ɛɁ9ɠɕɈɋɊ }L0` L0 L0 L0 NL0 zL0 { 7L0ɰɺ `)ǰ `)i L) " ) `) ` )m  7  7`)m 7  7` ɠ 7 LD 7 LD` 8 7`i 7` i 7`8 7``  7`3iH 7` 3 7`89 7`  7` 7`$% "`6789%$ " LrLE ɛ)L  L      L  L  N     6789 `%$ "f  L\ ) `  `%$ " `  w`LL  w` w`LL  w`= L`1Lh ɱɳ `hhL ` ɛɰɸ m`hhL ɛɰɺ ) Lj)ǰ )i Lj m m` `$% " X(:.  LP  L ɛ) L 0L:  LL%$ " L= ɛ ) LK `hh"#P! XLP!%K$ "   K!%$ " X | >  L  L| | 8 L!L* L L| iiL| ``abcdefghijklmnopqrstuvwxyz{|}~ ˮ Ů Ԩé ̮ Ю Ĭ ǠРԠ 􍍪 Ԡՠ Рՠ ͠ՠ ڠՠ Ԡՠ ̠ՠ Ƞՠ ̠ՠ Ƞՠ 卍Šՠõ ؠՠ ҠՠĠ ıՠİà ɠՠư àՠİ  ՠò ̠ՠùà ԠՠŹ Ơՠ Ʋՠ 򍍪 ұà Ů Ǡàé ̮ Ю čà ݬݬݬݬݬݬݬàݬ Ҳàɭ֮ Ҳàˢč ҳà ߤà ߤà ƩߤDZ ĸčàɯ ҢDz ĸčà ĢǠ ĸčà ΩDZà ΩDZà ǠàˢǠ čà à 뢬čà 򢍠à 뢬čà à 뢬č DZà à Ӣà آčà à 뢬čà à č Dzà à čà 碍àčà 󢍠à čàþ 򢍠à 墬č dzàþ à 墬čàקӾ 򢍠à Ԣč čà ٺ Ǡà Ω Ǡà墍Ǡà Ω ͠  ұ  Ҳ    箍  箍٠  ٧ 箍Ԡ  Ġ  Ġ  Ƞ  Š  Ҡ  Š  Š  ⩍Ӡ  Š  ⩍Ϡ  Š  Ӡ  Ӡ  Ӡ  Ӡ Ӡ  Ӡ Р     ͠  Ơ נ  Ƞ  卍 ԠҠΠ ҠŠ Ҡˠ 덍РŠ Π ҠŹ ɯ 쮍ԠР Ԡ 򮍠ҠŠ ڠ 򮍠Ҡ  ٠ бұ٠獠Р 占ѠԱҠҠ٠ 򮍠Рб 򮍍ԱĠ殍ҠҠҠҍ٠ DZǬ٠獠ҠҠ٠ 占ѠDz٠ 򮍠РDZ 򮍍DzĠҠҠ􍍠ؠ гàҠҠ Ҡؠؠ ؠѠԳ 占Рг ԳàҠҠ槽 占͍ҠŠ ٠ еҲ٠獠Р 占ѠԵҠҠ٠ 򮍠Ре 򮍍Ե槽 占͍ҠŠ ٠ жҲ٠獠Р 占ѠԵҠҠ٠ 򮍠Рж 򮍍Ե槽 占͍ҠŠ Р Ԡ 򮍠ڠ Ҡ  槽 占͍ҠŠ ͠ Ӡ 򍍪 ĠԠ 򮍠ڠ 򮍠Ҡ  Р ͠ Ԡ Ӡ 򍍪 箧 ŠҠĠ 䮍ؠ 򮍠 İұؠ򮍠ؠѠ֠ ﮍؠ 򮍠Рİ 򮍍֠ҠŠ ıĠ殍ҠҠ٠ұ 獍IJҳ٠獠٠ Р占Ѡ΍ҠҠРIJ 򮍍Π٠ұ 獠٠Ҳ 򮍠ٍ٠Ҳ 򮍠ҠԱ٠Ҳ 򮍠٠ ѠԶРıԶà 덠 נ 卍РŠ 􍍪 Šڠ 򮍠Ԡ 򮍠Ҡ  Ҡı 䍠Ҡ͠ 䍠РŠ 卍 ͠РŠ΍ѠˍРэѠˍРÍѠЍРà̍ѠˍРҍѠōР׍ѠōРЍѠԍРōѠԍРѠЍӠ 卍ˠҠ 덠Ӡ ˠҠԠ ㍠ӍРҠŠ 占Ӡ ˠҠˠ 덠Ӡ ŠҠӠ 덠Ӡ ŠҠŠ 덠Ӡ ԠҠԠ 덠Ӡ ԠҠԱ 덠Ӡ РҠР Ӡ 卍 РҠĠ ҠŠ ؠ бǬؠ獠Р 占Ѡвؠ 򮍠ҠҠРб 򮍍вؠ гDZؠ獠Р 占Ѡдؠ 򮍠ҠҠРг 򮍍дؠ еDzؠ獠Р 占Ѡжؠ 򮍠ҠҠРе 򮍍жؠ жdzؠ獠Р 占Ѡзؠ 򮍠ҠҠРж 򮍍зҠı 䍠Ҡˠ Ӡ 򍍪 ԱԠ 򮍠ōڠ 򮍠Ҡ  ؠ ĠDZؠ獠ҠҠؠ 占Ѡıؠ 򮍠РĠ 򮍍ıҠı 䍠Р ÍѠIJĠƠ 占Рñ鍠ѠijРøȧѠĴРı IJҠұ 占Ӡ ijҠұ 占Ҡ٠ 占Ӡ ĴҠұ 占ҠԱ 占Ӡ 卍 נؠŠ ⍠ؠ 占ѠױàŠ 占àӠ 䍠àӠ 占àӍàϠ 占ҠӠ Ӡ ױؠ 占ؠŠ ⍠ϠÍàƍϠ 䍠Ӡ ҠӠ Ӡ 򍍪 נؠŠ ⍠ؠ ѠױàōàӠ àӠ 占àӍàϠҠӠ Ӡ ױؠؠŠ ⍠ϠÍàƍϠ 䍠Ӡ ҠӠ Ӡ 򍍪 ٱРĠ捠ѠٲР 占àٲРƠ 占ӠٲŠ 箍ҠҠŠ ⍠Ӡ Ӡ Š ⍠ҠӠ Š 箍ĠƠ 鍍Ҡؠ 䍠Ӡ Š ⍠ҠӠ Š Р ѠٳŠ ĠƠ 鍠ؠϠ Ʋؠ ٲӠ ٳŠ ĠƠ 鍠ؠϠ Ƭؠ 썠Ӡ 򍍪 ٠ 䍠Š ⍠ 䍠Ӡ 䍠Š ⍠ ϠҠӠ 󮍍˱Ҡı 䍠Р ÍѠ˲РȍѠЍР Ѡ˳Р Ѡ˴Р  Ѡ˵Р Ѡ˶Ҡٱ 占Р˱ ˲Ӡ ˳Ҡנ 䍠Р˱ ˴Ҡנ 䍠Р˱ ˵Ҡנ 䍠Р˱ ˶Ҡנ 䍠Р˱ РҠР ҠӠ 󮍠Р˱ ԱŠ ⍠ Š ⍠ Ӡ Ӡ ϠҠӠ 󮍍ԲҠı 䍠Р ÍѠñРѠЍР ѠР Ѡ׍Р Ѡ׍Р  Ѡ׍Р Ѡ׍ҠŠ 卍РԲ ÍñӠ ҠҠ 占РԲ נҠנ 占РԲ נҠנ 占РԲ נҠנ РԲ נҠנ РԲ РҠР ҠӠ 󮍠РԲ ŠР°àµ ፠Р Ӡ± ፠ҠɍӠ ±ĠƠ 占РñൠР÷ǧӠµ 占Ҡ µӠ 򍍪 ÍĠƠ 占à Р̱ɠĠƠ 卍̱ؠӠ ؠ 占Ѡ  卍̠ 占̍̍̍ Š 􍍠ؠ 占Ѡα 荠àŠ ⍠àӠ ؠϠ ٠Š ٠ Ѡб Ʋؠ Ġư 占ҠР Ӡ бƬؠ Ġư 占Ҡб Ӡ αؠϠ ٠Š ٠ Ѡв Ʋؠ ĠƠ 卍РÍàŠ 占Ʋؠ 쮍ҠӠ 󮍠Ҡؠ􍍠Ҡˠ 䍍ҠӠ Ӡ вƬؠ 占ĠƠ 卍бÍàŠ 占Ƭؠ 썠ҠӠ 󮍠Ҡؠ􍍠Ҡˠ 䍍ҠӠ Ӡ 򍍪 ˠ٠Š ⍠٠Ӡ ٠Ӡ ٠Š ⍠ 썍 鍠Р 占àҍРƠ 占ӠҍҠӠ 󮍠ҠҠРĠ ҠŠҠӠ 󮍠ҠҠРĠ Ġ٠Ӡ ٠Š ⍠ 썠Ӡ 򍍪 נҠӠ 占Š ⍠Р ѠбϠ Íà Ϡ àŠ ⍠ҠӠ 󮍠Ӡ б Š ⍠ϠÍàư ϠҠӠ 󮍠Ӡ 򍍪 נҠӠ 占Š ⍠Р ѠαàŠ ⍠ϠÍàϠҠӠ 󮍠Ӡ α Š ⍠ϠÍàư ϠҠӠ 󮍠Ӡ 򍍪 ӠӠ Р 荠ѠȱàŠ ⍠àӠ ȱӠ 򍍪 נҠӠ 荠Š ⍠РѠàϠàŠ ⍠àōàōàӠ ҠӠ 󮍠Ӡ Š ⍠ϠÍàƠ ϠӠ ҠӠ 󮍠Ӡ 򍍪 נҠӠ 荠Š ⍠РѠàϠàŠ ⍠àōàōàӠ ҠӠ 󮍠Ӡ Š ⍠ϠÍàƠ ϠӠ ҠӠ 󮍠Ӡ ҠӠ Р 占ѠàŠ ⍠àӠ ҠӠ 󮍠Ӡ  àŠ ⍠àӠ ҠӠ 󮍠Ӡ 򍍪 Ӡ Š ⍠ڠ Š ⍠Ԡ 򮍠Ҡ  󮍠Ӡ 򍍪 Ԡ̠ Ӡ Ƞ 荠Ӡ ̠ Ӡ Ƞ 荠Ӡ Š Р 􍍠Ԡ čڠ Ҡ  ؠ ԱǬؠ獠ҠҠؠ 占ѠԲؠ 򮍠РԱ 򮍍ԱР߱ԲҠı 䍠Р ÍѠԱĠƠ 占РŠΧѠԱРĹ٧ѠԳРԲ ԳҠұ 卍 ҠԠ 󍍠ؠ ǠҲؠ獠ҠҠؠ 򮍠ؠ 占ѠDZРǍDZ占ҠҠҠҠȠ 덠Ҡؠנ 덠ҠؠĠ殍ҠҠ􍍠͠槽 占ҠŠ ؠҠàҠҠؠѠұҠؠؠ РҠ ұ͠槽 占ҠŠ ؠ ҲҲؠ獠ҠҠؠѠҳؠ РҲ 򮍍ҳ͠槽 占ҠŠ Š Ġ殍ҠҠō͠槽 占ҠŠ Ġ殍ҠҠ􍍠ҠΠ 􍍠Ġ殍ҠҠ Š ҠΠ 􍍠Ġ殍ҠҠ 殍Ӡ ̍Ӡ 荠ȍӠ ̍Ӡ 荠ȍ߱Ҡұ 占Р Š Ӡ 򍍪 ŠԠ 򮍠Íڠ 򮍠Ҡ  ٠ ҠDZ٠獠Р 占ѠұҠҠ٠ 򮍠РҠ 򮍍ұҠı 䍠ĠƠ 占РĹ٧ѠҲҠұ 占Ӡ ҲҠұ 占 占נ ҠŠ 占נ Ӡ ұԠ 򮍠ڠ 򮍠Ҡ  Ҡ̠ 占Ӡ 򍍪 ӠҠŠ 占Ҡˠ 덠Ӡ 򍍪 ˠנ 덠Р Ѡ± 荠à׍Р̠ 덍±ƍנ àȠ Р̠ 덍 ŠŠ Р Ѡв Š Ҡˠ 占Ӡ в Š Ҡˠ 占Ӡ 򍍪 נ 占РƠ 占Ѡˠ à׍Р̠ 덍ˠ 占נ 占àȍР̠ 덍 ̠ҠŠ 덠Š Ҡˠ 덠Ӡ 򍍪 Š٠ Ġ ̱ҠҠ٠ ٠͠槽 ѠԱР̱ ԱӠ 򍍪 Ա٠Ѡ֠ ٠ѠԠ Рˠ ֠٠٠ ٧ 箍Ҡı 䍠Р±àҠ 占Р³ӠҠ 占٠٠ ٧ 箍àƠ Р 占ѠԱҠؠؠ ؠ͍Ӡ 򍍍Ҡ 덠РŠ ԱҠؠؠ ؠ͍Ӡ Ԡ٠٠ ٧ 箍ҠҠı 䍠Р ÍѠҍР°àҠ 占Р¸ӠҠ 卍٠٠ ٧ 箍àƠ Ҡؠ̠ 󮍠̍̍̍à à͠ 򭍠͠퍠Ӡ Ҡ 덠РŠ ˠؠ ˱Ҡı 䍠Р ÍѠҠ Р° à˲Р Ӡ˳ҠҠĠƠ 占Ԭؠ ؠ 򮍠ؠ 򮍠Ѡč˲Р˱ ˳ĠƠ 占Рñ à˲Р÷ ƧӠ˲ҠҠĠƠ 占Íà Ԭؠ ؠ 򮍠ؠ 򮍠ѠčР˱ ĠԠ ̠ 占̍̍̍ÍàĠ Ƞ 덠Ġ ̠ 占̍̍̍ÍàȠ נ 덠Ӡ 򍍪 ŠҠɠ נ    덠ӠҠ 占Ӡ 򍍪 Ҡ 箍ڠ 򮍠Ԡ 򮍠Ҡ  ҠŠ  箍à 獠Р ōѠ֍ؠ űDZؠ獠Р 占ѠŲҠҠؠ 򮍠Рű 򮍍Ųؠ ŲǬؠ獠Р 占ѠŲҠҠؠ 򮍠РŲ 򮍍Ų Ҡı 䍠Р çѠŲÍĠƠ 占РĹ٧ѠŲÍРŠΧѠԍРŲ  ԠҠԠ ŲàРŠ ֠ؠ ųDzؠ獠Р 占ѠŴҠҠؠ 򮍠Рų ŴРŲ  ԠԠ 򮍠Íڠ 򮍠Ҡ  ؠ ԱǬؠ獠Р 占ѠԲҠҠؠ 򮍠РԱ 򮍍ԲҠı 䍠Р çѠԳĠƠ 占РĹ٧ѠԴРŠΧѠԳРԲ ٧ΧçԳҠұ 占Ӡ Դ 덠Ԡ Р ͠ Ԡ ҠŠ Рà 􍍍 ˠԠ Ԡ 򮍠ڠ 򮍠Ҡ  ҠҠȠ 덠Ҡؠנ 덠ҠؠԠ Ԡ 򮍠ڠ 򮍠Ҡ  ҠŠ ΠƍŠ 䮮 ؠ٠ӱŠ Ҡؠ ҠؠàҠҠŠҠҠӲŠР ѠӲ Ʋؠ РӲӲƬؠ Ӳ Ҡؠ占ؠŠ 䮮 򮍠ѠӳҠҠ􍍠ؠ РӲ 卍ӳؠҠ 占àҠҠ占ҠҠҠҍàҠҍ à àƠ 鍠؍ӴŠ Р ѠӴ Ʋؠ РӴӴƬؠ Ӵ Р 鍠àĠ РƠ 鍠ӠĠ РӵĠŠҠҠؠҠ ̍ѠӶ 占ؠ РӴ 卍ӵ 鍠ҠҠؠҠ ̍ѠӶ 占ؠ РӴ 卍ӶؠҠ ؠƠ 占ѠӷàҠҠĠ捠ҠҠ􍍠à ٍ؍àƠ Š 䮮 򮍠Рӱ 卍ӷàҠҠ􍍠Ӡ 򍍪č :(4);"PR#3":(17):(27)::K120:I1402:K:I:"WV":I:K:5:(24):I430:I:5:" ":I:I430:14:I:" ":I:I514:4:I:" ":I:30:" " I514:I:4:" ":I:30:" ":I:I615:I:31::" ":I:15:I531:15:I:" ":I:34,5:32,4:33,25:35,13:10: + ****************************O * INVERSE *s * BY DAVID THOMAS MUELLER *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA. 01742 * F **************************** P ARC-SINE# ZS.8660249622 dC(1S2)W nAA(SC)57.2957795: FOR C > 0 x"THE ARC-SINE OF "S:"IS "AA" DEGREES": C.5 S(1C2) AA(SC)57.2957795: FOR C > 0 "THE ARC-COSINE OF "C:"IS "AA" DEGREES"MARCH 1990 DISK (VOL 11 /NO 3) 7 PRODOS DISK DOCTOR BICYCLE LOG CUSTOM BINGO A GIANT LEAP APPLE SPLIT SCREEN APPLESOFT INVERSE FUNCTIONS CHECKIT 3 CUSTOM BINGO RUN CUSTOM.BINGO APPLESOFT INVERSE FUNCTIONS RUN INVERSE CHECKIT RUN CHECKIT @ This disk is a double-sided disk. All of the programs that will run under ProDOS are on the ProDOS formatted front side of the disk, and all that will run under DOS 3.3 are on the back side of the disk. Some programs will run under both operating systems and are included on both sides of this disk. You're currently using the ProDOS side of the disk. @ Before using the programs on this disk, you should make a work disk for each program. This can be done by first making a complete copy of the disk with one of the following programs: * COPYA (DOS 3.3 System Master) * FILER (ProDOS Utilities Disk) * The Apple IIc or Apple IIGS Utilities Disk * Any Disk Copy Program Then boot the copied disk and delete all of the files that are not related to the program by using the DELETE command. The System Utilities program also has an option to DELETE files. @ You will not be able to delete the titles that we've placed in the catalog to separate files. However, these will not interfere with the operation of the programs. The screen displays that follow show the files needed to create working copies of each program. @ To create a work disk for PRODOS DISK DOCTOR, remove all but the following file from a copy of this disk: DISK.DOCTOR This program is included only on the ProDOS side of this disk. This program is not included as an option in the program menu because it requires special instructions. See the documentation for details. @ To create a work disk for BICYCLE LOG, remove all but the following file from a copy of this disk: BIKE.LOG This program is included only on the ProDOS side of this disk. This program is not included as an option in the program menu because it requires special instructions. See the documentation for details. @ To create a work disk for CUSTOM BINGO, remove all but the following files from a copy of this disk: CUSTOM.BINGO BINGO.DATA These programs are included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for A GIANT LEAP, remove all but the following file from a copy of this disk: BASICS.ASM This program is included only on the ProDOS side of this disk. This program is not included as an option in the program menu because it requires special instructions. See the documentation for details. @ To create a work disk for APPLE SPLIT SCREEN, remove all but the following file from a copy of this disk: SPLIT This program is included only on the ProDOS side of this disk. This program is not included as an option in the program menu because it requires special instructions. See the documentation for details. @ To create a work disk for APPLESOFT INVERSE FUNCTIONS, remove all but the following file from a copy of this disk: INVERSE This program is included on both the DOS 3.3 and ProDOS sides of this disk. @ In addition, we've placed a copy of the CHECKIT program on this disk. CHECKIT is a utility published in every issue of Nibble that aids in typing in programs from the magazine. See the Typing Tips in the latest issue of Nibble for details on using CHECKIT. We have also included the One and Two-Liners on this disk. @ The source code files for the major assembly language programs have been included on this side of the disk. These files are included expressly for experienced programmers. These files cannot be used unless you own the appropriate assembler. WARNING: Do NOT attempt to run the following source code files: DISK.DOCTOR.S (Merlin) SPLIT.S (Editor/Assembler) @ # L !C_" %k"l" (#M8( % ) L*"m"n" (_7, )7(P0 ( @X p 8  u"!_"f"0 ~&f"0 %o"p" (,) &q"r" ( %L*")0I0hx H( + %Щ ߩu"L! )L! 8'  )ɀ)4,- U JNT) u"Ls"t" ( !` ^"M)Fi/ b"3 h"i"j" e" iL X>"L;"ίΠ`v""""""*$ Fk%YeQP!/RB}QBiBB}\ }FEL,#> ȏ6 . ) ɘ"    L:#:#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c ɘ\   VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`=YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&0`ŠӠֱǭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 ')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp< @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` `* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@qvȱ@Hȱ@Ah@@cqe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B g-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпllllhh8` Q)T'P#) ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA D'KI؍0JHi 뎁`C8` @ 3N@) K莭 ⭪i`0 ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ0NN` G8`F@ 0 H LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 밳JK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQ8`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K01 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a .FإGؐ.` .JHIH IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFJL8`JGBJ T FإG`BH TFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL+J  :"L zH  : 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Rh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$% LL L L 6 &pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8NNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL;L-M O,p莝eNNO(`JNKOL 6/ &P L8 } [ؑJ`L@ȱ@ `@Nȱ@O`؝}}vIvؐ` jzؽ}؝v j ) j؝zv؈` ` H Th)N@ ;; L  6$ )bJ ] ) H 8hL )  )حJjIwHIvH؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL( O, PeNNO J(` C  7 2JvHIwHI؊ LI  .` A Hv ع Hw ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . R#ع؍0 ]讁)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  ) ;⬂Ȣ؝z@zݚ@ʈLJ KIJHȢݚ h魚)Jn 8 δ ؍ ؍ \H8 ع)ꭱJJJJ Ȣ؝I؈ 6h(8H = h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @LL =@ /ȹP8` i` =ם0 /B =)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J /טyרםOO)׍O`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 H`aO)@LP8` \᮰ ֩OCDC z L䬁yٙ٭yٙ٩`K GE`FaG 6%&N    ܮ `J HH hh` 0 @ LGL r`̴Yܝ ݝ0̴ȩFG   0` ܅F݅G ` { rͬ 밽܅F݅G ` {* r% L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 {9X(K {XXK تKo`V8`no` D on {I9XX`)HJJJh`OeNeO࿰ {9XАO`@ȭ@` ON aNJKO`HхhꭋILhH),fx8 (8` ԍ`@Ae J m00[roIIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-87APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ`` ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE, H h q(T*), j݅% 0Lc Lk7 (4);"BLOAD SCRN.80":(4);"PR#3":::49246,0:W9:30,30:768,30,30,C:C: ::5:"PLEASE ENTER YOUR WEIGHT-";A$:A(A$):BA.38:CA.91:DA.38:EA2.54:FA1.07:GA.167:HA.9:IA1.15:JA.05:A0A999910H :5:"MERCURY-"B:"VENUS-"C:"EARTH-"A:"MOON-"G:"MARS-"D:"JUPITER-"E:"SATURN-"F:"URANUS-"H:"NEPTUNE-"I:"PLUTO-"J::"WOULD YOU LIKE TO SEE ANOTHER WEIGHT? ";:A$:A$"Y"10 LSTBQ*L # %"$LL# "#$%L"#L?********************************** * APPLE SPLIT SCREEN SOURCE CODE * * BY WILLIAM SIMPSON * * COPYRIGHT(C) 1990 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 * ********************************** * * EDITOR ASSEMBLER * AMP EQU $3F5 BUF EQU $201 TOP EQU $22 BOTTOM EQU $23 CV EQU $25 CH EQU $24 BASIC EQU $3D0 * ORG $0300 * * SET THE & VECTOR AND EXIT * LDA #BEGIN STA AMP+1 LDA #3 STA AMP+2 JMP BASIC * * FIND THE COMMAND * &S SPLIT THE SCREEN * &T MOVE TO THE TOP WINDOW * &B MOVE TO THE BOTTOM WINDOW * &Q QUIT SPLIT SCREEN MODE * BEGIN LDA BUF CMP #$53 BEQ SPLIT CMP #$54 BEQ T CMP #$42 BEQ B CMP #$51 BEQ QUIT JMP BASIC * * SPLIT THE SCREEN AND PUT * THE CORSOR IN THE TOP * WINDOW * SPLIT LDA #$0D STA BOTTOM LDA #$0C STA CV LDA #$00 STA TOP STA CH JMP BASIC * T JMP SPLIT * * SET THE BOTTOM WINDOW AND * PUT THE CURSOR THERE * B LDA #$0D STA TOP LDA #$18 STA BOTTOM * * EXIT IS USED TO SET THE CURSOR * WHEN LEAVING SPLIT SCREEN * EXIT LDA #$00 STA CH LDA #$17 STA CV JMP BASIC * * RESTORE THE SECREEN TO NORMAL * QUIT LDA #$00 STA TOP LDA #$18 STA BOTTOM JMP EXIT  ******* 8/08/86 *******;* ProDOS STARTUP *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9703 n ********** GET HI-RES SCREEN AND SET DISPLAY SWITCHESd x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BRUN STARTUP.SCREEN" G(16297)(16300)(16301)(16304) ********** READ INFO FROM NIBMENU TEXTFILE 11201 P$(20): P$ = PROGRAM NAME _ S$(300):S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$: A$ = DISK NAME= NA$"NIBBLE "A$:22:20((NA$)2):NA$:1h NP: NP = NUMBER OF PROGRAMS ON DISK~ I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,S$(I) J(S$(I),1,1)"#"350 T320! ^D$;"CLOSE"^ h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for ordering the Nibble":A$;"!": "The programs on this disk are:": Z1NP:5:P$(Z):Z 1030:FLAG$"ESC"ī600M  ********** CYCLE THRU NIBMENU TEXT SCREENSU A1^ :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600 S$(A)"#"510 S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :36:"Thanks again for your order !")12:R6:"ALL PROGRAMS ON THIS DISK ARE"{&6:"COPYRIGHT (C) 1990 BY NIBBLE"06:"MINDCRAFT PUBLISHING CORP."56:"52 DOMINO DR, CONCORD MA 01742"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"D1030$N ********** SET UP MENUJXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):61(ME1):8:ME1". Catalog Disk"861ME:8:ME". Quit"l21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868Y1:12:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(ME)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z107008002 ********** PRINT POINTER SUBROUTINEO 61N:SX:X$(SLOS);:r ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL): > ********** EXECUTE A VALID MENU CHOICE,H49168,0::1100:D$;RC$(SL)PR ********** CATALOG SELECTED m\:49168,0::D$;"CAT":f24:7:"Press to continue";p49168,0:49152,128:z ********** QUIT SELECTED22::958:"Do you really want to quit? (Y/N)";:49168,0(49168,0:49152,128Z(49152)249(49152)217Ĺ49168,0::1100:` ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE:(1101)6ė:D$"PR#A$300"_(222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":101019:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600  ********** WAIT FOR KEYSTROKEFLAG$""`23:" for next page or for menu";:49168,0:49152,128~(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I013:ML:768I,ML:I:D$"PR#A$300":B ********** DETACH UPPER/LOWER CASE HANDLER *L(4);"PR#0":ZV ********** INSTALL INPUT-ANYTHING ROUTINEu`X768839:A:X,A::j ********** INPUT-ANYTHING ROUTINE DATAt 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165:~ 184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATA 216,201,225,144,6,201,251,176,2,233,31,76,240,253,0  c` ` v`` ` v` `ݥ``8 ``+p|~p|*U*U*U*U*U*S( @?p~px|xժժժժժRT* @?p~px|ЪժժժՊ dOE U @?`p~?pxԊԪ `|yg~0 cFc& U*U*U*@@ @%P*U*U*U*U*U }<_/" p@Pgp{?"dydw!<MժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~px|xժժժՂ n_?E U @?`p~ppp}{c0 cFc&(U*UA*U*uԪժժժժՊ @ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~Ap||xժժժՂ N?p1 U4pysc'C&0.cFc&(U*U P*U* > @p{?" NԪժժժժժ@ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*R@* @?p~px|ժժժժժ pcFU* @?p~p|ժժժ _?@>|. U5x{w cY#8X03X0FC30%*U*U*U*U*U L @@ " NԪժժժժժtժժժժժժdpO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*R@* @?p~px|Ԫժժժժ pcFU* @?`p~p|ժժժ ?~ GC@F- U5xsg`c00@` 80