image of READY prompt

Wang2200.org

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

# Sector 636, program filename = 'WCPD170A'
0010 REM .   WCPD170A,   00-00 (06/28/75),   12002
   : COM N
   : PRINT " TESTING GOSUB/RETURN ................";
   : A=40
   : GOSUB 270
   : E=60
   : GOSUB 360
   : GOTO 200
0190 RETURN
0200 S=0
   : S=A+B+C+D+E+F
   : IF S=860THEN 390
   : PRINT TAB(40);"ERROR AT 150"
   : GOTO 480
0240 GOTO 390
0250 PRINT "OK"
0260 LOAD DC T"WCPD180A"
0270 B=110
   : GOSUB 320
0300 D=130
   : GOTO 350
0320 C=210
   : RETURN
0350 RETURN
0360 F=310
   : GOTO 190
0390 S=0
0400 GOSUB 430
   : S=S-1
   : IF S=0THEN 470
   : RETURN
0430 S=S+1
   : IF S=44THEN 460
   : GOTO 400
0460 RETURN
0470 GOTO 250
0480 E(1)=E(1)+1
   : GOTO 260
0490 DEFFN'15
   : LOAD DC T"START"50