1 IFQ=0THENQ=1:LOAD")",8,1
2 N=100:DIMPL$(N),AN$(N):E$=CHR$(13):B$="           [213]STAW TA[174]M[177] [159]![210][197][212][213][210][206]!
3 [153]"LOAD LIST(null)OPIOWANIE PLIKPOSW:"E$"STR$OPENYSK -> TA^MA"E$"(null)CLRA^MA -> DYSK
4 FORQ=1TO36:F$=F$+" ":NEXT:PRINT" [155][203][154]ATALOG"E$" [155][215]YJ[174]CIE
5 [161]Q$:[139]Q$[178]"D"[137]12
6 [139]Q$[178]"T"[137]35
7 [139]Q$[178]"(null)"[167][153]"LOAD       LIST(null)\POS@ G\POSWNY DYSK OPEN!(null)VAL(null)(null)(null)(null)!STOP":[137]57
8 [139]Q$[179][177]"K"[137]5
9 [153]"LOADLIST"[199](142):[158]49152
10 [161]Q$:[139]Q$[178]""[137]10
11 [138]2
12 T$[178]"":[153]"LOAD     LIST(null)\POS@ ODPOWIEDNI DYSK OPEN!(null)VAL(null)(null)(null)(null)!
13 GETQ$:IFQ$<>E$GOTO13
14 OPEN2,8,2,"[165]*,S,R":INPUT#2,T$:CLOSE2:IFT$=""THENOPEN1,8,15,"I":CLOSE1:GOTO12
15 PRINT"[147] [156][208]LIKI: "T$SPC(59)"[151]([155][212][152]/[155][206][151])
16 [161]Q$:[139]Q$[178]"N"[137]12
17 [139]Q$[179][177]"T"[137]16
18 [159]2,8,2,"TAB(,S,R":[132]2,A,X:[160]2:[139]X[179]N[167]A[178]A[171]1
19 A$[178]"LOADPOKE PRINT#  LIST   (null)OPIOWANIE:PRINT Z DYSKU SYSNA TA^M>.LIST  PRINT#  POKE WAIT":[141]47
20 [141]52
21 [161]Q$:[139]Q$[178]"N"[137]19
22 [139]Q$[179][177]"T"[137]21
23 [141]53:[129]X[178]Q[164]W:W$[178][196](X):[153]"LOAD(null)LIK:OPEN"X:[159]1,8,15
24 [159]2,8,2,W$[170]",S,R":[132]1,O:[139]O[178]0[137]27
25 [153][163]8)"LISTPEEKRAK TEGO PLIKU NA DYSKU!ON":[161]Q$:[139]Q$[179][177]E$[137]25
26 [160]2:[153]F$"ON":[137]24
27 [129]O[178]1[164]N:[132]2,PL$(O),AN$(O):[130]O:[160]2:[160]1
28 [153]"      (null)CI^NIJ SYS(null)VALLEN(null)(null)STR$ W MAGNETOFONIE.STOP":[159]1,1,1,W$:[129]O[178]1[164]N
29 [152]1,PL$(O)E$AN$(O):[130]O:[160]1:[130]X
30 [141]56:[153]"(null)PRINT#ENU"E$"RIGHT$CLRNNE PLIKI":[139]X[179]A[167][153]"(null)CONTOLEJNY PLIK
31 GETQ$:IFQ$="M"THENRUN2
32 IFX<AANDQ$="K"THENQ=X:W=Q:GOTO20
33 IFQ$="I"GOTO19
34 GOTO31
35 A=80:A$="[147][151] [152]  [155]   [203]OPIOWANIE:[158] Z TA[174]MY [153]NA DYSK. [155]  [152]  [151] [146]":GOSUB47
36 GOSUB52
37 GETQ$:IFQ$="N"GOTO36
38 IFQ$<>"T"GOTO37
39 GOSUB53
40 FORX=QTOW:W$=STR$(X):PRINT"[147][213]STAW [158]DYSK [155]I WCI[174]NIJ [158][208][204][193][217] W MAGNETOFONIE[144]
41 [159]1,1,0,W$:[129]O[178]1[164]N:[132]1,PL$(O),AN$(O):[130]O:[160]1:[153]"LOADPLIK:LIST"X
42 [159]2,8,2,W$[170]",S,W":[129]O[178]1[164]N:[152]2,PL$(O)E$AN$(O):[130]O:[160]2:[130]X
43 [141]56:[153][163]54)"LISTRIGHT$NNE PLIKI?
44 GETQ$:IFQ$="N"THENRUN2
45 IFQ$="T"GOTO35
46 GOTO44
47 PRINTA$"[208]ODAJ NUMER PLIKU: [153]0 -"A"
48 [153]"ONLISTPIERWSZY: ";:[133]Q:[139]Q[179]0[176]Q[177]A[137]48
49 [153]
50 [153]"ONLISTOSTATNI:  ";:[133]W:[139]W[179]Q[176]W[177]A[137]50
51 [142]
52 [153]A$"     LIST(null)KOPIOWANIE PLIKPOSW:OPEN"Q"-"W"?":[142]
53 [153]A$B$
54 [161]Q$:[139]Q$[179][177]E$[137]54
55 [142]
56 [153]A$[166]9)"LIST(null)LIKISYS"Q"-"W"LISTNAGRANE.":[142]
57 [161]Q$:[139]Q$[179][177]E$[137]57
58 [153]"G(null)57"E$"G(null)57":[151]631,13:[151]198,1:[147]"/",8