★ APPLICATIONS ★ DIVERS ★ ODZYSKIWANIE PLIKÓW SKASOWANYCH OMYłKOWO NA DYSKIETCE (BAJTEK) ★

Odzyskiwanie Plików Skasowanych Omyłkowo na Dyskietce (Bajtek)Applications Divers
Instrukcja |ERA w Basic Locomotiv umożliwia skasowanie pliku na dyskietce np. w celu uzyskania miejsca na wpisanie innego programu. Użycie tej samej instrukcji wymaga szczególnej ostrożności, ponieważ skasowany przy jej użyciu plik nie będzie wykazywany po użyciu instrukcji CAT (katalog).
Powyższy program napisany na BASIC-u umożliwia odtworzenie skasowanego przez omyłkę pliku, o ile powykonaniu instrukcji |ERA na dyskietkę nie został zapisany inny plik.Oglądając programy telewizyjne „Spectrum" i „Sonda" często podziwiamy, jak przed oczami projektanta obraca się na komputerowym ekranie wspaniały, trójwymiarowy przekrój samochodu. Napewno niejeden programista-amator marzy o stworzeniu takiego obrazu za pomocą mikrokomputera. Niestety, kiedy uruchamia on napisany mozolnie w BASIC-u program rzednie mu mina.
Wrażenie ruchu jakiegokolwiek większego przedmiotu jest bowiem znacznie osłabione przez migotanie całego rysunku. Wynika to ze sposobu, w jaki konstruuje się ruchome obrazy na ekranie. Najpierw trzeba narysować przedmiot w jednym położeniu, zmazać go. narysować w następnym, znowu zmazać itd. ... A wszystko to dzieje się przecież stosunkowo wolno.

10 '*******************************************
20 '* *
30 '* ODTWARZANIE SKASOWANEGO *
40 '* *
50 '* PLIKU NA DYSKIETCE *
60 '* *
70 '* autor: R.P.SPIEGEL 09.1985 *
80 '* *
90 '*******************************************
100 MEMORY &7FFF: INK 0,0:MODE 2: INK 1,19
110 DATA &21,&37,&80,&cd,&d4,&bc,&22,&34,&80,&79,&32,&36,&80,&1e,&00,&16,&00,&0e,&00,&21,&39,&80,&df,&34,&80,&c9
120 DATA &21,&38,&80,&cd,&d4,&bc,&22,&34,&80,&79,&32,&36,&80,&1e,&00,&16,&00,&0e,&00,&21,&39,&80,&df,&34,&80,&c9
130 DATA &00,&00,&00,&84,&85
140 FOR i=&8000 TO &8038: READ a: POKE i ,a: NEXT
150 FOR i=&8039 TO &8239:POKE i,&0:NEXT
160 nt=1:INPUT "JAKA NAZWA PLIKU ? ",nm$:l=LEN(nm$): IF l>8 THEN GOTO 160 ELSE IF l=0 THEN END ELSE nm$=UPPER$(nm$)
170 IF l180 INPUT "JAKI TYP PLIKU ? ",ty$:l=LEN(ty$): IF l<>3 AND l<>0 THEN GOTO 180
190 IF l=0 THEN nc=8 ELSE nc=11:nm$=nm$+UPPER$(ty$)
200 INPUT "KTORA STACJA DYSKOW (A/B) ? ",e$:e$=UPPER$(e$): IF e$<>"A" AND e$<>"B" THEN GOTO 200
210 IF e$="A" THEN POKE &800E,&0: POKE &8028,&0 ELSE POKE &800E , &1:POKE &8028,&1
220 INPUT "JAKI FORMAT DYSKIETKI (S=system, D=data, I=IBM) ? ",e$:e$=UPPER$(e$): IF e$<>"S" AND e$<>"D" AND e$<>"I" THEN GOTO 220
230 IF e$="S" THEN POKE &8010,&2: POKE &802A, &2: POKE &8012,&41: smax =&45: GOTO 260
240 IF e$="D" THEN POKE &8010,&0: POKE &802A,&0: POKE &8012,&C1: smax=&C5: GOTO 260
250 POKE &8010,&1:POKE &802A,&1:POKE &8012,&1:smax=&5
260 CALL &8000
270 ad=&8039
280 nsec = PEEK(&8012)
290 FOR i=1 TO 16:nf$=""
300 FOR j=0 TO nc-1:nf$=nf$+CHR$(PEEK(ad+j+1)):NEXT
310 IF nm$=nf$ AND PEEK(ad)=&E5 THEN nt=0:POKE ad,&0
320 ad=ad+32330
330 NEXT i
340 POKE &802C, PEEK(&8012): CALL &801A
350 nsec=nsec + 1: IF nsec<=smax THEN POKE &8012,nsec:POKE &802C, nsec: GOTO 260
360 IF nt=l THEN PRINT "PLIK TAKI NIE ISTNIEJE":GOTO 160
365 PRINT "O.K. POZNIEJ MOZESZ SPRAWDZIC"
370 INPUT "SZUKASZ JESZCZE INNEGO PLIKU (T/N) ? ",e$:e$=UPPER$(e$):IF e$<>"T" AND "N" THEN GOTO 370
380 IF e$="T" THEN GOTO 160
390 END

Bajtek

★ PUBLISHER: Bajtek
★ ANNÉE: 1986
★ CONFIG: 64K + AMSDOS
★ LANGAGE:
★ LiCENCE: LISTING
★ AUTHORS: Sergiusz Wolicki , R.P. Spiegel

 


Je participe au site:

» Vous avez remarqué une erreur dans ce texte ?
» Aidez-nous à améliorer cette page : en nous contactant via le forum ou par email.

CPCrulez[Content Management System] v8.74-desktop
Page créée en 021 millisecondes et consultée 1711 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.