home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1985 October
/
64er_Magazin_85-10_1985_Markt__Technik_de.d64
/
floppy-adjust
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
76 lines
100 rem ****** floppy - adjust ****** :
120 print"[147]":poke53280,12:poke53281,0:poke198,0
140 g=1:mg=3:r1=10:r0=3:rv=0:a$=" "
150 cu=214:rem cursorzeile
160 print""a$"[198][204][207][208][208][217]-[197][201][206][211][212][197][204][204][200][201][204][198][197]"
170 print:printa$"<c> by [205].[193]ustermeier"
180 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
190 ifc/r1=int(c/r1)thenrv=notrv
192 ifrvthenprint"";
195 print"[154] [194]itte mit '[195][210][211][210]' waehlen ";
196 print" dann '[210][197][212][213][210][206]' druecken ";:poke199,0
197 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
200 x=1:w$="[199]robeinstellung":gosub400
220 w$="[198]eineinstellung":gosub400
240 w$=" [197][206][196][197] ":gosub400
280 getg$:ifg$=chr$(13)then360
300 ifg$=""theng=g+1:ifg>mgtheng=1
320 ifg$="[145]"theng=g-1:ifg<1theng=mg
330 poke198,peek(198)and1
340 goto160
360 onggosub445,445:onggoto460,500,450
380 goto280
400 print:printa$;:ifx=gthenprint"";
420 printw$"[146] ";
430 ifx=gthenc=c+1and15:ifc/r0=int(c/r0)thenprint"[157]_";
440 print:x=x+1:return
445 pokecu,24:print:forf=1to11:print:next:pokecu,10:print
446 poke768,174:poke769,167:poke144,0:open1,8,15:close1:rem test device present
447 poke768,139:poke769,227
448 ifst=0thenreturn
449 e$="[198]loppy nicht eingeschaltet":goto1340
450 close2:close1:print"[147] [194]ye.":end
460 rem grob
480 t1=18:t2=18:goto560
500 rem fein
520 print"[204]esen von [211]pur ";:input" 1[157][157][157]";t1
540 print"[204]esen bis [211]pur ";:input" 35[157][157][157][157]";t2
560 input "[205]ax. [218]eit fuer 1 [194]lock 0.5 sec[157][157][157][157][157][157][157][157][157]";g$:mt=val(g$)
570 fb=0:input"[210]andfarbwechsel gewuenscht<j/n> n[157][157][157]";g$:ifg$="j"thenfb=1
580 print"[147][194]itte korrekt formatierte [196]iskette"
600 print"einlegen.([196]aten werden nicht[146] zerstoert)"
610 print:print"[206]ach dieser [196]iskette kann die [198]loppy":print"eingestellt werden"
620 print:print"[198]ertig ? [196]ann [212]aste druecken"
640 poke198,0:wait198,1:getg$
680 zl=10:sp=12:rem pos. f.balken
700 dl=59903:rem adr.delete line
720 xr=781:rem x-reg.sys
740 lb=20:b$="":forf=1tolb:b$=b$+" ":next
780 deffnt(x)=int(peek(x)/16)*10+peek(x)-int(peek(x)/16)*16
800 z=56328:s=z+1:pokes,0:pokez,0
820 print"[147] **** [198]loppy-[193]djust **** [214]25.2.85"
840 print " *** <c> [205].[193]ustermeier ***"
860 pokecu,5:print:print" [196]isk wird initialisiert"
880 open1,8,15,"i":open2,8,2,"#"
900 pokecu,zl:print
920 printtab(sp)" ^ max."spc(lb-13)"min. ^"
940 t=t1:rem track
960 pokes,0:pokez,0
980 print#1,"u1:"2;0;t;1
1000 input#1,e,e$,et,es:ifethen1340
1040 tm=fnt(s)+fnt(z)/10-d
1060 fl=notfl:ifflandfbthenpoke53280,(peek(53280)+1)and1:rem alle farben-and15
1080 tb=lb-lb*(tm/mt):iftb<0thentb=0
1100 pokexr,zl:sysdl
1120 print"[218]eit :"tm"s"tab(sp)left$(b$,tb+1)
1140 pokecu,5:print:print"[154][197]instellung o.k [146]";
1160 print"[211]pur : "t"[157] "
1180 iftm>mtthenprint"[145]falsche [197]instellung ![146]"
1200 tx=t:t=t+1:ift>t2thent=t1
1220 d=abs(t-tx)/100:rem fuer tracktransport zeit zugeben
1240 getg$:ifg$<>""then1380
1260 goto960
1340 print"[147][198]loppy - [198]ehler[146] !":printe;""e$"[146]";et;es
1360 print:print"[194]itte [212]aste druecken.":poke198,0:wait198,1
1380 close2:close1:run