90 REM ********************************
91 REM *      DEMO ZU MENUBASIC       *
92 REM ********************************
93 REM * (W) 21.3.93 BY MATTHIAS WENK *
94 REM ********************************
95 REM
96 REM *****************
97 REM *** TITELBILD ***
98 REM *****************
99 REM
100 PRINT"[147]":INIT
110 FORI=0TO12
120 FILL160,I,I,25-I*2,40-I*2,I
130 NEXT
140 FORI=0TO11
150 BOX160,I+1,I+1,3,11,0
160 BOX160,I,I,3,11,15
170 TEXTI+1,I+1,1,10,15,"MENUBASIC"
180 FORA=0TO50:NEXT
190 IFI<11THEN:DECOVER:DECOVER
200 NEXT
210 FORI=3TO0STEP-1
220 FORJ=8TO0STEP-1
230 BOX160,19+I,J,1,1,PEEK(56056+40*I+J)
240 NEXT
250 NEXT
260 A$(1)="(W) 1993 BY       "
270 A$(2)="MATTHIAS WENK     "
280 A$(3)="HAGENBUCHSTR. 43  "
290 A$(4)="CH-9000 ST. GALLEN"
300 FORI=1TO4
310 FORJ=0TO9
320 TEXT18+I,J,1,20,13,A$(I)
330 IFJ<9THEN:DECOVER
340 NEXT
350 NEXT
500 A=0:POKE198,0
510 TEXT24,5,1,31,AAND15,"BITTE DRUECKEN SIE EINE TASTE!"
520 IFPEEK(198)=0THENA=A+1:GOTO510
521 REM
522 REM *******************************
523 REM          HAUPTPROGRAMM
524 REM *******************************
525 REM
526 REM *********************
527 REM *** MENU AUSGEBEN ***
528 REM *********************
529 REM
530 POKE198,0:PRINT"[147]":INIT
540 A$="MENU":B$="BOX":C$="ICON":D$="TASTDEF":E$="FILL":F$="TRANS":G$="TEXT"
550 H$="__"
560 MENU1,0,0,4,A$,1000,B$,2000,C$,3000,D$,4000,E$,5000,F$,6000,G$,7000,H$,8000
570 FILL160,9,9,12,22,10
580 A$="WILLKOMMEN ZUR DEMO VON MENUBASIC! BITTE WAEHLEN SIE EINEN MENUPUNKT!"
590 GOSUB60000
600 RELEASE50,24
991 REM
992 REM *******************************
993 REM           MENUPUNKTE
994 REM *******************************
995 REM
996 REM **************
997 REM *** 'MENU' ***
998 REM **************
999 REM
1000 A$="MENUPUNKT "
1010 MENU0,1,0,3,A$+"1",1100,A$+"2",1200,A$+"3",1300
1020 RELEASE58,24
1100 A$="MENUPUNKT "
1110 MENU0,1,11,1,A$+"1.1",1150,A$+"1.2",1160,A$+"1.3",1170,A$+"1.4",1180
1120 RELEASE58,112
1150 A$="1.1":GOTO1190
1160 A$="1.2":GOTO1190
1170 A$="1.3":GOTO1190
1180 A$="1.4"
1190 A$="SIE HABEN MENUPUNKT "+A$+" GEWAEHLT!"
1195 GOSUB60000
1197 DELMENU:DELMENU:GOTO62000
1200 MENU1,2,11,1,"BITTE ANKLICKEN!",1250
1210 A$="DAS PASSIERT, WENN SIE EIN HORIZONTALES UNTERMENU AUSGEBEN! "
1220 A$=A$+"SIE KOENNEN ES NUR DURCH ANKLICKEN VERLASSEN!"
1230 GOSUB60000
1240 RELEASE66,112
1250 DELMENU:DELMENU:GOTO62000
1300 FORI=3TO9
1310 MENU0,I,11,1,"MENUPUNKT "+STR$(I-2),1350
1320 NEXT
1330 A$="EIN MIT 'FOR-NEXT' AUSGEGEBENES MENU"
1340 GOSUB60000:RELEASE122,112
1350 DELMENU:GOTO62000
1995 REM
1996 REM *************
1997 REM *** 'BOX' ***
1998 REM *************
1999 REM
2000 A$="MIT 'BOX' IST ES MOEGLICH, BELIEBIG GROSSE BEREICHE MIT EINEM ZEICHEN"
2010 A$=A$+" ZU FUELLEN. IM SPEICHER HABEN BIS ZU 4 GANZE BILDSCHIRME ..."
2020 GOSUB60000
2030 GOSUB61000
2040 FORI=0TO3
2050 BOX160,0,0,25,40,I
2055 FORJ=1TO100:NEXT
2060 NEXT
2070 GOSUB61000
2080 FORI=0TO3
2090 DECOVER
2095 FORJ=1TO100:NEXT
2100 NEXT
2110 A$="ODER 39 10X10-FELDER PLATZ:"
2120 GOSUB60000
2130 GOSUB61000
2140 FORI=1TO3
2150 FORJ=1TO13
2160 BOX160,I*2,J*2+I,10,10,I+J
2170 NEXT:NEXT
2180 GOSUB61000
2190 FORI=0TO38
2200 DECOVER
2210 NEXT
2220 GOTO62000
2995 REM
2996 REM **************
2997 REM *** 'ICON' ***
2998 REM **************
2999 REM
3000 A$="ICONS SIND SO EINFACH WIE MENUS!"
3010 GOSUB60000
3020 ICON0,0,25,40,3200
3030 FORI=0TO3
3040 BOX160,3,I*10+2,3,7,0
3050 BOX160,2,I*10+1,3,7,5
3060 TEXT3,I*10+2,1,6,5,"ICON"+STR$(I+1)
3070 ICON2,I*10+1,3,7,3300+I*100
3080 NEXT
3090 BOX160,22,12,3,8,0
3100 BOX160,21,11,3,8,3
3110 TEXT22,12,1,7,3,"WEITER"
3120 ICON21,11,3,8,3700
3130 GOTO62000
3200 A$="WIESO KLICKEN SIE HIER?"
3210 GOSUB60000
3220 GOTO62000
3300 A$="DAS WAR ICON 1"
3310 GOSUB60000
3320 GOTO62000
3400 A$="DAS WAR ICON 2"
3410 GOSUB60000
3420 GOTO62000
3500 A$="DAS WAR ICON 3"
3510 GOSUB60000
3520 GOTO62000
3600 A$="DAS WAR ICON 4"
3610 GOSUB60000
3620 GOTO62000
3700 FORI=0TO9
3710 DECOVER
3720 NEXT
3730 FORI=0TO5
3740 DELREG
3750 NEXT
3760 GOTO62000
3995 REM
3996 REM *****************
3997 REM *** 'TASTDEF' ***
3998 REM *****************
3999 REM
4000 A$="'TASTDEF' EIGNET SICH HERVORRAGEND FUER MENUS, DESSEN MENUPUNKTE MIT TA
4010 A$[178]A$[170]"STEN AUSGEWAEHLT WERDEN, DIE ALSO OHNE JOYSTICK AUSKOMMEN (MUESSEN)"
4020 [141]60000
4030 [141]61000
4040 B$[178]" MENUPUNKT ":A$[178]""
4050 [129]I[178]1[164]8
4060 A$[178]A$[170]">"[170][199](I[170]64)[170]"<"[170]B$[170][196](I)[170][199](13)
4070 [130]
4080 A$[178]A$[170][199](13)[170]"TASTE"
4090 [141]60000
4100 TSER[150]4200,0,255
4110 TAST[150]65,4300,66,4310,67,4320,68,4330,69,4340,70,4350,71,4360,72,4370
4200 RELEASE0,0,19,16,1,1,1,A$
4300 A$[178]"1":[137]4400
4310 A$[178]"2":[137]4400
4320 A$[178]"3":[137]4400
4330 A$[178]"4":[137]4400
4340 A$[178]"5":[137]4400
4350 A$[178]"6":[137]4400
4360 A$[178]"7":[137]4400
4370 A$[178]"8"
4400 A$[178]"SIE HABEN DEN MENUPUNKT "[170]A$[170]" GEWAEHLT!"
4410 [141]60000
4420 TSER[150]0,255,0
4430 RELEASE50,24
4995 [143]
4996 [143] **************
4997 [143] *** 'FILL' ***
4998 [143] **************
4999 [143]
5000 A$[178]"MIT DEM FILL-BEFEHL GEHT ZWAR DER HINTERGRUND UNTER DEM AUSGEFUELLTEN"
5010 A$[178]A$[170]" RECHTECK VERLOREN, DAFUER IST ER SCHNELLER UND BRAUCHT KEINEN "
5020 A$[178]A$[170]"SPEICHERPLATZ FUER DEN HINTERGRUND."
5030 [141]60000
5040 [151]198,0
5100 A[178]A[170]1[175]15
5110 FILL160,1,0,8,40,A
5120 FILL160,9,0,12,9,A[170]1
5130 FILL160,21,0,4,40,A[170]2
5140 FILL160,9,31,12,9,A[170]3
5150 [139][194](198)[178].[137]5100
5160 [137]62000
5995 [143]
5996 [143] ***************
5997 [143] *** 'TRANS' ***
5998 [143] ***************
5999 [143]
6000 A$[178]"MIT DEM 'TRANS'-BEFEHL KANN MAN AUCH FARBIGE UND INVERTIERTE ZEICHEN "
6020 A$[178]A$[170]"VOM BILDSCHIRM IN EINEN STRING KOPIEREN UND Z.B. MIT 'TEXT' WIEDER"
6030 A$[178]A$[170]" AUSGEBEN:"
6040 [141]60000
6050 [141]61000
6060 TRANS0,0,5,0,A$
6070 [129]I[178]1[164]8
6080 TEXTI,I,1,6,4,A$
6090 [130]
6100 [129]I[178]21[164]24
6110 TEXTI,I,1,6,4,A$
6120 [130]
6130 TRANS0,35,5,0,A$
6140 [129]I[178]1[164]8
6150 TEXTI,35[171]I,1,6,4,A$
6160 [130]
6170 [129]I[178]21[164]24
6180 TEXTI,35[171]I,1,6,4,A$
6190 [130]
6200 [137]62000
6995 [143]
6996 [143] **************
6997 [143] *** 'TEXT' ***
6998 [143] **************
6999 [143]
7000 A$[178]"MIT DEM 'TEXT'-BEFEHL KANN MAN FORTLAUFENDE TEXTE EINFACH AUF DEM "
7010 A$[178]A$[170]"BILDSCHIRM AUSGEBEN. ZU LANGE WOERTER WERDEN AUF DER NAECHSTEN "
7020 A$[178]A$[170]"ZEILE AUSGEGEBEN (WORDWRAPPING)."
7030 [141]60000
7040 [141]61000
7050 A$[178]"TEXTE KOENNEN AUCH STOPFCLRASYSRPRINTBDEFIGLIST UND INVERSWAIT SEIN. WENN DER TEXT ZU L"
7060 A$[178]A$[170]"ANG IST, WIRD DIE AUSGABE ABGEBRO- CHEN, UM ZU VERHIN- DERN, DASS "
7070 A$[178]A$[170]"EVENTUELL EINE BILDSCHIRMMASKE UEBERSCHRIEBEN WIRD."
7080 [141]60000
7090 [137]62000
7995 [143]
7996 [143] *******************
7997 [143] *** '__' (ENDE) ***
7998 [143] *******************
7999 [143]
8000 INIT:[153]"LOAD";:[128]
59991 [143]
59992 [143] *****************************
59993 [143]        UNTERPROGRAMME
59994 [143] *****************************
59995 [143]
59996 [143] *****************************
59997 [143] *** TEXT IM FELD AUSGEBEN ***
59998 [143] *****************************
59999 [143]
60000 FILL32,10,10,10,20,0
60010 TEXT10,10,10,20,15,A$
60020 [142]
60994 [143]
60995 [143] ***************************
60996 [143] *** OK AUSGEBEN UND AN- ***
60997 [143] ***   KLICKEN LASSEN    ***
60998 [143] ***************************
60999 [143]
61000 BOX160,20,30,3,4,0
61010 BOX160,19,29,3,4,1
61020 MENU1,20,30,1,"OK",61050
61030 IC[145]19,29,3,4,61050
61040 RELEASE210,264
61050 DELMENU
61060 DECOVER:DECOVER
61070 [142]
61993 [143]
61994 [143] ***************************
61995 [143] *** PFEIL EINSCHALTEN,  ***
61996 [143] *** OHNE SEINE POSITION ***
61997 [143] ***    ZU VERAENDERN    ***
61998 [143] ***************************
61999 [143]
62000 RELEASE[194](53249),[194](53248)[170]256[172]([194](53264)[175]1)