Shado - rare BBC Micro emulator/interpreter for Commodore 64

[Commie_User]

My full archive: http://www.dustybin.org.uk

BEEBSYNTH and KNOW YOUR OWN PERSONALITY tapes: viewtopic.php?f=3&t=10407

Also check out my COMMODORE SAMPLES: viewtopic.php?f=3&t=7594
______________


Novelty time. The publisher said it's an emulator but I'd lean towards calling it a BASIC interpreter - vital modes are omitted so I doubt it would run any full Beeb software:

http://www.leftiness.org/SHADO.PRG






After transferring this piece of history via C2N and Commodore serial connection, it was satisfying to test it within Windows.



Hmm, looks good.






A quick pick of the BBC's own manual to test and.....





Practically useless, even taking the novelty of seeing the Commodore in 80-column mode. Especially as to implement the full command set (with mimicry of BBC hardware too), the Commie's RAM would fill up. It should have been a full-featured cartridge.

But nice attempt at early cross-platform multimedia, though the BBC BASIC chips in the RM Nimbus PCs wiped the floor with this pale Commodore comparison:

http://nitroroms.com/show/file-info/125 ... ).zip.html

http://www.chiark.greenend.org.uk/~theo ... index.html

viewtopic.php?f=23&t=8404


Could always shop for the real deal: http://getaspecialdeal.co.uk/products/B ... 5337011171



BeebEm is a good emulator to relive much of the old times. And for the contempo, a Windows-based interpreter includes a compiler, image import and MIDI playback facilities: http://www.bbcbasic.co.uk/bbcwin/faq.html




There was also a piece of Sinclair software which claimed to load Spectrum tapes for C64 play, but that wasn't satisfactory either.

http://www.leftiness.org/SPECTRUM.PRG




A level 8-bit playing field, I think, is the PET emulator for the C64. The machine doesn't need to emulate hardware, just replace one comparible operating system in RAM for another.

viewtopic.php?f=3&t=7289






__________________________________

Here's what the reviewers thought of Shado. They wouldn't have appreciated it in 1983, but I love the aspiration of crossing the chasms.

Though by today's standards I'd think this a half-baked prototype demo. I knew not to expect to run Pole Position but I didn't think it to fail on the first random BBC BASIC test.

My copy's in shop condition too. Happy for that in a code 30 years old.

uties2.jpg (236.45 KiB) Viewed 86482 times

Sound's a bit iffy as well. I think there's a reason this copy's the first online, rare enough to need coming from the Channel Islands and is never seen on Ebay.

uties3.jpg (229.98 KiB) Viewed 86482 times

Now perhaps to try the listings from BBC television: http://www.youtube.com/user/MicroManMachine/videos

I knew it would be rubbish but it can still run the rudimentary stuff. Just so long as you don't want any glitter, even at the most basic level.

This is the good 'space' noise to sample, as enterable in a proper interpreter:

10 MODE 1
20 FOR G=1 TO 40
30 FOR E=1 TO 8
40 SOUND 1,-15,E,2 : SOUND 2,-15,E+1,2
50 NEXT E
60 NEXT G




10 mode 1
20 for G=1 to 40
30 for E=1 to 8
40 sound 1,-15,E,2 : sound 2,-15,E+1,2
50 next E
60 next G


Not bad on the Commie, as long as you don't catch the interpreter hissing. These can just be pasted into the emulator - not even I want to bother typing them in each time.



INSTANT AVANT-GARDE:

10 MODE 1
20 FOR G=1 TO 90
30 FOR E=1 TO 8
35 LET T= INT(RND(90))
40 SOUND 1,-15,T,4 : SOUND 3,-15,E+31,4
50 NEXT E
60 NEXT G

No, go on, run it. (On a proper BBC, or you'll just get this when you run it on the 64:

10 mode 1
20 for G=1 to 9
30 for E=1 to 8
35 let T= int(rnd(90))
40 sound 1,-15,T,2 : sound 3,-15,E+31,2
50 next E
60 next G

)


