home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64'er
/
C64'er.iso
/
85xx
/
8510.d64
/
floppy-adjust
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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