home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9108b.d64 / luftdruck (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.