Listing of file='B3270000' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 1014, program filename = 'B3270000' 0010 REM B3270000 02/04/83 AUTOLOAD 0011 DEFFN'1HEX(82) 0012 DEFFN'2HEX(99) 0020 COM N$64,C$1 : N$=" " 0030 C$="0" : REM /.SET VALUE 1-9 to load without prompting 0040 IF C$="0"THEN 110 0050 GOSUB 170 : IF N$=" "THEN 110 0060 LOAD DC T#0,"B3270001" 0100 REM %.Present options for Automatic load to operator 0110 PRINT HEX(03);"Wang 2200/3270 Automatic load" 0115 PRINT AT(2,10);"Configuration name";TAB(50);"Canned keystrokes" 0120 C$="0" 0130 ADD(C$,01) : IF C$>"9"THEN 150 : GOSUB 170 : IF N$=" "THEN 130 0140 PRINT "Key ";C$;" for ";N$ : GOTO 130 0150 LINPUT C$ 0160 IF C$<"0" OR C$>"9"THEN 150 : GOTO 50 0170 ON VAL(C$)-48GOSUB 210,220,230,240,250,260,270,280,290 : RETURN 0200 REM %.Options 0210 N$="WANG-05" 0211 STR(N$,41)="31\82Y" : REM /.Load with some active spooling 0212 STR(N$,LEN(N$)+1)="211 \82" : REM /.attach printer on stream 1 (live @ default) 0213 STR(N$,LEN(N$)+1)="221216\82" : REM /.attach printer on stream 2 (addr change) 0214 STR(N$,LEN(N$)+1)="232\82" : REM /.attach printer on stream 3 to spool 0215 STR(N$,LEN(N$)+1)="1\82" : REM /.attach next available terminal 0219 RETURN 0220 N$="3270 Cluster 40 via 1D to Host Simu" 0221 STR(N$,41)="\82" : REM /.Load with NO SPOOLING" 0222 RETURN 0230 N$=" " : STR(N$,41)="\82\99" : REM /.NO LOAD and ATTACH NEXT TERMINAL 0231 RETURN 0240 N$="WANG-05" 0241 STR(N$,41)="1\82" : REM /.Load with no spooling 0245 STR(N$,LEN(N$)+1)="1\82" : REM /.attach next available terminal 0249 RETURN 0250 N$=" " : RETURN 0260 N$=" " : RETURN 0270 N$=" " : RETURN 0280 N$=" " : RETURN 0290 N$=" " : RETURN