image of READY prompt

Wang2200.org

Listing of file='TTY' on disk='vmedia/bsc_host.wvd.zip'

# Sector 372, program filename = 'TTY'
0010   DIM C$20,R$20,S$20,T$20,A$15,K$1
0020   DIM C$(20)1,R$(255)1,S$(7)1,T$(300)1,U$(300)1,D$(300)1
0030 REM % set up TC board
   :   C$=HEX(458012124402A000440C4408118171054003)
   :   T$=HEX(440AA000440C)
   :   R$=HEX(440910201233C62011A1)
   :   S$=HEX(440310201233C620)
   :   R$()= $PSTAT(#PART)
   :   IF STR(R$(),9,1)<>"M" THEN STR(R$,5), STR(S$,5) = HEX(C620)
   :   A$=HEX(0100FFFF)
0040   C$()=HEX(193121A3)&ALL(00)
0050   SELECT #6 /01C
0060   LIST SD 40,60
   :   $GIO #6 (C$,A$) C$()
   :   IF A$>HEX(00) THEN STOP "Can't access TC board. " #
0070   GOSUB '0
0080 DEFFN '054(T$(),T)
   : REM --- TX DATA
   :   $GIO #6 (T$) T$() <,T>
   :   RETURN
0090 REM --- RX DATA
   :   $GIO #6(R$,A$)R$()
   :   R=VAL(A$)
   :   RETURN
0100 REM --- STATUS
   :   $GIO #6(S$,A$) S$()
   :   RETURN
0110 DEFFN '90(D$(),D)
   : REM --- DISPLAY
   :   $GIO /005 (A000) D$()<,D>
   :   RETURN
0120 DEFFN '0
   : RETURN  CLEAR  ALL
0130   GOSUB 90
   :   GOSUB '90(R$(),R)
   :   $IF OFF /001, 130
   :   KEYIN K$,,140
   :       GOSUB '54(K$,1)
   :       GOSUB '90(K$,1)
   :       GOTO 130
0140       ON K$ GOSUB 150
   :       GOTO 130
0150 REM --- '1 send loop
   :   T$() = "This is record number ####."&HEX(0D0A)
   :   T0=POS(T$()="#")
   :   T=LEN(T$())
0160   FOR I = 1 TO 9999
   :       CONVERT I TO STR(T$(),T0,4), (####)
   :       GOSUB 80
   :       GOSUB '90(T$(),T)
   :   NEXT I
   :   RETURN
9000 END
9001 DEFFN '1 "LISTSD 10,8999";HEX(0D)
9016 DEFFN '16"SCRATCHT";HEX(22);"TTY     ";HEX(223A);"SAVET()";HEX(22);"TTY
        ";HEX(220D)
9017 DEFFN '17 "RENUMBER 0000-8999 TO 10 STEP 10";HEX(0D)
9126 DEFFN '126"    "
9127 DEFFN '127"REM "