image of READY prompt

Wang2200.org

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

# Sector 630, program filename = 'WCPD120A'
0010 REM .   WCPD120A,   00-00 (06/28/75),   12002
   : COM N
   : P=1
   : IF P=0THEN 320
   : DIM C$64,D$(2)64,E$(1,2)64
   : DIM C1$64,D1$(2)64,E1$(1,2)64
0150 C$="1234567890123456789012345678901234567890123456789012345678901234"
   : C1$=C$
0170 IF C1$="1234567890123456789012345678901234567890123456789012345678901234"
     THEN 180
   : PRINT TAB(40);"ERROR AT 80"
   : GOTO 320
0180 D$(1)="ABCDEFGHIJKLMNOPQRSTUVWXYZ%'$#:HGFEDCBAIJKLMNOPXWVUTSRQYZ%'$#:XPH"
   : D$(2)="/()*<>-^;+=,)>;,(<^=/*-+"
   : D1$(1)=D$(1)
0210 D1$(2)=D$(2)
   : FOR I=1TO 2
   : IF D$(I)=D1$(I)THEN 240
   : PRINT TAB(40);"ERROR AT 160"
   : GOTO 320
0240 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 300
0290 PRINT TAB(40);"ERROR AT 220"
   : GOTO 320
0300 NEXT I
   : PRINT "OK"
   : LOAD DC T"WCPD130A"
0320 E(1)=E(1)+1
   : LOAD DC T"WCPD130A"
0330 DEFFN'15
   : LOAD DC T"START"50