image of READY prompt

Wang2200.org

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

# Sector 323, program filename = 'M5'
0010 REM .     M5,  00-00 (6/28/75),   12002
0100 COM D9$(32)8,O0,O1,O2,O3,O4,O5,O6,O8,P8,P9,E9$(7)2
   : E9$(1)="OK"
   : MAT COPY E9$()TO E9$()<3,12>
0110 DATA LOAD DC OPEN T#6,"DATA1"
   : DATA LOAD DC #6,D9$()
0120 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
0180 CONVERT STR(D9$(1),6,1)TO O4
   : CONVERT STR(D9$(32),1,1)TO O0
   : CONVERT STR(D9$(1),8,1)TO O8
   : P8=2
   : P9=1
   : GOSUB '100
   : PRINT "  MEMORY TEST PASSED"
   : LOAD DC T#6,"S/START"
0270 DEFFN'100
   : ON O8GOTO 300,320,340
   : STOP "SYSTEM ERROR"
0300 SELECT PRINT 005
   : RETURN
0320 SELECT PRINT 215
   : RETURN
0340 SELECT PRINT 211
   : RETURN
0360 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"