Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
1000 DATA ool0U^>MZJJP020YWJWTQKRYWHFi
1010 DATA XPnP6[6dTKR84?VY:20dWJTK83jM
1020 DATA bQ3ZX024aHC4S0CBS0GBZLlP:IfR
1030 DATA 3J0IZ@2A]8P@nJTX83BMbQ3_X02Y
1040 DATA YR0YWJ0JZH2A]8P@nb0@WJTX83BM
1050 DATA ZH2A]8P@nj00ZM@P:IfR0;eGWHf3
1060 DATA U[aRWKV^WI6db<07d?JmKIdP=9gX
1070 DATA h0_@hZVPSO@2X024ahBY^@3PV@2P
1080 DATA ^@3QV@2Q^@3RV@2R^@3SV@2SR=3U
1090 DATA ^GNMVMRRb<0Pd?FY0hd?dZWoSO`2
1100 DATA ZI6=[IfY1Xf=VR3FVb1fW:01ZNLP
1110 DATA :IfR2:0=_INMTKB8bQ3g89FJ83FK
1120 DATA YAAY1\DDd?bP0JWW82VMX02a]4S8
1130 DATA \KB8TKC8`17@mFR8TKB]o0;9om05
1140 DATA [H@2d<_97=0]ZN2=m0:P0:VV82VM
1150 DATA ZNB5^:VMQKVR3j0J\KRA]8P@nJTX
1160 DATA 83BMZA\P?Yg:4>YPZOn=o0:R1[f^
1170 DATA WIfPWLX@mjV3X04P:IfU]8G8YKF5
1180 DATA bJWk82VMYKB5bZFeQL_8ZG@P:IfU
1190 DATA ]8G<YKF5cJ00ZAFAc:05Z@2IX02I
1200 DATA ZP284?NP0ZTITLZ8TL[8ZMLP:IfU
1210 DATA ]8FfYKF5]j00ZLlP:IfR1j0@ZH2A
1220 DATA ]96fR13iYAC55?3lZBPP=9dhYKKY
1230 DATA :8Ff\0;6]l[@g:86X0^mYifA]XS:
1240 DATA 4?NU56TDaAC@o:87X12Y096dZMFA
1250 DATA ]XP@mJDDaAC`o3RU]>TXQKB`0\Je
1260 DATA 6:TXIKJ5]Y02i[N]0IR\1IR=1IR<
1270 DATA 0IS:4<RP>:T0TKB8`2O@nJ0cXPJm
1280 DATA X9fA]8S:4?LPhi^P0ZVg82VMYKB5
1290 DATA ^:FeQKVP::ULTKPPUIXP=I\P?9ZY
1300 DATA 08FX[O`2bAc`D<TQl4o91_1>b@O`
1310 DATA Ojeh0\T7l7S92o0o[H@2l3NU56T5
1320 DATA aAC@o20lVR2EVR0eVb3eW:T1QJPP
1330 DATA 79b]o0;98O0E[H@2l10P?9ZU56T5
1340 DATA aAC@o?2LC2NFC3^I8=6LbEg`:8Ra
1350 DATA ^?06bH3`3M0cb96hZ@4PB9e<miS8
1360 DATA Z@2A^:T@83jMX2RYGY6hd3>YG96h
1370 DATA d2dPdIc9G_0Yb;6hl0O9P?0=87RK
1380 DATA R96hZ@4P?Yg@2XRY096hZA0PB9fP
1390 DATA ::UMTKQ<UYRYG96hl?NYohgl0Z00
1400 DATA \KS`3lWEd7\PdIbP::ULTKS@gJT2
1410 DATA QLBYG96hZ@2P:96hZE0PB9fa^<V0
1420 DATA l5C9Ko2SZEbA^:818?jKYJ;@8J81
1430 DATA b[FQj<T1l0JY0IFQd0BY0YFQ[@[B
1440 DATA l?_9I;3gUJ^@6:FSd0BR0]3IYJC@
1450 DATA 1:83d=6UYM04XPC@bJT7QLDPEI]<
1460 DATA UYQ<:IZVam3fBH2A^:T2QLBR2R3n
1470 DATA Vj00ZM@P:Ifa]10bb;6d42g8\K@@
1480 DATA :<Ra]10Sb;6d41k8\K@@6LRa]10D
1490 DATA kZfMcXfJX0Ji[YfIX9f84?M<UYNP
1500 DATA 1[6dVJ2MR13hi\NY0XfIV8g3V=2F
1510 DATA Z@2PD96hX7RYG96hZE0P?Yg@Pj1@
1520 DATA \KS`1LV0l39PZ@:5a:0XZ@2A^:1@
1530 DATA ZEbA^:1h\KS9Ko0FZEbA^:T0X52A
1540 DATA ^:U@83jMZ@25aDaEVdahVjG7l12Y
1550 DATA 08G7X0:Y6I7:R97:8=JKZ@J=VIR=
1560 DATA `iQPYJ2R0230VZFQXP4P`9ZUXZ82
1570 DATA 8<2JYJ>R0b30VZFTXP@P`9ZUYJ85
1580 DATA 8<2JH<T1l3c90_01H;BZmZ[8`6O`
1590 DATA 6kT0Y?0XR:WEV@2T`6K@1:T1UJZd
1600 DATA ZZT0V@2TH:T0UJZXb;T0Y?07X6JY
1610 DATA eIT0Y62dZ]JZR?0K^@2Tl2S8ZMFI
1620 DATA 0:C00M04ZFJEZ[BZZ@2I0:APZFNE
1630 DATA ZZR8^@2Tl0NP0JWEV@2TH:01ZAlP
1640 DATA :IfR0J00_@2TTKCXb<0Ad?FYD20d
1650 DATA WN1Wd>YPXP>P0[7:Z8RHX0:Ab\T?
1660 DATA d6ZY6I7:R;7:Z8RHX06Ab\T?d5QX
1670 DATA J:02ZA2AbXRAbZTbS@3BZLR=0]:Y
1680 DATA Shd1dXd3dXRYYR0YWB0@WJG5l0ZY
1690 DATA 0:1@TKRP08C5YAAYP\DDd?bP0jT0
1700 DATA V@3BR13jZ;7<bA7@0d`WUZ[:RY7<
1710 DATA C9JGb]24Q\EPX0FY09VP09VZ08P@
1720 DATA mj1WZMFI0:B84?ZY0XFPZCb5ZZT1
1730 DATA QJ6Y:hF[H8K6X0:ab<TIl0bZj8ZA
1740 DATA b<K6Y\K@kF2Y4978R4`2W:FYl0O6
1750 DATA ZJFXl0QPiZVUZ=01H:FVb@7`::BW
1760 DATA b;6Nl0g9P?0bR8RY096NC7RKQ:NY
1770 DATA Ki6NR:T0TIiPZFnAW\Q<CibTYhR4
1780 DATA YlRaW_3^bH3@flRY096Nl0F8Z@2A
1790 DATA WZd:d\T1l0k90]3eZ@:5YZT1QJO@
1800 DATA 2:T1QJJY48FW[@[Bb@;`5\T3l1S9
1810 DATA 1?0Jb@G`7<T1d>VP0JU6d1JP0JVF
1820 DATA d12P0JWVd0ZP0ZTfd0BP0ZV666EH
1830 DATA QIjHIEV5Wf2Yohgl0ZTIS@3BZHV=
1840 DATA 0M:U5<DDl?bY08E=S@3BS@7BX2Ra
1850 DATA ^62Ua?0FBH2=1=:Y;Xd5d\K4d0RY
1860 DATA 08d4dXd5dV2R3JTX83BMX02YP96d
1870 DATA X1:A]:0JTKC:4>YP66EHQKBHIEV5
1880 DATA ]F0HIKB5]902i[EP66FhQKR@0^Ji
1890 DATA H8e?WCRU^>T0QKR`0\JiH0L>51TL
1900 DATA 8bHY:Rlf00L>51TL8bHY:Rl68TXT
1910 DATA Bb==9TdR?4:IXJ6I@S`H?6IV?1Pl
1920 DATA @S1PMWaf@7Q430I^?Vh27R8W8BdU
1930 DATA 02lf9C9aMfEbM7Ue[:FfYJb0TC<[
1940 DATA ;b<j9B\THG9YMG=j<WYUL6]Q<f=_
1950 DATA LVD@410UKVEbIgTJ410@;FE^45\A
1960 DATA 6ATCHWT00S@Q0^02h@80UP--
1 REM -------------------------------
2 REM : Zgrywus :
3 REM : autor: Miroslaw Liminowicz :
4 REM : (c) 1991 Tajemnice Atari :
5 REM -------------------------------
6 REM :latka dla base64 - Yosh 2013 :
7 REM -------------------------------
10 DIM A$(30):DT=760:BS=1536:C=1
20 ? CHR$(125):POKE 559,0:GOSUB 700
30 DT=800:C=10:BS=39700:GOSUB 700
40 DT=1000:C=999:BS=30000:GOSUB 700
50 POKE 559,34:IF NOT FS THEN END
60 TRAP 60:? :?
70 ? "1. Format plikowy (file)"
80 ? "2. Samodzielny kasetowy (BOOT)"
90 ? "0. Wyjscie z programu"
100 INPUT W:ON W+1 GOTO 290,120,200
110 GOTO 60
120 ? :? "Na jaki plik ";:INPUT A$
130 AUX=0:IF A$(1,1)="C" THEN AUX=128
140 TRAP 190:OPEN #1,8,AUX,A$
150 A=USR(1536,FS,BS)
160 CLOSE #1:SOUND 0,0,0,0
170 IF A=1 THEN 60
180 ? "Blad - ";A;CHR$(253):GOTO 60
190 A=PEEK(195):GOTO 160
200 ? :? "Podaj nazwe ":INPUT A$
210 L=LEN(A$):NA=39914
220 FOR A=0 TO 39:POKE NA+A,32:NEXT A
230 L=LEN(A$):FOR A=1 TO L
240 POKE NA+A-1,ASC(A$(A,A)):NEXT A
250 TRAP 190:OPEN #1,8,128,"C:"
260 A=USR(1536,256,39700)
270 IF A<>1 THEN 160
280 GOTO 150
290 TRAP 50000:END
700 REM --- base64 to data conv ---
710 FS=0:RESTORE DT:TRAP 750
720 FOR X=0 TO C:READ A$:POKE 53279,7
730 FOR I=1 TO 28 STEP 4
731 D=(ASC(A$(I))-48)*262144+(ASC(A$(I+1))-48)*4096
732 D2=ASC(A$(I+2))-48:IF D2>0 THEN D=D+D2*64
733 D3=ASC(A$(I+3))-48:IF D3>0 THEN D=D+D3
735 V0=INT(D/65536):V1=INT((D-V0*65536)/256):V2=D-(V0*256+V1)*256
736 POKE BS+FS,V0:FS=FS+1
737 IF D2>=0 THEN POKE BS+FS,V1:FS=FS+1
738 IF D3>=0 THEN POKE BS+FS,V2:FS=FS+1
740 NEXT I:NEXT X
750 RETURN
760 REM --- saver ---
770 DATA J6R=F@=XSEP3J8eE0fR=E0>Y2heB
780 DATA 0j8@85KTQ=BY08GEH0--
800 REM --- file loader ---
810 DATA 00401kD7XWnm00BMP0O:4?NP9kWF
820 DATA 1lUP40KY7a02JF2AF8P@kZdN0dR]
830 DATA 7`=8Z@B=7P>Y1hdO0j83SU83j8iJ
840 DATA 0jWCSE@3Z@N=E@<P[`MXSAl3J8dN
850 DATA 0jV0QCh:QCf5?hf90Xf:0ZUFSN02
860 DATA ZOF=h@8PXPN5P22R1hF19H39oo3`
870 DATA 8:87QH8PXPN5Pb2R1j00TH2UP<F2
880 DATA YH7UPk3EiX3@0^J1C8P7Z@2=F0>=
890 DATA F@>Y1heB0j8@85KT<0>P0F30R?06
900 DATA 85KeC77TZ@b=DP>R421Fi:;oVVcP
910 DATA 0T<jV`--
Od 1 do 15 z 15
