GFA-BASIC MS-DOS
prozent
dummy
u	&SHELLB
zaehler
treffer
quote
DatenDIM
dummy
frage
ladebild
bildi
XBIOS
richtig
richtig2
treffer
frag2
einstellung
ladebild
erstbild
laden
mischen
abfragen
eingeben	erweitern
1 - Fragen einladeno
2 - Fragen Mischen
3 - Abfragen
4 - Neue Fragen eingeben
5 - Fragen erweitern
6 - Spiel beendenl
Was wollen Sie ?
SCREEN
(1)PRINT
AT(28,10);"1
Fragen
einladen"
PRINT
AT(28,11);"2
Fragen
Mischen"PRINT
AT(28,12);"3
Abfragen"PRINT
AT(28,13);"4
Fragen
eingeben"PRINT
AT(28,14);"5
Fragen
erweitern"PRINT
AT(28,15);"6
Spiel
beenden"
PRINT
AT(33,21);"Was
wollen
INPUT
=CHR$(226)
=CHR$(225)
GOSUB
ELSEIF
GOSUB
GOSUB
GOSUB
GOSUB
GOSUB
GOSUB
ENDIF
PROCEDURE
=1DEFFILL
190,60*
,470,145*
DEFFILL
180,55*
,460,140*
180,55*
,460,140*
DEFFILL
210,163*
,450,175*
DEFFILL
200,158*
,440,170*
200,158*
,440,170*
DEFFILL
10,50*
,640,70*
DEFFILL
0,45*
,640,65*
0,45*
,640,65*
DEFFILL
40,80*
,620,155*
DEFFILL
30,75*
,610,150*
30,75*
,610,150*
ENDIF
RETURN
\*.DAT
PROCEDURE
FILESELECT
"\*.DAT",
EXIST(
"I",#1,
DEFMOUSE
2INPUT
INPUT
INPUT
INPUT
INPUT
INPUT
DEFMOUSE
0CLOSE
#1ENDIF
RETURN
| PR"
Moment !
PROCEDURE
>1DEFFILL
120,95*
,200,115*
DEFFILL
100,90*
,190,110*
100,90*
,190,110*
PRINT
AT(15,13);"Moment
!"PAUSE
50DIM
=RANDOM(
)=1INC
ENDIF
LOOPERASE
ENDIF
RETURN
NummerW
0 - Abfrage beendenm
   Ihre Antwort ?
    RICHTIG !!    
 FALSCH !!  Richtig w
Sie haben
% der Fragen beantwortet.m
Sie sind eine Niete. Ihnen ist nicht zu helfen.m
Das beste ist Sie l
schen dieses Spiel sofort.
Sehr schlecht !! Aber nicht hoffnungslos.m
Versuchen Sie es bei gelegenheit nocheinmal.
Mieserabel !
Am besten Sie versuchen es gleich nocheinmal
Schon nicht schlecht.m
Mit ein bischen 
ben schaffen Sie den Rest auch noch.m
 GUT !!  Das kann sich sehen lassen.
Sehr gut !!!!!!!!
Sie sind schon fast so gut wie ich.m
Aber noch nicht perfekt !
Fabelhaft ! Phantastisch ! Super ! Oberaffengeil !!m
Sie sind genauso gut wie ich selbst ...
 ... Sie Computerhirn.
Taste dr
cken!
PROCEDURE
LOCAL
(2)DEFFILL
15,180*
,80,199*
DEFFILL
5,175*
,70,194*
5,175*
,70,194*
DEFTEXT
1,0,0,4
20,178*
,"Nummer"
=STR$(
DEFTEXT
1,16,0,10*
20,190*
PRINT
AT(56,18);"0
Abfrage
beenden"
PRINT
AT(3,7);
PRINT
AT(8,10+
'"-"'
LOOPDO
DEFFILL
120,170*
,300,185*
DEFFILL
110,165*
,290,180*
110,165*
,290,180*
PRINT
AT(15,22);INPUT
Antwort
LOOPIF
PRINT
AT(15,22);"
RICHTIG
PAUSE
50ELSEIF
>0DEFFILL
120,170*
,620,195*
DEFFILL
110,165*
,610,190*
110,165*
,610,190*
PRINT
AT(15,22);"
FALSCH
Richtig
PRINT
AT(15,23);"
)'"<."
PAUSE
110,165*
,610,190*
110,165*
,610,190*
ENDIF
ENDIF
ENDIF
LOOPIF
>1DEFMOUSE
2PAUSE
=INT(
/100)+1)IF
ENDIF
DEFMOUSE
DEFFILL
60,55*
,600,195*
DEFFILL
50,50*
,590,190*
50,50*
,590,190*
120,70*
,520,100*
DEFFILL
120,70*
,120+(
*4),100*
PRINT
AT(20,15);"Sie
haben"'
Fragen
beantwortet."
<5PRINT
AT(9,17);"Sie
Niete.
Ihnen
nicht
helfen."PRINT
AT(9,18);"Das
beste
schen
dieses
Spiel
sofort."
PRINT
AT(9,17);"Sehr
schlecht
nicht
hoffnungslos."PRINT
AT(9,18);"Versuchen
gelegenheit
nocheinmal."
<50PRINT
AT(9,17);"Mieserabel
PRINT
AT(9,18);"Am
besten
versuchen
gleich
nocheinmal"
<75PRINT
AT(9,17);"Schon
nicht
schlecht."PRINT
AT(9,18);"Mit
bischen
schaffen
noch."ELSE
<90PRINT
AT(9,17);"
sehen
lassen."ELSE
PRINT
AT(9,17);"Sehr
!!!!!!!!"PRINT
AT(9,18);"Sie
schon
ich."PRINT
AT(9,19);"Aber
nicht
perfekt
!"ELSE
<=100
PRINT
AT(9,17);"Fabelhaft
Phantastisch
Super
Oberaffengeil
!!"PRINT
AT(9,18);"Sie
genauso
selbst
..."PRINT
AT(9,19);"
Computerhirn."
ENDIF
PRINT
AT(60,23);"Taste
cken!"KEYGET
ENDIF
RETURN
PROCEDURE
ERASE
(10),
(1000),
(9,1000),
(1000)
RETURN
NummerW
   Welche Antwort ist richtig ?
   Ist alles richtig ?
   Wollen Sie noch eine Frage eingeben ?
Fragen abspeichern ?
Ja|Nein
C:\*.*
Daten wurden nicht abgespeichert.|Da auf Abbruch Button gedr
ckt wurde.eZ
GelesencH
Fragenkatalog zu Sigi's historischem Quiz:
PROCEDURE
LOCAL
(2)INC
DEFFILL
15,180*
,80,199*
DEFFILL
5,175*
,70,194*
5,175*
,70,194*
DEFTEXT
1,0,0,4
20,178*
,"Nummer"
=STR$(
DEFTEXT
1,16,0,10*
20,190*
PRINT
AT(3,7);INPUT
=CHR$(27)
PRINT
AT(8,10+
INPUT
)EXIT
LOOPDO
DEFFILL
120,170*
,500,185*
DEFFILL
110,165*
,490,180*
110,165*
,490,180*
PRINT
AT(15,22);INPUT
Welche
Antwort
richtig
>-1LOOPPBOX
110,165*
,490,180*
110,165*
,490,180*
PRINT
AT(15,22);INPUT
alles
richtig
ELSEDEC
ENDIF
<999PBOX
110,165*
,490,180*
110,165*
,490,180*
PRINT
AT(15,22);INPUT
Wollen
Frage
eingeben
ENDIF
ENDIF
="Fragen
abspeichern
=CHR$(27)
=1ELSEALERT
,1,"Ja|Nein",
ENDIF
=1FILESELECT
"C:\*.*",
ALERT
3,"Daten
wurden
nicht
abgespeichert.|Da
Abbruch
Button
wurde.",1,"Gelesen",
ENDIF
"O",#1,
DEFMOUSE
2PRINT
#1;"Fragenkatalog
Sigi's
historischem
Quiz:"
PRINT
PRINT
PRINT
#1;8PRINT
8PRINT
DEFMOUSE
0CLOSE
#1ENDIF
ENDIF
RETURN
Wollen Sie wirklich|  schon aufh
ren ?
Ja|NeinnH
PROCEDURE
="Wollen
wirklich|
schon
ALERT
,2,"Ja|Nein",
=1SCREEN
ENDIF
RETURN
PROCEDURE
(10),
(1000),
(9,1000),
(1000)
RETURN
Dieses Programm ist Sharewareo
Sie d
rfen es kostenlos kopieren und weitergeben. Sie d
dieses Programm aber nicht verkaufen, oder kommerziell verwenden.o
Der Vertrieb durch Shareware/PD-Versender ist erlaubt.
Falls ihnen das Spiel gef
llt, k
nnen Sie sich bei mir f
20 DM Schein als Benutzer dieses Programmes Registrieren lassen.
Falls Sie noch Fehler im Programm oder in den Fragen finden,
sollten Sie mir schreiben, dann werden diese im n
chsten Update
korrigiert.,
Wenn Ihnen dieses Programm gefallen hat ...U
seien Sie bitte so ehrlich und lassen sich bei mir Registrieren.
Siegfried H
Obere Vorstadt 21 
91575 Windsbach
PROCEDURE
DEFFILL
60,55*
,600,195*
DEFFILL
50,50*
,590,190*
50,50*
,590,190*
PRINT
AT(9,8);"Dieses
Programm
Shareware"
PRINT
AT(9,10);"Sie
kostenlos
kopieren
weitergeben.
rfen"
PRINT
AT(9,11);"dieses
Programm
nicht
verkaufen,
kommerziell
verwenden."PRINT
AT(9,12);"Der
Vertrieb
durch
Shareware/PD-Versender
erlaubt."
PRINT
AT(9,13);"Falls
ihnen
Spiel
PRINT
AT(9,14);"20
Schein
Benutzer
dieses
Programmes
Registrieren
lassen."
PRINT
AT(9,15);"Falls
Fehler
Programm
Fragen
finden,"
PRINT
AT(9,16);"sollten
schreiben,
werden
diese
chsten
Update"PRINT
AT(9,17);"korrigiert."PRINT
AT(9,18);"Wenn
Ihnen
dieses
Programm
gefallen
..."PRINT
AT(9,19);"seien
bitte
ehrlich
lassen
Registrieren."
PRINT
AT(15,21);"Siegfried
bner"PRINT
AT(15,22);"Obere
Vorstadt
PRINT
AT(15,23);"91575
Windsbach"
0,0,640,400,
KEYGET
RETURN
Sigi's historisches Quiz                  Version 1.0 W
(c) 1994 by Siegfried H
bner, Obere Vorstadt 21, 91575 WindsbachW
PROCEDURE
=2DEFFILL
0,0,640,480ELSEDEFFILL
REPEATINC
=40REPEATIF
=1DEFFILL
,40DEFFILL
,40ELSEDEFFILL
,40DEFFILL
,40ENDIF
UNTIL
ENDIF
,20UNTIL
ENDIF
COLOR
DEFFILL
30,10*
,630,40*
DEFFILL
20,5*
,620,35*
20,5*
,620,35*
DEFTEXT
1,16,0,13*
65,15*
,"Sigi's
historisches
Version
"DEFTEXT
1,0,0,4
30,32*
,"(c)
Siegfried
bner,
Obere
Vorstadt
91575
Windsbach"
0,0,640,400,
RETURN
PROCEDURE
KEYGET
RETURN