image of READY prompt

Wang2200.org

Listing of file='WCPD080A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 113, program filename = 'WCPD080A'
0010 REM .   WCPD080A,   00-00 (06/28/75),   12002
   : COM N,P
   : IF P=1THEN 280
   : A=3
   : B=0
   : C=-3
   : D=.0000000000001
   : E=-D
   : F=.0000000000004
   : G=-F
   : FOR I=BTO ASTEP C
   : M=M+1
   : NEXT I
   : IF M=1THEN 190
   : PRINT TAB(40);"ERROR AT 90"
   : GOTO 280
0190 FOR I=GTO FSTEP D
   : N1=N1+1
   : NEXT I
   : IF N1=9THEN 220
   : PRINT TAB(40);"ERROR AT 120"
   : GOTO 280
0220 FOR I=DTO ABS(G)STEP ABS(E)
   : P1=P1+1
   : NEXT I
   : IF P1=4THEN 250
   : PRINT TAB(40);"ERROR AT 150"
   : GOTO 280
0250 IF I=.0000000000004THEN 270
   : PRINT TAB(40);"ERROR AT 170"
   : GOTO 280
0270 P=0
   : LOAD DC T"WCPD090A"
0280 P=1
   : E(1)=E(1)+1
   : PRINT E(1);"ERRORS"
   : LOAD DC T"WCPD090A"
0290 DEFFN'15
   : LOAD DC T"START"50