home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 August / 64er_Magazin_91-08_1991_Markt__Technik_de_Side_B.d64 / luftdruck (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  995b  |  39 lines
  1. 0 -----------
  2. 1 rem achtung: hier handelt es sich um
  3. 2 rem ein unterprogramm fuer das
  4. 3 rem listing 'main' aus 64'er-ausgabe
  5. 4 rem 7/91, seite 23. bitte entfernen
  6. 5 rem sie zunaechst alle rem-zeilen bis
  7. 6 rem einschliesslich zeile 11.
  8. 7 rem zum zusammenfuegen verwenden sie
  9. 8 rem bitte eine merge-routine oder
  10. 9 rem unseren merge-tip (64'er 5/91,
  11. 10 rem seite 60 rechts unten).
  12. 11 -----------
  13. 12000 rem ************************************
  14. 12010 rem * druckmodul                       *
  15. 12020 rem * uebergabe: analogportnummer in bs*
  16. 12030 rem ************************************
  17. 12040 nt=0000.000:ns=2.10970464
  18. 12050 poke56579,peek(56579)or224
  19. 12060 poke56577,m*32
  20. 12070 forte=1to1000
  21. 12080 next
  22. 12090 gosub 5000
  23. 12100 an = int((fz-nt)/ns)
  24. 12110 iftl=0thentl=fz
  25. 12120 ifan>=10000thenan=9999
  26. 12130 ifdm<>10then12220
  27. 12140 tm=tm/10
  28. 12150 print""spc(s%(bs))" [157] [157] "
  29. 12160 printspc(s%(bs))
  30. 12170 iftm>tl+.2thenprint"+"
  31. 12180 iftm<tl-.2thenprint"-"
  32. 12190 iftm<=tl+.2andtm>=tl-.2thenprint"="
  33. 12200 tl=tm
  34. 12210 tm=0
  35. 12220 dm=dm+1
  36. 12230 ifdm=30thendm=0
  37. 12240 tm=tm+fz
  38. 12250 return
  39.