home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh93a.d64 / databox (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  75 lines
  1. 50000 POKE53280,12:POKE53281,12:POKE646,0
  2. 50002 FORI=1TO3:READMN$(I):NEXT
  3. 50003 FORI=1TO4:READDF$(I):NEXT
  4. 50004 NR=1
  5. 50010 PRINT"[147]"
  6. 50011 ZY%=0:SY%=14:GOSUB60030
  7. 50012 ZY%=1:SY%=SY%+2:GOSUB61000
  8. 50020 PRINT"[196][193][212][193][194][207][216]":GOSUB52000
  9. 50030 ZY%=5:FORI=1TO38STEP13
  10. 50035 SY%=I
  11. 50037 GOSUB60030
  12. 50038 NEXTI
  13. 50039 FG(1)=1:GOSUB50040:GOTO50050
  14. 50040 ZY%=6:SY%=3:GOSUB61000:IFFG(1)=1THENPRINTCHR$(18)+MN$(1):GOTO50042
  15. 50041 PRINTMN$(1)
  16. 50042 SY%=16:GOSUB61000:IFFG(2)=1THENPRINTCHR$(18)+MN$(2):GOTO50044
  17. 50043 PRINTMN$(2)
  18. 50044 SY%=29:GOSUB61000:IFFG(3)=1THENPRINTCHR$(18)+MN$(3):GOTO50046
  19. 50045 PRINTMN$(3)
  20. 50046 RETURN
  21. 50050 GOSUB59000
  22. 50100 GETT$
  23. 50105 IFT$=""ANDFG(1)=1THENGOSUB51000:GOTO50199
  24. 50110 IFT$=""ANDFG(2)=1THENGOSUB51010:GOTO50199
  25. 50115 IFT$=""ANDFG(3)=1THENGOSUB51020:GOTO50199
  26. 50120 IFT$=CHR$(13)ANDFG(1)=1THENGOSUB50300
  27. 50130 IFT$=CHR$(13)ANDFG(2)=1THENNR=1:GOSUB50400
  28. 50150 IFT$=CHR$(13)ANDFG(3)=1THEN:RCLOSE:PRINTCHR$(147):END
  29. 50199 GOTO50100
  30. 50300 IFNR>1THEN50309
  31. 50305 ZY%=8:SY%=3:GOSUB61000:INPUT"[196]ATEINAME";DT$
  32. 50306 RLEN25,25,25,25,0
  33. 50307 ROPEN DT$
  34. 50308 REND 5
  35. 50309 REACH3,12,DF$(1),25,NM$(NR),KY$
  36. 50310 REACH3,14,DF$(2),25,RO$(NR),KY$
  37. 50320 REACH3,16,DF$(3),25,WO$(NR),KY$
  38. 50330 REACH3,18,DF$(4),25,TF$(NR),KY$
  39. 50332 RPUT NR,NM$(NR),RO$(NR),WO$(NR),TF$(NR)
  40. 50333 NR=NR+1
  41. 50340 RETURN
  42. 50400 ZY%=8:SY%=3:GOSUB61000:INPUT"[196]ATEINAME";DT$
  43. 50402 ZY%=9:SY%=3:GOSUB61000:INPUT"[196]ATENSATZNUMMER (1-6)";DN
  44. 50403 GOSUB59000
  45. 50406 RLEN25,25,25,25,0
  46. 50407 ROPEN DT$
  47. 50410 RGET DN,NM$(DN),RO$(DN),WO$(DN),TF$(DN)
  48. 50415 ZY%=12:SY%=3:GOSUB61000
  49. 50420 PRINTDF$(1)NM$(DN):PRINT
  50. 50422 PRINTTAB(3)DF$(2)RO$(DN):PRINT
  51. 50424 PRINTTAB(3)DF$(3)WO$(DN):PRINT
  52. 50426 PRINTTAB(3)DF$(4)TF$(DN)
  53. 50499 RETURN
  54. 51000 FG(1)=0:FG(2)=1:FG(3)=0:GOSUB50040:RETURN
  55. 51010 FG(1)=0:FG(2)=0:FG(3)=1:GOSUB50040:RETURN
  56. 51020 FG(1)=1:FG(2)=0:FG(3)=0:GOSUB50040:RETURN
  57. 52000 PRINTTAB(3)"[195][210][211][210] RECHTS, PER [210][197][212][213][210][206] AKTIVIEREN!"
  58. 52010 RETURN
  59. 58999 REM GROSSE BOX
  60. 59000 ZY%=10:SY%=1:GOSUB61000
  61. 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]"
  62. 59011 FORI=1TO12
  63. 59012 PRINT" [167]                                    [144][180]"
  64. 59013 NEXTI
  65. 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]"
  66. 59999 RETURN
  67. 60030 GOSUB61000:PRINT"[167][163][163][163][163][163][163][163][163][163][163][144][180]"
  68. 60040 POKE211,SY%:PRINT"[167]          [144][180]"
  69. 60050 POKE211,SY%:PRINT"[167][144][175][175][175][175][175][175][175][175][175][175][180]"
  70. 60999 RETURN
  71. 61000 POKE214,ZY%:POKE211,SY%:SYS58640
  72. 61999 RETURN
  73. 62000 DATA "[197]INGABE ","[193]USGABE ","  [197]NDE  "
  74. 62100 DATA"[206]AME   : ","[211]TRASSE: ","[215]OHNORT: ","[212]ELEFON: "
  75.