home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 7 / Tiger_Disk_007_19xx_Tiger-Crew-Disk_de_Side_B.d64 / test-programm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  90 lines
  1. 5 dim a$(1000,2),c$(40)
  2. 6 print"[147]":poke53280,3:poke53281,3:poke646,0
  3. 10 x=1
  4. 20 fory=1to2:reada$(x,y)
  5. 30 ifa$(x,1)="*"then60
  6. 40 next
  7. 50 x=x+1:goto20
  8. 60 x=x-1
  9. 70 :       fort=1tox:printa$(t,1):next
  10. 71 :
  11. 72 rem die zeile 70 is nur dazu da,
  12. 73 rem dass du siehst, welche worte
  13. 74 rem im proggi stehen...
  14. 75 :
  15. 80 poke198,0:wait198,1:poke198,0
  16. 100 f=int(x*rnd(1))+1
  17. 110 n=len(a$(f,1))
  18. 115 fort=1to40:c$(t)="":next
  19. 120 foro=1ton
  20. 130 h=int(n*rnd(1))+1
  21. 140 ifc$(h)<>""then130
  22. 150 c$(h)=mid$(a$(f,1),o,1)
  23. 160 next
  24. 170 print"[147]bilde aus folgenden buchstaben ein wort,"
  25. 180 print"das durch den danach stehenden begriff":print"beschrieben wird!"
  26. 190 print"":fort=1ton
  27. 200 printc$(t);" ";
  28. 210 next:print
  29. 220 print"";a$(f,2)
  30. 230 input"deine antwort ";d$
  31. 240 ifd$=a$(f,1)thenprint" richtig ! [146]"
  32. 250 poke198,0:wait198,1:poke198,0
  33. 260 :
  34. 270 :
  35. 300 poke19,64:input"[147]gib bitte ein wort ein : ";d$
  36. 305 poke19,0:print
  37. 310 fort=1tox
  38. 320 ifd$=a$(t,1)thenv=t:k=1:t=x
  39. 330 next
  40. 340 ifk=1thenk=0:print"";a$(v,1);" ist ein(e) ";a$(v,2):goto360
  41. 350 print"dieses wort kenne ich nicht !"
  42. 360 poke198,0:wait198,1:poke198,0
  43. 370 :
  44. 380 :
  45. 500 print"[147]             e d i t o r "
  46. 501 clr  :dima$(100,2)
  47. 502 rem  alles wegen neueingabe loeschen
  48. 503 rem  ist nur 'sicherheitshalber' -
  49. 504 rem  weil das gleiche array (a$)
  50. 505 rem  verwendet wird...
  51. 506 :
  52. 550 x=1
  53. 560 input"gesuchtes wort ";a$(x,1)
  54. 565 ifa$(x,1)="_"then585
  55. 570 input"erklaerungswort ";a$(x,2)
  56. 580 x=x+1:goto560
  57. 585 x=x-1
  58. 590 print"[147] datei wird gespeichert !":open2,8,2,"testdatei,s,w"
  59. 600 fort=1tox
  60. 610 print#2,a$(t,1)
  61. 620 print#2,a$(t,2)
  62. 630 next
  63. 635 close2
  64. 640 print"";x;"datensaetze sind gespeichert!"
  65. 650 poke198,0:wait198,1:poke198,0
  66. 660 clr:dima$(100,2):   rem  eingegebene daten fuer einlesetest loeschen
  67. 661 :
  68. 662 :
  69. 700 print"[147]               l a d e n"
  70. 710 open2,8,2,"testdatei,s,r"
  71. 720 x=1
  72. 730 input#2,a$(x,1)
  73. 735 input#2,a$(x,2)
  74. 740 ifst<>64thenx=x+1:goto730
  75. 750 close2
  76. 760 print"";x;"daten sind geladen !"
  77. 770 dimc$(40):  goto70
  78. 771 rem    jetzt startet das proggi mit            den von disk gelesenen daten
  79. 1000 datatasche,transportmittel,bier,getraenk,hose,kleidungsstueck,wasser
  80. 1001 datafluessigkeit,geld,zahlungsmittel,diskette,computer-zubehoer
  81. 1002 datazeitung,informations-medium,fenster,oeffnung in der wand,*
  82. 1999 :
  83. 2000 rem 'clr' loescht grundsaetzlich
  84. 2001 rem         a l l e s
  85. 2002 rem also auch dim-ensionierungen
  86. 2003 rem etc. - deshalb jeweils die
  87. 2004 rem   'neu-dim-ensionierung'
  88. 2005 :
  89. 2006 rem        w i n n i
  90.