Listing of file='IDS2SUB2' on disk='vmedia/701-2715B.wvd.zip'
# Sector 790, program filename = 'IDS2SUB2' 0442 H,Q=0 0443 DEFFN'38(O,E8$) : F6$(55)=BIN(O) : DATA LOAD BA T#2,(VAL(@E2$(2),2)+INT(O/3))E4$() : F0$=STR(E4$(),17+85*MOD(O,3)) : IF POS(F0$=23)>0THEN STR(F0$,POS(F0$=23),LEN(E8$))=E8$ : E8$=STR(E4$(),1+85*MOD(O,3)) : E8$(1)=STR(E4$(),81+85*MOD(O,3)) : IF F6$(14)="N"THEN RETURN : GOTO 458 0449 DEFFN'35(F0$) : E8$="Error Message:" : E8$(1)="!" : GOTO 458 0454 DEFFN'53(F0$) : E8$="Attention:" : E8$(1)=" " 0458 DEFFN'63(E8$,F0$,E8$(1)) : IF E8$(1)="!"THEN PRINT HEX(07); : SELECT PRINT 205 : PRINT HEX(06);@E1$(2);AT(23,0);STR(E8$,,16);STR(F0$,,64);HEX(0F); : E8$(2)="M" 0463 IF E8$(1)="!"THEN KEYIN E6$,463,463 : RETURN