Tandy's Little Wonder (1993)(Farna Systems).pdf - TRS-80 Color ...

400 IF R$="5" THEN POKE 150,4 : GOTO 420410 GOTO 320POKE the values for the specified baud rate then go to line 420. Notethat the value is actually HALF the specified rate because the doublespeed POKE is used.420 LOCATE 20,23 : PRINT "PRESS ANY KEY TO AC-CEPT, BREAK TO STOP"; : EXEC 44539This line allows a chance to stop if a mistake was made. EXEC 44539makes the computer wait for a key to be pressed before continuing theprogram.430 IF PEEK(&HA282)=23 THEN 1000Check for ADOS/EADOS. If present, go to line 1000440 IF PEEK(&HC004)=214 THEN A$="C0EED52AD6D1D6F1D727D75E" ELSE A$="C101D617D7C4D7E4D81AD851"Check for DECB 1.0, use first string for data if it is present, else usethe second string for DECB 1.1450 FOR V=1TO24 STEP 4460 A=VAL("&H"+MID$(A$,V,4))470 POKE A,189 : POKE A+1,240 : POKE A+2,157 : POKEA+3,18480 NEXT490 POKE &HF09D,52 : POKE &HF09E,127500 POKE &HF09F,53 : POKE &HF0A0,255Lines 450-500 use the data strings in line 440 to POKE values into DiskBASIC to change timing so that double speed can be used reliably.510 IF PEEK(&HC004)=214 THEN 520 ELSE 600Check for DECB 1.0, go to 600 if not present.520 POKE 50952,78530 POKE 50986,84 : POKE 51083,78540 POKE 51104,78 : POKE 51135,78 : POKE 52300,78550 POKE 52697,78560 POKE 53680,40570 POKE 54111,78580 POKE 54342,39590 POKE 54642,40 : POKE 54677,40Lines 520-590 patch the following in DECB 1.0 for 40 trackoperation (line by line): KILL, FAT (File Allocation Table),GAT (Granule Allocation Table), FREE, BACKUP, COPY,DSKI$/DSKO$, and DSKINI. Values 40 and 39 are tracks,78 is the maximum number of files (68 for 35 tracks).600 POKE 50997,78610 POKE 51034,84 : POKE 51131,78620 POKE 51183,78 : POKE 51152,78 : POKE 52518,78630 POKE 52917,78640 POKE 53917,40650 POKE 54349,78660 POKE 54580,39670 POKE 54879,40See comments for lines 520-590, these for DECB 1.1.1000 CLS : PRINT : PRINT : PRINT "FINISHED!!!"Clear screen, print three blank lines then FINISHED!Miscellaneous Useful PEEKs, POKEs & EXECs:1. POKE 111,254 : DIR - Prints disk directory on printer.2. POKE 308,0 : POKE 313,0 - Disables ALL disk commands.3. POKE 308,19 : POKE 313,6 - Restores all disk commands(DECB 1.0; change 19 to 20 for DECB 1.1).4. POKE 113,0 : EXEC 40999 - does a "cold start". Can usePOKE then press RESET (good for program protectionpreventslisting after RESET). Mostly used for CoCo 1/2,CoCo 3 has CTRL-ALT-RESET (use EXEC 35867 withPOKE 113,0 for CC 3).5. POKE 234,0 : EXEC 55135 - "parks" disk drive heads.6. PRINT PEEK(188) - Prints 14 with a disk system, 6 withcassette.7. POKE 282,0 - Sets lowercase display.8. POKE 282,255 - Sets uppercase display.9. POKE 293,0 - Disables all BASIC functions, 293,20restores.10. POKE 306,178 : POKE 307,119 - Disables Extendedand Disk BASIC only, 306,129 : 307,104 restores.11. PRINT PEEK(33021) - Prints 50 if CoCo 3.12. POKE 65281,0 - Locks out keyboard, RESET to restore.POKE 65281,4 restores keyboard in a program.14. POKE 383,158 - Prevents listing of a BASIC program.POKE 383,126 restores.15. POKE $H167,&H39 : POKE &HFF22,21 - EnablesCoCo 2B lowercase display mode, prevents ASCII saves.Try without first POKE... may not prevent ASCII saves then.16. PRINT PEEK(341) - ALT key (prints 191 pressed);PEEK(342) - CTRL key; PEEK(343) - F1; PEEK(344) - F2(these will work on keyboards with four function keys also)17. POKE 65502,0 - Disables all CoCo 3 commands, readsonly ECB portion of ROM directly from ROM, just as aCoCo 1/2 would. Some programs that won’t run on a CoCo3 might after this. POKE 65503,0 restores normal CoCo 3functions.More POKE enhancements can be found in the books "500POKES, PEEKS, 'N EXECS", "Supplement to POKES,PEEKS, 'N EXECS", and "300 POKES, PEEKS, 'N EXECSfor the CoCo III" series of books from Zebra Systems. Thesehave many programming hints for all CoCos and are highlyrecommended to all programmers.page 40Tandy's Little Wonder