Commits

Martin Haye  committed bc3e9d3

Converted to Lammer which is really nice.

  • Participants
  • Parent commits f30f3d7

Comments (0)

Files changed (1)

File Structris.asb

 NEW
-0 REM DO NOT MODIFY LINES 0-9!::::::::::::::::::::::::::::F-F-F-F-F-F-F-F-F-$-%-8IF*XX*&B*&B*&B*&B*&B*&B*&B*&B%-8IT*XX*&@*&@*&@*&@*&@*&@*&@*&@%-8IB*XX*&;*&;*&;*&;*&;*&;*&;*&;%-E;*&>*&>*&>*&>*&>*&>*&>*&>%-IC*&?*&?*&?*&?*&?*&?*&?*&?%-IDP!###
-1 REM #######################*&<*&<*&<*&<*&<*&<*&<*&<%-JI4*XX*&:*&:*&:*&:*&:*&:*&:*&:%-E:*&=*&=*&=*&=*&=*&=*&=*&=%-8IT*XX*&@*&@*&@*&@*&@*&@*&@*&@%-JI0*XX*&E*&E*&E*&E*&E*&E*&E*&E%-I$JJXXH%-8I/*8*H%-H@
-2 REM %-JIT*XX*&A*&A*&A*&A*&A*&A*&A*&A%-I(JJXXH%-I0JJXXH%-I)XXXXH%-I4JJXXH%-HI:H%-H@%-JIU*XX*&A*&A*&A*&A*&A*&A*&A*&A%-I(JJXXH%-IZXXXXH%-JI6*XXH%-I0JJXXH%-HI:H%-H@%-8IT*XX*&V*&V*&V*&V*&V*&V*&V*&V%-I4JJXX*&W*&W*&W*&W*&W*&W*&W*&WP2
-3 REM %-8*8*XXH%-IMXXXXH%-H%-8**XXXH%-JI@*XXH%-H@%-8IN*XX*&A*&A*&A*&A*&A*&A*&A*&A%-I,JJXXH%-I8JXXXH%-8I-*XXH%-I4JJXXH%-HI:H%-H@%-JI:*X**&A*&A*&A*&A*&A*&A*&A*&A%-I,JJXXH%-JI5*XXH%-8I/*XXH%-I4JJXXH%-HI:H%-H@%-I,JJXXH%-JID*XXH%-H@
-4 REM %-JI2*X**&A*&A*&A*&A*&A*&A*&A*&A%-I,JJXXH%-JI5*8*H%-IBXXXXH%-I4JJXXH%-HI:H%-H@*&A*&A*&A*&A*&A*&A*&A*&A%-I0JJXXH%-I6JXXXH%-JI/*XXH%-I4JJXXH%-HI:H%-H@%-JI@*XX*&A*&A*&A*&A*&A*&A*&A*&A%-I0JJXXH%-8I4*XXH%-JI.*XXH%-I4JJXXH%-HI:H%-H@%-XP!##
-5 REM ########################%-8**XXX*&A*&A*&A*&A*&A*&A*&A*&A%-I0JJXXH%-JI7*8*H%-8I.*XXH%-I4JJXXH%-HI:H%-H@PG
-6 REM %-8IL*XX*&V*&V*&V*&V*&V*&V*&V*&V%-I8JJXX*&W*&W*&W*&W*&W*&W*&W*&W%-X%-QV**0D*0W**&Z*&Z*&Z*&ZX%-QV*****&Z*&Z*&Z*&Z%-EZXXXXX%-I4JJXXH%-I*XXXXH%-H@%-I(JJXXH%-JIR*XXH%-H@%-I0JJXXH%-8I9*8*H%-H@
-7 REM D@JEBEDHJDAINJHDBEB@BBOLJBOOHF@INHJDAJKABHBIO@O@@FLHLDAKM@OENHHJHF@HJDAJIID@@BLHLDAKM@OHJEAIHEBEB@BBOLJEBHHEBJJEBIHEBKLFBEB@BBOLJDAJKABHBE@IHE@FAABJO@BOKABJKND@@BM@AJBIO@M@@GJI@AIID@@BM@NNKABJBI@OM@AGKABJDJDJDJDJIID@@B@F@FBJ@F@FBJ@FP
-8 REM @FBJ@F@FBJIABJLHLDAKM@LBJEBEM@@BHE@ILIOOM@JIFHHEBEDLBBOL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JIEHHMBI@MHMFL@LHMDB@MHMEK@MHMEL@MHMEM@MHMEN@MHMEO@MF@0
-9 CALL 2107
+0 REM 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%OJI0*8*H%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@MHMEK@MHMEL@MHMEM@MHMEN@MHMEO@MJ@@@JIHIHECLJI@OHECMJIG@HECNJIA@HECOJIHJHEDBJI@OHEDCDLBLONMHAHJIDLHMOH@CJBA@JIACHMOI@CHNOJ@CKHJ@@AKAGIHELNLHKAGIHELOJB@@J@@DKALNLIKBM@E@LHKALNO@DKLIB@O@OGKALNO@FDLICKO@F@@IH@N@@@M@P
+8 REM @FLIKJO@DKHFMGLIJJM@DEHEMGN@@@M@BJJEK@E@BHJ@@AKFD@IFNKJEMGO@@FIFFIIFFKIFFMHHA@NOJFANIJLHKALNJJLHKALNHELOHFLNKALNM@JFF@JEJOBDKADHDJDJDJDJBI@O@HOHAHFII@FID@BH@IH@IM@@@BLHNHE@ILKHFHE@NIJIJ@IM@@@BNHJIIIIM@@@BKJHFANJENKHED@JENLHEDADLG@OO0
+9 REM #$$$$$$$$$$$$$$$$$$$$$$$$$$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.................................................................................................................................................................................
 10 GOSUB 3000
 20 LV = 1
 50 GOSUB 3100
 100 REM SUB MAIN LOOP
     105 ON M + 1 GOSUB 400,500,900,700,800
     110 COLOR= 0: PLOT CX,CY
-    115 CALL 641: REM SCROLL
+    115 CALL SC: REM SCROLL
     120 IF PEEK(8) > 0 THEN GOSUB 300
     125 IF SCRN(CX,CY) = 0 THEN 140
     130 IF SCRN(CX,CY + 1) < > 0 THEN 2000
     2080 GOTO 2040
 
 3000 REM SUB FIRST TIME INIT
-    3010 DIM H(22)
-    3020 CC(1) = 1:CC(2) = 2:CC(3) = 3:CC(4) = 11:CC(5) = 9:CC(6) = 13:CC(7) = 12
-    3025 KB = - 16384:KS = - 16368
-    3030 RETURN
+    3010 CALL 2107
+    3020 REM ****:A5 25 48 A4 19 EA 84
+    3021 REM     :25 20 22 FC A2 FF 86 09
+    3022 REM     :E8 A4 1A B1 28 29 F0 F0
+    3023 REM     :06 C8 C4 1B D0 F5 E8 8A
+    3024 REM     :86 08 A4 1A 99 40 02 C8
+    3025 REM     :C4 1B D0 F8 A5 19 85 25
+    3026 REM     :20 22 FC A5 28 85 2A A5
+    3027 REM     :29 85 2B C6 25 20 22 FC
+    3028 REM     :A4 1A B1 28 25 09 85 06
+    3029 REM     :11 2A F0 2F B1 2A BE 40
+    3030 REM     :02 D0 1A 29 F0 D0 07 A9
+    3031 REM     :01 99 40 02 D0 EE B1 2A
+    3032 REM     :29 0F D0 17 B1 2A 4A 4A
+    3033 REM     :4A 4A 99 40 02 06 06 2A
+    3034 REM     :06 06 2A 06 06 2A 06 06
+    3035 REM     :2A 91 2A C8 C4 1B D0 C2
+    3036 REM     :A5 25 D0 02 85 09 C9 FF
+    3037 REM     :D0 A9 68 85 25 4C 22 FC
+    3040 SC = (PEEK(175) + PEEK(176) * 256)
+    3050 DIM H(22)
+    3060 CC(1) = 1:CC(2) = 2:CC(3) = 3:CC(4) = 11:CC(5) = 9:CC(6) = 13:CC(7) = 12
+    3070 KB = - 16384:KS = - 16389
+    3080 RETURN
 
 3100 REM SUB LEVEL INIT
     3105 W = 15 - LV:H = 20 - LV:MH = H - 1
     3609 COLOR= 15
     3610 FOR I = 1 TO H * 2
     3620 HLIN OX,39 - OX AT H * 2 - 1
-    3630 CALL 641
+    3630 CALL SC: REM SCROLL
     3640 NEXT I
     3650 RETURN