0 'NAMES.BA by Bill Templeton - 4/9/86 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 20 CLEAR 30 MAXFILES=1 40 DEFSTRA-M,N,R 50 I=CHR$(27) 60 R=I+"p 70 N=I+"q 80 T=1 90 PRINTI"V 100 CLS 110 L=LEFT$(DATE$,2)+MID$(DATE$,4,2) 120 M="na"+L 130 OPENMFORAPPENDAS1 140 PRINT#1, 150 PRINT#1,"Date: "DATE$" ("DAY$") "LEFT$(TIME$,5)"PST 160 PRINT@0,"- Club 100 -"; 170 GOSUB530 180 PRINT@40,R" name: "N; 190 INPUTA 200 PRINT@80,R" company: "N; 210 INPUTB 220 PRINT@120,R" street: "N; 230 INPUTC 240 PRINT@160,R" city,state: "N; 250 INPUTD,E 260 PRINT@200,R" zip: "N; 270 INPUTF 280 PRINT@240,R" home phone: "N; 290 INPUTG 300 PRINT@280,R" work phone: "N; 310 INPUTH 320 PRINT@13,R" Is this Correct (Y/N)? "N; 330 K=INPUT$(1) 340 IFINSTR("Yy",K)THEN350ELSEIFK=ITHENMENUELSE550 350 PRINT#1, 360 PRINT#1,USING"####";T; 370 PRINT#1," "A 380 PRINT#1," "B 390 PRINT#1," "C 400 PRINT#1," "D", "E" "F 410 PRINT#1," H:"G 420 PRINT#1," O:"H 430 CLS 440 T=T+1 450 A=" 460 B=" 470 C=" 480 D=" 490 E=" 500 F=" 510 G=" 520 H="":GOTO160 530 PRINT@13,R" Enter Name & Address "N; 540 RETURN 550 PRINT@13,R" Press if correct "N; 560 GOTO180 570 'Simple 1,2,3 instructions are: 580 " (1) Don't use commas except between City and State. 590 ' (2) Press if the info is correct on the line being reviewed. 600 ' (3) Retype the entire line when making a correction. 610 'You can exit to Menu at `Is this correct (Y/N)?' prompt by pushing . 620 'The resulting .DO file is date coded with month & day, i.e., `NA0409'