home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / blanking (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  38 lines
  1. 1000 data76,85,200,147,17,32,32,32,42,42,42,42,32,67,79,77,77,79,68,79,82,69,32
  2. 1010 data54,52,32,83,67,82,69,69,78,32,84,79,79,76,32,42,42,42,42,13,32,17,60
  3. 1020 data67,62,32,66,89,32,78,73,71,32,83,79,70,84,87,65,82,69,32,83,69,82,86
  4. 1030 data73,67,69,32,78,83,83,32,50,53,48,49,56,54,13,,120,169,112,160,200,141
  5. 1040 data20,3,140,21,3,88,169,,133,181,133,247,133,248,169,3,160,200,76,30,171
  6. 1050 data32,118,200,76,49,234,165,181,240,28,165,203,201,64,240,21,173,17,208,9
  7. 1060 data16,141,17,208,165,249,141,32,208,169,,133,247,133,248,133,181,96,165
  8. 1070 data203,201,64,240,6,169,,133,247,133,248,230,247,208,2,230,248,165,248
  9. 1080 data201,14,144,231,169,255,133,181,173,17,208,41,239,141,17,208,173,32,208
  10. 1090 data133,249,169,,141,32,208,96
  11. 1100 s=0:fori=51200to51396:readq:s=s+q:pokei,q:next
  12. 1120 print"[147]dieses programm blendet, wenn sie 1 mi-
  13. 1122 [153]"nute keine taste druecken, den bild-
  14. 1124 print"schirm aus. den zeitwert veraendern sie
  15. 1126 [153]"so: sie teilen die zeit (in sekunden)
  16. 1128 print"durch 4,28 und poken den wert in die
  17. 1130 [153]"speicherzelle 51371, oder aendern in der";
  18. 1132 [153]"programmzeile 1080 den 2. wert, der mo-
  19. 1134 print"mentan 14 (60 sek / 4,28 = 14) ist.
  20. 1136 [153]"das programm wird duch sys 51200 akti-  viert.
  21. 1137 gosub2000
  22. 1138 print"sys51200[145][145][145]
  23. 1999 [128]
  24. 2000 [153]"durch den effekt wird der monitor ge-
  25. 2002 print"schont, da sich bei grossem kontrast der";
  26. 2004 print"text in die mattscheibe brennen kann.":return
  27. 3000 rem ***
  28. 3002 rem special 64'er sh-release
  29. 3004 rem
  30. 3006 rem sh 57
  31. 3008 rem
  32. 3010 rem nikolaus heusler
  33. 3012 rem zwengauerweg 18
  34. 3014 rem 8000 muenchen 71
  35. 3016 rem
  36. 3018 rem (c) nh-060290-arr                       ein nss-programm
  37. 3020 :
  38.