0 'TDDMON.BA -- Examine/Change Sectors      on TDD using POWR-DOS                   Phil Wheeler - 10/13/86                 Based on LOOKIT by Joel Hassell        Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
1 CLS:LFILESV:DEFINTR-V:CLEAR256,MAXRAM-1292:POKE63056,128:MAXFILES=1:HX$="0123456789ABCDEF":CC=0:CT=0:E$=CHR$(27):GOTO18
2 CLS:PRINTE$"pDisk Sector No."E$"q"S
3 IFI<0THENI=I+65536ELSEIFI>65535THENI=I-65536
4 K=I-65536:IFI<HIMEMTHENPRINT" "E$"pLoRAM"E$"q";:GOTO6ELSEIFI>MAXRAMTHENPRINT" "E$"pHiRAM"E$"q";:GOTO6
5 S$=STR$(S):PRINTRIGHT$(S$,2);:K1=K+65536-HIMEM:FORR=1TO4:PRINTMID$(HX$,(INT(K1/16^(4-R))AND15)+1,1);:NEXT
6 AX$="":FORK=ITOI+7:R=PEEK(K):PRINT" "MID$(HX$,R/16+1,1);MID$(HX$,(RAND15)+1,1);:IFR<32THENR=46
7 AX$=AX$+CHR$(R):NEXT:PRINT" "AX$;:IFCT<>0THENCT=CT-1:GOTO12
8 PRINT@CSRLIN*40+8+CC*3,"";:I$=INPUT$(1):IFI$>CHR$(96)THENI$=CHR$(ASC(I$)-32)
9 IFINSTR(1,HX$,I$)THENPOKEI+CC,(PEEK(I+CC)AND15)*16+INSTR(1,HX$,I$)-1:PRINT@CSRLIN*40,"";:GOTO3
10 T=ASC(I$):IFT=20ORT=23THENCT=7:I=I+192*(T=23):T=30
11 IFT=2ORT=26THENCT=7:I=I-192*(T=26):T=31
12 IFT=30THENI=I-8:IFCSRLIN=0THENPRINTE$"L";:GOTO3ELSEPRINT@(CSRLIN-1)*40,"";:GOTO3
13 IFT=31THENI=I+8:PRINT:GOTO3
14 IFT=28THENCC=CC+1:IFCC>7THENCC=0:I=I+8:PRINT:GOTO3
15 IFT=29THENCC=CC-1:IFCC<0THENCC=7:T=30:GOTO12
16 IFI$=E$THEN22
17 GOTO8
18 PRINT@40,E$"pTDDMON.BA -- TDD Sector Examine/Change"E$"q";
19 S$="":PRINT@120,"Starting Sector <CR to end>";:INPUTS$:IFS$=""THEN33ELSES=VAL(S$)
20 IFS>79THENBEEP:PRINT@120,"Sector Out of Range!"SPACE$(20);:FORK=1TO1000:NEXT:GOTO19
21 CLS:PRINT@87,"Now Reading Sector No."S;:DSKO$0,S,HIMEM:I=HIMEM:GOTO2
22 CLS:PRINT@43,E$"pSelect Next Action"E$"q":PRINT@86,"G)o to Next Sector On Disk":PRINT@126,"S)elect a New Starting Sector":PRINT@166,"D)ump Sector to ACSII RAM File":PRINT@206,"W)rite Sector to Disk":PRINT@246,"E)xit to Main Menu"
23 ONINSTR("gGsSdDwWeE",INPUT$(1))GOTO24,24,25,25,26,26,32,32,33,33:GOTO23
24 S=S+1:IFS<80THEN21ELSEBEEP:CLS:GOTO18
25 CLS:GOTO19
26 CLS:F$="":PRINT@80,"File for Dump <CR to Abort>";:INPUTF$:IFF$=""THEN22
27 PRINT@165,"   N)ew file, or A)ppend?";
28 ONINSTR("nNaA",INPUT$(1))GOTO29,29,30,30:GOTO28
29 OPENF$FOROUTPUTAS1:GOTO31
30 OPENF$FORAPPENDAS1
31 CLS:PRINT@130,"Writing to RAM ....";:PRINT#1,"---------":PRINT#1,"Sector"S:PRINT#1,"---------":FORJ=0TO1291:PRINT#1,CHR$(PEEK(HIMEM+J));:NEXT::PRINT#1,:CLOSE:BEEP:GOTO22
32 CLS:PRINT@130,"Writing to Disk ...";:DSKO$1,S,HIMEM:GOTO22
33 POKE63056,0:CLEAR256,MAXRAM:MENU