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"