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.
5 REM SIMPLE DCOPY BY QTZ
10 MAX=30720:DIM F$(15),D$(MAX),E$(6):E$=CHR$(253):E$(2)="*BLAD"
15 POKE 764,255:CLOSE #1:TRAP 40:? "LOAD":INPUT F$
20 IF F$(1,1)="C" THEN OPEN #1,4,128,F$:GOTO 30
25 OPEN #1,4,0,F$
30 ? "ODCZYTUJE":FOR W=1 TO MAX:GET #1,A:D$(W,W)=CHR$(A):NEXT W
35 ? E$;" ZA DLUGI PLIK"
40 IF D$="" THEN ? E$:RUN
45 ? "ODCZYTANO:";LEN(D$)
50 POKE 764,255:CLOSE #1:TRAP 100:? "SAVE":INPUT F$
55 IF LEN(F$)=0 THEN ? E$:GOTO 50
60 IF F$(1,1)="C" THEN OPEN #1,8,128,F$:GOTO 70
65 OPEN #1,8,8,F$
70 ? "ZAPISUJE":FOR W=1 TO LEN(D$):A=ASC(D$(W,W)):PUT #1,A:NEXT W
75 ? "ZAPISANO"
80 ? "ZAPISAC PONOWNIE (T/N)":POKE 764,255
85 IF PEEK(764)=45 THEN 50
90 IF PEEK(764)=35 THEN RUN
95 GOTO 85
100 ? E$:GOTO 80
5 REM SIMPLE DCOPY BY QTZ
SAVE"D:DCOPY.BAS"
LOAD"D:DCOPY.BAS
LIST
SAVE"D:DCOPY.BAS"
RUN
RUN"D:DCOPY.BAS"
199 REM BGET, BPUT by Raster - Magazyn Flop 36a
200 DIM BGP$(48):FOR Z=1 TO 48:READ T:S=S+T:BGP$(Z)=CHR$(T):NEXT Z:IF S<>4532 THEN ? "POPRAW DANE":END
205 DATA 104,104,104,10,10,10,10,170,160,7,104,104,201,4,240,2,160,11,152,157,66,3,104,157
210 DATA 69,3,104,157,68,3,104,157,73,3,104,157,72,3,32,86,228,132,212,169,0,133,213,96
300 REM BGET
305 REM A=USR(ADR(BGP$),KANAL,4,ADR(DO$),ROZMIAR)
310 REM BPUT
315 REM A=USR(ADR(BGP$),KANAL,8,ADR(SKAD$),ROZMIAR)
RUN"C: