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