image of READY prompt

Wang2200.org

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

# Sector 45, program filename = 'WCPD090A'
0010 REM .   WCPD090A,   00-00 (06/28/75),   12002
   : COM N
   : IF P=1THEN 240
0130 DEFFNA(X)=-2.1*X
   : FOR I=FNA(2)TO FNA(-3)STEP FNA(-.26)
   : Q=Q+1
   : NEXT I
   : IF Q=20THEN 170
   : PRINT TAB(40);"ERROR AT 70"
   : GOTO 240
0170 FOR I=1TO 100
   : X=EXP(I)
   : IF X>100THEN 210
   : NEXT I
0210 IF I=INT(LOG(100))+1THEN 230
   : PRINT TAB(40);"ERROR AT 130"
   : GOTO 240
0230 PRINT "OK"
   : LOAD DC T"WCPD100A"
0240 E(1)=E(1)+1
   : PRINT E(1);"ERRORS"
   : LOAD DC T"WCPD100A"
0250 DEFFN'15
   : LOAD DC T"START"50