home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 209 / 209.d81 / b.flags (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  54 lines
  1. 1 s=0:poke53280,4:poke53281,4:print""
  2. 2 print"[147]  flag quiz (c)2001 by kojote'bytegeiz "
  3. 3 fori=1to5:readx$(i):nexti:print""
  4. 4 ifx$(1)="w"goto10
  5. 5 ifx$(1)="s"goto20
  6. 6 ifx$(5)="x"goto45
  7. 10 fort=2to4:forr=1to5
  8. 11 printx$(t)"                           [146]":nextr:nextt:goto30
  9. 20 fort=1to17:printx$(2)"         "x$(3)"         "x$(4)"         "
  10. 21 nextt
  11. 30 input"flag of";c$
  12. 31 ifc$=x$(5)thens=s+1:print"correct! your score =";s:goto40
  13. 32 ifc$="q"orc$="quit"then40000
  14. 33 print"wrong!! it's: "x$(5):goto40
  15. 40 gety$:ify$=""goto40
  16. 41 goto2
  17. 45 print"thanks for playing flag quiz by kojote":ifs=20thenprint"[159]";
  18. 46 print"your final score is";s"out of 20 points"
  19. 47 print"    [158]visit www.bytegeiz.de today :)"
  20. 50 data"w","","","[129]","armenia","w","","","","austria"
  21. 51 data"s","[144]","[158]","","belgium","w","","","","bulgaria"
  22. 52 data"s","","[158]","","chad","w","","[144]","","estonia"
  23. 53 data"s","","","","france","w","","[158]","","gabon"
  24. 54 data"w","[144]","","[158]","germany","s","","[158]","","guinea"
  25. 55 data"w","","","","hungary","s","","","","italy"
  26. 56 data"w","[158]","","","lithuania","w","","","[154]","luxembourg"
  27. 57 data"s","","[158]","","mali","w","","","","montenegro"
  28. 58 data"w","","","","netherlands","s","","","","nigeria"
  29. 59 data"s","","","","peru","s","","[158]","","romania"
  30. 60 data"","","","","x"
  31. 61 rem **************************
  32. 62 rem * flag quiz v 1.00       *
  33. 63 rem * ----------------       *
  34. 64 rem * (c) 09/2001 by kojote  *
  35. 65 rem * http://www.bytegeiz.de *
  36. 66 rem * this game is freeware  *
  37. 67 rem **************************
  38. 68 rem * greets to my wife :)   *
  39. 69 rem * yes, i am wasting time *
  40. 70 rem * in front of the pc :)  *
  41. 71 rem **************************
  42. 9999 end
  43. 10000 d=peek(186):n$="b.flags":open15,d,15,"s0:"+n$:close15:saven$,d:end
  44. 40000 fori=0to21:poke828+i,8+i:next
  45. 40010 ifdv<8ordv>29ordv=8then40030
  46. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  47. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  48. 40040 close2:open2,i,2:close2:ifstthen40060
  49. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  50. 40060 next:print"[147]":poke53272,23:poke186,8:end
  51. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  52. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  53. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  54.