image of READY prompt

Wang2200.org

Listing of file='START' on disk='vmedia/701-2356A.wvd.zip'

# Sector 168, program filename = 'START'
0010 REM ***** START - RELEASE #1.9        09/14/81 *****
0012 SELECT DISK 310, #1 310, #6 01C
0015 DIM W$(128,4)16, B2$2,A$64
0020 REM
0025 $GIO#6(4580,A$)
0030 REM OPEN 2228B MICROCODE FILE
0040     DATA LOAD DC OPEN T#1, "M-3270"
0050 REM READ 8K OF MICROCODE INTO W$()
0060     DATA LOAD DC #1, W$()
0110 REM WRITE 8K OF MICROCODE INTO W$()
0120     $GIO WRITE#6(4400 4010 4080 A200 440C, A$)W$()<129,(8*1024)-128>
0130     IF STR(A$,8,1)<>HEX(00) THEN 160
0140      FOR A=1 TO 100
   : NEXT A
   : REM /DELAY
0145  PRINT HEX(030A0A0A0A0A0A0A),,"LOADING 3275 EMULATOR"
0146  PRINT ,HEX(08);"(Release #1.9   9/14/81)"
0150     LOAD DC T"EM3270"
0160     STOP "LOAD ERROR--WRITE"