'нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн- 
'
'                WICHTIGE HINWEISE F▄R AMOS-PROGRAMMIERER !
'
'Die Procedures "_ENDE" und "_FEHLER" lassen sich in jedem Blanker verwenden,
'um die von MADHOUSE benЎtigten Dateien zu erzeugen. 
'
'Um diesen Blanker compilierfфhig zu machen, m№ssen alle die Textstellen   
'dekommentiert werden, hinter denen sich unmittelbar ein AMOS-Befehl befindet. 
'Weiterhin sollte dann auch der Befehl "Edit" in der Procedure "_ENDE" ent-
'fernt werden. Wer will, der kann auch die vorgegebenen Parameter in der 
'Parameterabfrage (die vier Befehle nach "Else") lЎschen, da der Blanker bei 
'der fehlenden "Prefs"-Datei sowieso aussteigt.
'
'WICHTIG!!!
'Die passenden AMOSPro_Compiler Einstellungen solltet, m№sst ihr zwangslфufig  
'aus unserer mitgelieferten Einstellung "AMOSPro_Compiler_Config" entnehmen. 
'Diese Datei einfach mit "LoadConfig" in der "CompilerShell" laden, fertig.  
'Die Datei befindet sich №brigens im "/Developer/AMOSDemo/"-Verzeichnis. 
'
'                                   der total verblЎdete AMOSPro-Programmierer 
'----------------------------------------------------------------------------- 

'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн   
'н                                                                           н   
'н                                AMOS DEMO                                  н     
'н                                                                           н   
'н                Version 1.0  by Aicke Schulz  24.02.1995                   н       
'н                                                                           н   
'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн   


'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн   
'н                                Parameter                                  н 
'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн     

If Exist("Ram:Madhouse_Storage/Prefs")
   Open In 1,"Ram:Madhouse_Storage/Prefs"
   Input #1,DEMOTEXT$
   Input #1,FARBE
   Input #1,BEWEGEN
   Input #1,DAUER
   Close 1
Else 
   DEMOTEXT$="$Hi, das ist ein Demotext des AMOSDemo-Beispielblankers von MADHOUSE."
   FARBE=2
   BEWEGEN=1
   DAUER=1
   'System  
End If 

DEMOTEXT$=Mid$(DEMOTEXT$,2)

'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн   
'н                              Vorbereitungen                               н 
'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн   

'Break Off 
Request Wb 
Set Sprite Buffer 16
'On Error Proc _FEHLER 

Screen Open 0,640,8,2,Hires
Flash Off : Curs Off : Hide 

If FARBE=0 : Palette $0,$FF0
Else If FARBE=1 : Palette $0,$F00
Else If FARBE=2 : Palette $0,$F
End If 

GESCHWINDIGKEIT=1

Centre DEMOTEXT$

'Amos Lock 
MEIN_TIMER=Timer

'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн   
'н                              Hauptschleife                                н 
'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн   

Do 
   If BEWEGEN=1
      Add Y_BILDSCHIRM,GESCHWINDIGKEIT
      If Y_BILDSCHIRM>240 or Y_BILDSCHIRM<0
         GESCHWINDIGKEIT=-GESCHWINDIGKEIT
      End If 
   End If 
   
   Screen Display 0,128,Y_BILDSCHIRM+50,,
   
   Multi Wait 
   If Mouse Key<>0 or Inkey$<>"" : _ENDE[1]
Else If DAUER>0 and(Timer-MEIN_TIMER)/3000=DAUER : _ENDE[0] : End If 
Loop 

'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн   
'н                               Proceduren                                  н 
'ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн   

Procedure _ENDE[ART]
   
   'If ART=1 Then Open Out 1,"Ram:Madhouse_Storage/Stopblank" 
   'System
   Edit 
   
End Proc
Procedure _FEHLER
   
   If Errn=24 : FEHLER$="OUT OF MEMORY."
   Else FEHLER$="AMOSPro error number:"+Str$(Errn)+" (see the doc!)"
   End If 
   
   Append 1,"Ram:Madhouse_Storage/Errors"
   Print #1,FEHLER$
   Close 1
   
   _ENDE[0]
   
End Proc