^2______________________________________________________________________________ 
 
>> The Real Adok: Hier findet ihr zwei  Programme,  die  LeidPen  programmiert 
   hat.  Zuerst  einmal  POKEB800.BAS, das eindrucksvoll demonstriert, was das 
   Zeichenattribut (das, was bei  INT 10  Ufo 9  im  BL-Register  stehen  mu�) 
   bedeutet: 
^2______________________________________________________________________________ 
 
^0'POKEB800.BAS
^0'Demonstriert Auswirkung des Farbwertes (Attribut) im Textmodus
^0'Sprache: QBasic
^0'Autor: Roland Heer
^0'letzte �nderung: 28.5.96

^0'Farbwert (Attribut) als Hex-Zahl:
^0'Low  Nibble = Vordergrund (0 ... 7 hex) + 8 hex = Hell (Fett)
^0'High Nibble = Hintergrund (0 ... 7 hex) + 8 hex = Blinken
^0'High Nibble + 10 hex = High Nibble + 0

^0DEFINT A-Z
^0VIEW PRINT
^0CLS
^0DEF SEG = &HB800                'Anfang des Video-RAM

^0FOR i = 0 TO 255 + 128
^0    j$ = HEX$(i MOD 16)         'Low Byte Low Nibble
^0    k$ = HEX$((i \ 16) MOD 16)  'Low Byte High Nibble
^0    l$ = HEX$((i \ 256) MOD 16) 'High Byte
^0    offs = 10 * i + 2
^0    POKE offs + 0, ASC(l$)      'Zeichen (ASCII)
^0    POKE offs + 2, ASC(k$)      '  "
^0    POKE offs + 4, ASC(j$)      '  "
^0    POKE offs + 1, i            'Farbe (Attribut)
^0    POKE offs + 3, i            '  "
^0    POKE offs + 5, i            '  "
^0NEXT i

^0DEF SEG
^0LOCATE 25, 1: PRINT " Hex-Zahl entspricht Farbwert (Attribut)";
^0SLEEP
^0SYSTEM
^2______________________________________________________________________________ 
 
>> The Real Adok:  Doch  dieses  Programm  sprengt  alles  bisher  Dagewesene! 
   LeidPen  hat  mit  einfachen  Mitteln  eine  ganze  Geschichte  als Kinohit 
   programmiert.  Ein wahrer Leckerbissen!  Ihr m��t dazu nur die Codepage 437 
   (englisch) in der AUTOEXEC.BAT ausw�hlen, und es kann losgehen! 
^2______________________________________________________________________________ 

^0'BLABLA.BAS
^0'Autor: Roland Heer
^0'Sprache: QBasic
^0'Stand: 16.6.96

^0DEFINT A-Z
^0DIM a$(10), b$(10)
^0RANDOMIZE TIMER

^0FOR i = 0 TO 10: READ a$(i): NEXT i
^0FOR i = 0 TO 10: READ b$(i): NEXT i
^0'SCREEN 2                             'ausprobieren oder
^0'WIDTH 40                             'ausprobieren
^0CLS
^0LOCATE 2, 4: PRINT "Bitte den Kopf nach links neigen!"; : SLEEP 2
^0CLS
^0FOR i = 0 TO 18
^0    t! = TIMER
^0    LOCATE 7, 36 - i: PRINT "d:-I ";
^0    DO: LOOP UNTIL TIMER - t! > .2
^0NEXT i
^0SLEEP 1
^0LOCATE 7, 18: PRINT "d|-I";
^0FOR i = 0 TO 20
^0    t! = TIMER
^0    LOCATE 7, 21: PRINT a$(RND * 10);
^0    DO: SOUND INT(RND * 200) + 200, RND * 10
^0    LOOP UNTIL TIMER - t! > .3
^0NEXT i
^0LOCATE 7, 18: PRINT "d:-I ";
^0FOR i = 0 TO 18
^0    t! = TIMER
^0    LOCATE 9, 36 - i: PRINT "�:-) ";
^0    DO: LOOP UNTIL TIMER - t! > .1
^0NEXT i
^0LOCATE 7, 17: PRINT "d�8-]"; : SLEEP 1
^0LOCATE 7, 17: PRINT " d:-]"; : SLEEP 1
^0LOCATE 7, 17: PRINT " q;-)"; : SLEEP 1
^0FOR i = 0 TO 30
^0    t! = TIMER
^0    LOCATE 9, 21: PRINT a$(RND * 10);
^0    DO: SOUND INT(RND * 2000) + 200, RND * 1
^0    LOOP UNTIL TIMER - t! > .1
^0NEXT i
^0SLEEP 1
^0LOCATE 7, 18: PRINT " d-[ "; : SLEEP 1
^0FOR i = 0 TO 30
^0    t! = TIMER
^0    LOCATE 9, 21: PRINT a$(RND * 10);
^0    DO: SOUND INT(RND * 2000) + 200, RND * 1
^0    LOOP UNTIL TIMER - t! > .1
^0NEXT i
^0LOCATE 9, 19: PRINT ".^) "; : SLEEP 1
^0LOCATE 9, 19: PRINT ":-] "; : SLEEP 1
^0LOCATE 9, 19: PRINT ".^7 "; : SLEEP 1
^0FOR i = 0 TO 10
^0    t! = TIMER
^0    LOCATE 7, 21: PRINT b$(RND * 10);
^0    DO: SOUND INT(RND * 50) + 50, RND * 5
^0    LOOP UNTIL TIMER - t! > .3
^0NEXT i
^0LOCATE 7, 18: PRINT "d%-< "; : SLEEP 1
^0LOCATE 9, 19: PRINT ":-] "; : SLEEP 1
^0LOCATE 9, 19: PRINT "�-] "; : SLEEP 1
^0LOCATE 9, 19: PRINT ":-] "; : SLEEP 1
^0SOUND 37, 10
^0FOR i = 0 TO 18
^0    t! = TIMER
^0    LOCATE 7, 18 + i: PRINT " d:-<";
^0    DO: LOOP UNTIL TIMER - t! > .1
^0NEXT i
^0LOCATE 7, 1: PRINT TAB(40); " ";
^0LOCATE 9, 19: PRINT "8-I"; : SLEEP 1
^0LOCATE 9, 19: PRINT "8-("; : SLEEP 1
^0LOCATE 9, 19: PRINT "8-<"; : SLEEP 1
^0LOCATE 9, 19: PRINT ":-<"; : SLEEP 1
^0FOR i! = 30 TO 1 STEP -.1
^0    SOUND (20 + i!) * 100, .3
^0NEXT i!
^0LOCATE 9, 19: PRINT "|-<"; : SLEEP 1
^0FOR i = 10 TO 24
^0    t! = TIMER
^0    LOCATE i, 19: PRINT " ";
^0    LOCATE i + 1, 19: PRINT "�";
^0    DO: LOOP UNTIL TIMER - t! > .2
^0NEXT i
^0SCREEN 0
^0CLS : WIDTH 80: SYSTEM

^0DATA ") ","> ","O ","o ","v ","<>","8 ","] ","v ","))","V "
^0DATA "[ ","< ","( ","C ","� ","L ","V ","<<","{ ","\ ","� "
^2______________________________________________________________________________ 
 
>> The Real Adok: Na, wie  findet  ihr  die  Programme?  Genial,  nicht  wahr? 
   LeidPen  hat  BLABLA  �brigens  als Public Domain freigegeben, ihr k�nnt es 
   also selbst erweitern. La�t euch etwas einfallen! 
^2______________________________________________________________________________