500:1000:1500$V21,255HQ1:I072:VI,RX(Q):QQ1:a(I072:V1I,RY:2Q1:I8152:VI,BX(Q):QQ1:<I8152:V1I,BY:FT1:3900:D14000:PT2:3900:F0ZN$:N$""90dN$""3800:30 nN$"0"N$"5"FF1:1500 xN$"4"N$"9"FF1:150C N$"Q"64738K 90j N(N$):HM(N1)2:VMHM1x T3:3900 A$:A$""170 A$""3800:30 A$"M"3000:80 A$"J"3200:80 170 *: +:  **** INITIALIZATION **** :+ RX(4),BX(4),M$(7),RY(4),BY(4)O V53248:V21,255:V21,0:P192 L18:N062:A:P64N,A::PP1::P192 N07:2040N,P:PP1: &N03:V39N,5::N47:V39N,14: 0V23,255:V29,255 :RX(1)21:RX(2)45:RX(3)69:RX(4)93:RY113A DBX(1)141:BX(2)165:BX(3)189:BX(4)213:BY113N NC3:M24n XT$"" bSP$"  " lM$(1)" WELCOME TO SWITCH":M$(2)" CHOOSE WHICH PEG?"> vM$(3)" MOVE 1 SPACE OR JUMP":M$(4)" CAN'T DO THAT !!"y M$(5)" OKAY...":M$(6)" CONGRATULATIONS !!" M$(7)" F1 TO RESTARTQ TO QUIT" S54272:LSS24:L,0:S24,15  : :  **** TITLE SCREEN **** :% 53280,0:53281,0:""U " " "  " "    " "  PROGRAMMED BY  "!$"      "Y."   JOHN SEAVERT   "8"      "B"       "L"        "-V"   ղղ   "a`"  ó  "j"   ʱʱ   "t"        "~"       "6"      "n"   INSTRUCTIONS   ""      ""   [Y/N]   " "    ";"  "k" "A$:A$""1230A$"Y"4000:A$"N"1230:: **** MAIN SCREEN ****:53280,6:53281,0""*1)"          "Q1)" "x1)" PRESS F1 TO RESTART "1)" ""1)"  ",""633)""@33)""J33)""T33)" "^33)"",h33)"ʱ";r33)"ղ"J|33)" "Y33)"ʱ"h33)"ղ"w33)" "33)" "33)""33)" "33)""33)" "33)"ó"33)" ":: **** BELL ****:"S5,0:S6,247.S4,17?S,0:S1,40ND1100:ZS4,16` f2:l3:4 **** BUZZER ****5:>S5,45:S6,165HS4,33RS,5:S1,6\D1200:fS4,32p:: **** MOVE **** : T5:3900; N4(VHM)BX(4)CF1:3400:CF0:d N5(VHM)RX(1)CF1:3400:CF0:y (V30)03040 L113893:VVM,L: L(VHM)(VHM)233:VHM,(VHM)3F: L891133:VVM,L: (V30)03400: 20004 (V)141(V2)165(V4)189(V6)2133600:& @~ :F :\ **** JUMP ****b :p T5:3900 N3(V4)BX(3)(V4)BX(4)CF1:3500:CF0: N4(V6)BX(3)(V6)BX(4)CF1:3500:CF0: N5(V8)RX(2)(V8)RX(1)CF1:3500:CF0:< N6(V10)RX(2)CF1:3500:CF0:Q (V30)03260l L113893:VVM,L: L(VHM)(VHM)473:VHM,(VHM)3F: L891133:VVM,L: (V30)03500: 2000  (V)141(V2)165(V4)189(V6)2133600 F :G :<H **** REVERSE MOVE ****BI :VR F1F1:3430d\ F1F1f T4:3900:2100:CF1p L113893:VVM,L:z L(VHM)(VHM)233:VHM,(VHM)3F: L891133:VVM,L:  : : **** REVERSE JUMP **** :/ F1F1:3530= F1F1Y T4:3900:2100:CF1t L113893:VVM,L: L(VHM)(VHM)473:VHM,(VHM)3F: L891133:VVM,L: :: **** CHECK FOR WIN ****:*(V8)21(V10)45(V12)69(V14)9337002$808r:>s:Xt **** YOU WIN ****^u:|~T6:L110:3900:2000:T7:390090:: **** RESET ROUTINE ****:T$;3);SP$:T5:3900 RX(1)21:RX(2)45:RX(3)69:RX(4)93:RY113?BX(1)141:BX(2)165:BX(3)189:BX(4)213:BY113[D12500::T$;3);SP$a g::m;:< **** PRINT MESSAGE ****=:FT$;SP$:D160:PT$;M$(T)ZT4T5D1300:d:: **** INSTRUCTIONS ****:"53280,6:53281,15:""C17)"SWITCH":17)""p5)"TO WIN AT THE GAME OF SWITCH, YOU"2)"MUST MOVE OR JUMP THE GREEN PIECES"2)"FORWARD (LEFT TO RIGHT) AND THE BLUE"2)"PIECES FORWARD (RIGHT TO LEFT) UNTIL"22)"YOU HAVE COMPLETELY SWITCHED SIDES."V5)"SIMPLE, YOU SAY? WAIT..."2)"YOU CAN ONLY MOVE IN THE DIRECTIONS"2)"EXPLAINED ABOVE. HAVE FUN!!"12)" PRESS ANY KEY ""A$:A$""4130,f:g: **** 1 **** :9 0,254,0,1,239,0,1,239,0,1,239,0,1,239a 0,1,239,0,0,254,0,0,56,0,0,56,0,0  56,0,0,56,0,0,56,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0N:O:P **** 2 ****Q: Z 0,254,0,1,199,0,1,247,0,1,199,0,1,2235d 0,1,199,0,0,254,0,0,56,0,0,56,0,0Zn 56,0,0,56,0,0,56,0,0,0,0,0,0,0|x 0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0:: **** 3 ****: 0,254,0,1,199,0,1,247,0,1,199,0,1,247  0,1,199,0,0,254,0,0,56,0,0,56,0,0.  56,0,0,56,0,0,56,0,0,0,0,0,0,0P  0,0,0,0,0,0,0,0,0,0,0,0,0,0d  0,0,0,0,0,0,0j :p :  **** 4 **** : " 0,254,0,1,215,0,1,215,0,1,199,0,1,247 , 0,1,247,0,0,254,0,0,56,0,0,56,0,0!6 56,0,0,56,0,0,56,0,0,0,0,0,0,0$!@ 0,0,0,0,0,0,0,0,0,0,0,0,0,08!J 0,0,0,0,0,0,0>!z:D!{:W!| **** 5 ****]!}:! 0,254,0,1,199,0,1,223,0,1,199,0,1,247! 0,1,199,0,0,254,0,0,56,0,0,56,0,0! 56,0,0,56,0,0,56,0,0,0,0,0,0,0! 0,0,0,0,0,0,0,0,0,0,0,0,0,0 " 0,0,0,0,0,0,0":":+" **** 6 ****1":]" 0,254,0,1,199,0,1,223,0,1,199,0,1,215" 0,1,199,0,0,254,0,0,56,0,0,56,0,0" 56,0,0,56,0,0,56,0,0,0,0,0,0,0" 0,0,0,0,0,0,0,0,0,0,0,0,0,0" 0,0,0,0,0,0,0"B:"C:"D **** 7 ****#E:1#N 0,254,0,1,199,0,1,215,0,1,247,0,1,247Y#X 0,1,247,0,0,254,0,0,56,0,0,56,0,0~#b 56,0,0,56,0,0,56,0,0,0,0,0,0,0#l 0,0,0,0,0,0,0,0,0,0,0,0,0,0#v 0,0,0,0,0,0,0#:#:# **** 8 ****#:$ 0,254,0,1,199,0,1,215,0,1,199,0,1,215-$ 0,1,199,0,0,254,0,0,56,0,0,56,0,0R$ 56,0,0,56,0,0,56,0,0,0,0,0,0,0t$ 0,0,0,0,0,0,0,0,0,0,0,0,0,0$ 0,0,0,0,0,0,0