home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9003a.d64 / autoscreenoff.ba (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.