#!/usr/sbin/blassic PRINT "" SHELL "echo -n `/home/graham/i2c/PIC_i2c_one_value 80 0 0 0`>/var/www/ramdisk/AD.txt" OPEN "/var/www/ramdisk/AD.txt" FOR INPUT AS #1 : INPUT #1,AD1$ : CLOSE #1 SHELL "echo -n `/home/graham/i2c/PIC_i2c_one_value 80 0 2 0`>/var/www/ramdisk/AD.txt" OPEN "/var/www/ramdisk/AD.txt" FOR INPUT AS #1 : INPUT #1,AD2$ : CLOSE #1 SHELL "echo -n `/home/graham/i2c/PIC_i2c_one_value 80 0 4 0`>/var/www/ramdisk/AD.txt" OPEN "/var/www/ramdisk/AD.txt" FOR INPUT AS #1 : INPUT #1,AD3$ : CLOSE #1 AD1 = VAL(AD1$) IF AD1 >= 640 THEN TempByte1 = 100 IF AD1 <= 540 THEN TempByte1 = 0 IF (AD1 > 540) AND (AD1 < 640) THEN TempByte1 = AD1 - 540 Temperature1 = (TempByte1 - 20)/2 AD2 = VAL(AD2$) IF AD2 >= 640 THEN TempByte2 = 100 IF AD2 <= 540 THEN TempByte2 = 0 IF (AD2 > 540) AND (AD2 < 640) THEN TempByte2 = AD2 - 540 Temperature2 = (TempByte2 - 20)/2 AD3 = VAL(AD3$) IF AD3 >= 640 THEN TempByte3 = 100 IF AD3 <= 540 THEN TempByte3 = 0 IF (AD3 > 540) AND (AD3 < 640) THEN TempByte3 = AD3 - 540 Temperature3 = (TempByte3 - 20)/2 PRINT "Testing the PIC i2c slave box
PRINT "
Temperature 1 is ", Temperature1, " degrees C" PRINT "
Temperature 2 is ", Temperature2, " degrees C" PRINT "
Temperature 3 is ", Temperature3, " degrees C" PRINT "" SYSTEM