image of READY prompt

Wang2200.org

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

# Sector 327, program filename = 'WCPD010A'
0010 REM .     WCPD010A,  00-00 (6/28/75),   12002
0100 COM E(20)
   : SELECT PRINT 005
   : GOSUB 320
   : P9=P9+1
   : GOSUB '100
   : GOSUB 320
   : FOR I=1TO 20
   : E(I)=0
   : NEXT I
   : LOAD DC T#6,"WCPD020A"
0200 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"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 PRINT HEX(0A0A);
   : PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - CPU"
   : PRINT "-------------------------------------"
   : RETURN