start tok64 d64-Vvd7b6 0 GOTO2 1 SYS51119:w$=CHR$(PEEK(3))+CHR$(PEEK(4)):RETURN 2 IFPEEK(51603)<>96THENLOAD"4.0 asm/monitor ",8,1 3 DIMc$(18),m$(14):DATA"{right}","{left}","{down}","{up}","{home}",+,-,@,w,t,r,j,b,m,i,o,x," " 4 FORc=1TO18:READc$(c):NEXT:n=14:FORc=1TOn:READm$(c):NEXT:sd$="0" 5 t$="{space*39}":p=1305:t=18:s=0:GOSUB164 6 GETa$:IFa$="r"THEN68 7 IFa$="i"THEN132 8 IFa$=" "THENGOSUB179:GOTO6 9 GOTO6 10 ti$="{0*6}" 11 q1=q1+128:IFq1>255THENq1=q1-256 12 POKEp,q1:FORc=1TO25:GETa$:IFa$<>""THEN15 13 IFti>500THENGOSUB106:GOTO11 14 NEXT:GOTO11 15 IFti>500THENPRINT"{home}{down*24}"t$;:POKE2023,32 16 ti$="{0*6}":i=0:FORc=1TO18:IFa$<>c$(c)THENNEXT:GOTO11 17 POKEp,q 18 ONcGOTO19,24,28,32,36,65,72,42,44,52,68,75,125,129,132,138,158,181 19 REM ** cursor right ** 20 d=37:IFy=6THENd=27 21 IFx0THENx=x-1:GOTO39 26 x=37:IFy>0THENy=y-1:GOTO39 27 x=27:y=6:GOTO39 28 REM ** cursor down ** 29 d=6:IFx>27THENd=5 30 IFy27THENd=5 34 IFy>0THENy=y-1:GOTO39 35 y=d:GOTO39 36 REM ** cursor home ** 37 x=0:y=0 38 REM 39 POKEp,q:p=1305+y*40+x:q=PEEK(p):q1=q 40 p1=y*38+x:POKE2,p1:GOSUB1:PRINT"{home}{cyan}"TAB(18)"{down*15}$"w$ 41 POKE2,q:GOSUB1:PRINTTAB(28)"{up}$"w$:GOTO10 42 REM ** change byte ** 43 PRINT"{home}"TAB(28)"{down*15}";:v=q:l=2:GOSUB81:q=v:GOTO39 44 REM ** rewrite block ** 45 IFopTHEN10 46 GOSUB157:PRINT"{home}"TAB(10)"{down*17}Are You SURE ({reverse on}{ct u}{yellow}Y{reverse off}{white}/{reverse on}{yellow}N{reverse off}{white}) {cm @}{left}"; 47 GETa$:IFa$="n"THENPRINTa$:GOTO59 48 IFa$<>"y"THEN47 49 PRINTa$:OPEN15,8,15:OPEN5,8,5,"#":PRINT#15,"b-p:5,0" 50 SYS50927:PRINT#15,"u2:5,"sd$;t;s:INPUT#15,a$,b$,c$,d$:IFVAL(a$)<>0THEN102 51 PRINT#15,"i":CLOSE5:CLOSE15:GOTO59 52 REM ** text mode ** 53 GOSUB157:PRINT"{home}"TAB(6)"{down*17}({white}Hit RETURN to end Text Mode){yellow}" 54 q1=q1+128:IFq1>255THENq1=q1-256 55 POKEp,q1:FORc=1TO55:GETa$:IFa$<>""THEN57 56 NEXT:GOTO54 57 IFa$<>CHR$(13)THEN60 58 POKEp,q 59 GOSUB155:GOTO39 60 POKEp,ASC(a$):d=37:IFy=6THENd=27 61 IFx""THENPRINT"{reverse off} {left}";:GOTO85 84 NEXT:GOTO82 85 IFa$=CHR$(20)THENIFw>0THENPRINT"{left} {left}";:w=w-1:t$(w)="" 86 IFa$=CHR$(13)THEN92 87 IFa$="$"ANDw=0THEN91 88 IF(a$<"0"ORa$>"9")AND(a$<"a"ORa$>"f")THEN82 89 IFa$>"@"THENa$=CHR$(ASC(a$)+128) 90 IFw>lTHEN82 91 t$(w)=a$:w=w+1:PRINT"{reverse off}"a$;:GOTO82 92 IFt$(0)=""THENRETURN 93 v=0:l=0:IFt$(0)="$"THENt$(0)="":l=-1 94 a$="":FORc=0TOw-1:a$=a$+t$(c):NEXT:a$=RIGHT$("{0*4}"+a$,5):IFlTHEN96 95 FORc=0TO3:v=v+(10^c)*VAL(MID$(a$,5-c,1)):NEXT:RETURN 96 FORc=0TO1:FORw=0TO1:POKE2+w,ASC(MID$(a$,(4-(c*2))+w,1)):NEXT 97 SYS51150:v=v+(256^c)*PEEK(4):NEXT:RETURN 98 REM 99 SYS50889:GOSUB156:PRINTTAB(10)"{green}TRACK:{cyan}{space*3}{left*3}"tTAB(20)"{green}SECTOR:{space*3}{left*3}{cyan}"s 100 OPEN15,8,15:OPEN5,8,5,"#":PRINT#15,"u1:5,"sd$;t;s:INPUT#15,a$,b$,c$,d$ 101 IFVAL(a$)=0THENSYS50843:p=1305:q=PEEK(p):x=0:y=0:CLOSE5:CLOSE15:GOTO39 102 PRINT"{home}";:FORx=1TO4:PRINT"{space*40}";:NEXT 103 PRINT"{home}{down}{yellow}{reverse on}DISK ERROR:":PRINT"{white}{down}"a$","b$","c$","d$:CLOSE5:CLOSE15 104 GETa$:IFa$=""THEN104 105 RUN 106 w=w+1:IFw<1THENRETURN 107 w=0:IFz=0THENz=1:i=0:m$=t$+m$(1)+m$(2)+t$ 108 i=i+1:IFi<=138THEN110 109 i=1:z=z+2:m$=t$+m$(z)+m$(z+1)+t$:ti$="{0*6}":IFz>n-2THENz=0:GOTO107 110 PRINT"{home}{down*24}{yellow}"; 111 PRINTMID$(m$,i,39);:RETURN 112 DATA"This editor has been released to public domain" 113 DATA" courtesy of Mike J. Henry and Starpoint Software." 114 DATA "Get DI-SECTOR V2.0.{space*2}It is the long awaited " 115 DATA "solution to all your 1541 utility needs." 116 DATA"Backup a protected disk in 3 passes, quickly and" 117 DATA" automatically (duplicates headers and checksums)." 118 DATA"Backup a standard disk in under 3 minutes{!*3}" 119 DATA"{.*3}{space*3}Format a standard disk in under 11 seconds{!*3}" 120 DATA"Sector editors, monitors, and other backup" 121 DATA" routines make this package a bargain at under $40.00." 122 DATA"For more information, contact STARPOINT SOFTWARE" 123 DATA" at (916) 435-2386.{space*2}Star Rt. 10 Gazelle CA 96034." 124 DATA" "," " 125 GOSUB157:GOSUB154:PRINT"{yellow}BLOCK EXECUTE{cyan}:{space*2}track- ";:v=0:l=1:GOSUB81:t2=v 126 IFt2=0THEN153 127 PRINT", sector- ";:v=0:l=1:GOSUB81:s2=v:OPEN15,8,15:OPEN5,8,5,"#" 128 PRINT#15,"b-e:5,";sd$;t2;s2:CLOSE5:CLOSE15:GOTO153 129 GOSUB154:PRINT"{yellow}MEMORY EXECUTE{cyan}:{space*2}address- ";:v=-1:l=4:GOSUB81:IFv=-1THEN153 130 hb=INT(v/256):lb=v-256*hb:OPEN15,8,15 131 PRINT#15,"m-e"CHR$(lb)CHR$(hb):CLOSE15:GOTO153 132 GOSUB157:SYS50889:PRINT"{home}"TAB(10)"{down*5}{space*2}{light green}MEMORY BLOCK: {cyan}"; 133 v=mb:l=2:GOSUB81:mb=v 134 POKE2,mb:GOSUB1:PRINT"{home}{cyan}{down*5}"TAB(26)"$"w$ 135 op=-1:OPEN5,8,15:PRINT#5,"m-r"CHR$(0)CHR$(mb)CHR$(0) 136 SYS50843:CLOSE5:p=1305:q=PEEK(p):x=0:y=0:GOTO39 137 PRINT"{home}{cyan}{down*5}{space*3}{left*3}"TAB(25);mb:GOTO39 138 IFNOTopTHEN10 139 PRINT"{home}"TAB(10)"{down*17}Are You SURE ({reverse on}{yellow}Y{reverse off}{white}/{reverse on}{yellow}N{reverse off}{white})? {cm @}{left}"; 140 GETa$:IFa$="n"THENPRINTa$"{up}":GOTO153 141 IFa$<>"y"THEN140 142 PRINTa$:GOSUB154:PRINT"{yellow}POSITION:{space*2}{cyan}start- ";:v=0:l=2:GOSUB81:p1=v 143 PRINT", end- ";:v=255:l=2:GOSUB81:p2=v 144 POKE2,p1:GOSUB1:PRINT:PRINTTAB(11)"{up}start- $"w$", end- $"; 145 POKE2,p2:GOSUB1:PRINTw$"{space*6}{up}":OPEN5,8,15:POKE51024,mb 146 FORc=p1TOp2STEP32 147 w=32:IFc+32>p2THENw=1+p2-c 148 px=1305+(INT(c/38)*2)+c 149 ph=INT(px/256):pl=px-(ph*256) 150 POKE51023,c:POKE51025,w:POKE251,pl:POKE252,ph:POKE3,c-(INT(c/38)*38) 151 SYS50973 152 NEXT 153 CLOSE5:PRINT:GOTO59 154 PRINT"{home}{down*17}{space*34}{up}":RETURN 155 PRINT"{up}{space*14}Command Menu{space*12}":RETURN 156 PRINT"{home}"TAB(10)"{down*5}{green}TRACK:{space*4}SECTOR:{space*2}{up}":RETURN 157 PRINT"{home}{cyan}"TAB(18)"{down*15}{space*4}{left*4}":PRINTTAB(28)"{up}{space*4}{left*4}":RETURN 158 PRINT"{home}{down*18}" 159 FORc=1TO5:PRINT"{space*39}":NEXT 160 POKE2,p1:GOSUB1:PRINT"{cyan}{up*2} d C0"w$"{up*5}" 161 SYS51035:SYS51181:GOSUB164:SYS51077:p=1305:q=PEEK(p):x=0:y=0:IFopTHEN163 162 GOSUB156:PRINTTAB(10)"{green}TRACK:{cyan}{space*3}{left*3}"tTAB(20)"{green}SECTOR:{space*3}{left*3}{cyan}"s:GOTO39 163 POKE2,mb:GOSUB1:PRINT"{home}"TAB(10)"{down*5}{space*2}{light green}MEMORY BLOCK: {cyan}$"w$:GOTO39 164 POKE53280,11:POKE53281,0:PRINT"{clear}{ct n}"TAB(12)"{reverse on}{yellow}DISK CRACKER 4.0" 165 PRINTTAB(19)"by":PRINTTAB(14)"{white}Mike J. Henry{down}{blue}" 166 PRINTTAB(9)"{cm a}{sh asterisk*6}{light green}DRIVE: {green}0"sd$"{blue}{sh asterisk*6}{cm s}":PRINTTAB(9)"{sh -}"SPC(21)"{sh -}" 167 PRINT"{cm a}{sh asterisk*8}{cm x}{light blue}{sh asterisk*21}{blue}{cm z}{sh asterisk*7}{cm s}"; 168 FORc=1TO6:PRINT"{sh -}{light green}{reverse on}{space*38}{blue}{reverse off}{sh -}";:NEXT 169 PRINT"{sh -}{light green}{reverse on}{space*28}{blue}{reverse off}{:*3}{cm a}{sh asterisk*6}{cm x}"; 170 PRINT"{cm z}{sh asterisk*7}{cm s}{light blue}{sh asterisk*23}{blue}{sh -}" 171 PRINTTAB(8)"{sh -}{green}position:{space*5}byte:{space*4}{blue}{sh -}" 172 PRINTTAB(8)"{cm z}{sh asterisk*23}{cm x}" 173 PRINTTAB(14)"{yellow}Command Menu":PRINTTAB(14)"{blue}{cm t*12}" 174 PRINT" {yellow}{reverse on}R{reverse off}{white}/{reverse on}{yellow}W{reverse off}{white}){cyan} R/W Block{space*8}{reverse on}{yellow}J{reverse off}{white}){cyan} Jump Link" 175 PRINT"{space*3}{yellow}{reverse on}@{reverse off}{white}){cyan} Change Byte{space*6}{reverse on}{yellow}T{reverse off}{white}){cyan} Text String" 176 PRINT" {yellow}{reverse on}I{reverse off}{white}/{reverse on}{yellow}O{reverse off}{white}){cyan} Memory R/W{space*5}{reverse on}{yellow}B{reverse off}{white}/{reverse on}{yellow}M{reverse off}{white}){cyan} Blk/Mem Exec" 177 PRINT" {yellow}{reverse on}+{reverse off}{white}/{reverse on}{yellow}-{reverse off}{white}){cyan} F/B Blk or Mem{space*3}{reverse on}{yellow}X{reverse off}{white}){cyan} Break to Mon" 178 PRINTTAB(12)"{yellow}{reverse on}SPC{reverse off}{white}){cyan} Drive= 0,1":SYS50889:RETURN 179 sd=1+NOT(sd-1):sd$=RIGHT$(STR$(sd),1):PRINT"{home}"TAB(16)"{down*4}{light green}DRIVE: {green}0"sd$ 180 RETURN 181 GOSUB179:GOTO10 stop tok64 (bastext 1.0)