10 REM  ************************************************
20 REM  *                                              *
30 REM  * AUTOSCREENOFF                                *
40 REM  * AUTOMATISCHE BILDSCHIRMABSCHALTUNG FUER C 64 *
50 REM  *                                              *
60 REM  * OKTOBER 1989 VON                             *
70 REM  *                                              *
80 REM  * MANUEL DOCZAT                                *
90 REM  * KONRAD-ADENAUER-STR.22                       *
100 REM * 3012 LANGENHAGEN 1                           *
110 REM * TEL.:0511/776553                             *
120 REM *                                              *
130 REM ************************************************
140 REM
150 INPUT"  STARTADRESSE (DEZ)           ";S
160 INPUT"  ABSCHALTZEITPUNKT (1-59 MIN) ";A
170 REM
180 REM ***UMRECHNUNG DER EINGABEN IN LSB/MSB UND BCD***
190 REM
200 L=(S+21)-(INT((S+21)/256)*256):H=INT(S+21)/256
210 B=INT((A)/10)*16+((A)-INT((A)/10)*10)
220 REM
230 REM ***EINPOKEN DER DATA UND AUSFUEHRUNG************
240 REM
250 FORX=STOS+73:READY:POKEX,Y:NEXT
260 POKES+2,L:POKES+7,H:POKES+55,B
270 SYSS
280 REM
290 REM ***DATA*****************************************
300 REM
310 DATA120,169,0,141,20,3,169,0,141,21,3,173,14,221,9,128,141,14,221,141
320 DATA8,221,88,96,165,203,201,64,240,21,169,0,141,9,221,141,10,221,173,17
330 DATA208,9,16,141,17,208,169,10,141,137,2,173,10,221,201,0,208,13,173,17
340 DATA208,41,239,141,17,208,169,0,141,137,2,76,49,234