As far as I'm concerned, you can actually sing or play along, jazz freeform-style any way you like. So much pseudo-power in just 7 lines.



I like the Commie Beeb as a curio and wanted to love it but it just can't do enough. I had a vague idea of programming something nice, using the Action Replay to 'freeze' and save. Still, nice even kind-of having the BBC on a Commodore...

[Commie_User]

BBC manual: http://bbc.nvg.org/doc/BBCUserGuide-1.00.pdf

Readymade examples: http://suite101.com/article/making-soun ... ams-a14820
http://yourcomputeronline.wordpress.com ... -envelope/
http://books.google.co.uk/books?id=pZMD ... d+envelope

CLASSIC ELITE SOUNDS: http://wiki.alioth.net/index.php/Classic_Elite_sounds

http://www.acornelectron.co.uk/ugs/acor ... 2_eng.html

Includes most basic of keyboard playing: http://stardot.org.uk/mirrors/www.bbcdo ... _mm_01.htm

Oh yeah: http://www.scribd.com/doc/53735268/Bbc-Basic-User-Guide




LABOUR-FREE AVANTE-GARDE v 1.1





10 MODE 1
20 FOR G=90 TO 1 STEP -1
30 FOR E=20 TO 8 STEP -2
35 LET T= INT(RND(90))
36 IF T>80 OR T<30 THEN LET Y=INT (RND(300))
37 IF T>80 OR T<30 THEN GOSUB 100
40 SOUND 1,-15,T,3 : SOUND 2,-15,T+24,3 : SOUND 3,-15,E+31,3
45 CLS: COLOUR E : PRINT G;" ARTISTIC SOUND UNITS BEFORE ";" RELIEF"
50 NEXT E
60 NEXT G
70 CLS: COLOUR 2 : PRINT "Aaaaaah!" : FOR Y=200 TO 24 STEP -4
75 SOUND 1, -15, Y, 2 : SOUND 2, -15, Y-6, 2 : SOUND 3,-15,Y-12,2
80 NEXT Y
85 COLOUR 5 : PRINT " THAT'S BETTER!" : END
100 SOUND 1,-15,Y,3 : SOUND 2,-15,T+24,3 : SOUND 3,-15,E+31,3
110 RETURN



Plus, for extra annoyance value: 42 IF T < 10 THEN WAIT 200


Mad scientist computer: 20 FOR G=50 TO 1 STEP -1
40 SOUND 1,-15,T,1 : SOUND 2,-15,T+24,1 : SOUND 3,-15,E+31,1


I bet they never did this at Ocean, eh?




Maybe I can earn a dishonest crust.

http://news.google.com/newspapers?nid=1 ... 52,3454560





This one on the C64 interpreter actually sounds as if it's doing something. Unfortunately, not by what sounds like a BBC, unlike the Windows one.

10 mode 1
20 for G=5 to 1 step -1
30 for E=1 to 8
35 let T= int(rnd(90))
36 if T>80 or T<30 then let Y=int (rnd(300))
37 if T>80 or T<30 then gosub 100
40 sound 1,-15,T,3
45 cls: colour E : print G;" ARTISTIC SOUND UNITS BEFORE RELIEF"
50 next E
60 next G
70 cls: colour 2 : print "aAAAAH!" : for Y=200 to 24 step -10
75 sound 1, -15, Y, 1 : sound 2, -15, Y-6, 1 : sound 3,-15,Y-12,1
80 next Y
85 colour 5 : print " tHAT'S BETTER!" : end
100 sound 1,-15,Y,3 : sound 3,-15,E+31,3
110 return





SLOW TEMPO VERSION (God, the crap): 10 mode 0



This, however, was of more use. Compiled too: viewtopic.php?f=3&t=7095&p=81331#p81335

Well, I don't care about you. I'm having fun.

[Commie_User]

And now some normal programs by normal people:

http://central.kaserver5.org/Kasoft/Typ ... /Ch06.html



TARTAN


