Listing of file='TAM.000A' on disk='vmedia/701-2216A.wvd.zip'
# Sector 91, program filename = 'TAM.000A'
0010 REM 'TAM.000A' (LOADS TAM SUBROUTINES)
0100 COM S$(13)1,N$8,I
: N$="TAM.0 B"
: PRINT HEX(03)
: GOSUB 210
0190 DEFFN'31
: INIT(20)S$()
0210 PRINT HEX(01);"KEY SPECIAL FUNCTION FOR DESIRED MODULE SF'15 -
LOAD "
: PRINT TAB(50);"SF'31 - ERASE";HEX(0D0A0A0A)
: PRINT S$(1);"00 - SELECT TERMINAL",S$(8);"07 - POSITION CURSOR (R,C)"
0230 PRINT S$(2);"01 - ENABLE KEYBOARD",S$(9);"08 - POSITION CURSOR (R,C,E)"
: PRINT S$(3);"02 - (FUTURE EXPANSION)",S$(10);"09 - INITALIZE TERMINALS"
0250 PRINT S$(4);"03 - (FUTURE EXPANSION)",S$(11);"10 - REQUEST STATUS"
: PRINT S$(5);"04 - GET MESSAGE",S$(12);"11 - SET LOG ON/OFF"
0270 PRINT S$(6);"05 - POLL TERMINALS",S$(13);"12 - CONVERT NUMERIC"
: PRINT S$(7);"06 - POLL AND GET MESSAGE"
: RETURN CLEAR
0295 STOP
0330 DEFFN'00
: S$(1)="*"
0350 GOSUB 210
: STOP
0380 DEFFN'01
: S$(2)="*"
: GOTO 350
0420 DEFFN'02
: S$(3)=" "
: GOTO 350
0460 DEFFN'03
: S$(4)=" "
: GOTO 350
0510 DEFFN'04
: S$(5)="*"
: GOTO 350
0550 DEFFN'05
: S$(6)="*"
: GOTO 350
0590 DEFFN'06
: S$(7),S$(5),S$(6)="*"
: GOTO 350
0630 DEFFN'07
: S$(8)="*"
: GOTO 350
0670 DEFFN'08
: S$(9),S$(8)="*"
: GOTO 350
0710 DEFFN'09
: S$(10)="*"
: GOTO 350
0750 DEFFN'10
: S$(11)="*"
: GOTO 350
0790 DEFFN'11
: S$(12)="*"
: GOTO 350
0830 DEFFN'12
: S$(13)="*"
: GOTO 350
0870 DEFFN'13
0880 DEFFN'14
: GOTO 350
1000 % THIS MUST BE LINE 1000
1010 DEFFN'15
1020 I=I+1
: IF I=14THEN 1080
: IF S$(I)=" "THEN 1020
: CONVERT I-1TO STR(N$,6,2),(##)
: PRINT HEX(01);"LOADING ";N$;TAB(80),TAB(80)
: LOAD DC T#0,N$1000,1000
1080 COM CLEAR
1090 LOAD DC T#0,"TAM.000C"50,1090