image of READY prompt

Wang2200.org

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

# Sector 105, program filename = 'WCPD510A'
0010 REM .   WCPD510A,   00-00 (06/28/75),   12002
   : PRINT "RETURN CLEAR .........................";
   : DIM E$2,L0$4
   : ON ERRORE$,L0$GOTO 250
   : GOSUB 210
   : GOTO 200
0110 FOR I=1 TO 26
   : NEXT I
0150 RETURN CLEAR
   : GOSUB 220
   : GOTO 190
0160 GOSUB 230
   : GOTO 180
0170 RETURN
0180 RETURN
0190 RETURN
0200 PRINT "O.K."
   : LOAD DC T#6,"WCPD520A"
0210 GOTO 150
0220 GOTO 160
0230 GOTO 170
0240 PRINT
   : PRINT "ERROR"
   : GOTO 280
0250 IF E$="25"THEN 270
   : GOTO 280
0270 IF L0$="0190"THEN 200
0280 E(3)=E(3)+1
   : E9$(P9)="NG"
   : PRINT TAB(40);E(3);"ERRORS"
   : LOAD DC T#6,"WCPD520A"
0310 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"