1 'READBC.BA 10 MAXFILES=1 20 CLEAR 256,61788 30 CLS:PRINT"1. UPC 2. 3 of 9 3. Plessey":F$(1)="UPC":F$(2)="B3OF9":F$(3)="PLESY" 40 PRINT@240,"Please choose ";:A=INSTR("123",INPUT$(1)):IF A=0THEN40ELSEPRINTA 50 RUNMF$(A):ON ERROR GOTO 130:OPEN "WAND:" FOR INPUT AS 1 60 CLS 70 PRINT"Wand Ready:";:INPUT #1,A$:PRINTA$ 75 IF A$=""THEN80ELSE70 80 CLS:PRINT"RESUME READING WAND? (Y/N)" 90 A$=INKEY$:IFA$=""THEN90 100 BEEP:BEEP:CLOSE:CALL61807 110 IF A$="Y"THEN CLS:GOTO30 ELSE IFA$="N"THEN GOTOMENU ELSE 35 120 FOR X = 0 TO 99:NEXT:A$=INKEY$:PRINT @ 148,"";:RETURN 130 CLOSE:CALL61807:MENU