home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9110a.d64
/
messprogramm
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
778b
|
16 lines
0 REM DIESES PROGRAMM MISST, WIE LANGE AM USERPORT PIN L AUF MASSE LIEGT
1 REM ANWENDUNG VON BLITZLICHT BIS ZU MESSUNGEN UEBER 1 STUNDE MOEGLICH
2 REM W.BRUECHLE 6108 WEITERSTADT, F.V.STEIN-STR.7B
10 DATA 120, 169, 0, 141, 3, 221, 169, 144, 141, 14, 221, 169, 209, 141, 15, 221
20 DATA 169, 255, 141, 5, 221, 141, 4, 221, 141, 6, 221, 141, 7, 221, 169, 145
30 DATA 44, 1, 221, 48, 251, 141, 14, 221, 169, 128, 44, 1, 221, 16, 251, 45, 14
40 DATA 221, 45, 15, 221, 173, 4, 221, 141, 143, 3, 173, 5, 221, 141, 144, 3,173
45 DATA 6, 221, 141, 145, 3, 173, 7, 221, 141, 146, 3, 88, 96
50 FOR I=0 TO 78 :READ A:POKE832+I,A:NEXT
60 Z=2^32-6:A=911:PRINT"[147]MESSBEREIT"
70 SYS832
80 FORI=0TO3:Z=Z-(PEEK(A+I)*256^I):NEXT
90 Z=Z/985248.4:PRINT"[147]";Z;"SEK";:IFZ<1THENPRINT" = 1/".1*INT(10/Z);"SEK."
100 GETA$:IFA$<>" "THEN100
110 GOTO 60