home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / scrdvi.100 < prev    next >
Text File  |  2006-10-19  |  5KB  |  94 lines
  1. ***************************************
  2. *        Scripy Text processor        *
  3. *     for the R/S 100/102 computer    *
  4. *          Copyright (C) 1985         *
  5. *                  by                 *
  6. *          Thomas L. Quindry          *
  7. * Club 100 Library - 415/939-1246 BBS *
  8. * 937-5039 NEWSLETTER, 932-8856 VOICE *
  9. *      - Public Domain Software -     *
  10. *                                     *
  11. *    Please use this software free of *
  12. * charge  and  give  a  copy to  your *
  13. * friends.  If you  find it useful, a *
  14. * suggested  donation  of  $15  would *
  15. * be much appreciated.                *
  16. *                                     *
  17. *    You may  send your  donation to: *
  18. *                                     *
  19. *          Thomas L. Quindry          *
  20. *           TLQ Enterprises           *
  21. *         6237 Windward Drive         *
  22. *           Burke, VA 22015           *
  23. *                                     *
  24. *  Please do not remove this notice.  *
  25. *                                     *
  26. ***************************************
  27.  
  28. This a supplemental program for which provides a version of SCRIPY.CO called SCRDVI.CO to be used with the Radio Shack Disk Video Interface.
  29.  
  30. With this program, the HIMEM pointer must be set to 57943 or lower using the command from BASIC: CLEAR 50,57943
  31.  
  32. For instructions in using SCRDVI and creating the BASIC programs listed below, you must download the file called SCRIP.DO. SCRDVI.BA will create a machine language program called SCRDVI.CO. Everything else is the same except for the differences described here including the names of the files which are called SCRDVI and CFIGDV.
  33.  
  34. Listing 1. SCRDVI.BA. A BASIC program that creates SCRDVI.CO, the Disk Video Interface version of SCRIPY.CO
  35.  
  36. 10 CLS:CLEAR50,57943
  37. 20 PRINT:PRINTTAB(11)"Loading SCRDVI.CO"
  38. 40 PRINTTAB(19)"By"
  39. 50 PRINTTAB(11)"Thomas L. Quindry":PRINT
  40. 60 FORN=57943TO58262:READA:POKEN,A:CK=CK+A:NEXT
  41. 70 READA:IFCK<>ATHENPRINT" Checksum error, check DATA statements":END
  42. 80 PRINTTAB(8)"SCRDVI.CO has been saved"
  43. 90 PRINTTAB(8)"SCRDVI.BA can be killed"
  44. 100 PRINTTAB(4)"Himem must be protected to 57943"
  45. 110 SAVEM"SCRDVI.CO",57943,58262,57965
  46. 1000 DATA10, 9, 9, 69, 110, 116, 101, 114, 0, 201
  47. 1010 DATA87, 226, 205, 177, 39, 205, 62, 70, 218, 0
  48. 1020 DATA0, 201, 33, 103, 227, 195, 118, 226, 33, 140
  49. 1030 DATA227, 205, 99, 226, 33, 133, 246, 229, 14, 7
  50. 1040 DATA205, 232, 15, 183, 202, 145, 226, 119, 254, 46
  51. 1050 DATA202, 145, 226, 35, 13, 194, 127, 226, 6, 4
  52. 1060 DATA17, 147, 227, 205, 105, 52, 209, 62, 9, 205
  53. 1070 DATA171, 90, 202, 115, 226, 205, 227, 90, 229, 17
  54. 1080 DATA133, 246, 62, 66, 18, 19, 175, 18, 14, 62
  55. 1090 DATA225, 17, 135, 246, 13, 202, 233, 226, 126, 6
  56. 1100 DATA1, 254, 136, 202, 206, 226, 4, 254, 156, 202
  57. 1110 DATA206, 226, 6, 3, 254, 157, 194, 212, 226, 120
  58. 1120 DATA50, 58, 227, 62, 32, 18, 35, 19, 254, 140
  59. 1130 DATA202, 1, 227, 254, 26, 202, 0, 227, 254, 13
  60. 1140 DATA194, 181, 226, 195, 0, 227, 229, 213, 43, 27
  61. 1150 DATA126, 183, 194, 249, 226, 209, 225, 43, 27, 195
  62. 1160 DATA1, 227, 254, 32, 194, 235, 226, 193, 193, 35
  63. 1170 DATA229, 62, 13, 18, 14, 10, 62, 32, 205, 95
  64. 1180 DATA227, 13, 194, 7, 227, 33, 135, 246, 126, 254
  65. 1190 DATA140, 202, 42, 227, 254, 26, 202, 51, 227, 254
  66. 1200 DATA13, 202, 57, 227, 205, 95, 227, 35, 195, 19
  67. 1210 DATA227, 205, 71, 227, 205, 96, 226, 195, 166, 226
  68. 1220 DATA205, 71, 227, 195, 0, 0, 62, 1, 205, 74
  69. 1230 DATA227, 126, 254, 13, 218, 42, 227, 195, 175, 226
  70. 1240 DATA58, 133, 246, 245, 33, 133, 246, 53, 62, 13
  71. 1250 DATA205, 95, 227, 62, 10, 205, 95, 227, 241, 61
  72. 1260 DATA200, 195, 74, 227, 245, 230, 127, 205, 63, 109
  73. 1270 DATA241, 201, 10, 9, 9, 83, 99, 114, 105, 112
  74. 1280 DATA121, 10, 13, 10, 9, 32, 98, 121, 32, 84
  75. 1290 DATA104, 111, 109, 97, 115, 32, 76, 46, 32, 81
  76. 1300 DATA117, 105, 110, 100, 114, 121, 10, 10, 13, 9
  77. 1310 DATA9, 70, 105, 108, 101, 0, 46, 68, 79, 0, 40553
  78.  
  79. Listing 2. CFIGDV.BA. A BASIC program to provide initial configuration to SCRDVI.CO, the disk video interface version of SCRIPY.CO.
  80.  
  81. 10 CLS:LOADM"SCRDVI"
  82. 20 PRINT,"Scrdvi Config":PRINT
  83. 30 A=10:INPUT"Left Margin (10)";A:POKE58118,A
  84. 40 A=60:INPUT"Line length (60)";A:A=A+2:POKE58032,A
  85. 50 A=1:INPUT"Default linefeeds (1)";A:POKE58170,A
  86. 60 A=3:INPUT"No. linefeeds for GRPH-3 (3)";A:POKE58056,A
  87. 70 A=12:INPUT"Skip over perforation (12)";A:A=A+1:POKE58176,A
  88. 80 A=66:INPUT"Page length (66)";A:POKE58026,A
  89. 90 PRINT"Pause after formfeed? ";:GOSUB1000:IFA=1THENPOKE57952,33ELSEPOKE57952,201
  90. 100 PRINT"Linefeed with carriage return? ";:GOSUB1000:IFA=1THENPOKE58199,95ELSEPOKE58199,102
  91. 110 PRINT"Save Configuration? ";:GOSUB1000:IFA=1THENPRINT"Saved":SAVEM"SCRDVI",57943,58262,57965ELSECLS:CALL57965
  92. 999 END
  93. 1000 A=ASC(INPUT$(1))AND223:IFA=89THENA=1:PRINT"Yes":RETURNELSEIFA=78THENPRINT"No":RETURNELSEGOTO1000
  94.