Listing of file='ASK?I/O' on disk='vmedia/731-0111.wvd.zip'
# Sector 658, program filename = 'ASK?I/O' 0010 REM ASK?I/O FOR BISYNC 09/30/81 : GOTO 1500 : ON A GOTO 2010,2030 1490 REM %Prompt for I/O selection 1500 P0=31 : P=1 : GOSUB '33 1540 REM %.save input selection 1550 A=1 : GOSUB 2140 : A=VAL(C$(A)) 1554 ON A GOSUB 1720,100,1710 1560 GOSUB 2380 : STR(W$,17)=STR(D$(A),1,8) : STR(N$,21)=STR(D$(A),10) 1640 REM %.save Output selection 1650 A=2 : GOSUB 2140 : A=VAL(C$(A)) 1654 ON A GOSUB 100,1960,1970,1980 1660 GOSUB 2450 : STR(W$,25)=STR(D$(A),1,8) : STR(N$,43)=STR(D$(A),10) 1670 LOAD DC T#0,N$(6) 1700 REM .input modules 1710 A=1 : RETURN 1720 A=VAL(C$(3))+2 : RETURN 1950 REM .output modules 1960 A=VAL(C$(3))+4 : RETURN 1970 A=VAL(C$(3))+2 : IF C$(4)<>HEX(02)THEN 100 : A=VAL(C$(3))+6 : RETURN 1980 A=2 : RETURN 1990 REM %Interface to ASKAPARM for questions 2010 GOSUB 2140 : RETURN 2030 GOSUB 2130 : RETURN 2100 REM %..Questions 2110 REM ... A$ - Description 2120 REM ... D$( - Description of value 2130 D$="I n p u t / O u t p u t S e l e c t i o n" : P9=5 2135 IF L=80THEN 2140 : D1=1 : D=1 2140 INIT(20)D$() : ON A GOTO 2160,2260,2330,2350,2365 2150 REM .? 1 2160 A$="SEND FROM" 2170 D$(1)="Disk" 2180 D$(2)="Card Reader" 2190 REM D$(3)="Memory Send for testing" 2200 RETURN 2210 REM .? 2 2260 A$="RECEIVE TO" 2270 D$(1)="All streams to printer" 2280 D$(2)="Printer and disk" 2290 D$(3)="All streams to disk" 2300 REM D$(4)="Memory/CRT for testing" 2310 RETURN 2320 REM .? 3 2330 IF C$(1)=HEX(01)THEN 2334 2332 IF C$(2)=HEX(01)THEN 110 : IF C$(2)>HEX(03)THEN 110 2334 A$="DISK ACCESS METHOD" 2336 D$(1)="via Search" 2337 D$(2)="via On Error" 2338 RETURN 2340 REM .? 4 2350 IF C$(2)<>HEX(03)THEN 110 2355 A$="SAVE PRINT FILES" 2360 D$(1)="with line control" 2362 D$(2)="without line control" : RETURN 2364 REM .? 5 2365 A$ = "T.C. BOARD ADDRESS" : D$(1)="1C" : D$(2)="1D" : D$(3)="1E" : D$(4)="1F" : RETURN 2370 REM %.INPUT MODULES 2380 D$(1)="CIO*180 Send from Memory" 2390 D$(2)="CIO*120 Card Reader" 2400 D$(3)="CIO*010 Disk Read / Search" 2410 D$(4)="CIO*070 Disk Read / On Error" 2430 RETURN 2440 REM % OUTPUT MODULES 2450 D$(1)="CIO*110 Printer output" 2460 D$(2)="CIO*190 Receive to memory" 2470 D$(3)="CIO*040 Disk save / Search" 2480 D$(4)="CIO*080 Disk save / On Error" 2490 D$(5)="CIO*200 Disk/Prt Save / Search" 2495 D$(6)="CIO*150 Disk/Prt Save / On Err" 2500 D$(7)="CIO*041 Disk w/o ctrl / Srch" 2510 D$(8)="CIO*081 Disk w/o ctrl / Error" 2530 RETURN