0 REM DISKMONITOR VON JOHANNES TIMMER TEL. 02821/48154
1 FORZ=49152TO49335:READA:POKEZ,A:NEXT
3 OPEN1,8,15:PRINT"[155][147]":POKE53281,0:POKE53280,0:T=18:GOSUB40
10 GOSUB90:IFA=17THENER=80:GOSUB30
11 IFA=145THENER=0:GOSUB30
12 IFA$="T"THENINPUT"TRACK";T:GOSUB31:A$="S"
13 IFA$="S"THENINPUT"SECTOR";S:GOSUB31
14 B=PEEK(49408):IFA$="N"ANDB>0ANDB<44THENT=PEEK(49408):S=PEEK(49409):A$="R"
15 IFA$="R"THENGOSUB40
16 IFA$="W"THENLS=144:GOSUB20:PRINT:GOSUB33
17 IFA$="M"THENGOSUB50
19 GOTO10
20 PRINT#1,"M-W"CHR$(6)CHR$(0)CHR$(2)CHR$(T)CHR$(S)
22 PRINT#1,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(LS)
24 PRINT#1,"M-R"CHR$(0)CHR$(0)CHR$(1):GET#1,A$:F=ASC(A$):IFF>127GOTO24
25 IFF=11THENPRINT#1,"I":GOTO20
26 RETURN
30 PRINT"";:POKE2,ER:SYS49213:PRINT
31 PRINT"[145]           "
33 PRINT"TRACK:"T"[157]    SECTOR:"S"[157]    ERROR:"F"[157]   "
34 PRINT"READ, WRITE, MODIFY, NEXT[145][145][145]":RETURN
40 LS=128:GOSUB20:PRINT#1,"M-R"CHR$(0)CHR$(3)CHR$(0):SYS49152:GOSUB30:RETURN
50 POKE182,Y:POKE189,X*3+4:IFM=1THENPOKE189,X+30
51 SYS49174:SYS49204:GOSUB90:B=AAND127:SYS49204
52 IFA=13THENGOSUB30:RETURN
53 IFM=1ANDB>31ANDB<91THENPOKE189,X*3+4:SYS49174:POKE780,A:SYS49316:GOSUB65
54 IFM=0AND((A>47ANDA<58)OR(A>64ANDA<71))THENGOSUB60
55 IFA=29THENX=X+1:IFX>7THENM=1-M:X=0
56 IFA=157THENX=X-1:IFX<0THENM=1-M:X=7
57 IFA=17THENY=Y+1:IFY>21THENY=21:IFER=0THENER=80:Y=12:GOSUB30
58 IFA=145THENY=Y-1:IFY<0THENY=0:IFERTHENER=0:Y=9:GOSUB30
59 GOTO50
60 PRINTA$;:IFA>64THENA=A-7
61 B=(A-48)*16:SYS49204
62 GOSUB90:IFNOT((A>47ANDA<58)OR(A>64ANDA<71))GOTO62
63 SYS49204:PRINTA$;:IFA>64THENA=A-7
64 A=B+(A-48)
65 B=X+Y*8+ER:POKE49408+B,A:PRINT#1,"M-W"CHR$(B)CHR$(3)CHR$(1)CHR$(A)
66 POKE189,X+30:SYS49174:B=AAND127:IFB<32THENA=46
68 PRINTCHR$(A):A=0:X=X+1:IFX>7THENX=0:A=17
69 RETURN
90 GETA$:IFA$THENA=ASC(A$):RETURN
91 GOTO90
200 DATA162,1,32,198,255,162,0,32,62,241,157,0,193,232,208,247,162,1,32,204,255
201 DATA96,169,19,32,210,255,169,17,166,182,240,6,32,210,255,202,208,250,169,29
202 DATA166,189,240,6,32,210,255,202,208,250,96,164,211,177,209,73,128,145,209
203 DATA96,165,2,141,0,194,173,0,194,170,24,105,8,141,1,194,138,32,164,192,169
204 DATA32,32,210,255,189,0,193,32,164,192,232,236,1,194,208,244,174,0,194,169
205 DATA32,32,210,255,32,210,255,189,0,193,168,41,127,201,32,176,4,169,46,208,1
206 DATA152,32,210,255,232,236,1,194,208,232,169,13,32,210,255,173,1,194,141,0
207 DATA194,56,229,2,201,176,144,172,96,24,105,48,201,58,144,2,105,6,32,210,255
208 DATA96,168,74,74,74,74,32,151,192,152,41,15,32,151,192,169,32,32,210,255,96