image of READY prompt

Wang2200.org

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

# Sector 539, program filename = 'WCPD120A'
0010 REM .     WCPD120A,  00-00 (6/28/75),   12002
0100 COM N
   : P=1
   : IF P=0THEN 400
   : DIM C$64,D$(2)64,E$(1,2)64
   : DIM C1$64,D1$(2)64,E1$(1,2)64
   : C$="1234567890123456789012345678901234567890123456789012345678901234"
   : C1$=C$
0170 IF C1$="1234567890123456789012345678901234567890123456789012345678901234"
     THEN 200
   : PRINT TAB(40);"ERROR 1"
   : GOTO 400
0200 D$(1)="ABCDEFGHIJKLMNOPQRSTUVWXYZ%'$#:HGFEDCBAIJKLMNOPXWVUTSRQYZ%'$#:XPH"
   : D$(2)="/()*<>-^;+=,)>;,(<^=/*-+"
   : D1$(1)=D$(1)
   : D1$(2)=D$(2)
   : FOR I=1TO 2
   : IF D$(I)=D1$(I)THEN 280
   : PRINT TAB(40);"ERROR 2"
0270 GOTO 400
0280 NEXT I
   : E$(1,1)="123456789012345678901234567890123456789"
   : E$(1,2)="ABCDEFGHPONMLKJIQRSTUVWXXPHGOWVNFEUUTLK"
   : E1$(1,1)=E$(1,1)
   : E1$(1,2)=E$(1,2)
   : FOR I=1TO 2
   : IF E1$(1,I)=E$(1,I)THEN 370
0350 PRINT TAB(40);"ERROR 3"
   : GOTO 400
0370 NEXT I
   : PRINT "OK"
   : LOAD DC T#6,"WCPD130A"
0400 E9$(P9)="NG"
   : LOAD DC T#6,"WCPD130A"
0420 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"