10 REM ** 64'ER MAGAZIN 3/93 HARDWARE
20 REM ** VON NIKOLAUS HEUSLER
30 REM ** ZWENGAUERWEG 18, 8000 MUENCHEN 71
40 REM -- PULSMESSER           12.92   --
50 REM -- SENSOR (HIGH-AKTIV) AN PB0 ANSCHLIESSEN
60 IFPEEK(49400)<>3THENLOAD"PULS.CODE",8,1
70 SYS65409
80 POKE53280,6:POKE53281,6
90 DIMA(11)
100 PRINT"[147][211][211] PULS-MESSER [211][211] NIKOLAUS HEUSLER/64'ER";
110 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
120 [153]" A - DAUERMESSUNG
130 PRINT" B - EINE EINZELMESSUNG   (10 SEC)
140 [153]" C - ZEHN EINZELMESSUNGEN (100 SEC)
145 PRINT"     MIT GRAFISCHER AUSWERTUNG
150 [153]" D - PROGRAMMENDE
160 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
170 [153]"      MY PLEASURE IS YOUR DECISION
174 PRINT"GEBRAUCHSANWEISUNG:
175 [153]"1. SENSOR ANLEGEN":[153]"2. BITTE WAEHLEN
180 POKE198,.:WAIT198,1:GETA$:IFA$<"A"ORA$>"D"THEN180
190 IFA$="D"THENSYS64738
200 PRINT"[147][211][211] PULS-MESSER [211][211] NIKOLAUS HEUSLER/64'ER";
210 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
220 [153]"     M E S S U N G    E R F O L G T
230 PRINT"AKTUELLER WERT: TJA...    PULSE/MINUTE
232 [153]"MESSUNG NR.   :
234 PRINT"TYP           : ";
236 IFA$="A"THENPRINT"DAUERMESSUNG
238 [139]A$[178]"B"[167][153]"EINE EINZELMESSUNG
240 IFA$="C"THENPRINT"ZEHN EINZELMESSUNGEN
250 ME[178]ME[170]1:[153]""ME
260 [158]49152:[143] MESSUNG AKTIVIEREN, 10 SEKUNDEN MESSEN
270 E[178][194](2)[170][194](3)[172]256:[143] MESSWERT PRO MINUTE
280 [139]A$[178]"C"[167]A(ME)[178]E
290 [153]"";
300 [139]E[179]30[176]E[177]250[167][153]" FEHLER!WAIT   ":[137]320
310 [153]E"CMD      "
320 [139]A$[178]"A"[176](A$[178]"C"[175]ME[179]10)[167]250
330 [139]A$[178]"C"[167]400
340 [153]"      PROGRAMM-NEUSTART MIT TASTE!
350 POKE198,.:WAIT198,1:RUN
400 PRINT"[147][211][211] PULS-MESSER [211][211] NIKOLAUS HEUSLER/64'ER";
410 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
420 [153]" PULSE     (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)
422 PRINT" [192][192][192][192][192]     [180]                          [170]
424 [153]"  MIN      SGN                          +
426 FORI=0TO16
428 PRINT"           [180]                          [170]
430 [130]
432 [153]"           (null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR";
434 [129]I[178]250[164]30[169][171]44
436 [153]""[163]8[170](I[177]99))I:[130]
438 [153]"1  2  3  4  5  6  7  8  9 10
450 FORI=1TO10:FORJ=0TO1STEP.1
460 POKE211,8+(I+J)*3
470 Z=A(I)*(1-J)+A(I+1)*J
480 IFZ<30ORZ>250THEN500
490 POKE214,(220-(Z-30))/11+3:SYS58732:PRINT"[211]
500 [139]I[179]10[167][130]J,I
510 [151]198,.:[146]198,1:[138]
600 [143] ** ----------------------------
602 [143] ** EIN AUSDRUCK DES BILDSCHIRMS
610 [143] ** IST BEISPIELSWEISE MIT 'UNI-
612 [143] ** PRINT'  MOEGLICH (BEIM  PRO-
614 [143] ** GRAMMAUTOR ERHAELTLICH)
616 [143] ** ----------------------------