image of READY prompt

Wang2200.org

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

# Sector 45, program filename = 'WCPD150A'
0010 REM .     WCPD150A,  00-00 (6/28/75),   12002
0100 COM N,P
   : IF P=0THEN 440
   : DATA 1,2,3,4,5
   : DATA -1,-2,-3,-4,-5
   : FOR I=1TO 5
   : READ X1
   : S1=S1+X1
   : NEXT I
   : RESTORE
   : FOR I=1TO 5
   : READ X2
   : S2=S2+X2
   : NEXT I
   : IF X1=X2THEN 260
   : PRINT TAB(40);"ERROR AT 200"
   : GOTO 440
0260 RESTORE 3
   : READ A,B
   : RESTORE 8
   : READ C,D
   : IF A*B=C*DTHEN 330
   : PRINT TAB(40);"ERROR AT 240"
   : GOTO 440
0330 P1=1
   : FOR I=1TO 12
   : RESTORE 10
   : READ A
   : P1=P1*A
   : NEXT I
   : IF P1=244140625THEN 420
   : PRINT TAB(40);"ERROR AT 290"
   : GOTO 440
0420 P=1
   : LOAD DC T#6,"WCPD160A"
0440 E9$(P9)="NG"
   : P=0
   : LOAD DC T#6,"WCPD160A"
0470 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"