image of READY prompt

Wang2200.org

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

# Sector 331, program filename = 'WCPD090A'
0010 REM .     WCPD090A,  00-00 (6/28/75),   12002
0100 COM N
   : IF P=1THEN 280
0120 DEFFNA(X)=-2.1*X
   : FOR I=FNA(2)TO FNA(-3)STEP FNA(-.26)
   : Q=Q+1
   : NEXT I
   : IF Q=20THEN 190
   : PRINT TAB(40);"ERROR 1"
   : GOTO 280
0190 FOR I=1TO 100
   : X=EXP(I)
   : IF X>100THEN 230
   : NEXT I
0230 IF I=INT(LOG(100))+1THEN 260
   : PRINT TAB(40);"ERROR 2"
   : GOTO 280
0260 PRINT "OK"
   : LOAD DC T#6,"WCPD100A"
0280 E9$(P9)="NG"
   : LOAD DC T#6,"WCPD100A"
0300 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"