home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 53 / 053.d81 / nimwit (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  68 lines
  1. 45 ifa<>0 then 70
  2. 50 gosub 2000
  3. 70 rem
  4. 100 ifa=0thena=1:load"lostpos",8,1
  5. 110 ifa=1thena=2:load"nimwit.font",8,1
  6. 111 ifa=2thena=3:load"new.ml",8,1
  7. 120 ifa=3thena=4:gosub140
  8. 125 poke8251,6:rem cursor speed,joystick
  9. 126 poke8480,6:rem cursor speed,keyboard
  10. 127 sys8192:print"[144][147]":end
  11. 130 print"[147]":fori=1to12:print"":next
  12. 140 poke53280,12:poke53281,12
  13. 240 b1$="[150]@@@@@@@@[150]@@@@@@@@[144]
  14. 250 b2$[178]"@@@@def@@@@@@@@def@@@@stop
  15. 260 l$="[219][219][219][219][219][219][219][219]":l1$=l$+"[219][219][219][219]
  16. 270 l2$[178]"(NULL)(NULL)"[170]l$[170]"(NULL)(NULL)
  17. 280 sp$="[220]          [221]
  18. 290 st$[178]"(NULL)  start   (NULL)
  19. 300 print"[147]";
  20. 310 poke53272,(peek(53272)and240)+12
  21. 320 print"[159]    [161][162][163][161][164][165][166][163][167]        ";
  22. 330 print"[192][193]   [201] [204][205][208][209]"
  23. 340 print"[159]    [168][169][172][168][170][171][169][172][172]   by   ";
  24. 350 print"[194][195][196][197][200][202][203][206][207][210][211][214][215][216][217][218]"
  25. 360 print"                        [199]     [212][213][144]"
  26. 530 printl1$spc(16)l1$sp$spc(16)sp$;
  27. 540 print"[220]player one[221]  to move:      [220]  regular [221]";
  28. 550 print"[220]    vs.   [221]"l$l$st$;
  29. 560 print"[220]  nimwit  [221]"b1$l2$;
  30. 570 printl2$b1$sp$sp$b1$"[220]  random  [221]";
  31. 580 print"[220]player one[221]"b2$st$;
  32. 590 print"[220]    vs.   [221]"b2$l2$;
  33. 600 print"[220]player two[221]"b2$sp$;
  34. 610 printl2$b1$"[220]  select  [221]"sp$b1$st$;
  35. 620 print"[220]one first [221]"b1$l2$l2$b2$sp$;
  36. 630 printsp$b2$"[220]  repeat  [221]";
  37. 640 print"[220]two first [221]"b2$st$;
  38. 650 printl2$"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"l2$;
  39. 660 printsp$spc(16)sp$;
  40. 670 print"[220]quit game [221]"spc(16)"[220] loadstar [221]";
  41. 680 printl2$spc(16)l2$;
  42. 690 fori=56148 to 56163:pokei,0:next
  43. 700 print"[152]   are you sure you want to return to"
  44. 710 print"            loadstar?  (y/n)";
  45. 720 return
  46. 2000 poke53280, 6:poke53281, 1:printchr$(142)"[147][142]";:poke53265,peek(53265)and239
  47. 2001 print"[151]       [152]                         [151]         [152]      [155]    loadstar presen";
  48. 2002 print"ts   [160][152]        [151] [152]      [155]                         [152]        [151] [152]      [155]   ";
  49. 2003 print"                      [152]        [151] [152]      [155]                         [152]     ";
  50. 2004 print"   [151] [152]      [155]   [146][156]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[155]  [152]        [151] [152]      [155]   [146][156][180]";
  51. 2005 print"[167][155]  [152]        [151] [152]  [150]  [164][164][164][164][164][146][156][180]nimwit[156][167] [150][164][164][164][164]";
  52. 2006 print"  [152][160] [160][151][160][152]  [150] [167][154]     [146][156][180][167] [154]    [150][165] [152] [160][160][151] [152]  [150] [167][154]     [146]";
  53. 2007 print"[156]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154]    [150][165] [151] [152][160] [151] [152]  [150] [167][154]                       ";
  54. 2008 print"   [154]    [150][165] [151] [152][160][160][151] [152]  [150] [167][154]      [153]      [154]      [153][160]     [154]      [150][165] [151][160][152][160] [151] [152] ";
  55. 2009 print" [150] [167][153]      [154] [146]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[154] [153]      [150][165] [151][160][152]  [151] [152]  [150] [167][153]      [154] [146][180][156]wr";
  56. 2010 print"ittenby[167] [153]      [150][165] [151][160][152][160] [151] [152]  [150] [167][153]      [154] [146][180][156]royaljones[167] ";
  57. 2011 print"[153]      [150][165] [151][160][152][160] [151] [152]  [150] [167][153]      [154] [146]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [153]      [150][165] [151] [152]  [151] [152] ";
  58. 2012 print" [150] [167][154]      [153]                  [154]      [150][165] [151][160][152] [160][151] [152]  [150] [167][154]      [153]      [154] ";
  59. 2013 print"     [153]      [154]      [150][165] [151][160][152]  [151] [152]  [150] [167][154]      [153] [146]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[153] [154]      ";
  60. 2014 print"[150][165] [151][160][152]  [151] [152]  [150] [167][154]      [153] [146][165][144]copyright1988[167] [154]      [150][165] [151][160][152]  [151] [152]  [150]  [163]";
  61. 2015 print"[163][163][163][163][163][163][146]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [150][163][163][163][163][163][163]  [151][160][152]  [151] [152]    [151] [152]                     ";
  62. 2016 print"      [151]     [152]  [151] [152]     [155]                           [152]       [151] [152]     [155][160]ple";
  63. 2017 print"ase wait while loading.[152]       [151] [152]     [155]                           [152]    ";
  64. 2018 print"  "
  65. 2020 poke2023,96+128:poke56295,12
  66. 2030 poke53265,peek(53265)or16
  67. 2050 return
  68.