2$(N)D2$(R):DA$(N)DA$(R):CO$(N)CO$(R):AB:** MENU ROUTINE **ALN0:LL0:MG0:MD1:40::5008::V$:TB((39(DT$))2):0,0:T,0:TB)DT$:TB)((DT$),(158)): (D$,",")0 M,0:A5008:LNLN1: (DT$)LL LL(DT$)BDT$(LN)DT$: CM0 5014 : 5004BQCM((D$,MD),","): CM0 DT$(D$,MD): 5012BqDT$(D$,MD,CM1):MDMDCMBwC0,0:MG((32LL)2):MG$(MG," "):X1 (18LN)2:::M,0:X1 LN:MG$;X"- ";DT$(X)::18:QQ$"YOUR CHOICE ":(0(39(QQ$))2),22:B,0:QQ$;C/B,0,B:(63):0,0:39,22CEI$:I$""5018CoI(I$): I1 ILN 100,2:5018Cz1,0:Cp:** END PROGRAM **Dr:V$:V$:7,0:" ARE YOU SURE YOU WANT TO END PROGRAM?"::" (Yes or No)";:7,0,B:" ?";:0,0:0,4D%t4005:I$"Y"6005:20D8u6:"BOOT.BAS"I$""5018CoI(I$): I1 ILN 100,2:5018Cz1,0:Cp:** END PROGRAM **Dr:V$:V$:7,0:" ARE YOU SURE YOU WANT TO END PROGRAM?"::" (Yes or No)";:7,0,B:" ?";: 10000 GOSUB10220 10010 ONBRK GOTO10160 10020 S1=54:S2=55 10030 W$(1)=" WELCOME TO.... " 10040 W$(2)=" " 10050 W$(3)=" " 10060 W$(4)=" W I N D O W " 10070 W$(5)=" " 10080 W$(6)=" BY " 10090 W$(7)=" L. TODD KNUDSEN " 10100 W$(8)=" " 10110 GOSUB10180:X=8:Y=5:WL=8:FC=3:BC=2:GOSUB10190:ATTR0,0 10120 IFINKEY$=""THEN10120 10130 W$(1)=" PRESS ANY KEY TO CONTINUE. " 10140 LOCATEX1,Y1:X=4:Y=9:WL=1:FC=0:BC=7:GOSUB10190:ATTR0,0 10150 IF INKEY$=""THEN10150 10160 GOSUB10210:POKE&HFFD8,0:END 10170 'WINDOW &PAGE MOVE SUBROUTINE 10180 POKE&H7004,S1:POKE&H7005,S2:EXEC&H7000:RETURN:'*** SAVE SCREEN ***' 10190 HSTATCUR$,AA,X1,Y1:LOCATEX,Y:'*** PUT UP WINDOW ***' 10200 ATTRFC,BC:FORLL=1TOWL:LOCATEX,(Y-1)+LL:PRINTW$(LL);:NEXT:LOCATEX1,Y1:ATTR0,0:RETURN 10210 POKE&H7004,S2:POKE&H7005,S1:EXEC&H7000:LOCATEX1,Y1:RETURN:'*** GET SCREEN ***' 10220 FORLL=&H7000 TO&H701D:READH$:POKELL,VAL("&H"+H$):NEXT:RETURN 10230 DATA 8E,20,00,CC,37,36,FE,FF,A1,B7,FF,A1,10,AE,84,F7,FF,A1,10,AF,81,8C,2F,02,25,EF,FF,FF,A1,39 10240 ' 10250 ' 10260 ' 10270 ' 10280 ' 10290 ' 10300 ' 10310 'VARIABLES 10320 'X = STARTING HORIZONTAL POSITION. (0-79) 10330 'Y = STARTING VERTICAL POSITION. (0-23) 10340 'S1 = PAGE NUMBER TO COPY FROM. (0-55) 10350 'S2 = PAGE NUMBER TO COPY TO. (0- ' 10250 ' 10260 ' 10270 ' 10280 ' 10290 ' 10300 ' 10310 'VARIABLES 10320 'X = STARTING HORIZONTAL POSITION. (0-79) 10330 'Y = STARTING VERTICAL POSITION.,0:0,12:65496,0/ l"O",#1,NN$/}qX1 N:#1,F$(X),L$(X),A$(X),C$(X),S$(X),Z$(X),P$(X),SP$(X),D1$(X),D2$(X),DA$(X),CO$(X)/v:#1/{65497,0:Q$"File Saved To Disk":V$:(0(39(Q$))2),15:5,0:Q$:0,0:0,16:4030:200!:::"FREE GRANS (";(0);:")":0,0::4005:60509:** LOAD (DISK) **0T2:M4:B1:D$"LOAD FROM DISK,Load File,Directory Of Files,Exit/Menu":5000:I 710,750,201RD$"LOAD FROM DISK":5000:Q$"Enter File Name":(0(39(Q$))2),7:4,0:Q$:Q$"Do NOT Enter Ext (.DAT)":(0(39(Q$))2),20:Q$:14,11:NN$:FG$"- "NN$" -":NN$NN$".DAT"1D$"LOAD FROM DISK":5000:Q$NN$:(0(39(Q$))2),7:4,0:Q$:Q$"Loading From Disk":(0(39(Q$))2),11:7,0,B:Q$:0,0:0,82̀X1 N:F$(X)F$(0):L$(X)L$(0):A$(X)A$(0):C$(X)C$(0):S$(X)S$(0):Z$(X)Z$(0):P$(X)P$(0):SP$(X)SP$(0):D1$(X)D1$(0):D2$(X)D2$(0):DA$(X)DA$(0):CO$(X)CO$(0):X:N1:65496,02Й"I",#1,NN$2Յ (1)17403ډ#1,F$(N),L$(N),A$(N),C$(N),S$(N),Z$(N),P$(N),SP$(N),D1$(N),D2$(N),DA$(N),CO$(N)3NN1:7253$#1:NN1365497,0:Q$"File Loaded From Disk":V$:(0(39(Q$))2),15:5,0:Q$:0,0:0,16:4030:203:::"FREE GRANS (";(0);")":0,0::4005:7053 :** EDIT ROUTINE **4%T7:M2:B3:D$"EDIT DATA,EDIT DATA,EXIT/MENU":50004#*I 812,2043,815:8204/:V$:Q$"Record # ":(0(39(Q$))2),0:7,0:Q$;:22,0:R:Q$"PRESS = NO CHANGE":(0(39(Q$))2),21:5,0:Q$;:440,3:1,0:"FIRST NAME: ";F$(R):Q$:Q$""821:F$(R)Q$5(5"LAST NAME.: ";L$(R):Q$:Q$""822:L$(R)Q$5\6"ADDRESS...: ";A$(R):Q$:Q$""823:A$(R)Q$57"CITY......: ";C$(R):Q$:Q$""824:C$(R)Q$58"STATE.....: ";S$(R):Q$:Q$""825:S$(R)Q$59"ZIP CODE..: ";Z$(R):Q$:Q$""826:Z$(R)Q$6,:"PHONE #...: ";P$(R):Q$:Q$""827:P$(R)Q$6b;"SPOUSE....: ";SP$(R):Q$:Q$""828:SP$(R)Q$6v<815:0,3:1,06="DOB#1.....: ";D1$(R):Q$:Q$""830:D1$(R)Q$6>"DOB#2.....: ";D2$(R):Q$:Q$""831:D2$(R)Q$7?"ANNIV DATE: ";DA$(R):Q$:Q$""832:DA$(R)Q$7b@"CODE......: ";CO$(R):Q$:Q$""205:220:CO$(R)Q$:205:2207}:** DELETE ROUTINE **8T7:M3:B6:D$"DELETE THIS RECORD":5000:Q$"(Yes or No)":(0(39(Q$))2),2:5,0:Q$:0,0::4005:I$"Y"910:205:2208GQ$"DELETING THIS RECORD":(0(39(Q$))2),7:1,0,B:Q$:0,0:8VXR N19 F$(X)F$(X1):L$(X)L$(X1):A$(X)A$(X1):C$(X)C$(X1):S$(X)S$(X1):Z$(X)Z$(X1):P$(X)P$(X1):SP$(X)SP$(X1):D1$(X)D1$(X1):D2$(X)D2$(X1):DA$(X)DA$(X1):CO$(X)CO$(X1)9X:NN19aQ$"Finished":(0(39(Q$))2),15:4,0:V$:Q$:0,0::4030:209y:** SUBROUTINES **9I$:I$""4005:9X11200::9T3:D$"SORT DATA":50009Q$"SORTING":(0(39(Q$))2),9:7,0,B:Q$:0,0:::@V$:Q$"Sort Finished":(0(39(Q$))2),17:4,0:Q$:0,0:::XX1 N1:JX1 N:tV1F$(X)F$(J)4079:V2L$(X)L$(J)4079:V3C$(X)C$(J)4079:V4S$(X)S$(J)4079:V5Z$(X)Z$(J)4079;V6P$(X)P$(J)4079;AA$F$(X):AB$L$(X):AC$A$(X):AD$C$(X):AE$S$(X):AF$Z$(X):AG$P$(X):AH$SP$(X):AI$D1$(X):AJ$D2$(X):AK$DA$(X):AL$CO$(X)<F$(X)F$(J):L$(X)L$(J):A$(X)A$(J):C$(X)C$(J):S$(X)S$(J):Z$(X)Z$(J):P$(X)P$(J):SP$(X)SP$(J):D1$(X)D1$(J):D2$(X)D2$(J):DA$(X)DA$(J):CO$(X)CO$(J)<F$(J)AA$:L$(J)AB$:A$(J)AC$:C$(J)AD$:S$(J)AE$:Z$(J)AF$:P$(J)AG$:SP$(J)AH$:D1$(J)AI$:D2$(J)AJ$:DA$(J)AK$:CO$(J)AL$<J<18,13:7,0:"###";X;:0,0:" ";:X<<D$"SEARCH ON <1> FIELD":5000:=R1 N=(F$(R),O$)4140=6(L$(R),O$)4140=M(A$(R),O$)4140=d(C$(R),O$)4140={(S$(R),O$)4140=(Z$(R),O$)4140=(P$(R),O$)4140= (SP$(R),O$)4140=!(D1$(R),O$)4140="(D2$(R),O$)4140> #(DA$(R),O$)4140>!$(CO$(R),O$)4140>7%R:W2L1:484>&W0:T4:D$"SEARCH DATA":5000:Q$"ALL RECORDS FOUND!":(0(39(Q$))2),7:7,0:Q$:Q$"PRESS ":(0(39(Q$))2),20:6,0:Q$:0,0::4005:I$(13)20:4134?,W1452:W2484:A6446:205:::4,0:SS$::2,0:" =NEXT =MAIN MENU":" =EDIT RECORD =DELETE RECORD":0,0:38,22?14005:I$(13)R:4134:I$"M"20:I$"E"800:I$"D"900:4145@)T5:M2:B6:D$"PRINTER COLUMNS,(1) WIDE,(2) WIDE,EXIT/MENU":5000:WI:I 450,475,405@NX111G116:#2:G:X11::@rX16G116:#2:G:X11::A)\N110020:V$:NN1:F$(N)F$(R):L$(N)L$(R):A$(N)A$(R):C$(N)C$(R):S$(N)S$(R):Z$(N)Z$(R):P$(N)P$(R):SP$(N)SP$(R):D1$(N)D1$(R):DODE,PHONE #,EXIT/MENU":5000@6I 315,320,325,330,335,340,20i;4050:V1:4065:4060:4030:20@4050:V2:4065:4060:4030:20E4050:V3:4065:4060:4030:20J4050:V4:4065:4060:4030:20 O4050:V5:4065:4060:4030:206T4050:V6:4065:4060:4030:20Z:** PRINTER DATA FOR DMP110 **N020:X11:150,1:65496,0:#2,(27);(66);:JK6W0:T3:M5:B1:D$"PRINTER DATA,PRINT ADD. LABELS,PRINT ADD. LIST,PRINT RECORD(S),TYPE (PRINT) HEADER,EXIT/MENU":5000.I 415,425,435,464,20T6:M7:B2:D$"PRINT ADDRESS LABELS,ALL RECORDS,SELECT RECORD(S),EXIT/MENU":5000:I 416,420,405A1:4300 >A2:D$"SELECT LABEL(S) SEARCH":5000:0,7:1,0:"ENTER SEARCH> ";O$:::3,0:"Is this correct? (Yes or No) ":0,0::4005:I$"Y"4300:405 D$"PRINT ADDRESS LIST,ALL RECORDS,SELECT RECORD(S),EXIT/MENU":5000:I 426,430,405 A3:4300!;A4:D$"SELECT LIST SEARCH":5000:0,7:1,0:"ENTER SEARCH> ";O$:::3,0:"Is this correct? (Yes or No)":0,0::4005:I$"Y"4300:405!D$"PRINT FULL RECORD(S),ALL RECORDS,SELECT RECORDS,EXIT/MENU":5000:I 436,440,405!A5:444"9A6:D$"SELECT RECORD(S) SEARCH":5000:0,7:1,0:"ENTER SEARCH> ";O$:::3,0:"Is this correct? (Yes or No)":0,0::4005:I$"Y"444:405"W:** PRINT ALL RECORDS **"X11:A5R1:446:A64120:446#%205:#2,JK15);:#2,19);F$(R);" ";L$(R):#2,19);A$(R):#2,19);C$(R);", ";S$(R);" ";Z$(R):#2,19);"Phone ";P$(R):#2:#2,19);"Spouse - ";SP$(R)##2,19);F$(R);"'s date of birth is: ";D1$(R):SP$(R)""#2:#2:#2,19);SP$(R);"'s date of birth is: ";D2$(R):DA$(R)""#2:#2,19);"Anniv. date is: ";DA$(R)$&#2:RN A0:20:A6X1X11:4610:R:4134:RR1:X1X11:4610:446$;:** (1) WIDE **$lÅA3 A1R1:452:A4 A24120:452$ā205:#2,JK);:#2,4);L$(R);", ";F$(R);:JK4:SP$(R)""#2:454:#2," & ";SP$(R)%Ƈ#2,4);A$(R):#2,4);C$(R);", ";S$(R);" ";Z$(R)%+ȅA3 A4#2,4);"Phone # ";P$(R)%ʅA3 A1RR1:RN 462:A3X1X11:#2:4600:452:A1#2:#2:#2:452%̅A4X1X11:4600:#2:R:#2:A0:4134:A2#2:#2:#2:R:#2:#2:#2:A0:4134&΅A3#2:20:A1#2:#2:#2:20:20&T4:D$"TYPE (PRINT) HEADER":5000:Q$"Type Out Header To Printer":(0(39(Q$))2),7:1,0:Q$:0,11:Q$&҇#2,0(79(Q$))2);Q$:#2:#2:JK4:405&:** (2) WIDE **':݅A3 A1R1 N 2:205:#2,JK);:#2,4);L$(R);", ";F$(R);:SP$(R)""478:#2," & ";SP$(R);'ޅA3 A1R1N #2:479:A3 A1#2,JK40);:#2,44);L$(R1);", ";F$(R1);:JK4:SP$(R1)""#2:479:#2," & ";SP$(R1)(o߅A3 A1#2,4);A$(R);:#2,44);A$(R1):#2,4);C$(R);", ";S$(R);" ";Z$(R);:R1N #2:480:RR1:205:RR1:#2,44);C$(R1);", ";S$(R1);" ";Z$(R1)(A3#2,4);"Phone # ";P$(R);:R1N #2:481:#2,44);"Phone # ";P$(R1):A1#2) A3X1X11:#2:4600:R:20:A1#2:#2:R:20)$H0:L0:I24120)I2H0 L1F1R:HH1:485:I2H1 L1F2R:HH1:487:I2H1 L1487)I2H0 L1492:I2205:#2,JK);:#2,4);L$(F1);", ";F$(F1);:SP$(F1)""486:#2," & ";SP$(F1);* I2H1 L1R:L1*I2H0:L1#2:488:#2,JK40);:#2,44);L$(F2);", ";F$(F2);:JK4:SP$(F2)""#2:488:#2," & ";SP$(F2)*I2#2,4);A$(F1);:L1#2:489:#2,44);A$(F2)+2I2#2,4);C$(F1);", ";S$(F1);" ";Z$(F1);:L1#2:490:205:#2,44);C$(F2);", ";S$(F2);" ";Z$(F2)+A4#2,4);"Phone # ";P$(F1);:L1#2:491:#2,44);"Phone # ";P$(F2)+A2494:A4 RN1 492:A4 L1492:A4X1X11:4600:#2:R:492,A4A0:#2:4134:A2A0:#2:#2:#2:4134,PA2 RN1 492:A2 L1492:A2#2:#2:#2:R:492,h:** SEARCH DATA **,tN020,T1:M2:B5:D$"SEARCH DATA,SEARCH DATA,EXIT/MENU":5000,I 515,20- 4100:0,7:5,0:"Enter search data"::"> ";O$:0,0::4120:20-$X:** SAVE (DISK) **-0ZN120-]T6:M4:B7:D$"SAVE TO DISK,Save New Data File,Save Old Data File,Directory of Files,Exit/Menu":5000:I 610,615,640,20.xbD$"SAVE TO DISK":5000:Q$"Enter New File Name":(0(39(Q$))2),7:2,0:Q$:Q$"Do NOT Enter Ext (.DAT)":(0(39(Q$))2),20:Q$:14,11:NN$:(NN$)8NN$(NN$,8)".DAT":NN$NN$".DAT"/gNN$""605:D$"SAVE TO DISK":5000:Q$NN$:(0(39(Q$))2),7:2,0:Q$:Q$"Saving To Disk":(0(39(Q$))2),11:7,0,B:Q$:0 0, 0, 0,"" 9, 22, 87,"I DOWNLOADED THIS PROGRAM" 10, 23, 87,"SHAREES BIRTHDAY IS TODAY" 11, 26, 87," THANKSGIVING" NNNNNN09$:** BOB LAVINE - (C) FEB 1987>:** 4436 Wallace AveX:** Tampa, Fl 33611v:** Phone (813) 837-1337:*** ADDRESS BOOK ***:*** All Rights Reserved ***: ; 1:8000:65497,0:F$(101),L$(101),A$(101),C$(101),S$(101),Z$(101),P$(101),SP$(101),D1$(101),D2$(101),DA$(101),CO$(101):N0 :0,0:10,25:12,60:13,54:14,61:V$"T200O3EADGBE":40:1:SS$(40,"-") 6002200,3:T,0:"Rec. ";:"###";N;:(0(39(FG$))2),3:FG$:31,3:"Left ";:"###";100N;:0,0:" ";: 600265497,0:T4:M2:B3:D$"THE POPPE'S ADDRESS BOOK,ADD....DATA.,LIST...DATA.,SORT...DATA.,PRINT..DATA.,SEARCH.DATA.,SAVE...DISK.,LOAD...DISK.,END....PROG.":5000I 100,200,300,400,500,600,700,6000d:** ADD DATA **fN10020PiT5:M1:B3:D$"ADD NEW DATA,Add New Data,Exit/Menu":5000`nI 115,20sD$"ADD NEW DATA":5000:NN1:Q$"Record # ":(0(39(Q$))2),3:7,0:Q$;:22,3:Njx0,6:1,0:"FIRST NAME: ";F$(N):"LAST NAME.: ";L$(N):"ADDRESS...: ";A$(N):"CITY......: ";C$(N):"STATE.....: ";S$(N):"ZIP CODE..: ";Z$(N):"PHONE #...: ";P$(N)}"SPOUSE....: ";SP$(N):"DOB#1.....: ";D1$(N):"DOB#2.....: ";D2$(N):"ANNIV.....: ";DA$(N):"CODE......: ";CO$(N)3:3,0:"Is this correct? (Yes or No)";:0,0::4005:I$"Y"135:NN1=100S:** LIST DATA **[R1tʅN020:205:220͞:V$:Q$"Record # ":(0(39(Q$))2),0:7,0:Q$:22,0:R:0,0:90,5:1,0:F$(R);" ";L$(R):A$(R):C$(R);", ";S$(R);" ";Z$(R):"Phone ";P$(R)::SP$(R)"":211:"Spouse - ";SP$(R)wӅD1$(R)"":212:F$(R);"'s date of birth is: ";D1$(R)ԅD2$(R)"":213:SP$(R);"'s date of birth is: ";D2$(R)ՅDA$(R)"":215:"Anniv. date is: ";DA$(R)ׇ"Code: ";CO$(R):܇::4,0:SS$:2,0:" =Next Record =First Record":" =Last Record =Edit Record ":" =Delete Record =Main Menu =Back-Previous =Copy Record";:0,0:38,22ၦ4005I$(13)RR1:RN RN:202:202 I$"F"201!I$"L"RN:2021I$"E"800AI$"D"900PI$"M"20vI$"B"RR1:R1R1:202:202I$"C"4700:202225,:** SORT DATA **.N0201T3:M1:B6:D$"SORT DATA,FIRST NAME,LAST NAME,CITY,STATE,ZIP C"AA THIS IS A TEST 123 " " " 1):HH1:1,V:A$; : (H1HCR2)A$Z$(A$,H1):HH1:1,V:A$;&TS37:4172&T(PP1)LPN PPPP1:4020 :100,5:4040&^PPLP0 PPPP1:4020 : 100,5:4040&h4040&:PRINT':"Is printer on (Y/N)?";:Y$:(Y$,1)"Y" (Y$,1)"y"PR1 :PR0'R"How many copies";:NC:Q1 NC::Z$M$(5):39:PR$;'LM10:RM10:LG80LMRM:LP55:PG0:L10:SP1:BF0:B$""'I0N:IN LF1'A$B$L$(I):B$"":(A$,1)";" 5500 :PRINTER COMMAND'LL(A$)(LLLG 5040(2X(A$,(126)):X0(A$,X,1)(32):B$""(=5055(]B$(A$,LG1):A$(A$,LG)((A$,1)" "B$(A$,1)B$:A$(A$,(A$)1):5041(5400(X(B$,(126)):X0A$B$:B$"":5030(ċI,Q(100)33:LM,V:&HFFD8,0:A$)#"L1L1SP:SP2 : SP3:)A#PR05490 :#2,LM);A$)b'SP2#2::SP3#2:#2),(L1LP LF1) #2:L1L11:L160 #2,35);"-";PG1;"-":#2,(12):L11:PGPG1:LF0::5420*6BF0#2,(27);"E"; :EMPHASIZED FOR EPSON MX- ON*>7BF0#2,(27);"F"; :EMPHASIZED FOR EPSON MX- OFF*Nr&HFFD9,0:*e|:PRINTER COMMANDS*X(A$,"LM="):X0 LM((A$,X3,2)):LM20LM20*X(A$,"RM="):X0 RM((A$,X3,2)):RM20RM20+X(A$,"LP="):X0LP((A$,X3,2)):LP66 LP66+?X(A$,"PG="):X0PG((A$,X3,2))+vX(A$,"SP="):X0SP((A$,X3,2)):SP3SP3+X(A$,"BF="):X0BF((A$,X3,2))+X(A$,";N"):X0LF1 : LF0+LG80LMRM+́5060+p:RESUME,z:H0:V0:Z$M$(6):39:PR$;,NI0N1:L$(I)::L$(N);:282,0:33:20:282,255:100,YX:KILL,g]&HFFD8,0,b:Z$M$(7):39:PR$;::,l"Enter Filename/Ext:";:F$:70:UN1UN0:7010,v1,1::"Are you sure? (Y/N)?";:S$:(S$,1)"Y"70010-'7,1:"Killing "F$: F$:&HFFD9,0:100-1@:DIR-J:&HFFD8,0:Z$M$(8):39:PR$;:7,1:"ENTER DRIVE NUMBER < 0-3 >";: D: D38010 : D0 10100 : D110200:D210300:D310400.T7,1:"Press any key to return to MENU":44539:&HFFD9,0:100.#("BOOT.BAS".9'"ERROR #";;"IN LINE";:9000.'t0:5,1:0,3: "DIRECTORY OF DRIVE 0 "::3,1:PR$ :7,1:8020.'1:5,1:0,3:"DIRECTORY OF DRIVE 1 ":1:3,1:PR$:7,1:8020/&(<2:5,1:0,3:"DIRECTORY OF DRIVE 2 ":2:3,1:PR$:7,1:8020/t(3:5,1:0,3:"DIRECTORY OF DRIVE 3 ":3:3,1:PR$:7,1:8020:PR$ :7,1:8020.'1:5,1:0,3:"DIRECTORY OF DRIVE 1 ":1:3,1:PR$:7,1:8020/&(<2:5,1:0,3:"DIRECTORY OF DRIVE ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 IN LINE 9000 ERROR # 26 uJ:WRITE III - COCO III WORD PROCESSOR (C) 1986 BY BILL COOK 11/19/86i1:12000:L$(1000):150,1&HFFD9,0: 9000: 10000 CR80:FG3:BG1:CR: : 1,0: 2:7,1:XL200:X14:X(X)X340::XX247 PR$(CR,"-"):BL$(CR1,32):DF$":0":DF0 Start New File,Load Old File,Save Current File,Edit/Review File,Print Current File,Resume Document,Kill File,View Directory,Exit to BASIC I19:M$(I)::10033:HCR428A$:A$""17A(A$):AN$""<16:A1325:A3420:A2150:A9354:A9520:A9120RA12L$(N)AN$:qA8AN$AN$A$:A$;:20(AN$)019:AN$(AN$,(AN$)1):(8);:20A13L$(N)AN$(126):NN1: NXL 80(126):AN$"":33:20(AN$,H,1)" "HH1:28NL$(N)(AN$,H):H,V:(CR2H,32):NN1: NXL 80mAN$(AN$,H1):AN$;:33v20!X$,X,H,V:%H,V:'ZZ(CR2)((Z$)2): ZZ,V:7,1:Z$:3,1:.RP0:X14:(X(X))XX RP1:X(X),255:::0Q246:RP1(AN$)0AN$(AN$,(AN$)1):(8);:HH(H11):H,V:50 :20646:RP1(AN$)76AN$AN$" ":" ";:HH(H1CR4):H,V:54 :20FF$""100G(1,F$,"/")0 (1,F$,".")0 F$F$".DAT"3H"D",1,F$,1:LO(1):LO0 :"File not found."::F$:TD11000::UN1: : :d:H0:V0:H,V:Z$"Write III --- CoCo III Word Processor":39:VV1:Z$"By Bill Cook":39:PR$;:3,1nI19:CR212,I5:I;(8);". ";M$(I):sCR212,16:"File in memory : ";F$tCR212,17:"No. Lines :";NEuCR212,18:"Space Remaining:";1000NxPR$: CR216,21: 7,1,B:"Select the option of your choice...";: FG,BGA$:A$""130:A(A$)A1A9100,1:130:: A 1000,2000,3000,4000,5000,6000,7000,8000,9000100,1:140ȁ 2007:START NEW DOCUMENTF$"":H0:V0:282,0:H,V:Z$M$(1)"..Press for MENU":39:PR$;I0XL:L$(I)""::N0:19:282,255::100I0N1:L$(I)::L$(N);:33:INTOXL:L$(I)""::19:282,255:100:LOAD DOCUMENT,Ւ&HFFD8,0:H0:V0:DZ$M$(2):39:PR$;|"Enter Filename/Ext:";:F$:70:UN1UN0:20107,1::"Loading "F$:1,1:AN$"""I",1,F$:X0 (1)12100 #1,L$(X):XX120504:NX:&HFFD9,0:100 :SAVE DOCUMENT+ &HFFD8,0:H0:V0E ž:Z$M$(3):39:PR$;k ̇"Enter Filename/Ext:";:F$:70 7,1::"Saving "F$ "O",1,F$:I0N:#1,(34)L$(I)(34): :&HFFD9,0:100:EDIT DISPLAYM1$" orward ack nsert line elete line dit line enu ":M2$"orward ack nsert line":M3$"elete line dit line enu":V0:Z$M$(4):39:PR$;PP0:SC1:LP18:LV00,2:282,255:A$:XLPPP LPPPLP:" "L$(X)::V22:0,21:PR$;:CR80Z$M1$:396CR40 0,22:M2$;M3$;ULV0H0:VLV:37:4040fH0:V2:37A$:A$""4040 : A((94)(10)(8)(9)"IDMEFB",A$): A 4120,4120,4120,4120,4140,4150,4160,4170,4180,4190Ҡ100,1:4040 +(341)247 V2 341,255:VV1:37:TD140: n"(342)247 (VLP2 NON1)342,255:VV1:37:TD140: #(344)247 HCR3344,255:HH1:37:4200 $(343)247 H0343,255:HH1:37:4200 'NOLPPPV2:4040!E,NOLPPPV2:N110000,22:"Only 200 lines allowed.....":100,5:TD12000::100!\-N0100,1:4040!.0,22:10)"Making room for insert.....":I1N NO 1:I203: I214146!/I3((L$(I1))I2)!0((L$(I11))I2),I3" 2 I2,I1:L$(NO)(32):NN1:LVV:4020"/6NOLPPPV2:N0100,5:4040"`70,22:10)"Deleting line.....":I1NO1 N"l8I203"|9I21 4157":I3((L$(I1))I2)";((L$(I11))I2),I3"=I2,I1:NN1:LVV:4020"@100#AJNOLPPPV2:0,22:7,1:"Line Edit Mode: Press to Exit":0,23:BL$;:282,0:N0100,5:4010#KA$L$(NO):Z1$" !#$%&'()*=1234567890:-@+;?/>.<,ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz":1,V:1,1:A$;:H0H1:37 :37$ LZ$:Z$""4172 :(343)247343,255:HH1 :(344)247344,255:HH1$IMH1H1 :H(A$)1 H(A$)1$NZ$(13)1,V:3,1:A$;:L$(NO)A$:282,255:0,V:33:100,1:0,22:CR80M1$:0,V:4040 :M2$;M3$;:0,V:4040%`OZ$(21)(A$)133:Z$:(A$,H1);" ";:37:A$(A$,H1)(A$,H1):4172 :Z$(21)(A$)133:(A$,H1);" ";:37:A$(A$,H1):4172%PZ$(93)(A$)CR233:Z$:" ";(A$,H);:37:A$(A$,H1)" "(A$,H):4172%Q(Z1$,Z$)04179&DR(H1 HCR2)A$(A$,H1)Z$(A$,H#F9: ** CALENDAR III - BY BOB LAVINE (C) JULY 1987 ** 65497,0::80:0,0:8,0:9,18:10,27:11,63:12,60:13,54:14,61:15,37:15000:A(12),A$(12),B$(7),MO(250),DA(250),YR(250),C$(250),E$(100),V$(250),G2(30),G3(30):N0:150,1 2500  805A(1)31:A(2)28:A(3)31:A(4)30:A(5)31:A(6)30:A(7)31:A(8)31:A(9)30:A(10)31:A(11)30:A(12)31:PP$(79," ")%C2:D$"*** CALENDAR III by Bob Lavine (C) July 1987 ***":16,0:2,0:D$;:0,0::705:D$"Enter today's date (MM/DD/YY): ":20,6:4,0:D$;:1,0:Q$:0,0:kM((Q$,2)):AW(1,Q$,"/"):D((Q$,AW1,2)):Y((Q$,2))D$"NEW DATA FILE (Y/N) ":(0(79(D$))2),12:4,0:D$;:0,0:78,12 P$:P$""32:P$"Y"35:755#D11:IG0:DG0:285:120:55 2:76ack al el xit wd nput ocate ew

