image of READY prompt

Wang2200.org

Listing of file='RST' on disk='vmedia/701-2046C.wvd.zip'

# Sector 38, program filename = 'RST'
0010 REM .     RST,  00-00 (6/28/75),   12002
0100 COM D9$(32)8,O0,O1,O2,O3,O4,O5,O6,O8,P8
0105 DATA LOAD DC OPEN T#6,"DATA1"
   : DATA LOAD DC #6,D9$()
0110 CONVERT STR(D9$(1),2,1)TO O3
   : CONVERT STR(D9$(1),3,1)TO O1
   : CONVERT STR(D9$(1),4,1)TO O2
   : CONVERT STR(D9$(1),5,1)TO O6
   : CONVERT STR(D9$(32),1,1)TO O0
   : CONVERT STR(D9$(1),6,1)TO O4
0180 CONVERT STR(D9$(1),8,1)TO O8
   : GOSUB '100
   : P8=2
   : P9=1
   : LOAD DC T#6,"S/START"
0230 DEFFN'100
   : ON O8GOTO 260,280,300
   : STOP "SYSTEM ERROR"
0260 SELECT PRINT 005
   : RETURN
0280 SELECT PRINT 215
   : RETURN
0300 SELECT PRINT 211
   : RETURN
0320 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"