Vintage Computer Festival Midwest 5.0 2010 Glenside Booth

Loading...

Sign in or sign up now!
Alert icon
Upgrade to the latest Flash Player for improved playback performance. Upgrade now or more info.
588 views
Loading...
Alert icon
Sign in or sign up now!
Alert icon

Uploaded by on Sep 28, 2010

This is a glance at the Glenside Color Computer Club Inc. booth as part of the Vintage Computer Festival Midwest Version 5.0 and Emergency Chicagoland Commodore Convention held on Sept. 18, 2010 in Lombard, IL

Vintage Computer Festival: http://www.vintage.org/
Vintage Computer Festival Midwest: http://vcfmw.org/
Chicago Classic Computing: http://chiclassiccomp.org/
Glenside Color Computer Club Inc.: http://www.glensideccc.com/
Cloud-9: http://www.cloud9tech.com/
NitrOS-9: http://www.nitros9.org/
ToolShed (Virtual Floppy Utilities): http://www.nitros9.org/tools.html
Virtual Color Computer (VCC) CoCo Emulator: http://vcc.20x.cc/
DriveWire 3: http://www.cloud9tech.com/
DriveWire 4: http://sites.google.com/site/drivewire4/
Dragon Computers: http://en.wikipedia.org/wiki/Dragon_32/64
Dragon Data: http://dragondata.co.uk/
World of Dragon: http://archive.worldofdragon.org/

Ghostbusters BASIC Program Listing:
10 CLS
20 POKE 65496,0
30 PRINT
40 PRINT " GHOSTBUSTERS IS A COPYRIGHT OF"
50 PRINT " COLUMBIA PICTURES"
60 PRINT " INDUSTRIES INC."
70 PRINT:PRINT
80 PRINT " SELECT VIDEO MODE"
90 PRINT " 1) COCO 1"
100 PRINT " 2) COCO 2"
110 PRINT " 3) COCO 3 - CMP"
120 PRINT " 4) COCO 3 - RGB"
130 A$=INKEY$:IF A$="" THEN 130
140 IF A$="3" THEN GOTO 170
150 IF A$="4" THEN GOTO 220
160 GOTO 260
170 PALETTE 4,0'BLACK
180 PALETTE 5,7'RED
190 PALETTE 6,7'RED
200 PALETTE 7,64'BUFF
210 GOTO 260
220 PALETTE 4,0'BLACK
230 PALETTE 5,36'RED
240 PALETTE 6,36'RED
250 PALETTE 7,64'BUFF
260 PMODE 3,1:R=2:PCLS 4:SCREEN 1,1
270 CIRCLE(100,40),20,1,.9,.46,.05:DRAW "C4BM100,24NU2R6DR2C1R4ER2M+6,-1R2L3H6L6G2L2G2LG2DR3"
280 CIRCLE(100,62),30,1,.66,.41,.63:CIRCLE(100,62),30,1,.66,.9,.1:DRAW "BM-22,+24M+2,-4BR36M+2,+4F2BM-16,-20F4M-6,-3R2BL12BUG4BD4BRD4F2U8F2D5BR9BUNU4F2­U8F2D5BD8BL4G2L4H2BD12BL2D6F2U10R2D10R2U10F2D6BD6BR2G2L8H2BL16BU2F4H2L6"
290 DRAW "M-12,+10M-16,+10M-24,-6L4G2D2R4M+10,+6NF2H2L6G2L2G4D2R4E2R4F2R4F2H2L4G2L4D4R4ER­4M+10,+2R4NH4M+6,+8R4E2U2M-6,-8D2R4M+20,-10F2R4F2D"
300 CIRCLE(138,80),30,1,.6,.69,.9:CIRCLE(136,112),42,1,.5,.25,.4
310 DRAW "BM114,130M-18,+10"
320 DRAW "BM166,100F4R2F2NE4G4D2F2R4M+9,-3F2R9E2M+24,+10R2U4M-12,-8M+3,+2R4NDR2NDR8E2U2H2­M-14,-2NDU4M+8,-4ND8M+8,-4U4H2L4G4L2NU4L4G2L4G2L12H2L2H2"
330 CIRCLE(128,98),92,1,.85,.52,.675:CIRCLE(128,98),92,1,.85,.74,.98:CIRCLE(128,98),­92,1,.85,.05,.48
340 CIRCLE(128,98),62,1,.85,.74,.9:CIRCLE(128,98),62,1,.85,.05,.39
350 DRAW "BM68,110NU8M+104,-46BF20BD4BL4M-104,+46R2"
360 PAINT(78,36),R,1:PAINT(134, 24),R,1:PAINT(218,100),R,1:PAINT(82,33),R,1:PAINT(40,115),R,1
370 PAINT(2,2),1,1:PAINT(134,50),1,1:PAINT(72,106),1,1:PAINT(92,136),1,1
380 GOTO 380

  • likes, 0 dislikes

Link to this comment:

Share to:
see all

All Comments (3)

Sign In or Sign Up now to post a comment!
  • Nice job putting this together !! I love your choice of techno music !! I know you put a lot of hard work into supporting CoCoFEST and really enjoy the Glenside Color Computer Club - it really shows in this video !! Great work !!

  • excellent, thanks for making this and sharing it. looking forward to cocofest 2011

  • Great job! And now I know the dates for next year's CoCoFEST!

Loading...

Alert icon
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more