0 REM =========================
1 REM  DISKORDNER CBM 64  V2.0
2 REM  (/) BY NIKOLAUS HEUSLER
3 REM         ZWENGAUERWEG  18
4 REM         8000 MUENCHEN 71
5 REM         TEL.  089/792940
6 REM  V=2.0, REV 3 VOM 070188
7 REM =========================
8 :
9 POKE1,55:DATA120,177,216,145,216,200,208,249,230,217,208,245,76,221,253
10 IFPEEK(49153)><93THENLOAD"DISKORDNER.MC",8,8
15 D2=664:RS$="                                       [160]
16 [129]I[178]828[164]842:[135]Q:[151]I,Q:[130]:[158]828:[151]1,53:[151]650,128:[158]49152
17 [151]53280,.:[151]53281,.
18 [134]N$(255),B%(255)
20 [153]"LOADPOKE"RS$;
21 [153]"       STR$ I S K O R D N E R   (null)2.0      ";
22 [153]"       TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(      ";
23 [153]"  (null)ERTEILT ASCILES OPTIMAL AUF STR$ISKETTEN  ";
25 [153]RS$"  (C) NH-221187-ARR   VALIN (null)(null)(null) (null)ROGRAMM  ";
26 [153]RS$                        
28 [151]59639,15
29 [137]500
30 [141]1020:[153]"PEEKITTE GEBEN (null)IE DIE (null)AMEN UND (null)AENGEN
32 PRINT"(IN [194]LOCKS) EIN !
34 [153]" VALINGABE VON '?': ASCEHLER
36 PRINT"             '*': [197]NDE
38 [153]"(null)R.   (null)AME               PEEKLOCKS
39 AZ=1:PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
45 [151]781,[194](214):[158]59903:[153][201]("   "[170][196](AZ),3);
50 [141]1000:N$(AZ)[178]"":[133]" ";N$(AZ)
52 [139]N$(AZ)[179][177]"?"[167]58
54 [139][194](214)[177]17[167]AZ[178]AZ[171]1:[153]"ON";
56 [153]"ON";:[137]45
58 [139]N$(AZ)[178]""[167]56
60 [139]N$(AZ)[178]"*"[167]72
62 B$[178]"":[153]"ON "[163]23);:[141]1000:[133]B$:[139]B$[178]"?"[167]56
64 [139]B$[178]""[167]62
66 B[178][197](B$):[139]B[179]1[176]B[177]DI[167]62
68 B%(AZ)[178]B:[153]"ON"[163]23)"CLOSE
70 AZ=AZ+1:GOTO45
72 IFAZ=1THEN56
74 AZ=AZ-1
75 FORI=1TOAZ:SYS49155,B%(I),I:NEXT:POKE59639,7
76 GOSUB1020:PRINT"[194]ITTE [196]RUCKER BEREITMACHEN UND [210][197][212][213][210][206]   DRUECKEN !
78 [151]198,.:[146]198,1
79 [153]"(null)(null). (null)IT LANGEN (null)ARTEZEITEN MUSS GERECH- NET WERDEN !
80 OPEN4,4,7
81 PRINT"[218]UM [194]ESCHLEUNIGEN  _[192] [146] GEDRUECKT LASSEN UND AUF [210]EAKTION WARTEN !
82 [152]4,"VALMPFOHLENE (null)ERTEILUNG DER ASCILES:
84 PRINT:PRINT#4,"[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]
100 [141]1010:[139]SU[179]DI[167]300
102 V[178].:VV[178].:ZM[178]1
104 [158]49164:[139][194](5)[178].[167]400
110 [141]1030
111 [158]49158,DI[171]VV,DI,(20000[171]V[172]2500)[173]ZM
112 [139][194](2)[167][141]200:[137]100
114 [139]V[179]7[175]V%[178].[167]V[178]V[170]1:[137]116
115 V%[178]1:V[178]7.2
116 VV[178]VV[170]1:[137]110
200 FL[178]1[170]FL:[152]4:[152]4:[152]4,"ATNUF STR$ISK (null)R."FL":":[152]4:SU[178].
202 [129]I[178]1[164][194](2):N[178][194](52479[170]I)
204 [152]4,[200](N$(N)[170]"                    ",20);
206 [152]4,[201]("   "[170][196](B%(N))[170]" PEEKLOCKS",10):SU[178]SU[170]B%(N):[130]
208 [152]4:[152]4,"FREIE PEEKLOCKS:"D2[171]SU"  ASCILES:"I[171]1:VC[178]VC[170]I[171]1:GB[178]GB[170]D2[171]SU
210 [142]
300 [158]49164:[139][194](5)[178].[167]400
302 [158]49158,SU,SU,65535:[141]200
400 [152]4:[152]4:[152]4,"*** ASCERTIG ! ***
402 PRINT#4:PRINT#4,"[197]S WURDEN"VC"VON"AZ"[198]ILES VERTEILT
404 [152]4,"ATNNZAHL STR$ISKETTEN:"FL
406 [152]4,"ASCREIE PEEKLOCKS AUF DIESEN STR$ISKETTEN:"GB:[160]4
408 [153]"ASCVAL(null)(null)RIGHT$CHR$ !!!":[158]49164
409 [153]"ATNNZAHL STR$ISKETTEN:"FL
410 [139][194](5)[177].[176]AZ[179][177]VC[167][153]"???(null)YSTEMFEHLER
412 END
500 PRINT"[152][199]EWUENSCHTE [193]NZAHL FREIE [194]LOCKS PRO
502 [141]1002:[133]"STR$ISK   3CMDCMDCMD";FR:[139]FR[179].[176]FR[177]D2[171]1[167][153]"ONON":[137]502
504 DI[178]D2[171]FR:[153]"ATNUTOMATISCHER VALINZUG DER ASCILENAMEN ODER
506 PRINT"MANUELLE [197]INGABE ? [[193]/[205]/_]
508 [161]A$:[139]A$[178]"_"[167][138]
510 [139]A$[178]"M"[167]30
512 [139]A$[177][179]"A"[167]508
520 [141]1020:[153]"ATNUTMATISCHER VALINZUG. (null)TEUERUNG:
522 PRINT"    F1 [146][145][157][157][157][157][164][164][164][164] = [196]IESES [198]ILE UEBERNEHMEN
524 [153]"    F3 WAIT = PEEKLOCKLAENGE DIESES ASCILES
526 PRINT"        = ZUR [204]AENGE DES LETZTEN ADDIE-
528 [153]"   TOTOTOTO   REN, NICHT UEBERNEHMEN
530 PRINT"    F5 [146] = [196]IESES [198]ILE UEBERSPRINGEN
532 [151]59639,15
540 [153]"PEEKITTE STR$ISK VALINLEGEN ! ((null)VAL(null)(null)(null)(null))":[151]198,.:[146]198,1:XL[178].
542 [160]2:[159]2,8,0,"$0":[161]#2,A$,A$
544 [161]#2,A$,A$,L$,H$:BL[178][198](L$[170][199](.))[170]256[172][198](H$[170][199](.))
546 [161]#2,A$:[139]A$[179][177][199](34)[175]A$[177]""[167]546
547 [139]A$[178]""[167]580
548 NM$[178]"
550 GET#2,A$:IFA$<>CHR$(34)THENNM$=NM$+A$:GOTO550
551 GET#2,A$:IFA$THEN551
552 IFXL=.THENXL=1:GOTO544
553 GOSUB600:POKE198,.
556 GETA$:IFA$="[135]"THEN544
558 IFA$="[134]"ANDAZ>.THEN570
560 IFA$<>"[133]"THEN556
562 PRINT"[145]"TAB(27)"[186][160][160]":AZ=AZ+1:N$(AZ)=NM$:B%(AZ)=BL:GOTO544
570 B%(AZ)=B%(AZ)+BL:NM$=N$(AZ):BL=B%(AZ):PRINT"[145][145]":GOSUB600
572 PRINT"[145]"TAB(27)"[186]  ":GOTO544
580 PRINT"[145]  [206]OCH EINE [196]ISKETTE ? [[202]/[206]]        [160]
582 [161]A$:[139]A$[178]"N"[167]75
584 [139]A$[179][177]"J"[167]582
586 [153]"ONON":[137]540
600 BL$[178][196](BL):BL$[178][201]("        "[170]BL$[170]"  ",9)
602 [153]"ON"BL$NM$[200](RS$,18[171][195](NM$))"???       ":[142]
1000 [151]198,2:[151]631,34:[151]632,20:[142]
1002 [151]198,3:[151]631,34:[151]632,20:[151]633,51:[142]
1010 [158]49161:SU[178][194](2)[170]256[172][194](3):[142]
1020 [129]X[178]8[164]24:[151]781,X:[158]59903:[130]:[151]214,8:[158]58732:[142]
1030 [153]"RIGHT$N ATNRBEIT: STR$ISK"1[170]FL"CMD, MAX.FREI:"D2[171]DI[170]VV"CMD   CLOSE
1032 PRINT"MAX.[214]ERSUCHE:"INT((20000-V*2500)/ZM)"[157]   [160]
1034 [153]"(null)UMME:"SU"CMD, ATNNZ.ASCILES: NOCH"[194](5)"CMD   CLOSEONONON
1035 GETA$:IFA$="_"THENZM=100
1036 RETURN