2 REM * BASIC-DEMO FUER "POPUP V1" *
4 REM
6 IF Q=0 THEN Q=1:LOAD"POPUP V1.1",8,1
8 SYS 49152+6,"MENUE",8192:GOSUB152
10 REM
12 PRINT"[147]":P=49152:POKE53280,0:POKE53281,0
14 A$="[147]FOLGENDER MENUE-PUNKT WURDE AUSGEWAEHLT:"+CHR$(13)
16 SYS P+3,8,3,9,2:PRINT"":INPUTN$:IFN$=""THEN16
18 FORY=0TO22 STEP 3:SYS P+3,9,6,Y,1:NEXT
20 FORH=1TO2500:NEXT:PRINT"[147]":GOTO24
22 REM
24 FORH=1TO2000:NEXT
26 SYS P,1
28 A=PEEK(2):REM NR. DES MENUES
30 B=PEEK(3):REM NR. DES MENUE-PUNKTES
32 IF B=0 AND A<>0 GOTO144
34 IF A=0 AND B<=1 GOTO26
36 IF A=0 AND B=2 GOTO164
38 IF A=0 AND B=3 THEN GOSUB152:GOTO26
40 ON A-1 GOTO46,62,80,96,116,140
42 REM ... X-BELIEBIGE PROGRAMM-ZEILEN...
44 REM ----------------------
46 ON B GOSUB52,54,56,58
48 GOTO24
50 REM
52 PRINT A$:PRINT"DATEI: LADEN":RETURN
54 PRINT A$:PRINT"DATEI: SPEICHERN":RETURN
56 PRINT A$:PRINT"DATEI: DRUCKEN":RETURN
58 PRINT A$:PRINT"DATEI: EXIT":RETURN
60 REM ----------------------
62 ON B GOSUB68,70,72,74,76
64 GOTO24
66 REM
68 PRINTA$:PRINT"BEARBEIT: VERSCHIEBEN":RETURN
70 PRINTA$:PRINT"BEARBEIT: KOPIEREN":RETURN
72 PRINTA$:PRINT"BEARBEIT: LOESCHEN":RETURN
74 PRINTA$:PRINT"BEARBEIT: BLOCK":RETURN
76 PRINTA$:PRINT"BEARBEIT: EXIT":RETURN
78 REM -----------------------
80 ON B GOSUB86,88,90,92
82 GOTO24
84 REM
86 PRINTA$:PRINT"FORMAT: ZEILE":RETURN
88 PRINTA$:PRINT"FORMAT: SEITE":RETURN
90 PRINTA$:PRINT"FORMAT: TEXT":RETURN
92 PRINTA$:PRINT"FORMAT: EXIT":RETURN
94 REM -----------------------
96 ON B GOSUB102,104,106,108,110,112
98 GOTO24
100 REM
102 PRINTA$:PRINT"TOOLS: LEXIKON":RETURN
104 PRINTA$:PRINT"TOOLS: THESAURUS":RETURN
106 PRINTA$:PRINT"TOOLS: MACRO":RETURN
108 PRINTA$:PRINT"TOOLS: DATUM":RETURN
110 PRINTA$:PRINT"TOOLS: LINIEREN":RETURN
112 PRINTA$:PRINT"TOOLS: EXIT":RETURN
114 REM ------------------------
116 ON B GOSUB122,124,126,128,130,132,134,136
118 GOTO24
120 REM
122 PRINTA$:PRINT"FONT: NORMAL":RETURN
124 PRINTA$:PRINT"FONT: HOCH":RETURN
126 PRINTA$:PRINT"FONT: TIEF":RETURN
128 PRINTA$:PRINT"FONT: KLEIN":RETURN
130 PRINTA$:PRINT"FONT: GROSS":RETURN
132 PRINTA$:PRINT"FONT: NOCH GROESSER":RETURN
134 PRINTA$:PRINT"FONT: AM GROESSTEN":RETURN
136 PRINTA$:PRINT"FONT: EXIT":RETURN
138 REM ----------------------
140 PRINTA$:PRINT"INFO: TSCHUESS!":GOTO24
142 REM ----------------------
144 PRINT"[147]";N$
146 END
148 REM ----------------------
150 R=RND(0)*15:T=RND(TI)*15:C=RND(1)*15:RETURN
152 IF PEEK(3)=0 THEN RETURN
154 GOSUB150
156 SYS49152+3,10,10,10,3,R,T,C
158 GET T$: IF T$="" GOTO154
160 PRINT "[147]":RETURN
162 REM ------------------------
164 GOSUB150
166 SYS P+3,11,10,10,3,R,T,C
168 GET T$:IF T$="" GOTO164
170 PRINT"[147]":GOTO24