49 lines
1.3 KiB
QBasic
49 lines
1.3 KiB
QBasic
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
|
|
|