DWB 3 ADDRESS BOOK 128 P 4797 ADDRESS 128 MAIN P 6252 ADD FILE S 73 O: **********************************************************************: * THIS IS PART 1 OF A 2 PART PROGRAM! *ë: * YOUR DISK MUST ALSO CONTAIN "ADDRESS 128 MAIN" *9: * PART 1 SETS UP THE SCREENS AND VARIABLE. PART 2 IS THE MAIN *‡: * PROGRAM *Õ: * SEND ALL E-MAIL QUESTIONS TO: CHAD CARDINAL *#: * IF YOU THINK ITS WORTH IT, SEND MONEY TO: *q: * CHAD CARDINAL *¿ : * RR 21 BOX 17 * :* TERRE HAUTE IN *Y:* THANK YOU! 47802 *¦:**********************************************************************· : (HI DEB!)í×610:þ0,0,79,24:þ%:ç6,1:ç0,1:ç5,2:LL$²Ç(13):80:s B$(1)²"MAIN MENU":B$(2)²"READ FILE":B$(3)²"SEARCH MENU":B$(4)²"WRITE FILE":B$(5)²"PRINTER OPTIONS":B$(6)²"CHANGES":B$(7)²"DELETE"š B$(8)²"ALPHABETIZE":C$(1)²"SELECT"Ü (X²255:†AA$(X):†BB$(X):†CC$(X):†DD$(X):†EE$(X):†FF$(X):†H$(23)þ 2370:400:ð"ADDRESS 128 MAIN"!Pþ0,0,79,24,1:™Ç(142):TA²20'!n™"“"i!x™£TA);" ©ß’ ß’ ß’ ß’ ’ ’ ’"°!‚™£TA);" ©’©ßß’ ’ ßß’ ’ ßß’ ’ ßß’ ’ ’ ’"ù!Œ™£TA);" ©’© ßß’ ’ ’ ’ ’ ’ ’ "="–™£TA);" ¸¸¸¸ ß’ ’ ’ ’¸¸ ’© ’ ’ ’"…" ™£TA);" ’ ’ ©’© ’ ©’© ’ ßß’ ’ ’ ’"Ç"ª™£TA);" ’ ’© ’© ’ ’ ’ ’"Í"´™#¾™£TA);" ß’ © ß’ © ß’ ’ ©’©F#È™£TA);" ’ ’ ’ ’ ’ ’ ’ ©’©„#Ò™£TA);" ’ ’ ’ ’ ’ ’ ’ ©’©½#Ü™£TA);" ¸¸ ’© ’ ’ ’ ’ ¸¸ ’©ú#æ™£TA);" ’ ß’ ’ ’ ’ ’ ’ ßß’8$ð™£TA);" ’ ’ ’ ’ ’ ’ ’ ßß’w$ú™£TA);" ’ ’ ’ ’ ’ ’ ’ ßß’±$™£TA);" ’© ß ’© ß ’© ’ ßß’·$™ä$™£TA);" ’ ’ ’"%"™£TA);" ’ ’ ’ ’ ’D%,™£TA);" ’ ’ ’ ’ "q%6™£TA);" ’ ’ ’" %@™£TA);" ’ ’ ’ ’"Í%J™£TA);" ’ ’ ’"ü%T™£TA);Ç(15);" BY CHAD CARDINAL":/&V™£TA);" RR 21 BOX 17, TERRE HAUTE IN. 47802"5&^ŽY&rþ #2,"ADD FILE":RN²1:‹DS²62§600&|„2,AA$(RN),BB$(RN),CC$(RN),DD$(RN),EE$(RN),FF$(RN)¨&†‹AA$(RN)²"©"§þ#2:ŽÉ&‹RN²RNª1:‹RN³255§‰380:Õþ#2:Ž&'T$(1)²"°ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ®"ƒ'šT$(2)²"Ý MOUSE POWERED ADDRESS BOOK! Ý"à'¤T$(3)²"«ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ²ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ³"=(®T$(4)²"Ý Ý Ý"š(¸T$(5)²"«ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ³ Ý"÷(ÂT$(6)²"ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ±ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ½"s)ÖBT$(1)²" NAME: ":BT$(2)²" ADDRESS: ":BT$(3)²" CITY: ":BT$(4)²" STATE: "³)àBT$(5)²" ZIP CODE: ":BT$(6)²" PHONE NUMBER: "C*êH$(1)²"CHANGE A RECORD":H$(2)²"PRINTER OPTIONS":H$(3)²"DELETE RECORD":H$(4)²"ALPHABETIZE":H$(5)²"MOUSE TOGGLE":H$(6)²"QUIT":H$(7)²"SEARCH":â*ôH$(8)²"READ A RECORD":H$(9)²"WRITE A RECORD":H$(10)²"PRINT":H$(11)²"CHANGE":H$(12)²"MENU":H$(13)²"DELETE":H$(14)²"FIRST NAME":H$(15)²"CITY":H$(16)²"STATE"f+þH$(17)²"ZIP CODE":H$(18)²"PHONE NUMBER":H$(19)²"LAST NAME":H$(20)²"ONE RECORD":H$(21)²"ENTIRE LIST":H$(22)²"ONE MAILING LABEL":Š+H$(23)²"LIST OF MAILING LABELS",T²10:W$(0)²"NAME":W$(1)²"ADDRESS":W$(2)²H$(15):W$(3)²H$(16):W$(4)²H$(17):W$(5)²H$(18):W$(6)²H$(7)ª" FOR ":W$(7)²"CORRECT RECORD (Y/N)"—,RN$²"RECORD NUMBER ":U$(0)²"MOUSE FOR INPUTS":U$(1)²"KEYBOARD FOR INPUTS":U$(2)²"YES":U$(3)²"NO":W$(8)²"’ NOT FOUND":5-&W$(9)²"WHAT SHOULD THE ":U$(4)²"’ BE?":U$(5)²"WHICH LINE?":U$(6)²"WORKING":U$(7)²"’ AGAIN (Y/N)":U$(8)²"PRINTING RECORD # "¯-0U$(9)²"DELETE THIS RECORD?":X$(0)²"SORTING":X$(1)²"":X$(2)²"MOUSE ":X$(3)²"KEYBRD":X$(4)²""*.5X$(5)²"SEND $5 TO CHAD CARDINAL, RR 21 BOX 17, TERRE HAUTE, IN, 47802’":X$(6)²"FILE PRINTED":X$(7)²"“ "0.:Ž;.Xþ#2:ŽR.b‹ER³±17§™"ERROR!"~.c™"“THIS IS A 80 COLUM PROGRAM"¤.g™"SWITCH TO 80 AND PRESS ANY KEY"º.l¡A$:‹A$²""§620:ÕŠM: THIS IS PART 2 OF A 2 PART PROGRAM. YOU MUST RUN "ADDRESS BOOK 128"˜: FIRST. IT WILL AUTOMATICALLY LOAD THIS PROGRAM AND ALL DATA FILES.©: (HI DEB!)ó: ******************************************************************=: * MOUSE POWERED ADDRESS BOOK *‡: * BY *Ñ: * CHAD CARDINAL *: * RR 21 BOX 17 *e : * TERRE HAUTE IN 47802 *® :* SEND E-MAIL QUESTIONS TO CHAD CARDINAL *÷:* I WILL TRY TO ANSWER E-MAIL WITHIN 7 DAYS *@:* IF YOU LIKED THIS PROGRAM SEND $5. IF YOU WILL *‰ :* THE ABOVE ADDRESS THANK YOU! *Ò:******************************************************************ãþ%:×610:950G FE²2:960:FE²3:B²1:C²1:960:FE²1:960:FU²1:1000:Y²18:1050:‘A‰50,30,70,150,260,660,730,1230,40r FE²3:B²2:960:FE²1:960:350:340:‰890— (þ0,0,79,24,1:830:™£10);X$(5):€Í 2FE²3:B²3:C²1:960:FE²2:960:FU²3:1000:Y²14:1050ý <‹A³7§410:‘A‰520,530,540,560,570,580,20:Õ20(!F120:FE²3:B²4:C²2:C$(2)²RN$ªÄ(RN):9606!PFE²1:960Š!Z™£T)BT$(1):…AA$(RN):™£T)BT$(2):…BB$(RN):™£T)BT$(3):…CC$(RN):™£T)BT$(4):…DD$(RN)¶!d™£T)BT$(5):…EE$(RN):™£T)BT$(6):…FF$(RN)ã!nCM$²"WRITE":620:‹A$²"Y"§RN²RNª1:‰70:Õ20ì!xRN²1"‚‹Ã(AA$(RN))±1§RN²RNª1:‰130:ÕŽ"ŒFE²1:960:Ž5"–FE²3:B²6:960:350m" FE²3:B²6:C²2:C$(2)²U$(5):960:140:1120:Y²12:1050„"ªWS$²W$(9):B$²U$(4)£"´‘A‰190,200,210,220,230,240Ã"¾™WS$;W$(0);B$:…AA$(RN):‰250ã"È™WS$;W$(1);B$:…BB$(RN):‰250#Ò™WS$;W$(2);B$:…CC$(RN):‰250##Ü™WS$;W$(3);B$:…DD$(RN):‰250C#æ™WS$;W$(4);B$:…EE$(RN):‰250^#ð™WS$;W$(5);B$:…FF$(RN)l#ú340:‰890¢#FE²3:B²5:C²1:960:FE²2:960:FU²4:1000:Y²10:1050Ö#‹A²1°A²3§FI²4:‰280:Õ‹A²2°A²4§FI²5:‰290:Õ‹A²5§20 $Ÿ3,4:640:650:‹A²1§380: 3:‰260:Õ400: 3:‰260$"RN²1:Ÿ3,42$,650:‹Ã(AA$(RN))³1§330F$6‹A²2§380:Õ400e$@‹Ã(AA$(RN))±1§RN²RNª1:‰300“$JFE²3:B²5:C²2:C$(2)²X$(6):960: 3:þ3:‰260%T™"“":™£4)BT$(1);AA$(RN):™£4)BT$(2);BB$(RN):™£4)BT$(3);CC$(RN):™£4)BT$(4);DD$(RN):™£4)BT$(5);EE$(RN):™£4)BT$(6);FF$(RN):Ž%^FE²3:960M%h‹TG²0§1130:Õ:‹TG²1§C$(2)²RN$:C²2:960:…RN]%rFE²1:960:Ž·%|˜3,"";RN$;RN:˜3,BT$(1);AA$(RN):˜3,BT$(2);BB$(RN):˜3,BT$(3);CC$(RN):˜3,BT$(4);DD$(RN)è%†˜3,BT$(5);EE$(RN):˜3,BT$(6);FF$(RN):˜3,LL$:Ž.&˜3,LL$:˜3,AA$(RN):˜3,BB$(RN):˜3,CC$(RN);" ";DD$(RN);" ";EE$(RN):ŽV&šFE²3:C²2:C$(2)²U$(6):960:FE²1:960&¤‹TG²0¯A³±4¯A³±5§1170:SS$²V$:‰430:Õ™X$(7);W$(6);:…SS$¦&®FE²3:B²3:C²2:960¯&¸RN²1ë&Â‹Ã(AA$(RN))³1§C$(2)²""ªSS$ªW$(8):FE²3:C²2:960:þ2:‰50ñ&ÌŽ'Ö‹È(YY$,Ã(SS$))³±SS$§RN²RNª1:450:Ž&'àFE²1:960O'ê340:FE²3:C²2:C$(2)²W$(7):960:1250e'ô‹A$²"N"§RN²RNª1:Žn'þ‰890ˆ'YY$²AA$(RN):470:‰520¢'YY$²CC$(RN):470:‰530¼'YY$²DD$(RN):470:‰540Ö'&YY$²DD$(RN):470:‰550ð'0YY$²EE$(RN):470:‰560 (:YY$²FF$(RN):470:‰5708(D‹É(AA$(RN),Ã(SS$))³±SS$§RN²RNª1:450:‰580K(NFE²1:960:490e(XYY$²EE$(RN):470:‰580m(bÖ10(lFE²3:C²2:C$(2)²X$(1)ªCM$ªU$(7):960:1250:Ž´(v‹Ï(2)²128§A$²"Y":ŽÍ(€FE²3:B²5:960:350:Žû(ŠFE²3:C²2:PN$²Ä(RN):C$(2)²U$(8)ªPN$:960:Ž)”FE²3:B²7:960:350:FE²1:960/)ž340:FE²3:960E)¨à1,3,2,U$(9):¡A$:`)²1250:‹A$²"Y"§710:Õ‰20r)¼FE²3:B²7:960â)ÆAA$(RN)²AA$(RNª1):BB$(RN)²BB$(RNª1):CC$(RN)²CC$(RNª1):DD$(RN)²DD$(RNª1):EE$(RN)²EE$(RNª1):FF$(RN)²FF$(RNª1)*Ð‹Ã(AA$(RNª1))³1§20:ÕRN²RNª1:‰7102*ÚFE²3:B²8:C²2:C$(2)²X$(0):960:RN²1:C²1X*ä‹Ã(AA$(RN))±1§C²Cª1:RN²RNª1: ‰740a*îRN²1o*ø‹Y²C¬C§20“*‹Ã(AA$(RNª1))³1§RN²1:Y²Yª1:‰760¿*‹Æ(È(AA$(RN),1))±Æ(È(AA$(RNª1),1))§800Ö*RN²RNª1:Y²Yª1:‰7604+ GG$(1)²AA$(RN):GG$(2)²BB$(RN):GG$(3)²CC$(RN):GG$(4)²DD$(RN):GG$(5)²EE$(RN):GG$(6)²FF$(RN)¤+*AA$(RN)²AA$(RNª1):BB$(RN)²BB$(RNª1):CC$(RN)²CC$(RNª1):DD$(RN)²DD$(RNª1):EE$(RN)²EE$(RNª1):FF$(RN)²FF$(RNª1),4AA$(RNª1)²GG$(1):BB$(RNª1)²GG$(2):CC$(RNª1)²GG$(3):DD$(RNª1)²GG$(4):EE$(RNª1)²GG$(5):FF$(RNª1)²GG$(6):Ž6,>þ #2,"@ADD FILE",W:RN²1:LL$²Ç(13)I,H‹RN²255§þ#2:Žg,R‹Ã(AA$(RN))³1§AA$(RN)²"©"²,\˜2,AA$(RN);LL$;BB$(RN);LL$;CC$(RN);LL$;DD$(RN);LL$;EE$(RN);LL$;FF$(RN)Ê,f‹AA$(RN)²"©"§þ#2:ŽÛ,pRN²RNª1:‰840 -zFU²2:1000:FE²3:C²1:960:FE²2:960:Y²12:1050)-„‘A‰30,70,910,940,20,680L-ŽFU²5:1000:FE²2:960:Y²4:1050j-˜Ÿ3,4:650:‹A²1§380:Õ400v-¢ 3:‰890‰-¬FE²1:960:‰160ä-¶þ0,0,79,24,1:™T$(1):™T$(2):™T$(3):X²1¤15:™T$(4):‚:™T$(5):X²1¤4:™T$(4):‚:™T$(6):‰960.ÀPN$²Ä(RN):LR$²"LR= "ªPN$ª" ":þ65,1,78,1:à1,0,0,LR$h.Ê‹TG²0§P$²X$(2):þ2,1,9,1:à1,0,0,P$:Õ‹TG²1§P$²X$(3):þ2,1,9,1:à1,0,0,P$š.Ô‹FE²1§þ30,3,78,21,1:Ž:Õ‹FE²2§þ2,3,28,17,1:ŽÕ.Þ‹FE²3§þ2,19,28,22,1:à1,9,0,B$(B),1:à1,10,2,C$(C):Ž:ÕŽM/è‹FU²1§A$(4)²H$(1):A$(5)²H$(2):A$(6)²H$(3):A$(7)²H$(4):A$(8)²H$(5):A$(9)²H$(6):A$(1)²H$(7):A$(2)²H$(8):A$(3)²H$(9):Ž¥/ò‹FU²2§A$(1)²H$(8):A$(2)²H$(9):A$(3)²H$(10):A$(4)²H$(11):A$(5)²H$(12):A$(6)²H$(13):Ž0ü‹FU²3§A$(1)²H$(14):A$(2)²H$(15):A$(3)²H$(16):A$(4)²H$(17):A$(5)²H$(18):A$(6)²H$(19):A$(7)²H$(12):ŽY0‹FU²4§A$(1)²H$(20):A$(2)²H$(21):A$(3)²H$(22):A$(4)²H$(23):A$(5)²H$(12):Ž0‹FU²5§A$(1)²H$(20):A$(2)²H$(22):Ž0A²1:X²0:AA²1½0$X²1¤Y©2:à1,4,X,A$(AA):AA²AAª1:‚:X²1:A²1Ô0.¡A$:à1,4,X,A$(A),1,18‹A$²""§à1,4,X,A$(A),0:X²Xª2:A²Aª1:Õ‹A$²"‘"§à1,4,X,A$(A),0:X²X«2:A²A«1:Õ‹A$²Ç(13)§Ž„1B‹Ï(2)²5§à1,4,X,A$(A),0:X²Xª2:A²Aª1:Õ‹Ï(2)²1§à1,4,X,A$(A),0:X²X«2:A²A«1:Õ‹Ï(2)²128§Ž´1L‹X±Y°A±AA§A²1:X²1:Õ‹X³1§A²AA«1:X²Y«1:Õ‰1070¾1V‰1070B2`A$(1)²BT$(1)ªAA$(RN):A$(2)²BT$(2)ªBB$(RN):A$(3)²BT$(3)ªCC$(RN):A$(4)²BT$(4)ªDD$(RN):A$(5)²BT$(5)ªEE$(RN):A$(6)²BT$(6)ªFF$(RN):Ž}2j¡VV$:‹VV$²"‘"§V²Vª1:Õ‹VV$²""§V²V«1:Õ‹VV$²Ç(13)§RN²V:Ž°2t‹Ï(2)²1§V²Vª1:Õ‹Ï(2)²5§V²V«1:Õ‹Ï(2)²128§RN²V:ŽË2~‹V³1§V²1:Õ‹V±255§V²2553ˆV$²Ä(V):VA$²X$(4)ªRN$ªV$ª" ":à1,0,3,VA$:‰11303’X²1¤10:‚3œ¡VV$:I3¦‹VV$²"‘"§V²Vª1:Õ‹VV$²""§V²V«1:Õ‹VV$²Ç(13)§Žw3°‹Ï(2)²1§V²Vª1:Õ‹Ï(2)²5§V²V«1:Õ‹Ï(2)²128§Ž’3º‹V³65§V²65:Õ‹V±90§V²90Ã3ÄV$²Ç(V):VA$²W$(6)ªV$ª" ":à1,2,2,VA$:‰1170ß3ÎA$(1)²U$(0):A$(2)²U$(1)4ØFE²1:960:Y²4:1050:‹A²1§TG²0:‰20:Õ‹A²2§TG²1:‰20i4âA$(1)²U$(2):A$(2)²U$(3):FE²2:960:þ10,8,28,17:Y²4:1050:‹A²1§A$²"Y":Ž:ÕA$²"N":ŽCHAD CARDINAL RR 21 BOX 17 TERRE HAUTE INDIANA 47802 GENIE E-MAIL ©