Untitled - TRS-80 Color Computer Archive

formatted disk and press the spacebar. The program ends by returningyou to BASIC ready mode. To prevent filename conflicts, the customized version of SpeedScript is giventhe filename SCRIPT30.BAK. Touse the program, perform a binaryload from DOS or rename the fileAUTORUN.SYS and reboot thesystem.Atari SpeedScriptCustomizerFor Instructions on entering this program,please refer to "COMPUTERS Guide to TypingIn Programs" In this issue of compute!.OD 1CL 2f J 3CJ 4DH 501 1001 20REM *******************REM ***** ATARI *****REM *** SPEEDSCRIPT ***REM *** CUSTOMIZER ***REM *******************GOTO 200• CHR*(125):POSITION 4B:? "WILL CREATE FILE(4 SPACES}ENTER ORIGINAL FILENAME GF"30 ? "C4 SPACES}]EK 9 0? :? "{10 SPACES}";:A*:"CISCISSPACES}":D*="SPACES}"GK40 TRAP 20:INPUT A*:IF A*="" THEN 20OK 50 POKE 752,255:? : IF LEN(A*>>2 THEN IF AS(2,2)=":" OR A*(3,3)="!" THEN 70HO 60 D*(l,3)=>"Dli":D*(4,15)£E 70 TRAP 710:OPEN #2,4,0,APA 80 DIM SS* (10000) , CI0*(7)PK 100DH 110)L 120JO 130140u 150:CI0*="hhh*LV':CI0»(4,4)=CHR*(170):CIO»(7)=CHR*(22B)LETREAD=1:X=32:SADR=ADR(SS»):MAXLEN=9999:GGSUB630:SS*(TRUELEN)=CHR*(0):CLOSE #2IFSS*(7823,7833)"SpeedScript" THEN 700IF NUM=CHR*4: EXITPROGRAM":POSITION 5,18:? "** press numberfor choice **":?K350 GET #1,KEY:IF KEY52 THEN 350D6360 NUM=KEY-48:ON NUM GOT0 370,370,570,730FH 370 ? CHR$(125) iPDSITION4,5:? "YOU WILL BEASKED TO ENTER A":? "VALUE FOR THE BORDER COLOR AND1'OA 380 ? " THE TEXT LUMINANCE, AND THE":? "SCREEN WILL CHANGE TOSHOWTHE"HE 390 ? " EFFECT OF YOUR CHDICE.":PaSITIDN2,IB:? "** press -spacebar- to continue **"DB400 GET ttl , KEY I IF KEY32THEN 400C3410 ? CHR* ( 125) : POKE 752,0FH 420 TRAP 420:POSITION 5,8FH430:? "ENTER VALUE FOR BORDER COLOR":? "C4SPACES}(0-127)t3 SPACES}";:INPUT SCRCOLSCRCOL=INT(SCRCOL):IFSCRCOL127 THEN 420FB450 ? CHR*(125): TRAP 450:POSITION 5,8:? "ENTERVALUE FOR TEXT LUMINANCE":? "{4 SPACES}(0-7)C3SPACES>";:INPUTTEXCOLRHD 460 TEXCDLR=INT < TEXCOLR) :IF TEXCDLR7 THEN 450DA4B0SCRC0L = 2*SCRCDL:C0LRl=PEEK(709):C0LR2=PEEK(710):POKE 709,TEXCOLR*2:P0KE 7 1 0,, SCRCOL: POKE 712,SCRCULEQ490 POKE 752,255:? CHR*(125):POSITION 8,8:? "THESE ARE YOUR CHOICES":? :? "C6 SPACES>ARECOLORS ACCEPTABLE?"CS 500 ? "tB SPACES} (Enter -Y- or -N->"a BET ttl,KEYBC510 POKE 709,COLR1:POKE 710,COLR2:PDKER2712,COLLO520 IF KEY< >89 THEN 410NC530 ? CHR*(125):P0SITIDN7,B:? "CHANGE LUMINANCEVALUES"PE 540 IF NUM=1 THEN POSITION 15,9;? "ONLY"NJ 550 ? : IF NUM = 2 THEN ? "C15HB 560 GOTO 5B0SPACES}*.11IF 570 ? CHR* ( 1 25)CN 580 IF NUM>1 THEN PDSITION 7,12:? "CHANGE FORRAMDISK,DB:"CS 590 IF NUM = 3 THEN PDSITION 15,13:? "ONLY"IH600 POSITION 2,16:? "***MAKE CHANGES TO PROGRAM? ***":POSITION 10,18:? "(Enter -Y- or-N-) "JC610 GET #1,KEY:IF KEY< >89THEN CLR :GOTO 200JG 620 POKE 752,0:GGTO 20Dr, 630 ICC0M = 834: ICBADR = 836:OE640ICBLEN=840:ICSTAT=835H=INT(SADR/2!5 6):L = SADR-H*256:POKE,L:POKEICBADR+XICBADR+X+1,HCL 650 H=INT (MAXLEN/256) :L = MAXLEN-H*256:P0KEEN+X,L:POKE1,HICBLICBLEN+X+JH660 POKE ICCOM + X , 1 1-4*READ:A=USR(ADR(CIO*),X)OP 670 TRUELEN = PEEK(ICBLEN + X)+256*PEEK(ICBLEN+X+1) + 1Pfl 680 POKE 195,PEEK( ICSTAT):RETURN1P690 REM *t* ERROR & EXITROUTINE **«IH 70 0 GRAPHICS 0:? :? pl BYTE COMPARISON FAILED": ? " INCORRECT SOURCE FILE":GOTO 740U710 GRAPHICS 0:? :? ■' *FATAL ERROR * = ";;?PEEK(195>:G0T0 740OE720 GRAPHICS 0:? :? "C3 SPACES>READ/WRITESUCCESSFUL1':OOTD 740BL 730 GRAPHICS 0DB740 ? " *** PROGRAM STGPPED ***":CLOSE ttliCLQSE tt2:TRAP 40000:POKE752,0:END050 COMPUTE! February 1987