home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / PTRWDGT < prev    next >
Encoding:
Text File  |  2001-03-02  |  1.4 KB  |  41 lines
  1. 10    ! *************************************************************
  2. 20    ! Example: PRINTER Widget
  3. 30    !
  4. 40    ! This program generates a PRINTER widget.
  5. 50    !
  6. 60    ! *************************************************************
  7. 70    !
  8. 80       DIM S$[50],P$[50],T$[50]
  9. 90       INTEGER Lines
  10. 100   !
  11. 110       ASSIGN @Prn TO WIDGET "PRINTER"
  12. 120       CONTROL @Prn;SET ("TITLE":" Example: PRINTER Widget")
  13. 130       CONTROL @Prn;SET ("X":50,"Y":25,"WIDTH":250,"HEIGHT":125)
  14. 140       CONTROL @Prn;SET ("SYSTEM MENU":"Quit")
  15. 150   !
  16. 160       ON EVENT @Prn,"SYSTEM MENU" GOTO Finis
  17. 170   !
  18. 180       S$=TIME$(TIMEDATE)&" PRINT TEST LINE 1"
  19. 190       CONTROL @Prn;SET ("APPEND TEXT":S$)
  20. 200       Lines=1
  21. 210       LOOP
  22. 220           REPEAT
  23. 230               P$=S$
  24. 240               S$=TIME$(TIMEDATE)
  25. 250           UNTIL S$<>P$
  26. 260           IF Lines<5 THEN
  27. 270               Lines=Lines+1
  28. 280               T$=S$&" PRINT TEST LINE "&VAL$(Lines)
  29. 290               CONTROL @Prn;SET ("CURRENT LINE":1,"INSERT TEXT":T$)
  30. 300           ELSE
  31. 310               CONTROL @Prn;SET ("CURRENT LINE":5)
  32. 320               STATUS @Prn;RETURN ("CURRENT TEXT":T$)
  33. 330               CONTROL @Prn;SET ("CURRENT LINE":5,"DELETE LINES":1)
  34. 340               CONTROL @Prn;SET ("CURRENT LINE":1,"INSERT TEXT":T$)
  35. 350           END IF
  36. 360       END LOOP
  37. 370   !
  38. 380  Finis:!
  39. 390       ASSIGN @Prn TO *! Delete PRINTER widget
  40. 400       END
  41.