ab
3c8Amos i ascii
1a8(Delta)

2f  Witam  ponownie.   W dzisiejszym odcinku omówiė dziaīanie procedury, która
2fmoūe  uīatwiź pracė wielu amo - koderom.  Nieraz chcemy zapisaź kod śródīowy
2fw postaci czystego kodu ASCII.  Chcemy np.  doīāczyź go do swojego artykuīu.
2fI  co  wtedy.   Kiedy  zapiszemy  program  w standardowy sposób otrzymamy po
2fprostu  'ōmieci'.   A  gdy jeszcze mamy jakieō dane w bankach pamiėci to siė
2frobi  niezīa  kaszana.   Mój  sposób  jest  bardzo  prosty.  Moja procedurka
2fzapisuje wszystkie linie programu w postaci czystego kodu ASCII.  Ale uwaga,
2ftaki  program  jest zapisany bez ūadnych danych upakowanych w bankach (o ile
2ftakie takie istniejā).  Aby ponownie zaīadowaź swój program przekonwertowany
2fw w/w sposób naleūy uūyź opcji MERGE ASCII.  A oto peīna procedura:

3g'(C) AMOS TO ASCII BY DELTA/AFC 1996
3gIf Prg Under> 1
3g   Set Accessory
3g   Ask Editor 2
3g   Trap Screen Close 0
3g   Trap Open Out 1,Fsel$("",Left$(Param$,Len(Param$)-4)+"asc","Podaj nazwė.")
3g   If Errtrap=0
3g      Call Editor 89
3g      Call Editor 17
3g      Ask Editor 5
3g      For ILE=1 To Param
3g         Ask Editor 1
3g         Print #1,Param$;Chr$(10);
3g         Call Editor 2
3g      Next
3g      Print #1,"";Chr$(10) ;
3g      Print #1,"' AMOS - ASCII BY DELTA/AFC 1996"; Chr$(10);
3g      Close
3g   Else
3g      Edit
3g   End If
3gElse
3g    Print "Program dla 'akcesoriów'"
3gEnd If


4f  Opiszė  dziaīanie  wybranych  rozkazów  (rozkazy  piszė z duūych liter dla
4fodróūnienia).

1fNa  poczātku  sprawdzamy czy program jest jako program akcesoryjny (lub USER
1fMENU).  Jeōli nie to wypisz komunikat i wyjdś.
1fSET ACCESSORY - program akcesoryjny.
1fASK  EDITOR  2  -  pytamy  siė  o  nazwė programu bėdācego w bieūācym oknie.
1fOdczytujemy tė nazwė funkcjā PARAM$.

2fZamykamy ekran i otwieramy plik do nagrywania.  Jeōli plik otwarto pomyōlnie
2fi nie wystāpiī bīād to rozpocznij proces 'konwersji'.
2fCALL  EDITOR  89  -  otwórz  wszystkie  pozamykane  procedury  (nie ma sensu
2fzapisywaź program w formie ASCII z pozamykanymi procedurami)
2fCALL EDITOR 17 - ustaw kursor na poczātku edytowanego programu.
2fASK  EDITOR  5 - sprawdś iloōź linii w edytowanym programie.  Odczytujemy tė
2fwartoōź funkcjā PARAM.

3fOtwieramy pėtlė od Ile=0 do PARAM czyli odczytanej iloōci linii w programie.

4fASK EDITOR 1 - sprawdzamy treōź linii edytowanego programu w której znajduje
4faktualnie kursor.

1fNastėpnie  zapisujemy  tė  liniė  w  taki  sposób,  aby  na  jej  koļcu  nie
1fwystėpowaīo M w rewersie, czyli inaczej kod ascii entera - CHR$(13) .  Jeōli
1fkoniec programu to dopisz znacznik i wyjdś.

2fNo  to  chyba  wszystko.   Myōlė  ūe  przyda  siė  wam  na coō ta procedura.
2fProcedurka  jest public domain oczywiōcie ale jak zawsze nie usuwajcie mojej
2fxywki z listingu.
3b                                                           Delta / Opium^HV

4gP.S. Jest to nic innego jak jedna z funkcji na Block Menu...