home *** CD-ROM | disk | FTP | other *** search
/ 64'er Magazin 1990 March / 64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64 / autoscreenoff.ba (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  35 lines
  1. 10 rem  ************************************************
  2. 20 rem  *                                              *
  3. 30 rem  * autoscreenoff                                *
  4. 40 rem  * automatische bildschirmabschaltung fuer c 64 *
  5. 50 rem  *                                              *
  6. 60 rem  * oktober 1989 von                             *
  7. 70 rem  *                                              *
  8. 80 rem  * manuel doczat                                *
  9. 90 rem  * konrad-adenauer-str.22                       *
  10. 100 rem * 3012 langenhagen 1                           *
  11. 110 rem * tel.:0511/776553                             *
  12. 120 rem *                                              *
  13. 130 rem ************************************************
  14. 140 rem
  15. 150 input"  startadresse (dez)           ";s
  16. 160 input"  abschaltzeitpunkt (1-59 min) ";a
  17. 170 rem
  18. 180 rem ***umrechnung der eingaben in lsb/msb und bcd***
  19. 190 rem
  20. 200 l=(s+21)-(int((s+21)/256)*256):h=int(s+21)/256
  21. 210 b=int((a)/10)*16+((a)-int((a)/10)*10)
  22. 220 rem
  23. 230 rem ***einpoken der data und ausfuehrung************
  24. 240 rem
  25. 250 forx=stos+73:ready:pokex,y:next
  26. 260 pokes+2,l:pokes+7,h:pokes+55,b
  27. 270 syss
  28. 280 rem
  29. 290 rem ***data*****************************************
  30. 300 rem
  31. 310 data120,169,0,141,20,3,169,0,141,21,3,173,14,221,9,128,141,14,221,141
  32. 320 data8,221,88,96,165,203,201,64,240,21,169,0,141,9,221,141,10,221,173,17
  33. 330 data208,9,16,141,17,208,169,10,141,137,2,173,10,221,201,0,208,13,173,17
  34. 340 data208,41,239,141,17,208,169,0,141,137,2,76,49,234
  35.