rint ort <*>Instr";:0,0:79,23P$:P$""240P$"P"605:240P$"C"35P$"N"1P$"F"MM1:M12YY1:M1BP$"L"1005\H11 P$(13)1010~P$"B"MM1:M1YY1:M12P$"I"905P$"F"P$"B"D1:35P$"D"1505 P$"E"805 P$"S"2000P$"*"3000240$M1 M12 :D1 D31 :Y1 :" JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER' SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAYX:** PRINTER ROUTINE *****]0,23:PP$;:(65314)4615[b200,1:2,23:2,0:"PLEASE TURN PRINTER ON AND HIT OR TO EXIT";:0,0:0,21cP$:P$""611:P$(103)35:P$(13)605:611g2,23:2,0:" *** PRINTING *** ";:0,0:0,21:200,1:6,0iNN021lX0792qX,NN:E$,WW,EE,RR?v#2,E$;I{X,NN]}X112:#2:Xx0,0:0,21:200,1:35XX1600:XX:D$"* * * D A T E S * * *":44,0:5,0:D$;:0,0:" ";:Z2:X1 N:MO(X)M YYR(X) 34,Z:1,0:"##";MO(X);:"/";:"##";DA(X);:"/";:"##";YR(X);:720:715oɇ" ";V$(X);:0,0:34,Z1:ZZ1:Q$(Z)(X):715ʇ" ";C$(X);:0,0:34,Z1:ZZ1:Q$(Z)(X)˅Z22716:X̐NU(1,C$(X),"#"):NU0YSYYR(X) :714 4ՅYS0714:V$(X)(C$(X),NU1)((YS),2)(C$(X),(C$(X))NU1):713 :ڑ T:** LOAD DAT FILE ** |N0:65496,0:"I",#1,"CALENDAR.DAT"  (1)1770 NN1: #1,MO(N),DA(N),YR(N),C$(N):760  #1:65497,0:  :** END PROGRAM ROUTINE **!L%200,1:2,18:7,0:"DO YOU REALLY WANT TO END THIS PROGRAM ";:6,0,B:" ?";:0,0:78,18!s*P$:P$""810:P$"Y"4000:35!y/!: ** INPUT ROUTINE **"&IG1:0,23:PP$;:200,1:0,23:4,0:" INPUT DATA AS: MM/DD/YY DATA.................. (46 Characters of data is MAX).";:0,0:79,23:V51:Q$"""r2,19:7,0:"##/##/## /----/----/----/----/----/----/----//":1,0:2,18# P$:P$""911:P$(13)912:P$(8)Q1(Q$):Q$(Q$,Q11):V5,18:" ";:V5,18:V5V51:911:V5V51:V548912:Q$Q$P$:V5,18:P$;:911#+AA(1,Q$," "):AA935#|M2((Q$,2)):D2((Q$,4,2)):Y2((Q$,7,2)):A2(Q$):Q$(Q$,A29)#NN1:IG0:MO(N)M2:DA(N)D2:YR(N)Y2:C$(N)Q$$)DF0:200,1:2,20:5,0:" ** SAVE DATA TO MEMORY (Y/N) **";:7,0,B:" ?";:0,0:" ";:DF1:925$0,0:0,20:PP$;:200,1:2,21:5,0:" ** SAVE DATA TO DISK (Y/N) **";:7,0,B:" ? ";:0,0:" ";:DF2$P$:P$""925:P$"Y"928:DF2 IG1NN1:35:DF2 IG1 35:NN1:35%DF1920:930%W0,21:PP$;:200,1:2,21:7,0:" ** SAVING DATA TO DISK **";:0,0:" ";:65496,0%r"O",#1,"CALENDAR.DAT"%X1 N: #1,MO(X),DA(X),YR(X),C$(X):X: #1%200,1:"O",#1,"CALENDAR.BAK"%X1 N: #1,MO(X),DA(X),YR(X),C$(X):X: #1&654!"#%&'(.CALENDARBAS IWRITER BASxMOVIES BAS$wMOVIES DAT`DESCRIPTDATCALENDARDAT)wCALENDARBAKwT BAS,FILE1 DAT*BOOT BAS+9ADDRESS3BAS<LABLE BAS-BOOT80 BAS/97,0:35&#:** SEARCH ROUTINE **&0,23:PP$;:200,1:2,23:4,0:"***************** LOCATE: MM/YY - MM/DD/YY - DATA - EXT *****************";:0,0:78,23&2,18:5,0:"ENTER SEARCH DATA";:0,0:" ";:2,20:1,0:"";:Q$:1,0:78,20'AQ$"N"1135:Q$""35:(Q$,6,1)"/"1040:(Q$,3,1)"/"1080:1120'vM((Q$,2)):D((Q$,4,2)):Y((Q$,7,2))'35'8M((Q$,2)):D1:Y((Q$,4,2))'=35'`Y87:W$Q$'eBB1 N'j(C$(BB),W$)MMO(BB):D1:35(<oBB::200,1:2,5:2,0:"*** ALL RECORDS LOCATED ***";:0,0:0,6:705(Et35(`:** DELETE ROUTINE **(DG1:0,23:PP$;:200,1:2,23:4,0:"** DELETE DATA LINE BY PRESSING ARROWS TO DATA LINE -- THEN PRESS **";:0,0:78,23(H2:1520) P$:P$""1510)0P$"^"32,H:" ";:HH1:H2H2)_P$(10)32,H:" ";:HH1:HZ1 HH1)32,H:5,0:">";:0,0:32,H1:" ";)P$(13)1530)1510*Q(Q$(H1)):34,H:6,0,B:"##";MO(Q);:"/";:"##";DA(Q);:"/";:"##";YR(Q);:" ";C$(Q);:0,0:31,H1*]2,18:7,0:"DELETE THIS DATA LINE (Y/N) ";:4,0,B:"?";:0,0:" ";*P$:P$""1540:P$"Y"1545:35* 0,18:PP$;:2,18:5,0:"* * * D E L E T I N G L I N E # ";Q;:0,0:" ";:200,1:X1600:X+1XQ N1:MO(X)MO(X1):DA(X)DA(X1):YR(X)YR(X1):C$(X)C$(X1)+PX:NN1:0,18:PP$;:920+i:** SORT ROUTINE **+ՅN135:200,1:2,18:7,0:"* * * S O R T I N G * * *";:0,0:78,18+ڀX1 N1:JX1 N:DA(X)DA(J)2030, T1MO(X):T2DA(X):T3YR(X):T4$C$(X),=MO(X)MO(J):DA(X)DA(J):YR(X)YR(J):C$(X)C$(J),fMO(J)T1:DA(J)T2:YR(J)T3:C$(J)T4$,pJ:X,0,18:PP$;:920, ā35, :** INSTRUCTIONS ROUTINE **, 3990:43,0:(30," ");:200,1:47,0:2,0:"** INSTRUCTIONS **";- 34,2:" = Months forward";:34,4:" = Months backward";:34,6:" = Clear & restore last screen";:34,8:" = New restart of program";:34,10:" = Locate/Search by month/year or data -". 34,11:" which is the characters (text) - will";:34,12:" locate, if in file, and show month";:34,13:" and current year of first match. ";:34,14:" Pressing for Locate and then";/= 34,15:" by pressing from Locate Menu will";:34,16:" search for a second match, if found";:34,17:" will show that screen, etc. Entering";/ 34,18:" month/day/year will show screen for";:34,19:" that exact date. '##' will caluclate";:34,20:" number of years to current year.";:3970:0,0:" ";:39800 :** SECOND SCREEN DATA **0 34,2:2,0:"

= Printer (DMP-R.S.) screen dump routine";:34,4:" = Input data. Data must be put in as:";:34,5:" 00/00/00 WHATEVER TXT YOU WANT HERE and";1k 34,6:" must be no greater then 46 characters";:34,7:" long. If you do not know the year, then";:34,8:" enter 00 (zero-zero). If you need more";2 34,9:" lines on an entry, you will need to";:34,10:" press and start again with the";:34,11:" same date and finish entry. You are";2~ 34,12:" limited to a Max of 20 lines of data.";:34,13:" Enter ## to calculate # of years.";2 34,15:" = Exit/End program w/excape back.";:3970:0,0:34,16:39802 :** THIRD SCREEN DATA **3 34,2:2,0:" = Delete an entry. If you want to change";:34,3:" an entry, you should type in the new";:34,4:" entry in the Input mode, then Delete";4/ 34,5:" the entry you don't want.";:34,7:" = Sort by Day. This will put your month";:34,8:" in order by days. After sorting, Save";4 34,9:" to disk and you won't have to sort again.";:0,10:" ";:34,10:34,11:"You can save your data to disk in some options";:34,12:"and the program will create a data file named";5 34,13:"'CALENDAR.DAT'. It saves a backup copy, also.";:34,14:"When you enter a 'N' for NEW FILE (Y/N), it";:34,15:"will automatically load in file. Label and";6I 34,16:"place all new files on a seperate disk or";:34,17:"modify this program. You might have to change";:34,18:"baud rate for printer - POKE150,87 (1200 BAUD)";6 34,19:"as double speed produces 2x600 baud.";:3970:0,0:34,20:39806 35647,21:7,0:" TO CONTINUE.";:0,0:78,21:6P$:P$""39807P$(103)3572EE2:X120:34,EE:(46," ");:EEEE1:X:7E7:"BOOT.BAS";6 34,19:"as double speed produces 2x600 baud.";:3970:0,0:34,20:39806 35647,21:7,0:" TO CONTINUE.";:0,0:78,21:6P$:P$""39807P$(103)3$t&O: *** STARTUP FOR 80 COLUMN CONFIQURATION. (VALUES FOR RGB MONITOR) ***&6000:1,1000:2,1000:H$(600),X$(300)::150,41&65497,0& 3000& &HE047,0: BOARDER COLOR&&HFFB8,18: TEXT COLOR (GREEN)'&HFFB0,0: BACKGROUND COLOR (BLACK-SAME AS THE BORDER)'YX17:A,B:A,B:X:80:200,2:R0:ZZ0:ST$(80," ")'0,0,10,29,11,37,12,60,13,54,14,63,15,61(#34,11:2,0:"M";:0,0:" ";:3,0:"O";:0,0:" ";:4,0:"V";:0,0:" ";:5,0:"I";:0,0:" ";:6,0:"E";:0,0:" ";:7,0:"S";:2000(G(34,12:1,0,B:"-----------";:2000:X11000:X(Q*365(-1:Q$"***** MOVIE MENU *****":(0(79(Q$))2),2:2,0:Q$;:2000)K2X28:Y5:X,Y:5,0:"1 - ADD NEW MOVIES";:2000:X,Y2:"2 - DELETE OLD MOVIES";:2000:X,Y4:"3 - LIST CURRENT MOVIES";:2000:X,Y6:"4 - SORT CURRENT MOVIES";:2000)7X,Y8:"5 - SEARCH FOR A MOVIE";:2000:X,Y10:"6 - PRINT A MOVIE LIST";:2000:X,Y12:"7 - MOVIE DESCRIPTIONS";:2000:X,Y14:"8 - END THIS PROGRAM";:2000*m:ZZ$"####":18,Y17:7,0:ZZ$;R;:" Movies on disk";:2,0:" / ";:3,0:"Choose (1-7) above";:4,0,B:" ?";:2000*, this will return you to the menu where youmay LIST movies to find the RECORD # of the movie you wish to DELETE.";:2000/w30,14:3,0:"DELETE RECORD # ";:6,0:E$:E(E$):26,14:0,0:" ";:2000/E1 ER 45:X813:0,X:(80," ");:X0H恦110:65496,0:"D",#1,"MOVIES/DAT",48:#1,E:#1,D$:3,8:1,0:D$;:3,0:" DELETE (Y/N) ";:2000:JJ$(D$,8,33):SP(1,JJ$," "):JJ$(JJ$,SP)0}I$:I$""235:I$"Y"240:#1:65497,0:450"D",#2,"NEW/DAT",480E10246:X1 E1:#1,X:#1,D$:#2,D$:#2,X:X1 E1R 247:XE1 R:#1,X:#1,D$:#2,D$:#2,X1:X1;:RR1:"MOVIES/DAT":"NEW/DAT""MOVIES/DAT"1^C0:"D",#1,"DESCRIPT/DAT",2551CC1:#1,C:#1,DES$:((DES$,20),JJ$)2651(1)C 255::65497,0:451 "D",#2,"NEW/DES",2552 C10271:X1 C1:#1,X:#1,DES$:#2,DES$:#2,X:X2KC1ZZ 272:XC1 ZZ:#1,X:#1,DES$:#2,DES$:#2,X1:X2:ZZZZ1:"DESCRIPT/DAT":"NEW/DES""DESCRIPT/DAT"2'65497,0:200,1:32,17:5,0,B:"*** DELETED ***";:2000:X11500:X:452,:*** LIST MOVIES ***3*11:Q$"LIST MOVIES":(0(79(Q$))2),0:5,0:Q$;:20003<6110:N0:T83I;65496,03e@"D",#1,"MOVIES/DAT",483A(1)N #1:65497,0:453ENN13J#1,N3O#1,D$3T3,T:1,0:D$;:2000:60,T:4,0:"Record # ";:"###";N;:2000:T20350:TT14 Y(1)N 3254^(1)N Q$"END OF LIST":(0(79(Q$))2),22:3,0:Q$;:2000:200,1:Q$"PRESS FOR MORE":(0(79(Q$))2),22:6,0:Q$;:20004cI$:I$""355:I$(103)#1:65497,0:45:I$(13)360:3555-h(1)N #1:65497,0:45:X822:0,X:0,0:ST$;:X:T8:3255>m65496,0:N05Zo"D",#1,"MOVIES/DAT",485lp(1)N 3775vqNN15s#1,N5u#1,D$5w(1)N 3695y#1:RN5{I0:"D",#1,"DESCRIPT/DAT",2555}(1)I 3875II1:#1,I:#1,DES$6 (1)I 3836#1:ZZI668:*** SORT MOVIES ***6v1:Q$"SORT MOVIES":(0(79(Q$))2),0:4,0:Q$;:200067,8:7,0:"To sort by title press . To exit back to menu press .";:2000:R06I$:I$(13)413:I$"M"45:4127OQ$"*** S O R T I N G ***":(0(79(Q$))2),12:2,0,B:Q$;:2000:65496,07k"D",#1,"MOVIES/DAT",487"D",#2,"NEW/DAT",487RR17#1,R:#1,D$:H$(R)D$7(1)R 4237#1:65497,07X1 R17JX1 R8(H$(X),37)(H$(J),37) 45580W$H$(X):H$(X)H$(J):H$(J)W$8CNjJ:X:65496,08f̀X1 R:#2,H$(X):#2,X:X:#28lΚ8"MOVIES/DAT":"NEW/DAT""MOVIES/DAT"8֒65497,0:X1 R:H$(X)"":X90,12:0,0:ST$;:200,1:16,12:5,0:"< < < FINISHED SORTING ";R;" MOVIE TITLES > > >";:200092X12000:X:459N:*** SEARCH MOVIES ***91:Q$"SEARCH MOVIES":(0(79(Q$))2),0:2,0:Q$;:2000:G0,5:4,0:"To search for a movie or movies, enter any title, word, letters, or other phraseto search by. Listing, if found, will be all movies with your search criteria.";:2000:"PRESS (^) (up arrow) To PRINT this movie.";:2000:11,10:"Enter search criteria -or- press to exit to menu.";:2000:11,14:1,0:F$:0,0:79,14:2000;8 F$""45:(F$)31505:K514:0,K:0,0:ST$;:K:110;Q65496,0:N0:T8:Z0;m"D",#1,"MOVIES/DAT",48;NN1:#1,N:#1,D$:(D$,F$)ZZ1:X$(Z)D$:3,T:1,0:D$;:2000:60,T:4,0:"Record # ";:"###";N;:2000:T20550:TT1<!(1)N 540<&(1)N Q$"END OF SEARCH":(0(79(Q$))2),22:6,0:Q$;:2000:200,1:Q$"PRESS FOR MORE":(0(79(Q$))2),22:6,0:Q$;:2000<+I$:I$""555:I$(94)X1 Z:#2,18);X$(X):X:560:I$(13)560:555=30(1)N #1:65497,0:45:Y822:0,Y:0,0:ST$;:Y:T8:540=G5:65497,0:45=bX:*** PRINT MOVIES ***=]1:Q$"PRINT MOVIES":(0(79(Q$))2),0:1,0:Q$;:2000>Sb0,5:6,0:"This section will print a list of all the movies on file. If you want to print by selection (certain movies only) you need to go back to menu and select SEARCH">g0,7:"FOR MOVIE, Upon entering Search, enter title of movie you wish to print. When it comes up on the screen, PRESS (^) (up arrow), and program will print movie."?wl:"To EXIT to MENU - PRESS ":2000::"To PRINT A LIST of your movies to DMP printer - PRESS ";:2000?qI$:I$""625:I$"M"45:I$(13)X514:0,X:0,0:ST$;:X:65496,0:627:630:625@ms#2,30);"*** MOVIE LIST ***":#2,30);(18,"-"):#2:#2,17);"CODE";28);:#2,"####";R;:#2," TITLES OF MOVIES";57);"TIME":#2:U0:@v110:N0:T8:"D",#1,"MOVIES/DAT",48@{NN1:#1,N:#1,D$:3,T:5,0:D$;:2000:60,T:2,0:"Record # ";:"###";N;:2000A"UU1:#2,17);D$:U48X113:#2:X:627A7T20655:TT1AJ(1)N 635A(1)N Q$"END OF LIST":(0(79(Q$))2),22:7,0:Q$;:2000:#1:65497,0:200,1:X11500:X:45AX822:0,X:0,0:ST$;:X:T8:635A:65497,0:45B :*** END PROGRAM ***B"1:150,2:3000B= :*** SAVE TO DISK ***BY%(D$)46D$(D$,46)Bf'65496,0B*"D",#1,"MOVIES/DAT",48B/#1,D$B4#1,RB9#1B>65497,0:B:*** MOVIE DESCRIPTIONS ***C40:Q$"*** MOVIE DESCRIPTIONS ***":(0(39(Q$))2),0:2,0:Q$;:2000C0,4:4,0:"To view a movie description you need to enter all or part of the title you wish to view. Located, description will be"C"shown. You may print out this screen toyour printer by pressing the up arrow.^"D:"To EXIT to MENU press ."::"To WRITE & SAVE description press "::"To VIEW description of movie - ";:2000DI$:I$""925:I$"M"80:45:I$"W"955:I$(13)930:925E::::1,0:"ENTER MOVIE TITLE: ";:5,0:DD$:DD$""80:45:1EdQ$"*** MOVIE DESCRIPTION ***":(0(39(Q$))2),0:EE(7):EE,0:Q$;:2000EN0:65496,0:"D",#1,"DESCRIPT/DAT",255FPNN1:#1,N:#1,DES$:((DES$,20),DD$)EE(7):0,9:EE,0:DES$;:2000:Q$" = Menu = Another Description":(0(39(Q$))2),22:EE(7):EE,0:Q$;:2000:#1:65497,0:945F(1)N 940:Q$"NOT IN FILE":(0(39(Q$))2),22:6,0:200,1:Q$;:2000:#1:65497,0:X11500:X:80:45GI$:I$""945:I$"M"80:45:I$"A"905:I$(94)946:945G65496,0:X914:Y039:Y,X:A$,BB,CC,FF:#2,A$;:Y39#2:Y:X:#2:#2:65497,0:905:Y:X:#2:#2:65497,0:905G:*** SAVE DESCRIPTION DATA ***H40:Q$"*** SAVE DESCRIPTION ***":(0(39(Q$))2),0:1,0:Q$;:2000:0,2:7,0:"Enter movie title then the description. Hit when all is finished. You are allowed 6 lines maximum for all.";:2000HX914:0,X:3,0:(40,".");:2000:XI!0,9:6,0:DES$:1:Q$"*** SAVING DESCRIPTION ***":(0(39(Q$))2),11:EE(7):EE,0:Q$;:2000INŅ(DES$)255DES$(DES$,255):65496,0IuZZZZ1:"D",#1,"DESCRIPT/DAT",255I#1,DES$:#1,ZZ:#1:65497,0I0,11:0,0:(40," "):200,1:12,11:5,0:"ANOTHER (Y/N) ";:2000:6,0,B:"?";:2000J'I$:I$""985:I$"Y" I$"y"955:80:45J]В&HF812,&H21:&HF91C,&H21:: ** VANISH CURSOR **Js 65496,0::1,0:I#1,DES$:#1,ZZ:#1:65497,0I0,11:0,0:(40," "):200,1:12,11:5,0:"ANOTHER (Y/N) ";:2000:6,0,B:"?";:2000J'I$: 0, 0, 0,"" 9, 22, 87,"I DOWNLOADED THIS PROGRAM" 10, 23, 87,"SHAREES BIRTHDAY IS TODAY" 11, 26, 87," THANKSGIVING" NNNNNN"IDAHO LEGAL AID","","224 SO. ARTHER","POC.","ID.","","233-0079","","","","","" "BRENT","BUTTARS","528 3RD NORTH","TWINFALLS","IDAHO","83301","1-733-6498","BOBETTE","9/6/52","12/5/54","6/7/74","FRIEND" "TIM","HART","7146 WATERMILL WAY","SALT LAKE CITY","UTAH","84121","801-943-1275","","02/23/66","","","FRIEND" "JEFF","JACOB","4320 MORLEY TRAIL N.W.","CALGARY","ALBERTA CANADA","T3A1L3","403-289-2504","LYNNE","10/29","2/18","5/27","FAMILY" "TOD","KNUDSEN","3810 S. REDWOOD ROAD","","","","801-975-0298","","","","","WORK 801-484-8731" "JOSEPH","MORRIS","165 W. BRAMPTON RD. #201","SALT LAKE CITY","UTAH","84104","1-801-972-1788","GAYLE","10/27/18","10/5/20","12/18","FAMILY" "DENNIS","MOTT","720 E. BROWNING AVE.","SALT LAKE CITY","UTAH","84105","801-487-6032","","","","","WORK PHONE 328-7625" "LESTER","POPPE","415 S. 42 ND. ST.","LINCOLN","NEBRASKA","68510","402-488-3222","VIOLET","10/3/00","5/23/03","5/15/21","FAMILY" "LESLIE","POPPE","522 EAST BELLARMINE APT. 11","JOLIET","ILLINOIS","60436","815-744-5133","ROSEMARY","5/30","12/24","9/29","FAMILY" "RANDY","POPPE","1730 W. QUINN RD. #34","POCATELLO","IDAHO","83202","237-5564","LUANA","4/30/52","7/24/51","6/29","" AMILY" "LESLIE","POPPE","522 EAST BELLARMINE APT. 11","JOLIET","ILLINOIS","60436","815-744-5133","ROSEMAR6 40:3:8,52:0,0:0,1:0O:" --------<<< BASIC DESKTOP >>--------"::"----------------------------------------"( " ADDRESS FILER":2 " WORD PROCESSOR":< " CALENDAR ":F " MOVIE FILER":?K " LABLE MAKER":oP"========================================"yZA$d A$"A"200n A$"B"210x A$"C"220 A$"D"230 A$"E" 24090Ȏ"ADDRESS3.BAS"Ҏ"WRITER.BAS"܎"CALENDAR.BAS"$"MOVIES.BAS"5"LABLE.BAS"AKER":oP"========================================"yZA$d A$"A"200n A$"B"210x A$"C"220 A$"D"230 A$"E" 24090Ȏ"ADDRESS3.BAS"Ҏ"WRITER.BAS"&2&HFFD9,0&,<50,&H7000:5000:W$(20)&6F290&CP 230&SZS154:S255&vdW$(1)" WELCOME TO.... "&nW$(2)" "&xW$(3)" "&W$(4)" W I N D O W "'W$(5)" "'%W$(6)" BY "'HW$(7)" L. TODD KNUDSEN "'kW$(8)" "'250:X8:Y5:WL8:FC3:BC2:260:0,0'""190'W$(1)" PRESS ANY KEY TO CONTINUE. "(X1,Y1:X4:Y9:WL1:FC0:BC7:260:0,0(܅ ""220(&恦280:&HFFD8,0:(I:WINDOW &PAGE MOVE SUBROUTINE(&H7004,S1:&H7005,S2:&H7000:::*** SAVE SCREEN ***'(CUR$,AA,X1,Y1:X,Y::*** PUT UP WINDOW ***'(FC,BC:LL1WL:X,(Y1)LL:W$(LL);::X1,Y1:0,0:)/&H7004,S2:&H7005,S1:&H7000:X1,Y1:::*** GET SCREEN ***')^"LL&H7000 &H701D:H$:LL,("&H"H$)::), 8E,20,00,CC,37,36,FE,FF,A1,B7,FF,A1,10,AE,84,F7,FF,A1,10,AF,81,8C,2F,02,25,EF,FF,FF,A1,39)6:)@:)J:)T:)^:)h:)r:)|:VARIABLES*.:X = STARTING HORIZONTAL POSITION. (0-79)*]:Y = STARTING VERTICAL POSITION. (0-23)*:S1 = PAGE NUMBER TO COPY FROM. (0-55)*:S2 = PAGE NUMBER TO COPY TO. (0-,39)6:)@:)J:)T:)^:)h:)r:)|:VARIABLES,39* 6:*@:*J:*!T:*(^:*/h:*6r:*F|:VARIABLES*u:X = STARTING HORIZONTAL POSITION. (0-79)*:Y = STARTING VERTICAL POSITION. (0-23)*:S1 = PAGE NUMBER TO COPY FROM. (0-55)*:S2 = PAGE NUMBER TO COPY TO. (0-:"Phone ";P$(R)::SP$(R)"":211:"Spouse - ";SP$(R)wӅD1$(R)"":212:F$(R);"'s date of birth is: ";D1$(R)ԅD2$(R)"":213:SP$(R);"'s date of birth is: ";D2$(R)ՅDA$(R)"":215:"Anniv. date is: ";DA$(R)ׇ"Code: ";CO$(R):܇::4,0:SS$:2,0:" =Next Record =First Record":" =Last Record =Edit Record ":" =Delete Record =Main Menu =Back-Previous =Copy Record";:0,0:38,22ၦ4005I$(13)RR1:RN RN:202:202 I$"F"201!I$"L"RN:2021I$"E"800AI$"D"900PI$"M"20vI$"B"RR1:R1R1:202:202I$"C"4700:202225,:** SORT DATA **.N0201T3:M1:B6:D$"SORT DATA,FIRST NAME,LAST NAME,CITY,STATE,ZIP C&E :*********** Label print program for 3-Wide labels ***********&:*********** ***********&:*********** (C) Copyright 1987 ***********'(:*********** ***********'U2:*********** Harvey A. Dapeer ***********'<:*********** 14018 Syracuse ***********'F:*********** San Antonio, TX 78249 ***********(!P:*********** ***********(eR:*************************************************************(U 0,11,37,55,38,18,63,32([X07:P: X,P:X:(\X815:P:X,P:X(]80:1:0:6,0(i500:150,1: ****9600 BAUD POKE - CHANGE AS REQUIRED)AȞ:"LABEL-IT V1.2";(39," ");"(C) 1987 BY Harvey A. Dapeer";)W0,6:(80," ");)܇(19," ");:0,7:"********THREE-WIDE LABELS PRINTER********";:0,6:(20," ");)(80," ");:6,0)11000:27,7:0,1:(26," ");:6,0)X7* XX1:X14 460*450:430*`24,X:(X7);".";:0,1:" ";:6,0:(24," ");:0,1:" ";:6,0:*27,14:0,1:(26," ");:6,0*X0,22:0,6:(80," ");:6,0*2,23:"oad rite eplace

rint ave lear elp uit";+-34,17:0,7,B:"CHOOSE OPTION";:6,0:40,19+CX$:X$"" 720+`34,17:6,0:(13," ");+{څX$"L"X$"l" 1000+X$"W"X$"w" 2000+X$"R"X$"r" 3000+X$"P"X$"p" 4000+X$"S"X$"s" 5000, X$"C"X$"c" 6000,X$"H"X$"h" 7000,8 X$"Q"X$"q" 8000,B*710,I:,q:*********LOAD LABEL TEXT*********,x:,聦11000:23,17:"Enter name of label to load: ";NA$,NA$"" 11000:710, "I",#1,NA$"/LBL"- #1,A$(1),A$(2),A$(3),A$(4),A$(5),A$(6)-X16-@28,7X:A$(X);:0,1:" ";:6,0-K$X:#1-].11000:710-d:-:*********WRITE LABEL TEXT*********-:-ЀX16-28,7X:A$(X):52,7X:0,1:" ";:6,0:" ";-A$(X)(A$(X),24)-߅E1 E0:710.X.710. :.9 :*********EDIT TEXT*********.@ :.x 30,17:0,7,B:"Enter line to replace";:6,0:40,19. X$:X$"" 3010. X(X$):X1X6 3010. E1:11000:2010.:.:*********PRINT LABELS*********.:/.25,17:0,4:"Number of labels required";:6,0:NU$/=NU(NU$)/Y56,17:6,0:(25," ")/aN0/{ NU1 11000:710/ NNU 11000:710/, #2,2)A$(1);28)A$(1);54)A$(1)/6 #2,2)A$(2);28)A$(2);54)A$(2)0 @ #2,2)A$(3);28)A$(3);54)A$(3)01J #2,2)A$(4);28)A$(4);54)A$(4)0XT #2,2)A$(5);28)A$(5);54)A$(5)0^ #2,2)A$(6);28)A$(6);54)A$(6)0hNN3: 41200:0:*********SAVE TEXT*********0:011000:20,17:"Enter name to save label as: ";NA$1NA$"" 11000:7101*(NA$)8 500015X161_(A$(X))24 A$(X)A$(X)" ":50141fX1~ "O",#1,NA$"/LBL"1 #1,A$(1),A$(2),A$(3),A$(4),A$(5),A$(6)1#1111000:7101m:1n:*********CLEAR TEXT*********1o:2p11000:34,17:"Are you sure?"21zX$:X$"" 60102K X$"Y"X$"y" 60402U7102`X162mA$(X)""2tX2~4102U:2V:*********HELP FILE*********2W:2X0,42]0,02bX162l(80," ");2vX:6,03?3,7:"'LABEL-IT' will print on three across 2 1/2 x 15/16 in. continuous labels."35,10:" Loads a previously saved label into the editing box."35,11:" Allows the entering of new text. Any text already in the editing":" box will be overwritten."425,13:" Allows one line to be over-written."4j5,14:"

Will print labels in quantity desired."45,15:" Saves the contents of the editing box to disk. (enter name w/o ext.)"45,16:" Clears the editing box ready for new text."5I5,17:" Displays this screen. CAUTION! Will erase text in window!"55,18:" Ends program. Returns you to Basic. NOT a 'cold start'."529,20:0,7:"Press any key to continue";:6,0:41,215X$:X$"" 707050,060,4:X117:(80," ");:X64106 =:6K>:*********QUIT(EXIT) PROGRAM*********6R?:6b@"BOOT.BAS"6i*:6*:*********DELETE PROMPT LINE*********6*:6* 0,17:(80," ")6+tinue";:6,0:41,215X$:X$"" 707050,060,4:X117;C$(R);", ";S$(R);" ";Z$(R)7DȅA3 A4#2,4);"Phone # ";P$(R)7ʅA3 A1RR1:RN 462:A3X1X11:#2:4600:452:A1#2:#2:#2:4528̅A4X1X11:4600:#2:R:#2:A0:4134:A2#2:#2:#2:R:#2:#2:#2:A0:413 80:3:8,52:0,0:0,1:0c:" --------<<< BASIC DESKTOP >>--------":"-------------------------------------------------------------------------------"(: " ADDRESS FILER TEXT PROCESSOR":I< " CALENDAR MOVIE FILER":K " LABLE MAKER DISK COPY UTILITY":P"==============================================================================="ZA$d A$"A"200n A$"B"210'x A$"C"2208 A$"D"230J A$"E" 240S90gȎ"ADDRESS3.BAS"yҎ"WRITER.BAS"܎"CALENDAR.BAS""MOVIES.BAS""LABLE.BAS"======================================================"ZA$d A$"4600:R:20:A1#2:#2:R:20;=H0:L0:I24120;I2H0 L1F1R:HH1:485:I2H1 L1F2R:HH1:487:I2H1 L1487<I2H0 L1492:I2205:#2,JK);:#2,4);L$(F1);", ";F$(F1);:SP$(F1)""486:#2," & ";SP$(F1);<#I2H1 L1R:L1<I2H0:L1#2:488:#2,JK40);:#2,44);L$(F2);", ";F$(F2);:JK4:SP$(F2)""#2:488:#2," & ";SP$(F2)<I2#2,4);A$(F1);:L1#2:489:#2,44);A$(F2)=KI2#2,4);C$(F1);", ";S$(F1);" ";Z$(F1);:L1#2:490:205:#2,44);C$(F2);", ";S$(F2);" ";Z$(F2)=A4#2,4);"Phone # ";P$(F1);:L1#2:491:#2,44);"Phone # ";P$(F2)=A2494:A4 RN1 492:A4 L1492:A4X1X11:4600:#2:R:492>'A4A0:#2:4134:A2A0:#2:#2:#2:4134>iA2 RN1 492:A2 L1492:A2#2:#2:#2:R:492>:** SEARCH DATA **>N020>T1:M2:B5:D$"SEARCH DATA,SEARCH DATA,EXIT/MENU":5000>I 515,20?%4100:0,7:5,0:"Enter search data"::"> ";O$:0,0::4120:20?=X:** SAVE (DISK) **?IZN120?]T6:M4:B7:D$"SAVE TO DISK,Save New Data File,Save Old Data File,Directory of Files,Exit/Menu":5000:I 610,615,640,20@bD$"SAVE TO DISK":5000:Q$"Enter New File Name":(0(39(Q$))2),7:2,0:Q$:Q$"Do NOT Enter Ext (.DAT)":(0(39(Q$))2),20:Q$:14,11:NN$:(NN$)8NN$(NN$,8)".DAT":NN$NN$".DAT"A)gNN$""605:D$"SAVE TO DISK":5000:Q$NN$:(0(39(Q$))2),7:2,0:Q$:Q$"Saving To Disk":(0(39(Q$))2),11:7,0,B:Q$:0,0:0,12:65496,0A9l"O",#1,NN$AqX1 N:#1,F$(X),L$(X),A$(X),C$(X),S$(X),Z$(X),P$(X),SP$(X),D1$(X),D2$(X),DA$(X),CO$(X)Av:#1A{65497,0:Q$"File Saved To Disk":V$:(0(39(Q$))2),15:5,0:Q$:0,0:0,16:4030:20B::::"FREE GRANS (";(0);:")":0,0::4005:605BR:** LOAD (DISK) **BT2:M4:B1:D$"LOAD FROM DISK,Load File,Directory Of Files,Exit/Menu":5000:I 710,750,20CkD$"LOAD FROM DISK":5000:Q$"Enter File Name":(0(39(Q$))2),7:4,0:Q$:Q$"Do NOT Enter Ext (.DAT)":(0(39(Q$))2),20:Q$:14,11:NN$:FG$"- "NN$" -":NN$NN$".DAT"CD$"LOAD FROM DISK":5000:Q$NN$:(0(39(Q$))2),7:4,0:Q$:Q$"Loading From Disk":(0(39(Q$))2),11:7,0,B:Q$:0,0:0,8D̀X1 N:F$(X)F$(0):L$(X)L$(0):A$(X)A$(0):C$(X)C$(0):S$(X)S$(0):Z$(X)Z$(0):P$(X)P$(0):SP$(X)SP$(0):D1$(X)D1$(0):D2$(X)D2$(0):DA$(X)DA$(0):CO$(X)CO$(0):X:N1:65496,0DЙ"I",#1,NN$DՅ (1)1740Eډ#1,F$(N),L$(N),A$(N),C$(N),S$(N),Z$(N),P$(N),SP$(N),D1$(N),D2$(N),DA$(N),CO$(N)E/NN1:725E=#1:NN1E65497,0:Q$"File Loaded From Disk":V$:(0(39(Q$))2),15:5,0:Q$:0,0:0,16:4030:20E:::"FREE GRANS (";(0);")":0,0::4005:705E :** EDIT ROUTINE **F,%T7:M2:B3:D$"EDIT DATA,EDIT DATA,EXIT/MENU":5000F<*I 812,20FL,815:820F/:V$:Q$"Record # ":(0(39(Q$))2),0:7,0:Q$;:22,0:R:Q$"PRESS = NO CHANGE":(0(39(Q$))2),21:5,0:Q$;:G 40,3:1,0:"FIRST NAME: ";F$(R):Q$:Q$""821:F$(R)Q$GA5"LAST NAME.: ";L$(R):Q$:Q$""822:L$(R)Q$Gu6"ADDRESS...: ";A$(R):Q$:Q$""823:A$(R)Q$G7"CITY......: ";C$(R):Q$:Q$""824:C$(R)Q$G8"STATE.....: ";S$(R):Q$:Q$""825:S$(R)Q$H9"ZIP CODE..: ";Z$(R):Q$:Q$""826:Z$(R)Q$HE:"PHONE #...: ";P$(R):Q$:Q$""827:P$(R)Q$H{;"SPOUSE....: ";SP$(R):Q$:Q$""828:SP$(R)Q$H<815:0,3:1,0H="DOB#1.....: ";D1$(R):Q$:Q$""830:D1$(R)Q$H>"DOB#2.....: ";D2$(R):Q$:Q$""831:D2$(R)Q$I1?"ANNIV DATE: ";DA$(R):Q$:Q$""832:DA$(R)Q$I{@"CODE......: ";CO$(R):Q$:Q$""205:220:CO$(R)Q$:205:220I:** DELETE ROUTINE **JT7:M3:B6:D$"DELETE THIS RECORD":5000:Q$"(Yes or No)":(0(39(Q$))2),2:5,0:Q$:0,0::4005:I$"Y"910:205:220J`Q$"DELETING THIS RECORD":(0(39(Q$))2),7:1,0,B:Q$:0,0:JoXR N1K%F$(X)F$(X1):L$(X)L$(X1):A$(X)A$(X1):C$(X)C$(X1):S$(X)S$(X1):Z$(X)Z$(X1):P$(X)P$(X1):SP$(X)SP$(X1):D1$(X)D1$(X1):D2$(X)D2$(X1):DA$(X)DA$(X1):CO$(X)CO$(X1)K2X:NN1KzQ$"Finished":(0(39(Q$))2),15:4,0:V$:Q$:0,0::4030:20K:** SUBROUTINES **KI$:I$""4005:KX11200::KT3:D$"SORT DATA":5000LQ$"SORTING":(0(39(Q$))2),9:7,0,B:Q$:0,0::LYV$:Q$"Sort Finished":(0(39(Q$))2),17:4,0:Q$:0,0::LqX1 N1:JX1 NLV1F$(X)F$(J)4079LV2L$(X)L$(J)4079LV3C$(X)C$(J)4079LV4S$(X)S$(J)4079LV5Z$(X)Z$(J)4079MV6P$(X)P$(J)4079MAA$F$(X):AB$L$(X):AC$A$(X):AD$C$(X):AE$S$(X):AF$Z$(X):AG$P$(X):AH$SP$(X):AI$D1$(X):AJ$D2$(X):AK$DA$(X):AL$CO$(X)N8F$(X)F$(J):L$(X)L$(J):A$(X)A$(J):C$(X)C$(J):S$(X)S$(J):Z$(X)Z$(J):P$(X)P$(J):SP$(X)SP$(J):D1$(X)D1$(J):D2$(X)D2$(J):DA$(X)DA$(J):CO$(X)CO$(J)NF$(J)AA$:L$(J)AB$:A$(J)AC$:C$(J)AD$:S$(J)AE$:Z$(J)AF$:P$(J)AG$:SP$(J)AH$:D1$(J)AI$:D2$(J)AJ$:DA$(J)AK$:CO$(J)AL$NJN18,13:7,0:"###";X;:0,0:" ";:XNOD$"SEARCH ON <1> FIELD":5000:O!R1 NO8(F$(R),O$)4140OO(L$(R),O$)4140Of(A$(R),O$)4140O}(C$(R),O$)4140O(S$(R),O$)4140O(Z$(R),O$)4140O(P$(R),O$)4140O (SP$(R),O$)4140O!(D1$(R),O$)4140P "(D2$(R),O$)4140P"#(DA$(R),O$)4140P:$(CO$(R),O$)4140PP%R:W2L1:484Q&W0:T4:D$"SEARCH DATA":5000:Q$"ALL RECORDS FOUND!":(0(39(Q$))2),7:7,0:Q$:Q$"PRESS ":(0(39(Q$))2),20:6,0:Q$:0,0::4005:I$(13)20:4134Q,W1452:W2484:A6446:205:::4,0:SS$::2,0:" =NEXT =MAIN MENU":" =EDIT RECORD =DELETE RECORD":0,0:38,22Q14005:I$(13)R:4134:I$"M"20:I$"E"800:I$"D"900:4145RBT5:M2:B6:D$"PRINTER COLUMNS,(1) WIDE,(2) WIDE,EXIT/MENU":5000:WI:I 450,475,405RgX111G116:#2:G:X11::RX16G116:#2:G:X11::SB\N110020:V$:NN1:F$(N)F$(R):L$(N)L$(R):A$(N)A$(R):C$(N)C$(R):S$(N)S$(R):Z$(N)Z$(R):P$(N)P$(R):SP$(N)SP$(R):D1$(N)D1$(R):D2$(N)D2$(R):DA$(N)DA$(R):CO$(N)CO$(R):S[:** MENU ROUTINE **SLN0:LL0:MG0:MD1:40::5008::V$:TB((39(DT$))2):0,0:T,0:TB)DT$:TB)((DT$),(158)): (D$,",")0 M,0:T 5008:LNLN1: (DT$)LL LL(DT$)T2DT$(LN)DT$: CM0 5014 : 5004TjCM((D$,MD),","): CM0 DT$(D$,MD): 5012TDT$(D$,MD,CM1):MDMDCMTU)0,0:MG((32LL)2):MG$(MG," "):X1 (18LN)2:::M,0:X1 LN:MG$;X"- ";DT$(X)::18:QQ$"YOUR CHOICE ":(0(39(QQ$))2),22:B,0:QQ$;UHB,0,B:(63):0,0:39,22U^I$:I$""5018UI(I$): I1 ILN 100,2:5018U1,0:Up:** END PROGRAM **UrV$:V$:10000U'10220U' 10160U'$S154:S255V '.W$(1)" WELCOME TO.... "V0'8W$(2)" "VS'BW$(3)" "Vv'LW$(4)" W I N D O W "V'VW$(5)" "V'`W$(6)" BY "V'jW$(7)" L. TODD KNUDSEN "W'tW$(8)" "W2'~10180:X8:Y5:WL8:FC3:BC2:10190:0,0WC'""10120Wp'W$(1)" PRESS ANY KEY TO CONTINUE. "W'X1,Y1:X4:Y9:WL1:FC0:BC7:10190:0,0W' ""10150W'10210:&HFFD8,0:W':WINDOW &PAGE MOVE SUBROUTINEX''Ē&H7004,S1:&H7005,S2:&H7000:::*** SAVE SCREEN ***'XX'CUR$,AA,X1,Y1:X,Y::*** PUT UP WINDOW ***'X'FC,BC:LL1WL:X,(Y1)LL:W$(LL);::X1,Y1:0,0:X'&H7004,S2:&H7005,S1:&H7000:X1,Y1:::*** GET SCREEN ***'Y'LL&H7000 &H701D:H$:LL,("&H"H$)::Ya' 8E,20,00,CC,37,36,FE,FF,A1,B7,FF,A1,10,AE,84,F7,FF,A1,10,AF,81,8C,2F,02,25,EF,FF,FF,A1,39Yh(:Yo( :Yv(:Y}(:Y((:Y(2:Y(<:Y(F:VARIABLESY(P:X = STARTING HORIZONTAL POSITION. (0-79)Z(Z:Y = STARTING VERTICAL POSITION. (0-23)Z/(d:S1 = PAGE NUMBER TO COPY FROM. (0-55)Z[(n:S2 = PAGE NUMBER TO COPY TO. (0-,39Yh(:Yo( :Yv(:Y}(:Y((:Y(2:Y(<:Y(F:VARIABLESY(P:X = STARTING HORIZONTAL POSITION. (0-79)Z(Z:Y = STARTING VERTICAL POSITION. (0-23