COMPILED: http://www.leftiness.org/tartan.zip


10 REM TARTAN

20 REM BASED ON RESEARCH MACHINES DEMO

30 REM VERSION 1.0 / 16 NOV 81

40 MODE 2: REM ALSO WORKS IN MODE 5

50 R=1: D=1: X=0

60 Y=RND(1280)

70 MOVE X,Y

80

90 REPEAT

100 ON D GOSUB 160,260,350,430

110 IF RND(1000)<10 THEN R=D-1

120 GCOL R,(D*1.7)

130 DRAW X,Y

140 UNTIL FALSE

150

160 X=X+1024-Y

170 IF X>1280 THEN 220

180 Y=1024

190 D=2

200 RETURN

210

220 Y=1024/1280-X

230 X=1280: D=4

240 RETURN

250

260 Y=Y-1280+X

270 IF Y<0 THEN 310

280 X=1280: D=3

290 RETURN

300

310 X=1280+Y

320 Y=0: D=1

330 RETURN

340

350 X=X-Y

360 IFX<0 THEN 400

370 Y=0: D=4

380 RETURN

390

400 Y=-X: X=0: D=2

410 RETURN

420

430 Y=Y+X

440 IF Y>1024 THEN 480

450 X=0: D=1

460 RETURN

470

480 X=Y-1024

490 Y=1028: D=3

500 RETURN

Graphics mode 'not implemented' on C64 version.



BBC RESOURCES: http://bbc.nvg.org/software.php3


ACE stuff made with RT Russell's proggy: http://www.bb4wgames.com/

[dupko]

thats hard




____________________

[Commie_User]

Hey, someone's linked to my topic. Not bad: http://mdfs.net/Software/BBCBasic/C64/

There's another BBC BASIC for the Commie I never even knew. That seems even CRAPPIER, so I'd stick to RT Russell if I were you - especially as his interpreter's a lot more 'organy' than a real Beeb, thus perhaps better for sampling or playing with some kind of keyboard program.




100 REM Musical keyboard instrument
110 DIM K%(32),F%(32)
120 MODE1
130 PROCDISPL
140 FOR N=1 TO 32
150 READ K%(N)
160 F%(N)=0
170 NEXT N
180 O%=48
190 E%=1
200 ENVELOPE 1,1,0,0,0,0,0,0,126,-1,0,-1,126,0
210 ENVELOPE 2,1,0,0,0,0,0,0,126,-1,-1, 65531 ,126,80
220 ENVELOPE 3,1,1,-1,0,1,1,0,20,0,0,-20 ,126,126
230 ENVELOPE 4,1,0,0,0,0,0,0,50,-1,0,-10 ,120,90
300 REPEAT:FOR N=1 TO 32
310 IF INKEY(-K%(N))=F%(N) THEN PROCSND
320 NEXT N:UNTIL 0
340 END
500 DEFPROCSND
510 IF F%(N)=0 SOUND &1011,0,0,0:F%(N)=-1:GOTO 560
520 IF N>29 THEN O%=48+48*(N-30)
530 IF N>22 AND N<27 THEN E%=N-22
540 IF N<23 THEN SOUND 1,E%,O%+4*N,-1
550 F%(N)=0
560 ENDPROC
600 DEFPROCDISPL
610 MOVE 120,500
620 PLOT1,1040,0
630 PLOT0,0,300
640 PLOT1,-1040,0
650 VDU5
660 FOR J=1 TO 13
670 PLOT1,0,-300
680 READ N$,S$
690 PLOT0,24,-16
700 PRINT N$;
710 PLOT0,-56,316
720 IF S$=" " THEN 800
730 PLOT0,-16,48
740 PRINT S$;
750 PLOT0,-36,-48
760 PLOT0,0,-100
770 PLOT81,40,100
780 PLOT81,0,-100
790 PLOT0,-20,100
800 PLOT0,80,0
810 NEXT J
820 PLOT1,0,-300
830 VDU4
840 PRINT TAB(0,20)"f8=Normal"
850 PRINT"f9=One octave higher"
860 PRINT
870 PRINT"f0=Bell":PRINT"f1=Piano"
880 PRINT"f2=Woodwind":PRINT"f4=Organ"
890 PRINT"f5=Electronic"
900 PRINT:PRINT"PLAY NOW"
910 ENDPROC
920 DATA "Q"," ","W","2","E","3","R"
930 DATA " ","T","5","Y","6","U","7"
940 DATA "I"," ","O","9","P","0","@"
950 DATA " ","[","^","_","\"
960 DATA 17,50,34,18,35,52,20,36
970 DATA 53,69,37,54,38,39,55,40
980 DATA 56,72,25,57,121,41,33,114
990 DATA 115,116,21,117,118,23,119,120







