Wang 2200 Virtual Media

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

# Sector 130, program filename = 'WCPD070A'
0010 REM .     WCPD070A,  00-00 (6/28/75),   12002
0100 COM N,P
   : PRINT " TESTING FOR/NEXT ....................";
   : FOR I=1TO 3
   : X=X+I
   : NEXT I
   : IF X=6THEN 180
   : PRINT TAB(40);"ERROR 1"
   : GOTO 380
0180 IF I=3THEN 210
   : PRINT TAB(40);"ERROR 2"
   : GOTO 380
0210 FOR J=-0TO 3
   : J1=J1+1
   : NEXT J
   : IF J1=4THEN 270
   : PRINT TAB(40);"ERROR 3"
   : GOTO 380
0270 FOR I=-3TO 4STEP .5
   : K=K+1
   : NEXT I
   : IF K=15THEN 330
   : PRINT TAB(40);"ERROR 4"
   : GOTO 380
0330 IF I=4THEN 360
   : PRINT TAB(40);"ERROR 5"
   : GOTO 380
0360 P=0
   : LOAD DC T#6,"WCPD080A"
0380 E9$(P9)="NG"
   : P=1
   : LOAD DC T#6,"WCPD080A"
0410 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"