10 WSET 0
20 COL 0, 30,0:CLS :CROFF 
30 CHDIR "DMP"
60 TLOAD 1,"gl4_1114.dat",11,14
70 STILE 1
100 WIN c(1,0,250,0,2,2,37,6,1,1,"")
110 POS 3,3:PRINT "Herzlich Willkommen zu Basic 2.1"
112 PAUSE 5000
115 GOSUB 10000
118 TPIC 30,0,240,29,14
120 WIN c(2,0,250,0,2,12,26,25,1,1,"")
122 PRINT "Hallo...":PAUSE 5000:CLS 
130 POS 2,12:PRINT "Ich bin Robert Gluehfaden"
140 POS 2,14:PRINT "und moechte Dir die neuen"
150 POS 2,16:PRINT "Funktionen von Basic 2.1"
160 PRINT "vorstellen.":PAUSE 9000:CLS 
162 PRINT "Also lehne Dich zurueck"
170 PRINT "und geniesse diese kleine"
180 PRINT "Demo, denn es gibt viel"
190 PRINT "Neues zu entdecken!"
200 TLOAD 2,"GL5_1211.dat",12,11
210 PAUSE 5000
220 WIN r(1):WIN r(2):CLS 
230 STILE 2
240 GOSUB 10000
250 TPIC 30,0,240,0,14
260 WIN c(1,0,250,23,1,1,38,12,1,1,"")
270 PRINT " Womit soll ich nur anfangen?"
280 PRINT " Am Besten mit der Frage:"
290 PRINT " Was kann man mit BASIC 2.1 auf dem"
300 PRINT " HIVE denn so anstellen?"
310 PAUSE 5000
320 WIN c(2,0,250,23,14,16,38,27,1,1,"")
330 PRINT "Vielleicht Musik ?":PAUSE 3000
335 TLOAD 3,"gl1_1311.dat",13,11
340 PLAY "plastic.dmp"
350 PRINT "Bitte sehr..."
360 PAUSE 5000
370 BOX 30,0,14,12,28,0
380 STILE 3
390 TPIC 30,0,240,0,15
400 PRINT " ":PRINT "Das ist cool was?"
9999 END 
10000 FOR i=60 TO 105
10010 BEEP i
10020 NEXT i
10030 RETURN 

