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