home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 53
/
053.d81
/
nimwit
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
68 lines
45 ifa<>0 then 70
50 gosub 2000
70 rem
100 ifa=0thena=1:load"lostpos",8,1
110 ifa=1thena=2:load"nimwit.font",8,1
111 ifa=2thena=3:load"new.ml",8,1
120 ifa=3thena=4:gosub140
125 poke8251,6:rem cursor speed,joystick
126 poke8480,6:rem cursor speed,keyboard
127 sys8192:print"[144][147]":end
130 print"[147]":fori=1to12:print"":next
140 poke53280,12:poke53281,12
240 b1$="[150]@@@@@@@@[150]@@@@@@@@[144]
250 b2$[178]"@@@@def@@@@@@@@def@@@@stop
260 l$="[219][219][219][219][219][219][219][219]":l1$=l$+"[219][219][219][219]
270 l2$[178]"(NULL)(NULL)"[170]l$[170]"(NULL)(NULL)
280 sp$="[220] [221]
290 st$[178]"(NULL) start (NULL)
300 print"[147]";
310 poke53272,(peek(53272)and240)+12
320 print"[159] [161][162][163][161][164][165][166][163][167] ";
330 print"[192][193] [201] [204][205][208][209]"
340 print"[159] [168][169][172][168][170][171][169][172][172] by ";
350 print"[194][195][196][197][200][202][203][206][207][210][211][214][215][216][217][218]"
360 print" [199] [212][213][144]"
530 printl1$spc(16)l1$sp$spc(16)sp$;
540 print"[220]player one[221] to move: [220] regular [221]";
550 print"[220] vs. [221]"l$l$st$;
560 print"[220] nimwit [221]"b1$l2$;
570 printl2$b1$sp$sp$b1$"[220] random [221]";
580 print"[220]player one[221]"b2$st$;
590 print"[220] vs. [221]"b2$l2$;
600 print"[220]player two[221]"b2$sp$;
610 printl2$b1$"[220] select [221]"sp$b1$st$;
620 print"[220]one first [221]"b1$l2$l2$b2$sp$;
630 printsp$b2$"[220] repeat [221]";
640 print"[220]two first [221]"b2$st$;
650 printl2$"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"l2$;
660 printsp$spc(16)sp$;
670 print"[220]quit game [221]"spc(16)"[220] loadstar [221]";
680 printl2$spc(16)l2$;
690 fori=56148 to 56163:pokei,0:next
700 print"[152] are you sure you want to return to"
710 print" loadstar? (y/n)";
720 return
2000 poke53280, 6:poke53281, 1:printchr$(142)"[147][142]";:poke53265,peek(53265)and239
2001 print"[151] [152] [151] [152] [155] loadstar presen";
2002 print"ts [160][152] [151] [152] [155] [152] [151] [152] [155] ";
2003 print" [152] [151] [152] [155] [152] ";
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]";
2005 print"[167][155] [152] [151] [152] [150] [164][164][164][164][164][146][156][180]nimwit[156][167] [150][164][164][164][164]";
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]";
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] ";
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] ";
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";
2010 print"ittenby[167] [153] [150][165] [151][160][152][160] [151] [152] [150] [167][153] [154] [146][180][156]royaljones[167] ";
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] ";
2012 print" [150] [167][154] [153] [154] [150][165] [151][160][152] [160][151] [152] [150] [167][154] [153] [154] ";
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] ";
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]";
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] ";
2016 print" [151] [152] [151] [152] [155] [152] [151] [152] [155][160]ple";
2017 print"ase wait while loading.[152] [151] [152] [155] [152] ";
2018 print" "
2020 poke2023,96+128:poke56295,12
2030 poke53265,peek(53265)or16
2050 return