*************************************** * Scripy Text processor * * for the R/S 100/102 computer * * Copyright (C) 1985 * * by * * Thomas L. Quindry * * Club 100 Library - 415/939-1246 BBS * * 937-5039 NEWSLETTER, 932-8856 VOICE * * - Public Domain Software - * * * * Please use this software free of * * charge and give a copy to your * * friends. If you find it useful, a * * suggested donation of $15 would * * be much appreciated. * * * * You may send your donation to: * * * * Thomas L. Quindry * * TLQ Enterprises * * 6237 Windward Drive * * Burke, VA 22015 * * * * Please do not remove this notice. * * * *************************************** 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. With this program, the HIMEM pointer must be set to 57943 or lower using the command from BASIC: CLEAR 50,57943 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. Listing 1. SCRDVI.BA. A BASIC program that creates SCRDVI.CO, the Disk Video Interface version of SCRIPY.CO 10 CLS:CLEAR50,57943 20 PRINT:PRINTTAB(11)"Loading SCRDVI.CO" 40 PRINTTAB(19)"By" 50 PRINTTAB(11)"Thomas L. Quindry":PRINT 60 FORN=57943TO58262:READA:POKEN,A:CK=CK+A:NEXT 70 READA:IFCK<>ATHENPRINT" Checksum error, check DATA statements":END 80 PRINTTAB(8)"SCRDVI.CO has been saved" 90 PRINTTAB(8)"SCRDVI.BA can be killed" 100 PRINTTAB(4)"Himem must be protected to 57943" 110 SAVEM"SCRDVI.CO",57943,58262,57965 1000 DATA10, 9, 9, 69, 110, 116, 101, 114, 0, 201 1010 DATA87, 226, 205, 177, 39, 205, 62, 70, 218, 0 1020 DATA0, 201, 33, 103, 227, 195, 118, 226, 33, 140 1030 DATA227, 205, 99, 226, 33, 133, 246, 229, 14, 7 1040 DATA205, 232, 15, 183, 202, 145, 226, 119, 254, 46 1050 DATA202, 145, 226, 35, 13, 194, 127, 226, 6, 4 1060 DATA17, 147, 227, 205, 105, 52, 209, 62, 9, 205 1070 DATA171, 90, 202, 115, 226, 205, 227, 90, 229, 17 1080 DATA133, 246, 62, 66, 18, 19, 175, 18, 14, 62 1090 DATA225, 17, 135, 246, 13, 202, 233, 226, 126, 6 1100 DATA1, 254, 136, 202, 206, 226, 4, 254, 156, 202 1110 DATA206, 226, 6, 3, 254, 157, 194, 212, 226, 120 1120 DATA50, 58, 227, 62, 32, 18, 35, 19, 254, 140 1130 DATA202, 1, 227, 254, 26, 202, 0, 227, 254, 13 1140 DATA194, 181, 226, 195, 0, 227, 229, 213, 43, 27 1150 DATA126, 183, 194, 249, 226, 209, 225, 43, 27, 195 1160 DATA1, 227, 254, 32, 194, 235, 226, 193, 193, 35 1170 DATA229, 62, 13, 18, 14, 10, 62, 32, 205, 95 1180 DATA227, 13, 194, 7, 227, 33, 135, 246, 126, 254 1190 DATA140, 202, 42, 227, 254, 26, 202, 51, 227, 254 1200 DATA13, 202, 57, 227, 205, 95, 227, 35, 195, 19 1210 DATA227, 205, 71, 227, 205, 96, 226, 195, 166, 226 1220 DATA205, 71, 227, 195, 0, 0, 62, 1, 205, 74 1230 DATA227, 126, 254, 13, 218, 42, 227, 195, 175, 226 1240 DATA58, 133, 246, 245, 33, 133, 246, 53, 62, 13 1250 DATA205, 95, 227, 62, 10, 205, 95, 227, 241, 61 1260 DATA200, 195, 74, 227, 245, 230, 127, 205, 63, 109 1270 DATA241, 201, 10, 9, 9, 83, 99, 114, 105, 112 1280 DATA121, 10, 13, 10, 9, 32, 98, 121, 32, 84 1290 DATA104, 111, 109, 97, 115, 32, 76, 46, 32, 81 1300 DATA117, 105, 110, 100, 114, 121, 10, 10, 13, 9 1310 DATA9, 70, 105, 108, 101, 0, 46, 68, 79, 0, 40553 Listing 2. CFIGDV.BA. A BASIC program to provide initial configuration to SCRDVI.CO, the disk video interface version of SCRIPY.CO. 10 CLS:LOADM"SCRDVI" 20 PRINT,"Scrdvi Config":PRINT 30 A=10:INPUT"Left Margin (10)";A:POKE58118,A 40 A=60:INPUT"Line length (60)";A:A=A+2:POKE58032,A 50 A=1:INPUT"Default linefeeds (1)";A:POKE58170,A 60 A=3:INPUT"No. linefeeds for GRPH-3 (3)";A:POKE58056,A 70 A=12:INPUT"Skip over perforation (12)";A:A=A+1:POKE58176,A 80 A=66:INPUT"Page length (66)";A:POKE58026,A 90 PRINT"Pause after formfeed? ";:GOSUB1000:IFA=1THENPOKE57952,33ELSEPOKE57952,201 100 PRINT"Linefeed with carriage return? ";:GOSUB1000:IFA=1THENPOKE58199,95ELSEPOKE58199,102 110 PRINT"Save Configuration? ";:GOSUB1000:IFA=1THENPRINT"Saved":SAVEM"SCRDVI",57943,58262,57965ELSECLS:CALL57965 999 END 1000 A=ASC(INPUT$(1))AND223:IFA=89THENA=1:PRINT"Yes":RETURNELSEIFA=78THENPRINT"No":RETURNELSEGOTO1000