home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh93a.d64
/
databox
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
75 lines
50000 POKE53280,12:POKE53281,12:POKE646,0
50002 FORI=1TO3:READMN$(I):NEXT
50003 FORI=1TO4:READDF$(I):NEXT
50004 NR=1
50010 PRINT"[147]"
50011 ZY%=0:SY%=14:GOSUB60030
50012 ZY%=1:SY%=SY%+2:GOSUB61000
50020 PRINT"[196][193][212][193][194][207][216]":GOSUB52000
50030 ZY%=5:FORI=1TO38STEP13
50035 SY%=I
50037 GOSUB60030
50038 NEXTI
50039 FG(1)=1:GOSUB50040:GOTO50050
50040 ZY%=6:SY%=3:GOSUB61000:IFFG(1)=1THENPRINTCHR$(18)+MN$(1):GOTO50042
50041 PRINTMN$(1)
50042 SY%=16:GOSUB61000:IFFG(2)=1THENPRINTCHR$(18)+MN$(2):GOTO50044
50043 PRINTMN$(2)
50044 SY%=29:GOSUB61000:IFFG(3)=1THENPRINTCHR$(18)+MN$(3):GOTO50046
50045 PRINTMN$(3)
50046 RETURN
50050 GOSUB59000
50100 GETT$
50105 IFT$=""ANDFG(1)=1THENGOSUB51000:GOTO50199
50110 IFT$=""ANDFG(2)=1THENGOSUB51010:GOTO50199
50115 IFT$=""ANDFG(3)=1THENGOSUB51020:GOTO50199
50120 IFT$=CHR$(13)ANDFG(1)=1THENGOSUB50300
50130 IFT$=CHR$(13)ANDFG(2)=1THENNR=1:GOSUB50400
50150 IFT$=CHR$(13)ANDFG(3)=1THEN:RCLOSE:PRINTCHR$(147):END
50199 GOTO50100
50300 IFNR>1THEN50309
50305 ZY%=8:SY%=3:GOSUB61000:INPUT"[196]ATEINAME";DT$
50306 RLEN25,25,25,25,0
50307 ROPEN DT$
50308 REND 5
50309 REACH3,12,DF$(1),25,NM$(NR),KY$
50310 REACH3,14,DF$(2),25,RO$(NR),KY$
50320 REACH3,16,DF$(3),25,WO$(NR),KY$
50330 REACH3,18,DF$(4),25,TF$(NR),KY$
50332 RPUT NR,NM$(NR),RO$(NR),WO$(NR),TF$(NR)
50333 NR=NR+1
50340 RETURN
50400 ZY%=8:SY%=3:GOSUB61000:INPUT"[196]ATEINAME";DT$
50402 ZY%=9:SY%=3:GOSUB61000:INPUT"[196]ATENSATZNUMMER (1-6)";DN
50403 GOSUB59000
50406 RLEN25,25,25,25,0
50407 ROPEN DT$
50410 RGET DN,NM$(DN),RO$(DN),WO$(DN),TF$(DN)
50415 ZY%=12:SY%=3:GOSUB61000
50420 PRINTDF$(1)NM$(DN):PRINT
50422 PRINTTAB(3)DF$(2)RO$(DN):PRINT
50424 PRINTTAB(3)DF$(3)WO$(DN):PRINT
50426 PRINTTAB(3)DF$(4)TF$(DN)
50499 RETURN
51000 FG(1)=0:FG(2)=1:FG(3)=0:GOSUB50040:RETURN
51010 FG(1)=0:FG(2)=0:FG(3)=1:GOSUB50040:RETURN
51020 FG(1)=1:FG(2)=0:FG(3)=0:GOSUB50040:RETURN
52000 PRINTTAB(3)"[195][210][211][210] RECHTS, PER [210][197][212][213][210][206] AKTIVIEREN!"
52010 RETURN
58999 REM GROSSE BOX
59000 ZY%=10:SY%=1:GOSUB61000
59010 PRINT"[167][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][144][180]"
59011 FORI=1TO12
59012 PRINT" [167] [144][180]"
59013 NEXTI
59014 PRINT" [167][144][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][180]"
59999 RETURN
60030 GOSUB61000:PRINT"[167][163][163][163][163][163][163][163][163][163][163][144][180]"
60040 POKE211,SY%:PRINT"[167] [144][180]"
60050 POKE211,SY%:PRINT"[167][144][175][175][175][175][175][175][175][175][175][175][180]"
60999 RETURN
61000 POKE214,ZY%:POKE211,SY%:SYS58640
61999 RETURN
62000 DATA "[197]INGABE ","[193]USGABE "," [197]NDE "
62100 DATA"[206]AME : ","[211]TRASSE: ","[215]OHNORT: ","[212]ELEFON: "