16Ø IDNAME = ASC (INPUT$ (1 , 1)): REM READ RECEIVED IDNAME FROM CL526 17Ø PRINT #1, CHR$ (INSTRUCTION) ;

18Ø WHILE LOC (1) = Ø : WEND

19Ø INSTRUCTION = ASC (INPUT$ (1 , 1)) 2ØØ PRINT #1, CHR$ (DATA1) ;

21Ø WHILE LOC (1) = Ø : WEND

22Ø CHAR = ASC (INPUT$ (1 , 1))

23Ø PRINT #1, CHR$ (DATA2) ;

24Ø WHILE LOC (1) = Ø : WEND

25Ø CHAR = ASC (INPUT$ (1 , 1))

26Ø PRINT #1, CHR$ (DATA3) ;

27Ø WHILE LOC (1) = Ø : WEND

28Ø CHAR = ASC (INPUT$ (1 , 1))

29Ø PRINT #1, CHR$ (DATA4) ;

3ØØ WHILE LOC (1) = Ø : WEND

31Ø CHAR = ASC (INPUT$ (1 , 1))

32Ø PRINT #1, CHR$ (CHKSUM) ;

33Ø WHILE LOC (1) = Ø : WEND

34Ø CHAR = ASC (INPUT$ (1 , 1)) 35Ø PRINT "Trasmitted."

39Ø END

45

Page 45
Image 45
Omega Multifunction Indicator-Simulator, CL526 manual 3ØØ While LOC 1 = Ø Wend