1 FORO=1TO40:I$=I$+"[192]":NEXT:E$=CHR$(13):U$=" [159]![210][197][212][213][210][206]!
2 T$[178]"":[153]"      LIST(null)\POS@ DYSK Z DANYMI"U$"LOAD":[161]Q$:[139]Q$[179][177]E$[137]2
3 [159]2,8,2,"FN*,S,R":[132]2,T$:[160]2:[139]T$[178]""[167][159]1,8,15,"I":[160]1:[137]2
4 [153]"LOAD CLR(null)LIKI: "T$[166]59)"POKE(LIST(null)PRINT#/LIST(null)POKE)LIST
5 GETQ$:IFQ$="N"GOTO2
6 IFQ$<>"T"GOTO5
7 PRINTTAB(9)"[145][201]LO[174][188] PLIK[185]W:":GETQ$:IFQ$<"2"ORQ$>"9"GOTO7
8 H=VAL(Q$):PRINT"[158][145]"TAB(22)H:OPEN2,8,2,"[163],S,R":INPUT#2,A,B:CLOSE2:IFA<HGOTO12
9 X=INT(A/H+1):PRINT"       [155][195]Z[177][174][188] S\OWNIKA: 1 -"X"[153]
10 [153][163]16)"ON";:[133]Q$:O[178][197](Q$):[139]O[171][181](O)[177]0[176]O[179]1[176]O[177]X[137]10
11 M[178]O[172]H[171]H:[139]O[179]X[167]A[178]M[170]H[171]1:B[178]100
12 [153]"LOAD     LIST(null)\POS@ ODPOWIEDNI DYSK"U$:[161]Q$:[139]Q$[179][177]E$[137]12
13 L[178](A[171]M)[172]100[170]B:[153]"LOADDEF(null)GRYWANIEOPEN"L"DEFS\POSWEK:"E$"CLR(null)LIK NR:CONT
14 DIMA$(L,1):OPEN1,8,15:IFINT(A/H)=A/HGOTO17
15 FORO=MTOA-1:PRINTO:P$=STR$(O):GOSUB35
16 FORX=1TO100:N=N+1:INPUT#2,A$(N,0),A$(N,1):NEXT:CLOSE2:NEXT
17 PRINT"[153]"A:P$=STR$(A):GOSUB35
18 FORX=1TOB:N=N+1:INPUT#2,A$(N,0),A$(N,1):NEXT:CLOSE2:CLOSE1:M=1:J$=".....
19 [139]M[178]1[167][153]"LOADPOKE PRINT#  LIST    (null)\OWNIK ZAGRANICZNO-POLSKI LIST   PRINT#  POKE ":[137]21
20 [153]"LOADPOKE PRINT#  LIST    (null)\OWNIK POLSKO-ZAGRANICZNY LIST   PRINT#  POKE "
21 [153]"ONWAITSYS^^LIST - ZMIANA TYPU S\OWNIKA   SYS//LIST - WYJ^CIE
22 PRINT"[145]      [152][215]PISZ PIERWSZE LITERY S\[185]WKA:
23 [153]""I$:Q$[178]"
24 PRINT"[145][152]S\.[155]"N"[151](^^,//,= ) [159]";:INPUTQ$:A=LEN(Q$):IFA=0ORA>6GOTO24
25 IFQ$="^^"THENM=ABS(M-1):GOTO19
26 IFQ$="//"GOTO38
27 IFLEFT$(Q$,1)="="THENA=VAL(MID$(Q$,2)):GOTO33
28 B=0:FORO=1TO5:IFLEFT$(Q$,O)=LEFT$(J$,O)THENB=B+1
29 NEXT:PRINT"[145][144]"I$"[145]";:X=0:T$=MID$(Q$,B+1,A-B):A=A-B:B=B+1
30 FORO=1TON:IFT$=MID$(A$(O,M),B,A)THENGOSUB32
31 NEXT:PRINT"  '[153]"Q$"' :[154]"X:GOTO23
32 PRINT"[157][152]"O""A$(O,M)"[151][192][158]"A$(O,ABS(M-1)):X=X+1:RETURN
33 IFA-INT(A)=0ANDA>0ANDA<N-8THENPRINT"[145][144]"I$"[145]";:FORO=ATOA+9:GOSUB32:NEXT
34 GOTO23
35 OPEN2,8,2,P$+",S,R":INPUT#1,X:IFX=0THENRETURN
36 PRINT"[145][155][194]RAK TEGO PLIKU NA DYSKU!":GETQ$:IFQ$<>E$GOTO36
37 CLOSE2:PRINT"[145][144]"MID$(I$,9)"[154]":GOTO35
38 PRINT"[147][211][150]\OWNIK"E$"[155][215]YJ[174]CIE
39 [161]Q$:[139]Q$[178]"S"[167][138]1
40 [139]Q$[179][177]"(null)"[137]39
41 [153]"LOAD       LIST(null)\POS@ G\POSWNY DYSK"U$"STOP
42 GETQ$:IFQ$<>E$GOTO42
43 PRINT"G[207]42"E$"G[207]42":POKE631,13:POKE198,1:LOAD"/",8