image of READY prompt

Wang2200.org

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

# Sector 299, program filename = 'WCPD170A'
0010 REM .     WCPD170A,  00-00 (6/28/75),   12002
0100 COM N
   : PRINT " TESTING GOSUB/RETURN ................";
   : A=40
   : GOSUB 260
   : E=60
   : GOSUB 330
   : GOTO 180
0170 RETURN
0180 S=0
   : S=A+B+C+D+E+F
   : IF S=860THEN 350
   : PRINT TAB(40);"ERROR 1"
   : GOTO 450
0230 GOTO 350
0240 PRINT "OK"
0250 LOAD DC T#6,"WCPD180A"
0260 B=110
   : GOSUB 300
   : D=130
   : GOTO 320
0300 C=210
   : RETURN
0320 RETURN
0330 F=310
   : GOTO 170
0350 S=0
0360 GOSUB 400
   : S=S-1
   : IF S=0THEN 440
   : RETURN
0400 S=S+1
   : IF S=44THEN 430
   : GOTO 360
0430 RETURN
0440 GOTO 240
0450 E9$(P9)="NG"
   : GOTO 250
0470 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"