home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 65 / Tiger_Disk_065_19xx_Tiger-Crew-Disk_de_Side_B.d64 / superquiz-ausw. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  45 lines
  1. 10 dimr$(60),a$(60)
  2. 20 poke53280,11:poke53281,11:poke646,1:a=0
  3. 30 open2,8,2,"antworten,s,r"
  4. 40 input#2,i
  5. 50 fort=1toi:input#2,r$(t):next
  6. 60 close2
  7. 70 print"[147]     auswerungsfile zum superquiz"
  8. 80 print"  bitte jetzt die diskette mit dem        file "chr$(34)"super";
  9. 90 print"score"chr$(34)" einlegen,":print"  dann eine beliebige taste druecken!"
  10. 100 poke198,0:wait198,1:poke198,0
  11. 110 open2,8,2,"superscore,s,r"
  12. 120 input#2,i
  13. 130 fort=1toi:input#2,a$(t):next
  14. 140 close2
  15. 150 print"[147]auswertung beginnt!"
  16. 160 fort=1toi
  17. 170 ifa$(t)=r$(t)thenprint"frage"t"wurde richtig beantwortet!":gosub210:goto190
  18. 180 gosub230
  19. 190 print"[147]":next
  20. 200 print"[147]sie haben insgesamt";a;"punkte":goto270
  21. 210 print"dies gibt fuer sie 5 punkte!":a=a+5:print"sie haben damit"a"punkte!"
  22. 220 poke198,0:wait198,1:poke198,0:return
  23. 230 print"die frage"t"wurde von ihnen leider":print"nicht richtig beantwortet."
  24. 240 print"richtig waere ";r$(t);" gewesen...":print"leider keine punkte..."
  25. 250 print"ihr punktestand:";a
  26. 260 poke198,0:wait198,1:poke198,0:return
  27. 270 print"von maximal [159]275 punkten erreicht."
  28. 280 if a>=205 then 310
  29. 290 if a<205 and a>100 then 370
  30. 300 if a<=100 then 400
  31. 310 print"sie besitzen super kenntnisse,"
  32. 320 print"besonders im bereich geographie & sport."
  33. 330 print"an ihrer stelle wuerde ich mir, wenn
  34. 340 [153]"sie noch keinen beruf haben, 'nen beruf"
  35. 350 [153]"in dieser richtung waehlen.
  36. 360 goto420
  37. 370 print"sie haben eigentlich ein gutes allge-   meinwissen und koennten sich"
  38. 380 print"(so glaube ich), auf ein gebiet         spezialisieren!!"
  39. 390 goto420
  40. 400 print"sie sollten sich unbedingt allgemein-"
  41. 410 print"wissen aneignen,denn sonst werden sie   es im leben sehr[146] schwer haben."
  42. 420 print"      in diesem sinne:"
  43. 430 print"      good luck und auf wiedersehen!"
  44. 440 print"":end
  45.