Micro­power

  

April 1982, Volume 2, Number 2











Page 24 of 37











265 IFLEN(A$(I))>20THENPRINT“Max. 20 chrs.”:GOTO260 267 INPUT“Correct”;L$ 270 IFL$<>“Y”THEN260 275 INPUT“ADDR 2”;B$(I) 277 IFLEN(B$(I))>20THENPRINT“Max. 20 chrs.”:GOTO275 280 INPUT“Correct”;L$ 285 IFL$<>“Y”THEN275 290 INPUT“ADDR 3”;C$(I) 292 IFLEN(C$(I))>20THENPRINT“Max. 20 chrs.”:GOTO290 295 INPUT“Correct”;L$ 300 IFL$<>“Y”THEN290 320 INPUT“Tel. No.”;D$(I) 322 IFLEN(D$(I))>20THENPRINT“Max. 20 chrs.”:GOTO320 325 INPUT“Correct”;L$ 330 IFL$<>“Y”THEN320 335 GOTO50 400 CLS:INPUT“Enter Author’s Name”;Y$ 402 IFY$=“”THEN400 405 FORI=1TO30 410 IFN$(I)=Y$THENZ=I:I=30:GOTO440 415 NEXT 420 PRINT:INPUT“Name not Found – another try”:L$ 430 IFL$=“Y”THEN400 435 GOTO50 440 I=Z 450 FORJ=1TO20 455 IFP$(I,J)=“”THENZ=J:J=20:GOTO470 460 NEXT 465 PRINT“No Space for New Program!” 467 FORA=1TO3000:NEXT:GOTO50 470 CLS:J=Z:INPUT“PROG. NAME”;P$(I,J) 472 IFP$(I,J)=“”THEN470 475 PRINT:INPUT“Correct”;L$ 480 IFL$<>“Y”THEN470 485 PRINT:INPUT“Any More Progs”;L$ 490 IFL$=“Y”THENZ=Z+1:GOTO470 495 GOTO 50 600 CLS:FORI=1TO30 605 PRINTI;“ ”;N$(I);:I=I+1 610 PRINTTAB(16);I“ ”;N$(I);:I=I+1 615 PRINTTAB(32);I“ ”;N$(I):NEXT 620 PRINT:INPUT“Which Author”;I:IFI<1ORI>30THEN600 622 IFN$(I)=“”THEN600 625 CLS:PRINTN$(I):PRINT:INPUT“Correct Author”;L$ 630 IFL$<>“Y”THEN600 635 PRINT:PRINT:PRINT“Options”;TAB(20)“1) Programs” 640 PRINTTAB(20)“2) Names & addresses” 645 PRINT:PRINTTAB(20):INPUTC:IFC<1ORC>2THEN645 650 ONCGOTO700,800 700 CLS:PRINTN$(I)“:”:FORJ=1TO20 710 PRINTJ“ ”P$(I,J);:J=J+1 720 PRINTTAB(24);J;P$(I,J):NEXT 725 INPUT“Amend/Delete Y/N”;L$ 730 IFL$=“N”THEN50 735 INPUT“Enter Program No.”;J 737 IFJ=999THEN50 740 IFJ<1ORJ>20THEN735


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 24 of 37