The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

SiMPLE-VISION!

Ultra-SiMPLE's version of the classic Apple-II demo, APPLE-VISION

Source Listing

// // Program: SiMPLE-VISION! // Author: Bob Bishop // Ultra-SiMPLE Int note[]={19,17,15,14,15,17,15,10, 7, 8,10,12,10, 7,10,15,17,19,19,19,17,15,17,19,17,17,\ 19,17,15,14,15,17,15,10, 7, 8,10,12,10, 7,10,15,17,19,22,22,19,15,17,19,15,17,14,15,0} Int dur []={ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2,\ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 3} randomize; hide mouse rect ( 0, 0, 639, 479) @ rect (400, 65, 520, 130) @ rect (145, 225, 365, 365) @ rect (155, 235, 310, 350) @ diag (145, 365, 120) @ vlin (120, 340, 200) @ diag (145, 225, 120) @ hlin (120, 200, 340) @ diag (365, 225, 340) @ diag (245, 213, 145) @ diag (245, 213, 345) @ diag (425, 380, 365) @ hlin (425, 380, 115) @ diag (115, 380, 60) @ hlin ( 60, 325, 120) @ vlin ( 75, 340, 440) @ vlin (130, 380, 479) @ vlin (355, 380, 440) @ vlin (410, 380, 479) @ hlin ( 0, 290, 120) @ hlin (365, 290, 575) @ diag (639, 354, 575) @ vlin (575, 290, 0) @ tabxy (54, 6); Display "HOME",; tabxy (56, 7); Display "SWEET",; tabxy (59, 8); Display "HOME",; circle (339, 260, 10) circle (329, 330, 5) circle (349, 330, 5) Do delay (1500) Do k=0,49 read quitkey (27); delay (250); tabxy (23, 20) Display extract(" BOB BISHOP PRESENTS: SiMPLE-VISION! ", k, k+13),; Loop delay (1000) solid color (rgb(32,32,32)) solid rectangle (156, 236, 309, 349) dancer (0) @ open tones @ delay (1000) Do n=0, 1 Do k=0, 53 solid color (rgb(32,32,32)) solid rectangle (156, 236, 309, 349) tone (note[k]+5*n+24) @ If (k%2) dancer (0) @ Else dancer (1-2*random(2)) @ delay (150*dur[k]) If (readkey (27)) close tones @; quit Loop Loop close tones @ delay (1000) solid color (0) solid rectangle (156, 236, 309, 349) tabxy (23, 20); Display " T H E E N D ",; delay (1000) solid color (0) solid rectangle (156, 236, 309, 349) delay (1000) Loop //------------------------------------------------------------------ Task rect (Int a, Int b, Int c, Int d) hlin (a, b, c) @ vlin (c, b, d) @ hlin (c, d, a) @ vlin (a, d, b) @ Task hlin (Int x, Int y, Int z) Do i=x, z plot (i, y) delay (2) read quitkey (27) Loop Task vlin (Int x, Int y, Int z) Do i=y, z plot (x, i) delay (2) read quitkey (27) Loop Task diag (Int x, Int y, Int z) Do i=0, x-z plot (x-i, y-iabs(i)) delay (2) read quitkey (27) Loop Task dancer (Int pose) solid color (15) If (pose<0) solid ellipse (231, 268, 3, 4) solid ellipse (231, 286, 3, 13) line (229, 280, 211, 290) line (233, 280, 246, 265) line (231, 296, 226, 325) line (228, 299, 226, 325) line (230, 296, 246, 310) line (234, 297, 246, 309) line (246, 310, 236, 315) line (236, 315, 238, 317) Endif If (pose=0) solid ellipse (230, 269, 3, 4) solid ellipse (230, 287, 3, 13) line (228, 278, 215, 295) line (232, 278, 245, 295) line (228, 285, 226, 325) line (229, 296, 226, 325) line (231, 296, 234, 325) line (232, 285, 234, 325) Endif If (pose>0) solid ellipse (229, 268, 3, 4) solid ellipse (229, 286, 3, 13) line (231, 280, 249, 290) line (227, 280, 214, 265) line (229, 296, 234, 325) line (232, 299, 234, 325) line (230, 296, 214, 310) line (226, 297, 214, 309) line (214, 310, 224, 315) line (224, 315, 222, 317) Endif Task open tones Common Int handle handle = open mci ("\\simple\\sounds\\tones.mid") Task tone (Int a) Common Int handle start mci (handle, a*2998L) Task close tones Common Int handle stop mci (handle) close mci (handle)

How To Run The Program

If you're feeling ambitious and have nothing better to do, you could just copy
the source listing by hand! However, there is a much easier way to do it:

Copy the source listing into the Windows Clipboard

Paste the Clipboard into a new text document

Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)