home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
M.u.C.S. Disc 2000
/
MUCS2000.iso
/
sigisoft
/
hex_list
/
hex1list.lst
< prev
next >
Wrap
File List
|
1987-04-21
|
5KB
|
169 lines
' ***************************************************************************
' * Hex_Lister (c) 1989 by *
' * Siegfried Hübner Obere Vorstadt 21 8812 Windsbach Tel.09871/9835 *
' ***************************************************************************
If Gemdos(17)=Not -1
Alert 3,"Bitte Drucker einschalten !",1,"OK|Abbruch",D%
If D%=2
End
Endif
If D%=1 And Gemdos(17)=1
Goto Asf
Else
Run
Endif
Endif
Defmouse 3
Lprint Chr$(24);
Lprint Chr$(15);
If Xbios(4)=0
Alert 3,"Monitor bitte auf|mitlere Auflösung umschalten",1,"Danke",D%
End
Endif
Dim Pd$(17)
For I%=0 To 17
Read Pd$(I%)
Next I%
Menu Pd$()
On Menu Gosub Abfrage
Do
On Menu
Loop
Procedure Abfrage
Menu Off
If Xbios(4)=1
A=2
Else
A=1
Endif
Cls
' ****************************************
' * Programende *
' ****************************************
If Pd$(Menu(0))=" Programmende "
Menu Kill
Alert 0,"Wollen Sie das Programm| verlassen ?",2,"Ja|Nein",D%
If D%=1
End
Endif
Defmouse 3
Menu Pd$()
On Menu Gosub Abfrage
Endif
' ****************************************
' * Public Domain *
' ****************************************
If Pd$(Menu(0))=" Public Domain "
Menu Kill
If Xbios(4)=2
Deftext 1,0,16,7
Else
Deftext 1,1,1,5
Endif
Print At(1,3);"Hallo Atari Freaks !!!!!!!!!!"
Print "============================="
Print At(1,5);"Dieses Programm ist frei kopierbar, solange es nicht verändert"
Print "oder verkauft wird."
Print At(1,8);"Wem das Programm gefällt, der kann mir ja mal schreiben."
Print At(1,10);"Verbesserungsvorschläge und Fehlerhinweise zu meinen"
Print At(1,11);"Programmen nehme ich gerne entgegen."
Print At(1,13);"Listing des Programmes in GFA Basic V2.0 auf Anfrage erhältlich."
Print At(1,15);"Meine Adresse: Siegfried Hübner"
Print " Obere Vorstadt 21"
Print " 8812 Windsbach"
Print At(1,20);"Schreibt doch bitte auch mal ein Public Domain Programm"
Print At(1,22);"Ich grü₧e auch alle Atari ST-Freaks ."
Menu Pd$()
On Menu Gosub Abfrage
Endif
' ***************************************
' * Copyright *
' ***************************************
If Pd$(Menu(0))=" Copyright"
Menu Kill
Alert 0,">>>>>>>>> Hex-Lister <<<<<<<<|(c) 1989 by Siegfried Hübner| Obere Vorstadt 21| 8812 Windsbach",2,"Public|Domain|Programm",D%
Defmouse 3
Menu Pd$()
On Menu Gosub Abfrage
Endif
' *********************************
' * Start *
' *********************************
If Pd$(Menu(0))=" Lade/Drucke (Hex) "
Menu Kill
Hidem
Gosub Hex
Showm
Defmouse 3
Menu Pd$()
On Menu Gosub Abfrage
Endif
Return
' **************************
' * Datas einlesen *
' **************************
Data , Copyright
Data -------------------------
Data 1,2,3,4,5,6,""
Data Disk , Lade/Drucke (Hex) ,""
Data Hilfe , Public Domain ,""
Data Ende , Programmende ,""
Procedure Hex
@Lade_text
Return
Procedure Lade_text
On Error Gosub Fehler
Cls
Gosub Intro_lade_text
Fileselect "*.*",Nam$,Nam$
Cls
Open "I",#1,Nam$
Print At(22,10);">>>>>>>>>> Bin am Drucken <<<<<<<<<<"
X=0.001
Lprint " >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Hex-Listing des Programms ";Nam$;" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< "
Lprint " Zeile"
Lprint Using "#####.###",X;
Lprint " ";
While Not Eof(#1)
A=Asc(Input$(1,#1))
Inc Z
Lprint Using "\.\",Hex$(A);
If Not Z=27
Lprint ",";
Endif
If Z=27
X=X+0.001
Lprint Chr$(10);
Lprint Using "#####.###",X;
Lprint " ";
Z=0
Endif
Wend
Close #1
Z=0
X=0
Lprint Chr$(24);
Lprint Chr$(15);
Cls
Return
Procedure Intro_lade_text
If Xbios(4)<>2
Graphmode 1
Deffill 1,2,2
Pbox 157,0,482,26
Deftext 1,16,16,24
Graphmode 2
Text 160,23,"L a d e - T e x t"
Else
Graphmode 1
Deffill 1,2,2
Pbox 156,19,482,51
Deftext 1,16,16,32
Graphmode 2
Text 205,47," Lade - Text "
Endif
Return
Procedure Fehler
Run
Return