#COMPILE EXE
FUNCTION PBMAIN () AS LONG
CONSOLE SET VIEW 50,80
CONSOLE SCREEN 50,80
CLS
?"Wichtelgenerator FORUM64 2018 by ius":?
INPUT "Anzahl Wichtel [2 - 88]: ";wichtel?
IF wichtel?>88 THEN wichtel?=88
DIM wname$(wichtel?)
DIM empfaenger?(wichtel?)
?"Wuerfeln....: ";
FOR i?=1 TO wichtel?
RANDOMIZE TIMER
ermittelt?=0
WHILE ermittelt?=0
COLOR RND(1,15)
LOCATE 4,15
? CHR$(32+RND(1,94)) ;
teilnehmer?=RND(1,wichtel?)
IF empfaenger?(teilnehmer?)=0 AND teilnehmer?<>i? THEN
empfaenger?(teilnehmer?)=i?
ermittelt?=1
END IF
WEND
SLEEP 75
NEXT i?
COLOR 7
LOCATE 4,15
?" "
' waitkey$
IF redo?=0 THEN
FOR i?=1 TO wichtel?
LOCATE 5,17:?" ";:LOCATE 5,1
?"Name Wichtel #";TRIM$(STR$(i?));": ";
INPUT wname$(i?)
wname$(i?)=LEFT$(wname$(i?),15)
NEXT i?
END IF
locationy?=0
locationx?=0
CLS
FOR i?=1 TO wichtel?
IF i?>45 THEN locationy?=45
IF i?>45 THEN locationx?=36
LOCATE i?+1-locationy?,2+locationx?
? FORMAT$(i?,"00");": ";wname$(i?);
LOCATE i?+1-locationy?,19+locationx?
?" -> ";
LOCATE i?+1-locationy?,23+locationx?
?wname$(empfaenger?(i?));
NEXT i?
LOCATE 48,1
?" [TASTE DRUECKEN]"
WAITKEY$
speicher$="WICHTELN_"+DATE$+"_"+TIME$+".TXT"
REPLACE ":" WITH "" IN speicher$
?"Speichern als ";speicher$
OPEN speicher$ FOR OUTPUT AS #1
FOR i?=1 TO wichtel?
?#1,wname$(i?);" -> ";wname$(empfaenger?(i?))
NEXT i?
CLOSE 1
?" ENDE! [TASTE DRUECKEN]";
WAITKEY$
END FUNCTION