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 <strong>80</strong> 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 3<strong>80</strong> ? " 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 5<strong>80</strong> 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 6<strong>80</strong> 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
COMMODOREAPPLEC64 COMPUTER C-128COMMODORE-Full-ScreenShellFor•WITH PURCHASE OF OURSPECIALLY PRICED SOFTWARE$199WITH PURCHASE OF1571 DISKDRIVESTDavidBASICLindsley*1391541COMMODOREMODEMMODEMHave you ever wanted to write an ST BASIC program thatisn't confined to the BASIC output window? This programshows how to create full-screen graphics that don't dependon the usual window borders.1200 BAUDHAYES COMPATIBLEWindows are integral to the ST BASIC programmingenvironment. Whether you're typing, listing, or running a program, everything occurs within a borderedwindow. Since ST BASIC provides no commands formonitoring gadgets such as the window scroll bar, thegadgets serve no real purpose in most programs. Andin applications such as games, the ever-present bordersprevent you from using the full area of the screen.This program creates a full-screen shell for yourown ST BASIC programs. By enclosing a programwithin this code, you can override BASIC'S windowingenvironment and work with the entire screen surface.For a demonstration, type in the program at theend of this article and save a copy; then run it. Thescreen is filled immediately with a graphic design. Atthe top of the screen, where the ST BASIC menu titlesnormally appear, is a title bar containing the name ofthis program. After a short pause, the screen clears andreturns to normal, displaying the ST BASIC menu titleswhich were overdrawn while the program ran.Enclosed In A ShellThe line numbering of this program is designed tomake it easy to merge with your own programs. Lines10-70 check the current screen resolution and adjustseveral variables accordingly. Line <strong>80</strong> calls the subroutine PRGNAME which draws a title bar with the titleyou designate and fills the screen with the specifiedpattern.FULL COLORMONITORRETAIL S299S138S59$188MONOCROME MONITOR(HtGH RESOLUTION)RADAR DETECTOR PRO-TECH-TRONICS8870 Shingle Creek Parkway #103Minneapolis, MN 55430VALUE $249.00 I QUICK1-<strong>80</strong>0-345-50<strong>80</strong>
- Page 2 and 3: We just did something only the best
- Page 4 and 5: icate Maker!Because accomplishments
- Page 6 and 7: Editor'sNotesThis is the 81st issue
- Page 8 and 9: PublisherFounder/Editor in ChlelSen
- Page 10 and 11: Selby BatemanFeatures Editor....
- Page 12 and 13: , ■■-■■'■ ;-.-..■■■
- Page 14 and 15: The new Compaq Deskpro 386 is among
- Page 16 and 17: Selby Bateman, Features Editoricrop
- Page 18 and 19: 68030 chip, which should be readyfo
- Page 20 and 21: computer are often called proprieta
- Page 22 and 23: Tom R. Halfhill, Staff Editorore By
- Page 24 and 25: Selby Bateman, Features Editorasers
- Page 26 and 27: MicroscopeSheldonLeemonThe new Appl
- Page 29 and 30: Fly to Florida!Scenery Disk # 7 cov
- Page 31 and 32: contains twice as many vertical pix
- Page 33 and 34: And you don't even have toleave you
- Page 35 and 36: Increase your knowledge about all a
- Page 37 and 38: BEST SERVICE IN THE USA • ONEDAY
- Page 39 and 40: BATTERIES Sg? INCLUDEDTHE FOUR LETT
- Page 41 and 42: LYCOCOMPUTERMARKETING & CONSULTANTS
- Page 43 and 44: ATARIJKLYCOCOMPUTERMARKETING & CONS
- Page 45 and 46: QuickProDOSCatalog For AppleLarrySh
- Page 47 and 48: Behaved Batch FilesCOPY CON: YESNO.
- Page 49 and 50: ASC II ExpressBalance of PowerBally
- Page 51: END**Beap:*SOUND 800,1,100,0:SOUND
- Page 55 and 56: FileCompressorChrisRogersThis Commo
- Page 57 and 58: character n. Whenever File Compress
- Page 59 and 60: \Make Your ChoiceC-64 or C-128BASIC
- Page 61 and 62: RP0A71i4C0A79:1B0A81:0A0A89:1F0A91i
- Page 63 and 64: ACCOLADEHardball 24.95Mean 18 31.95
- Page 65 and 66: Ibefore a move is made. Each compar
- Page 67 and 68: PH 1390 IF P$="C" AND T0>=7 THEN .1
- Page 69 and 70: 5D 2310 DATA 30,34,34,30,2,2,2,0FE
- Page 71 and 72: I10 630 P$="C"BC 640 REM tt PICK BE
- Page 73 and 74: ,——■———U-J>G>Player■p
- Page 75 and 76: INSIGHT:AtariBillWilkinsonNumber-Ba
- Page 77 and 78: EMPX,TEMPY,MASKBH 9140 TEMPX-X1TEMP
- Page 79 and 80: AmigaViewSheldonLeemonThe Latest Am
- Page 81 and 82: Computers and SocietyDavid D. Thorn
- Page 83 and 84: RUSH POSTAGE-PAID CARDFOR YOUR FREE
- Page 85 and 86: Train with NRI for a high payingcar
- Page 87 and 88: PersonalComputingDonald B. irivette
- Page 89 and 90: 3M DiskettesICEI has an outstanding
- Page 91 and 92: key (Atari logo key on 400/800 mode
- Page 93 and 94: MLXMachine Language Entry ProgramFo
- Page 95 and 96: THEN PRINT IN?iPRINTM{UP][5 RIGHT}"
- Page 97 and 98: When you want to talk price.AmdekMO
- Page 99 and 100: THE LOWESTTHE BESTPRICESSERVICEELEC
- Page 101 and 102: fNOWAVAILABLE AT24$O>!00The Mew Car
- Page 103 and 104:
COMPUTERSFREE Reader Information Se
- Page 105 and 106:
STARGLIDERJJtarglider — is an all