home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / MANAGE1.ZIP / CRAPPYED.ASI next >
Text File  |  1992-03-24  |  1KB  |  112 lines
  1. rem HERE IS THE ROUTINE FOR TYPING IN FILES IN 80-COLUMN MODE.
  2. cls
  3.  
  4. b$=chr$(27)
  5. c$=chr$(13)
  6. d$=chr$(8)
  7. e$=chr$(32)
  8. lf$=chr$(10)
  9. crlf$=c$+lf$
  10.  
  11. retypefi:
  12. gosub continue:
  13.  
  14. if a$=b$ then
  15. realfile$=""
  16. file$=""
  17. file1$=""
  18. file2$=""
  19. end
  20. endif
  21.  
  22. if a$=c$ then
  23. print ""
  24. file$=file$+crlf$
  25. a$=""
  26. endif
  27.  
  28. gosub cursor:
  29.  
  30. if a$=d$ then
  31. locate a,c
  32. print e$;
  33. locate a,c
  34. d=len(file$)
  35. e=d-1
  36. file$=mid$(file$,1,e)
  37. if e<0 then
  38. e=0
  39. c=c+1
  40. locate a,c
  41. endif
  42. if b=0 then
  43. a=a-1
  44. b=79
  45. locate a,b
  46. print e$;
  47. locate a,b
  48. endif
  49. goto retypefi:
  50. endif
  51.  
  52. print a$;
  53. file$=file$+a$
  54. realfile$=ucase$(file$)
  55. goto retypefi:
  56.  
  57. rem THIS IS THE END OF THE ROUTINE FOR TYPING IN FILES IN 80-COLUMN MODE.
  58.  
  59.  
  60. continue:
  61. gosub function:
  62. a$=inkey$
  63. if a$="" then continue:
  64. return
  65.  
  66. cursor:
  67. a=csrlin
  68. b=pos(0)
  69. c=b-1
  70. return
  71.  
  72.  
  73. function:
  74. if extended=0 then
  75. return
  76. endif
  77.  
  78. if a$=";" then
  79. function$=a$
  80. a$=""
  81. gosub help:
  82. return
  83. endif
  84.  
  85. goto function:
  86.  
  87. help:
  88. cls
  89. print "Help Screen: F2=Save & Exit  Esc: Cancel"
  90. print ""
  91.  
  92. wait:
  93. function$=inkey$
  94. if function$="" then wait:
  95.  
  96. if function$=b$ then
  97. return
  98. endif
  99.  
  100. if extended=0 then wait:
  101.  
  102. if function$="<" then
  103. open "o",1,"testfile.doc"
  104. print # 1, file$
  105. close 1
  106. endif
  107. end
  108. return
  109.  
  110.  
  111. end
  112.