Upload

Loading icon Loading...

This video is unavailable.

Vintage Computer Festival Midwest 5.0 2010 Glenside Booth

Sign in to YouTube

Sign in with your Google Account (YouTube, Google+, Gmail, Orkut, Picasa, or Chrome) to like John Mark Mobley's video.

Sign in to YouTube

Sign in with your Google Account (YouTube, Google+, Gmail, Orkut, Picasa, or Chrome) to dislike John Mark Mobley's video.

Sign in to YouTube

Sign in with your Google Account (YouTube, Google+, Gmail, Orkut, Picasa, or Chrome) to add John Mark Mobley's video to your playlist.

Uploaded 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_3...
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,-1R2L­3H6L6G2L2G2LG2DR3"
280 CIRCLE(100,62),30,1,.66,.41,.63:CIRCLE(1­00,62),30,1,.66,.9,.1:DRAW "BM-22,+24M+2,-4BR36M+2,+4F2BM-16,-­20F4M-6,-3R2BL12BUG4BD4BRD4F2U8F2D5BR9BU­NU4F2U8F2D5BD8BL4G2L4H2BD12BL2D6F2U10R2D­10R2U10F2D6BD6BR2G2L8H2BL16BU2F4H2L6&quo­t;
290 DRAW "M-12,+10M-16,+10M-24,-6L4G2D2R4M+1­0,+6NF2H2L6G2L2G4D2R4E2R4F2R4F2H2L4G2L4D­4R4ER4M+10,+2R4NH4M+6,+8R4E2U2M-6,-8D2R4­M+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,-3F2­R9E2M+24,+10R2U4M-12,-8M+3,+2R4NDR2NDR8E­2U2H2M-14,-2NDU4M+8,-4ND8M+8,-4U4H2L4G4L­2NU4L4G2L4G2L12H2L2H2"
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(12­8,98),62,1,.85,.05,.39
350 DRAW "BM68,110NU8M+104,-46BF20BD4BL4M-10­4,+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(7­2,106),1,1:PAINT(92,136),1,1
380 GOTO 380

Loading icon Loading...

Loading icon Loading...

Loading icon Loading...

Loading icon Loading...

Ratings have been disabled for this video.
Rating is available when the video has been rented.
This feature is not available right now. Please try again later.

Loading icon Loading...

Loading...
Working...
to add this to Watch Later

Add to