image of READY prompt

Wang2200.org

Listing of file='%3275' on disk='vmedia/3275_v1.10.wvd.zip'

# Sector 232, program filename = '%3275'
0010 REM .%3275  4/28/82
0060 REM %0 #6 TC. BOARD
0090 REM %^VARIABLE DEFINITIONS
0100 REM --------------------------------------------------
0110 REM   VARIABLE      MEANING
0120 REM   -----------   -----------------------------
0130 REM %0 A$            HEX(0000)
0140 REM   A1            POINTER TO FIELD ATTRIBUTE CHARACTER
0145 REM %0 A1            Ptr to Fld Attr
0150 REM   A1$1          CURRENT AID CHARACTER
0155 REM %0 A1$           Curr.AID Char.
0160 REM   B             POINTER TO MESSAGE "KEYBOARD LOCKED"
0165 REM %0 B             Ptr--KBD LOCKED
0170 REM   C             POINTER TO CURSOR
0175 REM %0 C             Cursor ptr
0180 REM   C$(80)1       LINE BUFFER AND SCRATCH ARRAY
0185 REM %0 C$(           Lne Buffer & W/A
0190 REM   C2            SCRATCH VARIABLE
0010 REM .%3275  4/28/82
0060 REM %0 #6 TC. BOARD
0090 REM %^VARIABLE DEFINITIONS
0100 REM --------------------------------------------------
0110 REM   VARIABLE      MEANING
0120 REM   -----------   -----------------------------
0130 REM %0 A$            HEX(0000)
0221 REM %0 F1$(          Curr.FLD ATTR.
0230 REM   I             ROW POINTER TO CURSOR (1 - 24)
0231 REM %0 I             Cursor row(1-24)
0240 REM   I$10          SCRATCH VARIABLE REQUIRED BY $GIO STATEMENT
0241 REM %0 I$            $GIO Arg. (scratch)
0250 REM   J             COLUMN POINTER TO CURSOR (1 - 80)
0251 REM %0 J             Cursor Col(1-80)
0260 REM   J$(16)        JUMP TABLE
0261 REM %0 J$(           JUMP TABLE
0270 REM   K             INDEX USED FOR DISPLAYING CRT IMAGE
0271 REM %0 K             CRT display index
0280 REM   K$            CURRENT KEYSTROKE
0281 REM %0 K$            CURRENT KEYSTROKE
0290 REM   K$(1)1        CHARACTER IN IMAGE AREA AT CURRENT CURSOR LOCATION
0291 REM %0 K$(           Char.at CURSOR pos.
0300 REM   L             LENGTH (USED IN VARIOUS SUBROUTINES)
0301 REM %0 L             LENGTH
0310 REM   L$1           ONE-BYTE SCRATCH VARIABLE
0311 REM %0 L$            L$1
0320 REM   L1            TEMPORARY LENGTH (USED IN VARIOUS SUBROUTINES)
0321 REM %0 L1            TEMPORARY LENGTH
0330 REM   L2            TEMPORARY LENGTH (USED IN VARIOUS SUBROUTINES)
0331 REM %0 L2            TEMPORARY LENGTH
0340 REM   M             BEGINNING OF INSERT ZONE
0341 REM %0 M             Beg. INSERT ZONE
0350 REM   M$            "KEYBOARD LOCKED"
0351 REM %0 M$            "KEYBOARD LOCKED"
0360 REM   N             END OF INSERT ZONE
0361 REM %0 N             END OF INSERT ZONE
0365 REM   N1            NUMBER OF FIELDS ERASED
0366 REM %0 N1            # OF FIELDS ERASED
0370 REM   P$(24,2)40    CRT IMAGE (WITH UNPRINTABLE CHARACTERS)
0371 REM %0 P$(           CRT IMAGE (w/ Unprnts)
0380 REM   Q$(24,2)40    REVERSE CRT IMAGE
0381 REM %0 Q$(           REVERSE CRT IMAGE
0390 REM   R$(16)        "PRINTABLE ONLY" TRANSLATION TABLE
0391 REM %0 R$(           "PRINTABLE" Tran tbl
0400 REM   S$(16)        LOCATE UNPROTECTED FIELDS
0401 REM %0 R1$(          ROW POSITION VECTOR
0410 REM   R1$(24)1      ROW POSITIONING VECTOR
0411 REM %0 R1$(          ROW POSITION VECTOR
0420 REM   R2$(80)1      COLUMN POSITIONING VECTOR
0421 REM %0 R2$(          COL.POSITION VECTOR
0425 REM   T$3           TERMINAL ID
0426 REM %0 T$            TERMINAL ID
0430 REM   X$1           HEX(80)
0431 REM %0 X$            HEX(80)
0440 REM %^SPECIAL KEY DEFINITIONS
0450 REM --------------------------------------------------
0460 REM             KEYS
0470 REM     3270         WANG
0480 REM     ----         ----
0490 REM     ENTER        RUN
0500 REM     RIGHT        '12
0510 REM     LEFT         '13
0520 REM     UP           '11
0530 REM     DOWN         '14
0540 REM     NEW LINE     CARR. RET.
0550 REM     TAB          STMT #
0560 REM     BK TAB       LINE ERASE
0570 REM     CLEAR        CLEAR
0580 REM     ERASE INPUT  '8
0590 REM     ERASE EOF    '24
0595 REM     FIELD MARK   CONTINUE
0596 REM     DUP          '15
0600 REM     TEST REQ     '31
0610 REM     RESET        '0
0620 REM     INS. MODE    '10
0630 REM     DELETE       '9
0640 REM     PA1 - PA3    '1 - '3
0650 REM     PF1 - PF4    '4 - '7
0660 REM     PF5 - PF12   '16 - '23
0670 REM     VERT. LINE   LOAD
0672 REM     CENTS        UP ARROW
0673 REM     UNDERLINE    PRINTUSING