home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 March
/
64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64
/
autoscreenoff.ba
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
35 lines
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