10 DIM A$(26)›15 A=1536:MIN=52:POKE 106,MIN:POCZ=MIN*256:KON=0:GRAPHICS 0›16 REM WATROSC MIN ZALEZY OD ZAINSTALOWANEGO SYSTEMU (DLA DOS 2.5+CP MIN=52)›20 TRAP 100:READ A$:I=1:TRAP 20›30 B=ASC(A$(I))-48:B=B-(B>9)*7›40 C=ASC(A$(I+1))-48:C=C-(C>9)*7›50 I=I+2:POKE A,B*16+C:A=A+1:GOTO 30›100 POKE 764,255:? " START-DIGITALIZACJA":? " SELECT-ODTWARZANIE":? " OPTION-POWTARZANIE"›110 B=PEEK(53279):A=(B=6)+(B=5 OR B=3)*94›120 IF A=0 THEN 110›130 TRAP 130:? "SZYBKOSC":INPUT SZYB›140 I=USR(1536+A-1,POCZ,KON,SZYB)›150 IF B=3 AND PEEK(53769)<>28 THEN 140›160 GOTO 100›1000 REM ------DIGI.OBJ------------›1010 DATA 68A000BEBF06B9C8069D0004CA›1020 DATA D0FAC8C009D0EF8D0004A20568›1030 DATA 95CBCA10FA20B006204906AD09›1040 DATA D2C91CF05FC921D0F220490629›1050 DATA 0F91CF2049060A0A0A0A11CF91›1060 DATA CF209706D0E9F042AE00D3BD00›1070 DATA 0409108D01D28D1AD0A6CBCAD0›1080 DATA FD6068A2056895CBCA10FA20B0›1090 DATA 06A000B1CF204F06B1CFB1CF4A›1100 DATA 4A4A4A204F06B1CFA5CFAE09D2›1110 DATA E01CF005209706D0DEA9FD8D01›1120 DATA D3A9FF8D0ED45860E6CFD002E6›1130 DATA D0A5D0C9D0D004A9D885D0C5CE›1140 DATA D004A5CFC5CD6078A9008D0ED4›1150 DATA 8D00D4A9FE8D01D360FFFEFDFB›1160 DATA F7EFDFBF7F0001020304050607›1170 DATA 08›