REM COPY AND PASTE EXACTLY AS IS INTO AN EMULATOR WINDOW,
REM OR EXEC IT FROM DOS OR PRODOS.
REM START YOUR PROGRAM FROM LINE 25 OR HIGHER.

REM SLAMMER 1.1.1
0 REM ::SLAMMER!:::BY IVAN X::::DO NOT MODIFY LINES 0-9!::FOFOFOFOFOFOFOFOFO$O%O8IF*XX*&B*&B*&B*&B*&B*&B*&B*&B%O8IT*XX*&@*&@*&@*&@*&@*&@*&@*&@%O8IB*XX*&;*&;*&;*&;*&;*&;*&;*&;%OE;*&>*&>*&>*&>*&>*&>*&>*&>%OIC*&?*&?*&?*&?*&?*&?*&?*&?%OIDP!###
1 REM #######################*&<*&<*&<*&<*&<*&<*&<*&<%OJI4*XX*&:*&:*&:*&:*&:*&:*&:*&:%OE:*&=*&=*&=*&=*&=*&=*&=*&=%O8IT*XX*&@*&@*&@*&@*&@*&@*&@*&@%OJI0*XX*&E*&E*&E*&E*&E*&E*&E*&E%OI$JJXXH%O8I/*8*H%OH@
2 REM %OJIT*XX*&A*&A*&A*&A*&A*&A*&A*&A%OI(JJXXH%OI0JJXXH%OI)XXXXH%OI4JJXXH%OHI:H%OH@%OJIU*XX*&A*&A*&A*&A*&A*&A*&A*&A%OI(JJXXH%OIZXXXXH%OJI6*XXH%OI0JJXXH%OHI:H%OH@%O8IT*XX*&V*&V*&V*&V*&V*&V*&V*&V%OI4JJXX*&W*&W*&W*&W*&W*&W*&W*&WP2
3 REM %OI<JJXXH%O8ID*XXH%OX%OI<JJXXH%O8IZ*XXH%OH@%O8IN*XX*&A*&A*&A*&A*&A*&A*&A*&A%OI,JJXXH%OI8JXXXH%O8I-*XXH%OI4JJXXH%OHI:H%OH@%OJI:*X**&A*&A*&A*&A*&A*&A*&A*&A%OI,JJXXH%OJI5*XXH%O8I/*XXH%OI4JJXXH%OHI:H%OH@%OI,JJXXH%OJID*XXH%OH@
4 REM %OJI2*X**&A*&A*&A*&A*&A*&A*&A*&A%OI,JJXXH%OJI5*8*H%OIBXXXXH%OI4JJXXH%OHI:H%OH@*&A*&A*&A*&A*&A*&A*&A*&A%OI0JJXXH%OI6JXXXH%OJI/*XXH%OI4JJXXH%OHI:H%OH@%OJIE*XX*&A*&A*&A*&A*&A*&A*&A*&A%OI0JJXXH%O8I4*XXH%OJI.*XXH%OI4JJXXH%OHI:H%OH@%OXP!##
5 REM ########################%OI<JJXX*&A*&A*&A*&A*&A*&A*&A*&A%OI0JJXXH%OJI7*8*H%O8I.*XXH%OI4JJXXH%OHI:H%OH@PG
6 REM %O8IL*XX*&V*&V*&V*&V*&V*&V*&V*&V%OI8JJXX*&W*&W*&W*&W*&W*&W*&W*&W%OX%OQV**0D*0W**&Z*&Z*&Z*&ZX%OQV*****&Z*&Z*&Z*&Z%OEZXXXXX%OI4JJXXH%OI*XXXXH%OH@%OI(JJXXH%OJIR*XXH%OH@%OI0JJXXH%O8I9*8*H%OH@
7 REM JIEHHMFL@LHMBI@MHMDB@MJ@@EIIEJ@MHHM@OJJBHJHFDBLJHFCLJB@OHFDCHFCMJBG@HFCNJBA@HFCODLBLONB@EDOOIJFHFIEJHMOI@CFHFI@@HMOJ@CJIDLHMOH@CHEOJJ@@AKAGIJJLHKAGIHHM@EFKHJB@@J@@DKANMLIKBM@ECLHKANMO@DNLIB@O@OGKANMO@FHLICKO@FD@IH@LIJJO@@LN@@@M@DOLIP
8 REM KJO@DKHEMGM@DGN@@@M@BMJEK@HEOLHFMGK@BIJ@@BKFCOIFNJJEMGM@@FIFFHIFFJIFFLHHM@NOJFANIJKANMJJLHKANMHENNHFNMKANMM@JBF@JEJOHEOKBDKADHB@GKOHBI@O@HOHAHFII@FID@BH@IH@IM@@@BLHNHE@IHKHFHE@NIJIJ@IM@@@BNHJIIIIM@@@BKJHFANJENKHED@JENLHEDADLG@OO@AAA0
9 REM #########################################################################################################################################################################################################################################

REM MAGIC GOTO 2.0
10 IF PEEK(248)<248 THEN CALL PEEK(175)+PEEK(176)*256 : REM MAGIC GOTO HANDLER
11 CALL 2107 : REM INSTALL MAGIC GOTO 2.0
12 REM ****:C6 6A A0 FE B1 69 85 06 C8 B1 69 85 07 E6 6A C8 84 D7 84 E3 84 EE 84 EF A5 67 85 42 85 EC A5 68 85 43 85 ED A0 05 98 D1 06 D0 12 88 10 F8 AE F7 01 E0 22 D0 5A A5 06 85 69 A5 07 85 6A A5 69 85
13 REM :06 A5 6A 85 07 A9 00 A8 A2 14 91 69 E6 69 D0 02 E6 6A CA D0 F5 A0 05 98 91 06 88 10 FA C6 6A A5 07 91 69 88 A5 06 91 69 E6 6A A0 04 B1 EC C9 B2 D0 4C C8 B1 EC C9 20 D0 03 C8 D0 F7 C9 22 F0 11
14 REM :C9 53 D0 03 C8 C8 C8 B1 EC C9 5E D0 31 F0 02 D0 68 A5 69 69 01 85 69 A5 6A 69 00 85 6A 98 AA C6 6A A0 FE 88 B1 69 C8 C8 91 69 88 88 C0 FA D0 F3 8A 65 EC 91 69 A5 ED 69 00 C8 91 69 E6 6A A0 01
15 REM :B1 EC F0 0B AA 88 B1 EC 86 ED 85 EC 18 90 9B A5 73 A4 74 85 6F 84 70 A5 69 A4 6A 85 6B 84 6C 85 6D 84 6E BA CA 9A C6 F8 BD 00 01 9D FF 00 E8 E0 F9 90 F5 BA E0 F5 90 01 60 A5 06 18 69 10 85 40
16 REM :A5 07 69 00 85 41 B8 BA E0 F5 B0 23 BD 03 01 C9 B0 F0 1C C9 81 F0 18 A9 80 A0 06 91 06 A5 F6 85 EE A5 F7 85 EF A5 F4 85 CE A5 F5 85 CF D0 35 BA A0 06 B1 06 F0 13 24 B1 A9 00 91 06 A0 0D B1 06
17 REM :9D 00 01 CA 88 C0 07 B0 F5 BD 03 01 C9 B0 D0 2F BD 04 01 85 EE BD 05 01 85 EF BD 06 01 85 CE BD 07 01 85 CF 50 6F A2 01 A0 00 B1 CE D0 3B A0 02 B1 CE D0 28 A0 0A B1 06 85 EE C8 B1 06 85 EF 68
18 REM :68 A0 06 B1 06 10 0A A5 F6 85 75 A5 F7 85 76 50 08 A5 EE 85 75 A5 EF 85 76 4C 7C D9 A2 05 A0 03 B1 CE 85 EE C8 B1 CE 85 EF E6 CE D0 02 E6 CF CA D0 F7 A0 00 B1 CE C9 B0 D0 0E A0 01 B1 CE C9 40
19 REM :D0 B2 BA B8 50 83 D0 B7 C9 AB D0 9A 18 E6 CE D0 02 E6 CF B0 7A A0 00 B1 CE C9 22 F0 F0 24 B1 C9 24 F0 05 B8 C9 40 D0 33 BA A0 06 C8 E8 BD 00 01 91 06 C0 0D 90 F5 CA CA 9A 68 85 B8 68 85 B9 08
20 REM :20 95 D9 28 70 14 A0 01 B1 CE F0 09 C9 3A F0 05 C9 40 D0 B8 88 98 A0 06 91 06 60 A6 D7 D0 A7 A4 CE A6 CF 86 D7 C9 21 D0 06 A4 AF A6 B0 D0 0A C9 23 F0 06 C9 25 D0 E6 F0 0F 2A 85 E3 A5 69 E9 05
21 REM :85 40 A5 6A E9 00 85 41 84 42 86 43 8A D0 C3 24 E3 A2 01 A0 01 B1 40 D0 04 C0 00 D0 C0 D9 42 00 70 14 90 07 D0 21 88 30 1E F0 EA E6 40 D0 02 E6 41 CA F0 F7 30 DB 90 0F F0 EC A5 40 D0 02 C6 41
22 REM :C6 40 CA F0 F5 30 CA A0 01 B1 40 85 ED 88 B1 40 85 EC 88 C8 B1 CE F0 0C C9 22 F0 08 D1 EC F0 F3 50 C9 70 D6 B1 EC F0 0C C9 22 F0 08 C9 20 F0 04 C9 3A D0 EC A5 EC 85 B8 A5 ED 85 B9 A0 06 B1 06
23 REM :10 04 A9 00 91 06 4C DC D9
24 GOSUB $ : REM INIT MAGIC GOTO