image of READY prompt

Wang2200.org

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

# Sector 134, program filename = 'WCPD160A'
0010 REM .     WCPD160A,  00-00 (6/28/75),   12002
0100 COM N,P
   : IF P=0THEN 370
   : DIM Z$20,X$(1,2)26,C(2)
   : DATA "ABC",150,"DEF",.06E+5
   : DATA "12345678901234567890",3,4
   : DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   : DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   : READ A$,A,B$,B
   : READ Z$,C(1),C(2)
0190 FOR I=1TO 2
   : READ X$(1,I)
   : NEXT I
   : IF A$="ABC"THEN 240
   : GOTO 330
0240 IF B$="DEF"THEN 260
   : GOTO 330
0260 IF A+B=6150THEN 280
   : GOTO 330
0280 IF Z$="12345678901234567890"THEN 300
   : GOTO 330
0300 IF C(1)+C(2)=7THEN 320
   : GOTO 330
0320 IF X$(1,1)=X$(1,2)THEN 360
0330 E9$(P9)="NG"
   : PRINT TAB(40);"ERROR 1"
   : LOAD DC T#6,"WCPD170A"
0360 PRINT "OK"
0370 LOAD DC T#6,"WCPD170A"
0380 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"