5 IF PAGE<>&1900:PAGE=&1900:CHAIN"LandDem"
   10 *FX16
   20 *FX13,4
   30 MODE2:VDU23;8202;0;0;0;
   40  FOR I=0 TO 15:VDU 19,I,0;0;:NEXT
   50 ?&FE00=12:?&FE01=8
   60 ?&FE00=13:?&FE01=&D0
   70 ?&FE00=6:?&FE01=23
   80 ?&FE00=7:?&FE01=30
   90 ?&8F=1:?&8E=1
  100 *LOAD SCRN2 4680
  110 *LOAD FINAL 3000
  120 letters=&3000
  130 temp1=&76B8:temp2=temp1+&280
  140 FORT%=0TO7:T%?&900=T%?temp1:NEXT
  150 FORT%=0TO7:T%?&908=T%?temp2:NEXT
  160 FORPASS=0TO2STEP2:P%=&A00
  170 [OPTPASS:LDA#letters MOD256:STA&72
  180 LDA#letters DIV256:STA&73:.pill1
  190 LDA&72:STA&70:LDA&73:STA&71:LDA#0
  200 STA&74:LDA#9:STA&75:LDA#2:STA&76
  210 .pill2 LDY#0:.pill3 LDA(&74),Y
  220 PHA:AND#&AA:STAt:PLA:AND#&55
  230 STAt+1:LDA(&70),Y:PHA:AND#&AA
  240 STAt+2:PLA:AND#&55:STAt+3
  250 LDAt+2:BNEneb1:LDAt:STAt+2:.neb1
  260 LDAt+3:BNEneb2:LDAt+1:STAt+3:.neb2
  270 LDAt+2:ORAt+3:STA(&70),Y:INY:CPY#8
  280 BNEpill3:LDA&70:CLC:ADC#8:STA&70
  290 BCCob1:INC&71:.ob1
  300 LDA&74:CLC:ADC#8:STA&74
  310 BCCob2:INC&75:.ob2
  320 DEC&76:BNEpill2:LDA&72:CLC:ADC#16
  330 STA&72:BCCob3:INC&73:.ob3 LDA&73
  340 CMP&77:BEQfin:JMPpill1:.fin RTS
  350 .t EQUD&00000000
  360 ]:NEXT:?&77=&3D:CALL&A00
  370 end1=temp1+&F8:end2=temp2+&F8
  380 FORPASS=0TO2STEP2:P%=&900:[OPTPASS
  390 .scroll LDX#0:.scloop LDAtemp1+8,X
  400 STAtemp1,X:LDAtemp2+8,X:STAtemp2,X
  410 INX:BNEscloop:RTS
  420 .mainloop LDA#0:STAcount:.reset
  430 LDA#text MOD256:STA&7E
  440 LDA#text DIV256:STA&7F
  450 RTS
  460 .inner LDAcount:BNEprintstrip
  470 .kim LDA#3:STAcount
  480 LDY#0:LDA(&7E),Y:CMP#13
  490 BNEpleb:LDA#text MOD256:STA&7E
  500 LDA#text DIV256:STA&7F:JMPkim
  510 .pleb SEC:SBC#32:CLC:ASLA
  520 TAX:LDAlettab,X:STA&7A
  530 LDAlettab+1,X:STA&7B:LDA&7A:CLC
  540 ADC#8:STA&7C:LDA&7B:ADC#0:STA&7D
  550 INC&7E:BNEprintstrip:INC&7F
  560 .printstrip LDY#0:.pl LDA(&7A),Y
  570 STAend1,Y:LDA(&7C),Y:STAend2,Y
  580 INY:CPY#8:BNEpl:LDA&7A:CLC:ADC#16
  590 STA&7A:BCCv1:INC&7B:.v1 LDA&7C
  600 CLC:ADC#16:STA&7C:BCCv2:INC&7D
  610 .v2 JSRscroll:DECcount:RTS
  620 .count EQUB 0
  630 .text EQUS"........WELCOME TO THE DREAMSCAPE, A TECHNODREAM WHERE NOTHING IS REAL, WHERE THE REAL WORLD OF HUMANS MEETS THE ELECTRONIC WORLD OF THE BBC. AND SHOWS YOU THINGS YOU NEVER THOUGHT POSSIBLE!!!!........"
  660  EQUS" WELL IT SOUNDS GOOD ANYWAY!!! EVEN IF THE BEEB ISNT AS POWERFUL AS SOME MACHINES IT CAN STILL DO SOME NICE THINGS AS THIS DEMO SHOWS, HELLO TO ALL YOU 8BS MEMBERS OUT THERE (HOPEFULLY) ENJOYING THIS DEMO, AND ALSO TO THE 8BS "
  661  EQUS"STAFF, C.J.RICHARDSON AND CO ITS NICE TO SEE PEOPLE LIKE YOU STILL SUPPORTING THE GOOD OLD 8 BIT. THE BBC HAS A LOT TO BE CREDITED FOR...."
  662  EQUS" SO SMILE ON YOUR BROTHER AND KEEP ON BEEBING....... THE BEEB AINT DEAD YET!!!!...... SEE YOU ALL IN TBI-55! ......."
  680 EQUB 13
  690 .lettab:]:NEXT
  700 :
  710 N%=0:FORT%=0 TO 129 STEP2
  720 A%=N%*&30+letters:N%=N%+1
  730 ?(lettab+T%)=A% MOD256
  740 ?(lettab+T%+1)=A% DIV256:NEXT
  750 :
  760 PRINTTAB(0,16);
  770 VDU23;0,127;0;0;0
  780 CALLmainloop:PROCa
  790  FOR I=0 TO 7:VDU 19,I,I;0;:NEXT
  820 TIME=0:REPEATUNTILTIME>50
  821 CHAIN"LANDMUS"
  830 END
  840 DEFPROCa:FORPASS=0TO2STEP2:P%=&1100
  850 [OPTPASS:.int PHA:TXA:PHA:TYA:PHA
  860 JSRinner
  870 DEC&8E:BNEfinish:LDA&8F:STA&8E
  880 LDX#0:.loop LDAtab,X:ORAta2,X
  890 STA&FE21:INX:CPX#8:BNEloop
  900 LDAta2:PHA:LDX#0:.loop2
  910 LDAta2+1,X:STAta2,X:INX:CPX#7
  920 BNEloop2:PLA:STAta2+7
  930 .finish PLA:TAY:PLA:TAX:PLA:RTS
  940 .tab EQUD&B0A09080:EQUD&F0E0D0C0
  950 .ta2 EQUD&02020202:EQUD&06060606
  960 ]:NEXT:?&220=int MOD256
  970 ?&221=int DIV256:*FX14,4
  980 ENDPROC