home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8612.d64 / synchro-justage (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  76 lines
  1. 100 REM ******  FLOPPY - ADJUST ******  :
  2. 120 PRINT"[147]":POKE53280,12:POKE53281,0:POKE198,0
  3. 140 G=1:MG=3:R1=10:R0=3:RV=0:A$="          "
  4. 150 CU=214:REM CURSORZEILE
  5. 160 PRINT""A$"[198][204][207][208][208][217]-[197][201][206][211][212][197][204][204][200][201][204][198][197]"
  6. 170 PRINT""
  7. 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]";
  8. 190 IFC/R1=INT(C/R1)THENRV=NOTRV
  9. 192 IFRVTHENPRINT"";
  10. 195 PRINT"[154]        [194]ITTE MIT '[195][210][211][210]' WAEHLEN        ";
  11. 196 PRINT"        DANN  '[210][197][212][213][210][206]'  DRUECKEN        ";:POKE199,0
  12. 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]"
  13. 200 X=1:W$="[199]ROBEINSTELLUNG":GOSUB400
  14. 220 W$="[198]EINEINSTELLUNG":GOSUB400
  15. 240 W$="    [197][206][196][197]       ":GOSUB400
  16. 280 GETG$:IFG$=CHR$(13)THEN360
  17. 300 IFG$=""THENG=G+1:IFG>MGTHENG=1
  18. 320 IFG$="[145]"THENG=G-1:IFG<1THENG=MG
  19. 330 POKE198,PEEK(198)AND1
  20. 340 GOTO160
  21. 360 ONGGOSUB445,445:ONGGOTO460,500,450
  22. 380 GOTO280
  23. 400 PRINT:PRINTA$;:IFX=GTHENPRINT"";
  24. 420 PRINTW$"[146]  ";
  25. 430 IFX=GTHENC=C+1AND15:IFC/R0=INT(C/R0)THENPRINT"[157]_";
  26. 440 PRINT:X=X+1:RETURN
  27. 445 POKECU,24:PRINT:FORF=1TO11:PRINT:NEXT:POKECU,10:PRINT
  28. 446 POKE768,174:POKE769,167:POKE144,0:OPEN1,8,15:CLOSE1:REM TEST DEVICE PRESENT
  29. 447 POKE768,139:POKE769,227
  30. 448 IFST=0THENRETURN
  31. 449 E$="[198]LOPPY NICHT EINGESCHALTET":GOTO1340
  32. 450 CLOSE2:CLOSE1:PRINT"[147] [194]YE.":END
  33. 460 REM GROB
  34. 480 T1=18:T2=18:GOTO560
  35. 500 REM FEIN
  36. 520 PRINT"[204]ESEN VON [211]PUR ";:INPUT" 1[157][157][157]";T1
  37. 540 PRINT"[204]ESEN BIS [211]PUR ";:INPUT" 35[157][157][157][157]";T2
  38. 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$)
  39. 570 FB=0:INPUT"[210]ANDFARBWECHSEL GEWUENSCHT<J/N>  N[157][157][157]";G$:IFG$="J"THENFB=1
  40. 580 PRINT"[147][194]ITTE KORREKT FORMATIERTE [196]ISKETTE"
  41. 600 PRINT"EINLEGEN.([196]ATEN WERDEN NICHT[146] ZERSTOERT)"
  42. 610 PRINT:PRINT"[206]ACH DIESER [196]ISKETTE KANN DIE [198]LOPPY":PRINT"EINGESTELLT WERDEN"
  43. 620 PRINT:PRINT"[198]ERTIG ? [196]ANN [212]ASTE DRUECKEN"
  44. 640 POKE198,0:WAIT198,1:GETG$
  45. 680 ZL=10:SP=12:REM POS. F.BALKEN
  46. 700 DL=59903:REM ADR.DELETE LINE
  47. 720 XR=781:REM X-REG.SYS
  48. 740 LB=20:B$="":FORF=1TOLB:B$=B$+" ":NEXT
  49. 780 DEFFNT(X)=INT(PEEK(X)/16)*10+PEEK(X)-INT(PEEK(X)/16)*16
  50. 800 Z=56328:S=Z+1:POKES,0:POKEZ,0
  51. 820 PRINT"[147]  ****  [198]LOPPY-[193]DJUST  ****  [214]25.2.85"
  52. 840 :
  53. 860 POKECU,5:PRINT:PRINT" [196]ISK WIRD INITIALISIERT"
  54. 880 OPEN1,8,15,"I":OPEN2,8,2,"#"
  55. 900 POKECU,ZL:PRINT
  56. 920 PRINTTAB(SP)" ^ MAX."SPC(LB-13)"MIN. ^"
  57. 940 T=T1:REM TRACK
  58. 960 POKES,0:POKEZ,0
  59. 980 PRINT#1,"U1:"2;0;T;1
  60. 1000 INPUT#1,E,E$,ET,ES:IFETHEN1340
  61. 1040 TM=FNT(S)+FNT(Z)/10-D
  62. 1060 FL=NOTFL:IFFLANDFBTHENPOKE53280,(PEEK(53280)+1)AND1:REM ALLE FARBEN-AND15
  63. 1080 TB=LB-LB*(TM/MT):IFTB<0THENTB=0
  64. 1100 POKEXR,ZL:SYSDL
  65. 1120 PRINT"[218]EIT :"TM"S"TAB(SP)LEFT$(B$,TB+1)
  66. 1140 POKECU,5:PRINT:PRINT"[154][197]INSTELLUNG  O.K     [146]";
  67. 1160 PRINT"[211]PUR : "T"[157]  "
  68. 1180 IFTM>MTTHENPRINT"[145]FALSCHE [197]INSTELLUNG ![146]"
  69. 1200 TX=T:T=T+1:IFT>T2THENT=T1
  70. 1220 D=ABS(T-TX)/100:REM FUER TRACKTRANSPORT ZEIT ZUGEBEN
  71. 1240 GETG$:IFG$<>""THEN1380
  72. 1260 GOTO960
  73. 1340 PRINT"[147][198]LOPPY - [198]EHLER[146] !":PRINTE;""E$"[146]";ET;ES
  74. 1360 PRINT:PRINT"[194]ITTE [212]ASTE DRUECKEN.":POKE198,0:WAIT198,1
  75. 1380 CLOSE2:CLOSE1:RUN
  76.