Now that's a real use for retrohead musicians. (And I can vouch for good old 'Arty' writing a bloody superb BBC BASIC for the RM Nimbus educational PCs in schools. A move, I have no doubt, helping swing their transition from Beeb to IBM-compatible so soon after 1981.)

Run the demo and you'll only miss out on compiling. Proggies can just be copied and pasted even from websites and PDFs!

______________________________________

Remember to hit the SHIFT key when pressing.

5 rem Sounds from (tape) BBC Elite
6 rem Extracted from disc A4080602
7 rem From Ian Bell's website
8 rem 24 Oct 2010, PLB.
9 rem -----------------------------
10 mode 7
20 envelope 1,1, 0,111,-8, 4, 1, 8, 8,-2,0, -1,112, 44
30 envelope 2,1,14,-18,-1,44,32, 50, 6, 1,0, -2,120,126
40 envelope 3,1, 1, -1,-3,17,32,128, 1, 0,0, -1, 1, 1
50 envelope 4,1, 4, -8,44, 4, 6, 8,22, 0,0,-127,126, 0
60 rem Hitting ? gives list of keys
70 print "ELITE (tape) Sounds"
80 print "HIT: A S X E T U M D H ?"

100 K$=get$
110 if K$="A" then print "A - fire A laser " : sound &12,1,0,&10
120 if K$="S" then print "S - Struck by laser ": sound &12,2,&2C,08
130 if K$="X" then print "X - eXplosions ": sound &11,3,&F0,&18 : sound &10,&F1,7,&1A
140 if K$="E" then print "E - ECM activated " : sound &13,4,&C2,&14
150 if K$="T" then print "T - Target missile ": sound &03,&F1,&BC,01
160 if K$="U" then print "U - Unarm missile ": sound &13,&F4,&0C,08
170 if K$="M" then print "M - Missile launched": sound &10,&F1,6,&0C
180 if K$="D" then print "D - Death by docking": sound &10,&F1,7,&1A
190 if K$="H" then print "H - Hyperspace ": sound &10,2,&60,&10
200 if K$="?" then print "HIT: A S X E T U M D H ?"
220 goto 100



Press a bunch of keys at once. Oh YES.


(...and use OPTIONS> LOWER CASE KEYWORDS in RT Russell before pasting.)





10 rem
20 rem *** HALL ***
30 rem
40 repeat
50 read P
60 if P=0 then end
70 sound 1,-15,P,5
75 sound 2,-15,P+2,5
76 sound 3,-10,P,5
80 until false
90
100 data 61,69,73,81,89,73,89,89,85,69,85 ,85,81,65,81,81,61,69,73,81,89,73,89, 109 ,101,89,73,89,101,101,101,101,0








You got the Beeb and you love it:



http://retrobrothers.hubpages.com/hub/BBC-Micro

http://tvtropes.org/pmwiki/pmwiki.php/Main/BBCMicro





A further HUGE repository of lovely, lovely books:

http://www.8bs.com/othrdnld/manuals/publications.shtml

http://www.bbcbasic.co.uk/bbcwin/tutori ... ter19.html

And last but far from least: http://bbc.nvg.org/doc/BBCUserGuide-1.00.pdf

[LMan]

Interesting!