Upload

Loading...

Vintage Computer Festival Midwest 5.0 2010 Glenside Booth

1,026

Loading...

Loading...

Loading...

Rating is available when the video has been rented.
This feature is not available right now. Please try again later.
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...

When autoplay is enabled, a suggested video will automatically play next.

Up next


to add this to Watch Later

Add to

Loading playlists...