@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} |||DDOS DOSDOS SYS }}}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 139ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uGHG Y OUOUTCOLSAIFIOCBAAAHAALLSSHSSLFROWRO@lf@8Bb lflfnfV} ~f ##ŠҠW}##ӠŠΠŠΠ##ҠҠө(##ԠҠΩ2##éX}̠͠<= @p>"@@h? F:@, @"@i@SAdAU'-@Y}@#S(&C堠S򠠠A F:Ad,"AU@eBF:Ad,"@b%C(AdZ}AU(*@A%D<6-%@!@U0*@@<6-E$FC +AR@[}1@@CAdAUP##(Documentation DisplayZ6-P:I:,$?,d++;,;@,;@\},;@ ,f 6.D:n767@,.67,.767@,.7@,x""(creen or rinter Output?-]}@-@@K)@."@6.E:$6-@8. A."@6.P:^}$6-@. A A@ŧӠŠ @ ARo(.(#PRESS FOR LIST O_}F DOC FILES R((THEN TYPE FILENAME AND )o((IF NO DOCS REBOOT DISK)@B:,A =`}@3@@D:*.DOC= A1@17@<@,0 A"(7@<@a}," A+67@,.+67B:,%@,..DOC5@ A5@@""Πb}ӠĠӠ͠!"@!@@6-=@+@@=AR@c}Z6-AH6-C:,)6-P:'AV,96-&AV$J6-P:'AV,Z6-&AV$O%@@%%@d}3%@A%@O%@ 6-?:C:hhhLV,<@,""F:%@,!A'A"))6-F:%@e},%AV$F:%@ ,66 "(@7@<,, @b6 A`@ --J!7&<&,4f} '! APT ^J!(@7&%@<&,+ @b36-&=+%,!@'J Aph r'(@7%@g}<,' @b| A` Ơ5@@" @b*@5@@@%h} D:RUNME1STIOCBAAAHAALLSSHSSLFROWRO@lf@8Bb lflfnf Welcome to JACG Public Domain Files.To bypass our NJ LOGO - DEPRESS "M", or "OPTION" briefly during loading.Tom Pazel's Men$j}u will RUN: Tokenized Basic, and Binary files. Files labelled DOC are RUN by RUNME1ST. Because of time we did not edit the d$k}ocs. Thus, there will be duplication which may be beneficial anyway.The DRDISK.COM file on this 400/800 disk is Turbo Basic.$l} The purpose of this disk is to feature Turbo Basic. There are no other files for your pleasure. We have been unable to fin$m}d any files that work with this version of TURBO BASIC. If you find any we would like to add them to our library. Remember yo$n}u will have free pick of a library disk for a disk of files donated to JACGREAD all the Docs.ing loading.Tom Pazel's Men$ag##STVAADISKDIRRECOROLRNWL2L2PPASTRASTWLLSCROWFENTWF2DIRFFREETXTFILESPECCATFLATRAPAD p}DNFMXBPNTRFNAMEUSFLAGCATIDSORTTLIOOSTATUF2STPLUNIBLOADAU@@) q}@@@ @U @U @ ~@2@@@@@7 r}VH@@s.(VB@@T@ @9!)"#r $(( s}%&'( )@*@+,@7-@7./01234 t} A)"T:,"" A@*&6-R:,& @@+ F:Ad,"AU@A,Z u}6-F:Ad,$AdAUD"A5)"@)"@qP6-@Z @-9#"AC)"@)"@y/6- v}@9 @.9#"A4)"@)"@p/6-@9 @/9#"AB)"@)"@x/6-@9  w}@27Ad)@%6.>:,7AdAU3-30*296.#6-- A ;4RA@ x}<4IAC=4BAK"@' B%&L4HA`N BQ @AQ/"@/ y}6-@ &@ $+"**",RK"@ AK6-%@&+",&+"@ *&@**",S"@6- z}T3"@ A"36-&@%+"@,U - (VV-%@)@$-,(26-86 {}-A6. M"@BV6. *W @Af(+ *"@"*,)"$k? 6-%6-%6-%#6-%)--(?- |}@#mi (-@#(- A9A?-@@"i(7<%&@, 7<%&@,n }}7,4 6-&@o<-%@6. ')@3"@B<6. *w$z(+!*"@*,)"$|? 6 ~}-&6-&6-&#6-&)--(?-@"}n (-@$(. A9A@-@n( } 7<%&@, 7<%&@,<-%@6. ')@3"@B<6. *$/ ACA } /B:,"Ai27@<@,4 (6-@2 Ab6 Ai!-@@67<,4 } Ab##7<,20)7<,39Ai 6-@5 67@&,. /-F:@,5(4F: }Ad,"@(*AdAU4 ACD F:Ad,@3AQAdAU4F:Ad,"@(*A }dAU4 ACD F:Ad,@3AfAdAU AQ6-@ AbD6-@ }6.6.((}.6.8 BQvD6-*6.sorted by file name (* BQxW Av@ }'6-B:,G7&@<,4 FREE SECTORSM6.W Avn'67<%@ ,.7@<@,:67%@,..f67%@ }<%@,.7@<@,n6-%2&7@<@,4 DISKCAT D 26-@ Ar0 @ }6-B:,&6-P:',0 AA#6-@$ -@A $ -@A $- +&@ },*67+&,'@,. -$ 6. $.. DISK MENU PROGRAM. Ver. 8.13 (3).. BOB DANSON }. COPYRIGHT MARCH 1983.L*-B  +* APMGG;@,;@,;@A,;@@, };@(,;@,NGG;@,;@ ,;@A,;@@,;@,;A,Q 6.D1:6.Rn 6. * }67@,. .67@A,. =67@,.N67@,._67@@,.n67@,.S;A,Trr67@ },._ hhEhDJB VL˝DEHIB V\`ҩ͝DE VUjj67@,.W0E }ˍ̍ϥ˝D̝E8˝H̝IHI VL lԩթ B V`[;6-@1;@d$%@,; }@,; AACG6-@ BQq+AR@5 AP? BQaG6.1#6-@ A9# BQB }O1(}unable to read directory!; BQE A"O A Ap> AP8(& }ɠ>6-^6-P:'@%?P,(6-86-$%@>6-D6-^6-+&@,$%@ }G6-%#6-@.67,. ?67%@,.G6-% 6-6-@6-56-+&@,$%@;6 }-G!@]6-@$%@w6-+%@,$%@6-@ G6-@-'6-%@3-@ }G(7<%&@, .-@!"(7<%&@,*6-%. (A" 6. (A" Z6-@ }(67@,. DISKCAT.D2 BQB>"K@Z6.7@,]67@,.D#67@,.467@,. }:F-@@Q(*.*]6-1-@@(,-@#@1(^ 6.=:,6-B:,-67%@ },. files;6-%@E AW-@^(Q A9A6-%6-@16-=6-G  }BQaQ @G1 6.D67@,..67@,.:*.*1$L A9QMK AP-@"(, BQv26 }.8(>6.H BQvK$R3  BQq AP3( cannot  T! BQ A"! A `l6-F:@ },$-@@#](7@<@, ESC to quit 7@<@,i-@l$eN(67@,. +- }@#K(enter H for help displayN$fH6.  more files   $ 667@,.H67@,.g- }!67@,.-67@,.m.67@!,. &-@@#+(.$oG-%@6-@1-@ }@>)@G6.>:,p" 0 67,."6-%@q9 '67@,.7@<@,667@,.9$ }c@@'AY16.RUN; A9c4 D1:DOS.SYS)4 D1:DUP.SYSAAr# A9"AY@4 }#%"$KH6-?:C:, A96H AQ,F:Ad,"@(" BQa, ACD ACG ( }L0@@@70 }@@@IAR@L$qV (}Af@D(#JOYSTICK or  positions pointer.VAf }vP+(#H - display this help information.P(  - return to the READY state. (I - list .LST/.TXT file''( }B - run (most) object programsr)(!R or trigger - run basic programC( or load DOSU-@"r( } any key to return BQa F:Ad,"AUA`A6- A  '6.load object program' A9 } t6-@6-@'6-1 BQB="D)K)V@t"AU*"AUA G) }(!cannot load! - not .OBJ format3 BQ= A"G A  ?6-C:,&@(-@A;A5%F:%, }?  + B% A+-?:A6} this fills closed object around x,yTEXT TEXT x,y,a$ ?} This writes a$ on a graphics screen at x,yMEMORYDPOKE DPOKE@} n,v Pokes locations n & n+1 with 2 byte int. vDPEEK DPEA}EK(n) Peeks n & n+1MOVE MOVE n,n1,n2 Block transfers n2 bytes from B} n to n1-MOVE -MOVE n,n1,n2 Same as MOVE but starts C} copy with last byte of blockBPUT BPUT #n,adr,len Block PUTBGET BGET #n,adrD},len Block GETTIME TIME Time of day numericTIME$ TIME$ TimE}e of day string HHMMSSTIME$= TIME$=hh,mm,ss Used to set TIME$INKEY$ INKEY$ F} Returns last character typedINSTR INSTR(x$,a$) Gives relative G} location of a$ in x$ (must be an exact match) INSTR(x$,aH}$,i) i identifies the start of the searchUINSTR UINSTR(x$,a$) I} As INSTR but does not distinguish beJ}tween case or inverse UINSTR(x$,a$,i) Identifies startERK}R ERR Value of last error numberERL ERL Line last errorL} occurred at%PUT %PUT With %GET reads and stores M} numbers to disk faster and more compactlyN}%GET %GET Used with %PUTPROGRAMMINGREPEAT REPEAT Start a REPEAT- O} UNTIL loopUNTIL UNTIL (c) Terminate when c is met.WHILE WHILE (c) P} Start a WHILE- WEND loop to end when c iQ}s metWEND WEND Terminate a WHILE-WEND loopELSE ELSE OptionR}al extension for IF. IF must not be follS}owed by THENENDIF ENDIF ENDS an IF-ELSE-THENDO DO StartsT} an infinite DO loopLOOP LOOP Cycle back to the sU}tart of a DO loopEXIT EXIT Exit a DO loopLIST LIST Gives inV}dented lines in listing LIST n Lists program W} from line n on*L- *L- Turns off indent*L+ *L+X} Turns indent onPAUSE PAUSE Pause for n/50 secondsRENUM RENUY}M n,j,i Renumber the program from n first number j Z} increment is iDEL DEL n,i Delete lines n to iDUMP DUMP [} Lists all variables on screen DUMP name \}Dump to a deviceTRACE TRACE Trace program during ]} execution TRACE- Trace off.DSOUND DSOUND n,f,d,v SOUND with ^} channel pairing for increased frequency range _} DSOUND Turns off DSOUNDGO TO GO TO n ALternate to `} GOTO*F+ *F+ This command checks all a} FOR/NEXT loops to see if counter has beeb}n reached. if it has the loop won't be exc}ecuted *F- Deactivates mode*B+ *B+ When break key d} hit after this command program acts as if ae}n error occured *B- Deactivates *B+-- -- REM statef}ment that inserts 30 dashes in listing# g} # name Assigns current line # to nameGO# GO# name Similar to Gq}4~B'DOS SYSB*+DUP SYSBURUNME1ST BFoMENU BASB4PDG DOCBd-PDG2 DOCBTURBO1 DOCBTURBO2 DOCBTURBO3 DOCiSEEFIRSTDOCBAUTORUN SYSBSEEFIRSTDOCOTOPROC PROC name Start definition of procedureENDPROr}C ENDPROC Ends procedure definitionEXEC EXEC name Execute procedure s} name.CLOSE CLOSE Close channels 1 through 7DIM DIt}M a(n) Automatically assigns zeros to all elements u} of a numeric array or null characters to a v} stringGET GET name At key press assigns the w} value to nameINPUT INPUT "text",x,y Prints text at prompt before x} asking for variables INPUT "text";x,y as above but y} does not print question markON ON a EXEC n1,n2,.. Similar to z} ON..GOSUB but for procedures ON a GO# n1,n2,.. Similar to {} ON..GOTO but line labels are usedPOP POP |} This command pops the routine for all fo}}ur types of loopsPUT PUT n Same as PRINT CHR$(n)R~}ESTORE RESTORE #name Restores the data line indicated by } label nameSOUND SOUND Turns off all soundsTRAP TRAP #}name TRAPS to the line named by labelARITHMETIC/LOGICRND} RND Parentheses are no longer needed but } still works if they are thereRAND RAND(n) Yields random } number 0-nHEX$ HEX$(n) Converts n to hex stringDEC }DEC(a$) Converts hex string a$ to decimalDIV n DIV i} Integer quotient of n/iMOD n MOD i Integ}er remainder of n/iFRAC FRAC(a) Fractional } part of aTRUNC TRUNC(a) Truncates Fractional } part of a$ $nnnn Allows input of hex numbers but } they are converted to decimal& n & i 8-}bit boolean AND! n ! i 8-bit boolean OREXOR } n EXOR i 8-bit boolean exclusive-ORNOTES1. The time functions are wriiten for the} European standard 50Hz thus do not return the proper time here.2. To print a quote mark (") in a text string simply print }a double quote in the string.3. TURBO-BASIC returns error numbers as well as English descriptions. There are several new e}rror messages added. They are as follows:#13 - ?FOR - A FOR statement is missing#15 - ?DEL - Either the RETURN for a GOSU}B or the NEXT for a FOR or the REPEAT for an UNTIL statement has been deleted#16 - ?GOSUB - A GOSUB statement is missing#22} - ?NEST - Loops not properly nested#23 - ?WHILE - A WEND with no corresponding WHILE#24 - ?REPEAT - An UNTIL with no corre}sponding REPEAT#25 - ?DO - A LOOP with no corresponding DO#26 - ?EXIT - An EXIT was placed outside a LOOP#27 - ?XPROC - An} error occured executing PROCedure#28 - ?EXEC - An ENDPROC with no corresponding EXEC#29 - ?PROC - PROCedure does not exist}#30 - ?# - Label does not existThis is a fairly complete description of the commands within TURBO-BASIC which are differe}nt from ATARI BASIC. TURBO-BASIC seems to run all ATARI BASIC programs but the timing in loops can be different. All-in-all} this is a fantastic BASIC that should rapidly become the standard BASIC for the 8-bit Atari's and its priced right. Again I} would like to acknowledge the very large input to this article from the Yearke's article. TURBO-BASIC should be available f}rom the disk library before the September meeting.I have just come into possession of the original German documentation for} TURBO-BASIC; for any of you linguists out there who wold like a copy, please let me know and I will see that you get a copy.}TURBO-BASIC; for any of you linguists out there who wold like a copy, please let me know and I will see that you get a copy.O<<< TURBO BASIC >>>0Reference Manual (c) 1986 BrainsoftODisk Operation Commands0DIR, DIR"D1:*.*" shows di}rectory on screenRENAME "D:old,new" renames file "old" into "new"DELETE "D:file" deletes File "file"LOCK "D:file" } write-protects File "file"UNLOCK "D:file" unprotects the write-protected File "file"BLOAD "D:file.obj" Loads a bina}ry file from BasicBRUN "D:file.obj" Loads and starts a binary fileOStructured Commands0IF aexp ... ELSE ... ENDIF }If condition aexp is correct (<>0) thenthen the element between IF and ELSE will}be executed,otherwise the elementbetween ELSE and ENDIFREPEAT ... UNTIL aexp Rep}eats the element "..." until condi-tion aexp is fullfilled.DO ... LOOP Endless Lo}opEXIT Exits a loop. Program jumps to nextcommand after the loop.*F+ } After this command all occuring For NextLoops are checked if the counter has }already reached the end. If that's thethe case then the loop won't be }executed.i.e.: FOR I=2 TO 1:? I:NEXT Iif the *F+ command has been gi}ven before then this loop won't be gonethrough at all not even once l}ike itwould be in Standard Basic.*F-Deactivates this modePROC name}Beginning of the procedure "name".ENDPROCMarks the end of a procedure just like}the RETURN command marks the end of aGOSUBEXEC nameExecutes t}he procedure "name"ON aexp EXEC name1,name2,..Equals the ON ... GOSUB ... statementin Basic only} that you now don't jump toprogram lines but to procedures ("name1,na}me2")#after this mark always follows a Proce-dure nameGO # name}Jump command (=GOTO Linenumber)means GOTO Procedure "name"ON aexp GO #, TRAP #, REST}ORE # = other commands which allow jumpsto procedures.--equals the REM statement (If a program is}listed then the line containing this sta-tement will not show 2 but 30} "-"chara-cters !!!LISTEmphasizes the structured elements (just}List a Turbo Basic File to see the diffe-rence*L-Turns} this special feature off*L+Turns it on againLIST 100,Program from Line 100 til }end will belisted !!!86 BrainsoftODisk Operation Commands0DIR, DIR"D1:*.*" shows di3OAdditionoal Commands0DEL x,y Deletes Lines from Line "x" to line "y"(inclusive x and }y !!!)RENUM old,new,incr Renumbers from line "old" on. The new programlines begin at "new" and will be i}ncreased by "incr".DUMP Shows a list of all used variables on screenDUMP filespec Al}so possible to dump to Printer or diskTRACE+ Turns Trace mode on. Which means that if thepr}ogram is executed the linenumber the computeris right now will always be shown on screenTRACE- } Turns Trace mode off.*B+ If you hit the break key after this command hasbeen executed} then the program acts as if anerror occured. This means you can prevent theprogram f}rom stopping by using TRAP commands !!(Makes it easy to disactivate the Break Key !!)*B- }Deactivates this deviceNOTE:In the following statement descriptions after "<=>" follows the equi-valent commands you ha}ve to use in standard Basic to achieve the sameresults.DPOKE adr,word Double Byte Poke <=> POKE ad}r,word-256*INT(word/256):POKE adr+1,INT(word/256)DPEEK(adr) <=> PEEK(adr)+256*PEEK(adr+1)MO}VE source,dest,count Makes transfer of large amount of Byteseasy. F.E. MOVE 53744,X},1024 copies the Charactersetfrom start address 57344 to start address "X".BPUT #n,adr,len <=> FOR I}=0 TO len-1:PUT #n,PEEK(adr+I):NEXT IBGET #n,adr,len <=> FOR I=0 to len-1:GET #n,A:POKE adr+I,A:NEXT I%PUT,%GET } These commands store/read numbers faster and morecompact on/from disk.FILLTO x,y <=> POSITION x},y:XIO 18,#6,0,0,"S:"FCOLOR n choose Color for Fill command <=> POKE 765,nCLS,CLS#6 Clear ScreenPUT n } <=> ?CHR$(n)GET KEY <=> OPEN #7,4,0,"K:":GET #7,KEY:CLOSE #7Computer waits for ke}yboard input and stores valueof pressed key in "KEY"DIM A(100) <=> DIM A(100):FOR I=0 TO 100:A(I})=0:N.IINPUT "text",x,y <=> ?"text";:INPUT x,yINPUT "text";x,y same as above only there won't a questionamrk }appear on the screenTEXT x,y,text Writes the text "text" on a graphic screen. Thecoordi}nates x,y mark the upper left pixel of the letter to be printed first.CIRCLE x0,y0,r Draws a circle}CIRCLE x0,y0,xr,yr Draws an ellipsePAINT x,y Fills a closed figure with the color determinedby }the COLOR statementTIME$ special variable which stores the time in theformat hhmmssTIME$=1}02030 Sets the variable at the time 10:20:30 PAUSE n <=> FOR I=1 TO n:NEXT ISOUND <=> FOR I=0} TO 3:SOUND I,0,0,0:N.ICLOSE <=> FOR I=0 TO 7:CLOSE #I:N.I"x" to line "y"(inclusive x and IOSPECIAL FUNCTIONS0INKEY$ Stores the value of the last pressed keyINSTR(A$,B$) Searches a !}the string B$ in the longer stringA$.UNINSTR(A$,B$) Same thing only this time it doesn't mak!}e adifference if the string contains words inlower or upper case (word=WORD=w!}Ord...)ERR stores the value of memroy cell 195 (errorcode)ERL stores the value of the!} line error occurs<=> ERL=PEEK(186)+256*PEEK(187)RND <=> RND(0)RAND(n) !} Creates a number between 0 and n at randomHEX$(exp) Changes an Integernumber into a HEXvalueDEC(sexp) !} Chnages the Hexvalue sexp into a Decimalnumber$aaaa allows use of Hex-values in program!}f.e.: POKE $E477,0& Binary AND! Binary OREXOR !} Exclusive ORDIV Division without remainderf.e. 3 DIV 2 = 1MOD !} contains the remainderONew Error Codes0ERROR-13? FOR a FOR statement is missingERROR-15? DEL e!}ither the GOSUB for a RETURN or the NEXT fora FOR or the REPEAT for an UNTIL statement has!}been deleted.ERROR-16? GOSUB a GOSUB statement is missingERROR-23? WHILE a WHILE statement is mi!}ssingERROR-24? REPEAT a REPEAT is missingERROR-25? DO a DO is missingERROR-26? EXIT EXIT without a!} LOOPERROR-27? XPROC a PROC statement can't be executed (onlypossibility: EXEC!!!)ERROR-28? !}EXEC a EXEC is missingERROR-29? PROC an unknown procedure has been calledERROR-30? # an unknown !}mark has been usedNOTES:- Variable and Procedurenames may include the "_" character: IN_DOO$- It is possible to put BAS!}IC autorun.sys files on a disk just name itAUTORUN.BAS and your file will be automatically run.- Two old Basic bugs have !}been eliminated:1) sudden computer lock up during long time editing2) the adding of 16 bytes to a program whenever stor!}ed with theSAVE command on disk Stores the value of the last pressed keyINSTR(A$,B$) Searches a 'Welcome to JACG Public Domain Files.To bypass our NJ LOGO - DEPRESS "M", or "OPTION" briefly during loading.Tom Pazel's Men%}u will RUN: Tokenized Basic, and Binary files. Files labelled DOC are RUN by RUNME1ST. Because of time we did not edit the d%}ocs. Thus, there will be duplication which may be beneficial anyway.The AUTORUN.SYS file on the back of this XL-XE disk is T%}urbo Basic. The purpose of this disk is to feature Turbo Basic. The other files are for your pleasure. We would appreciate f%}eedback on the use of these files.Read the DOCS.NJ LOGO - DEPRESS "M", or "OPTION" briefly during loading.Tom Pazel's Men$3es, and Hadley V Stacey.in Files.To bypass our NJ LOGO - DEPRESS "M", or "OPTION" briefly during loading.Tom Pazel's Men$h %LzLz &`BÝDEJK V /ԭ0̭1͠ȩȩ)}̠Fȩȩ ȩAȥ̑ȥ̩͑"/Xi(XYiYTUW` BƝDEIH VXi(XYiYTUW` B)}DEI'H VXi(XYiYUTΩ ϩW N%Uϱ΅TL1H `B Vh`M)}     ةMҍЩЩЍ Щ:/ԩЍЩЍoЩ Ԡ~$)}~%nЭ L`M ԎЎЎЍЍЭЭ LJ)}M` B V` 991S:J.A.C.G.堠ɠ)}disklibrary"172<@?B^psv~}xyzrn}h~b\WZF:6.-($")}@.E B ViB'DEE J V#D(D)D %D$DЍ  RbD S)}8*DI*DbD]D B*DDE8HI VBJDDE VBDDEHI VD C D)}*E𩛍D#D C C BDDEIH VL@RTU BHI V BfDDE&HI VR)} B V C A102+M"x  LtALhCLCLCLC%D(ԩ ݭ$Dԩ )}ԍ(DՍ)D(Dm%D(D)Di)DXm(D˥Ym)D̢ i E .Ei E 򩛝E B VBDEEJ)} VB.DEEHI V B V.E-/E$ C%DLtATEUL C%DLtA B VB'DE)}E J VTU B DEEIH V ` BHI&DDE$DT%DULV BHI$)}DT%DU LV EC$D$D$D CLtA EC$D$D$D CLtA EC%Di (%D CLtA EC%D8 %D CLtA#DU0 U+0)}U`#D+TLCҩ0Ҡ ` `_5><8_; _3  _d)}d)}D:*.* GR.0:RUN"D:E: SYS@ԭ0̭1͠ȩȩ(c091AϠàӠ