home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / dmp130.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  32 lines
  1. 1 REM DMP130.BA by Gene Nestro, modified by Robert Benson (11/8/91)
  2. 10 CLS:IFPEEK(1)=171THENCALL20318:Z=20323:Y=289:X=600ELSECALL16959:Z=16964:Y=129:X=280
  3. 20 GOSUB250:PRINT@X,"norm comp cond micr nlqn nlqc ital Next
  4. 30 KEYON
  5. 40 ONKEYGOSUB60,70,80,90,100,110,120,130
  6. 50 GOSUB280:GOTO40
  7. 60 GOSUB260:LPRINTCHR$(27)CHR$(19);:GOTO20
  8. 70 GOSUB260:LPRINTCHR$(27)CHR$(23);:GOTO20
  9. 80 GOSUB260:LPRINTCHR$(27)CHR$(20);:GOTO20
  10. 90 GOSUB260:LPRINTCHR$(27)CHR$(77);:GOTO20
  11. 100 GOSUB260:LPRINTCHR$(27)CHR$(18);:GOTO20
  12. 110 GOSUB260:LPRINTCHR$(27)CHR$(29);:GOTO20
  13. 120 GOSUB260:LPRINTCHR$(27)CHR$(66)CHR$(1);:GOTO20
  14. 130 GOSUB250:PRINT@X,"bold prop elon line supr subs Next Menu
  15. 140 KEYON
  16. 150 ONKEYGOSUB170,180,190,200,210,220,230,240
  17. 160 GOSUB280:GOTO150
  18. 170 GOSUB270:LPRINTCHR$(27)CHR$(31);:GOTO130
  19. 180 GOSUB270:LPRINTCHR$(27)CHR$(17);:GOTO130
  20. 190 GOSUB270:LPRINTCHR$(27)CHR$(14);:GOTO130
  21. 200 GOSUB270:LPRINTCHR$(15);:GOTO130
  22. 210 GOSUB270:LPRINTCHR$(27)CHR$(83)CHR$(0);:GOTO130
  23. 220 GOSUB270:LPRINTCHR$(27)CHR$(83)CHR$(1);:GOTO130
  24. 230 GOTO20
  25. 240 CALLZ:MENU
  26. 250 PRINT@Y,"ESC key resets printer":RETURN
  27. 260 IFP=2THENRETURNELSEGOSUB300:GOTO30
  28. 270 IFP=2THENRETURNELSEGOSUB300:GOTO140
  29. 280 P=INP(187)AND6:A$=INKEY$:IFA$<>CHR$(27)THENRETURN
  30. 290 IFP=2THENGOSUB250:LPRINTCHR$(27)CHR$(33)CHR$(27)CHR$(33):RETURN
  31. 300 PRINT@Y,"  PRINTER NOT READY!  ":BEEP:RETURN
  32.