home *** CD-ROM | disk | FTP | other *** search
- 0 PRINT"[147]"
- 2 GOTO 10
- 5 GETY$:IFY$<>" "THEN5
- 6 RETURN
- 10 POKE53280,14:POKE53281,6:PRINTCHR$(142)"[147]";
- 20 PRINT"[154]@ ";
- 30 PRINT"[154]74,DRIVE NOT READY,00,00 ";
- 40 PRINT"[154]>#8 ";
- 50 PRINT"[154]$ ";
- 60 PRINT"[154]0 ' ONLINE STUFF ' 03 3D[146] ";
- 70 PRINT"[154]9 'Ko[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]p[154][146] ";
- 80 PRINT"[154]4 '1[165] [167][154][146] ";
- 90 PRINT"[154]42 'F[165] [146] LO-RES GRAPHICS [167][154][146] ";
- 100 PRINT"[154]57 '1[165] [167][154][146] ";
- 110 PRINT"[154]70 '1l[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][154][146] ";
- 120 PRINT"[154]50 'FLAGSHIP.10.26' SEQ ";
- 130 PRINT"[154]68 '[158] [154][146] ";
- 140 PRINT"[154]17 '[158] BY PAUL MCALEER [154][146] ";
- 150 PRINT"[154]2 '[158] [154][146] ";
- 160 PRINT"[154]11 'MAIL CALL 111' SEQ ";
- 170 PRINT"[154]48 [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][154] ";
- 180 PRINT"[154]191 [153] VOLUME ONE - CHRISTMAS PIX! [154][146] ";
- 190 PRINT"[154]2591 [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][154][146] ";
- 200 PRINT"[154] [176]````````````````````[174][154] ";
- 210 PRINT"[154]OPEN3,8,} PRESS SPACE BAR! }[154] ";
- 220 PRINT"[154] [173]````````````````````[189][154] ";
- 230 PRINT"[154]READY. ";
- 240 PRINT"[154]GET#3,A$:PRINTA$; ";
- 250 PRINT"[154] ";
- 260 PRINT"[154] [157][148] ";:GOSUB5
- 270 POKE53280,2:POKE53281,0:PRINTCHR$(14)"[147]";
- 280 PRINT"";
- 290 PRINT" ";
- 300 PRINT" [158]wELCOME TO MY WORLD OF GRAPHICS! ";
- 310 PRINT" ";
- 320 PRINT" [155]sEVEN YEARS AGO, WHEN i STARTED ";
- 330 PRINT" [155]COMPUTING WITH MY vic-20, i IMAGINED ";
- 340 PRINT" [155]IT WOULD JUST BE A SMALL HOBBY. yOU ";
- 350 PRINT" [155]KNOW, SOMETHING ON THE SIDE. tODAY ";
- 360 PRINT" [155]COMPUTING IS [155]MY LIFE. iT PROVIDES ";
- 370 PRINT" [155]SOME OF MY INCOME, EDUCATION, AND ";
- 380 PRINT" [155]OTHER NECESSITIES. :) lAST YEAR i ";
- 390 PRINT" [155]STARTED FOOLING AROUND WITH LO-RES ";
- 400 PRINT" [155](TEXT MODE) GRAPHICS. mY FRIEND jIM ";
- 410 PRINT" [155]gREEN HAD BEEN CREATING THEM FOR A ";
- 420 PRINT" [155]WHILE, AND HE DID A BANG-UP JOB. sO ";
- 430 PRINT" [155]i TRIED IT. [155]i JUST GRABBED A SCREEN ";
- 440 PRINT" [155]CAPTURE PROGRAM AND TYPED. nOW IT'S ";
- 450 PRINT" [155]SECOND NATURE TO ME. i CAN ALMOST ";
- 460 PRINT" [155]AUTOMATICALLY CREATE PICTURES (HAH!) ";
- 470 PRINT" ";
- 480 PRINT" [155]pRESS THE space[160]bar FOR MORE... ";
- 490 PRINT" ";
- 500 PRINT" ";
- 510 PRINT"";
- 520 PRINT"[223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223] [146][157][148][223]";
- 530 POKE2023,ASC("[223]"):POKE2024,ASC("[223]"):GOSUB5
- 540 POKE53280,2:POKE53281,0:PRINT"[147]";
- 550 PRINT"";
- 560 PRINT" ";
- 570 PRINT" [155]eVERYONE ASKS ME [158]THE BASICS[155] OF ";
- 580 PRINT" [155]SCREEN DOODLING, AS i CALL IT. i'VE ";
- 590 PRINT" [155]UPLOADED A FILE TO geNIE (#9219) ";
- 600 PRINT" [155]CALLED fancy 64 screens WHICH SOME- ";
- 610 PRINT" [155]WHAT DESCRIBES MY TECHNIQUES. ";
- 620 PRINT" [155] ";
- 630 PRINT" [155]nOW FOR YOUR VIEWING PLEASURE, A ";
- 640 PRINT" [155]COLLECTION OF MY cHRISTMAS aRT. i ";
- 650 PRINT" [155]HOPE TO UPLOAD ART COLLECTIONS IN ";
- 660 PRINT" [155]THE FUTURE, FOR THE HECKUVIT. :) ";
- 670 PRINT" [155] ";
- 680 PRINT" [155]iF YOU ENJOY THIS ART, AND WANT TO ";
- 690 PRINT" [155]CONTACT THE AUTHOR/ARTIST...eMAIL ";
- 700 PRINT" [155]d.mcaleer1 ON geNIE. i WAS jcRYPTAH ";
- 710 PRINT" [155]ON qlINK BUT THAT'S BEEN DROPPED. ";
- 720 PRINT" ";
- 730 PRINT" [155]tHANKS, AND KEEP ON CHUGGING THE ";
- 740 PRINT" [155]8-BITS! ";
- 750 PRINT" ";
- 760 PRINT"[154] [155]sLAM space[160]TO BEGIN THE SHOW...[154] ";
- 770 PRINT" ";
- 780 PRINT"";
- 790 PRINT" [157][148]";
- 800 GOSUB5:PRINTCHR$(142)
- 810 POKE53280,0:POKE53281,0:PRINT"[147]";
- 820 PRINT" [158]m [158]n ";
- 830 PRINT" [158]* ";
- 840 PRINT" [156] [146] [156] [146] [146] [156] [146] [156] [146] [156] [146] [156] [170][181] [146] ";
- 850 PRINT"[156] [146] [156] [146] [146] [156] [146] [156] [146] [158]n[167] [146][180][158]m [156][165] [146] [156] [146] [156] [146] [146] [156] ";
- 860 PRINT"[156] [146] [156] [146] [156] [146] [156][182][161] [182][156] [146] [156][165] [146] [156] [146] [156] [146] [156] [146] ";
- 870 PRINT"[156] [146] [156] [146] [156] [146] [156] [146] [156] [146] [156][182] [129][146]q [156] [165] [146] [156] [146] [156] [146] [156] [146] [156] ";
- 880 PRINT"[146] [156] [146] [156] [146] [156] [182] [156][181] [146] [156][165] [146] [156] [146] [156] [146] [156] [146]
- 890 [153]" GET ABSWAIT CLR ";
- 900 [153]" FN SYSWAITq THENWAIT ";
- 910 [153]" WAIT ";
- 920 [153]" GET ABSWAIT ";
- 930 [153]" FN PRINTWAITq OPENWAITqTHENWAIT ";
- 940 [153]" WAIT ";
- 950 [153]" GET ABSWAIT ";
- 960 [153]" GET LISTWAITq WAITq ABSWAIT ";
- 970 [153]" SGN THENWAIT ";
- 980 [153]" SGN THENWAIT ";
- 990 [153]" WAITq WAIT ";
- 1000 [153]" VERIFYWAITq WAIT ";
- 1010 [153]" CLRWAITq } WAIT ";
- 1020 [153]" WAIT VERIFYTAB(TAB(THENWAIT PRINT``{ } WAIT ";
- 1030 [153]" CLR WAIT VERIFY FN WAIT SYS pPRINT }`*`WAIT ";
- 1040 [153]" CLR WAIT VERIFY THEN WAIT SYSTOSQRPRINT } } WAIT POKEPM ";
- 1050 [153]" ";
- 1060 [153]" CMDSAVE ";:[141]5
- 8014 [151]53280,0:[151]53281,0:[153]"LOAD";
- 8024 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
- 8034 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHLISTuddiPOKEOHOHOHOHOHO";
- 8044 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHLISTgPOKEHOLISThPOKEOHOHOHOHOHO";
- 8054 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHLISTj==kPOKEOHOHOHOHOHO";
- 8064 [153]"POKEHOHOHO POKEWAITOHOHOH CLOSEPOKEWAITHOHOH PRINT POKEWAITOHOHOHOHO";
- 8074 [153]"POKEHOHOHO POKEWAITOHOHOH CLOSEPOKEWAITHOHO PRINT POKEWAITHOHOHOHO";
- 8084 [153]"POKEHOHOHO POKEWAITOHOHOH CLOSEPOKEWAITHOHO````````PRINT``POKEWAITHOHOHOHO";
- 8094 [153]"POKEHOHOHO POKEWAITOHOHOH CLOSEPOKEWAITHOHmmmmmmmmmmPRINTmmPOKEWAITOHOHOHO";
- 8104 [153]"POKEHOHOHO POKEWAITOHOHOH CLOSEPOKEWAITHOH```````````PRINT`POKEWAITOHOHOHO";
- 8114 [153]"POKEHOHOHO POKEWAITOHOHOH POKEWAITHO PRINT POKEWAITHOHOHO";
- 8124 [153]"POKEHOHOHO POKEWAITHO } g h } } PRINTg POKEWAITHOHOHO";
- 8134 [153]"POKEHOHOHO POKEWAITHO qgwhq}w}qgwhPRINTqPOKEWAITHOHOHO";
- 8144 [153]"POKEHOHOHO POKEWAITOHOHOH POKEWAITHO qhw}q}wgqhw}PRINTqPOKEWAITHOHOHO";
- 8154 [153]"POKEHOHOHO POKEWAITOHOHOH POKEWAITHOCLOSE } } g h } }PRINT POKEWAITHOHOHO";
- 8164 [153]"POKEHOHOHO POKEWAITOHOHOH POKEWAITHOPRINT PRINT POKEWAITHOHOHO";
- 8174 [153]"POKEHOHOHO POKEWAITOHOHOH POKEWAITHOHPRINT````````````POKEWAITHHOHOHO";
- 8184 [153]"POKEHOHOHO POKEWAITOHOHOH POKEWAITHOHPRINTnnnnnnnnnnnnPOKEWAITOHOHOHO";
- 8194 [153]"POKEHOHOHO POKEWAITOHOHOH POKEWAITHOHOPRINT``````````POKEWAITHOHOHOHO";
- 8204 [153]"POKEHOHOHO POKEWAITOHOHOH POKEWAITHOHOPRINT POKEWAITHOHOHOHO";
- 8214 [153]"POKEHOHOHO POKEWAITOHOHOH POKEWAITHOHOHPRINT POKEWAITOHOHOHOHO";
- 8224 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
- 8234 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
- 8244 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
- 8254 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
- 8264 [141]5
- 8274 [151]53280,3:[151]53281,0:[153]"LOAD";
- 8284 [153]"POKE ";
- 8294 [153]"POKE udiPOKE ";
- 8304 [153]"POKE SINPOKE g*WAIThPOKE SINPOKEWAIT ";
- 8314 [153]"POKE SINPOKE j=kPOKE SINPOKEWAIT ";
- 8324 [153]"POKE SINPOKE }POKE SINPOKEWAIT .POKE ";
- 8334 [153]"POKE SINPOKE }POKE SINPOKEWAIT ";
- 8344 [153]"POKE m=nPOKE oed```depPOKE ";
- 8354 [153]"POKE -v<POKE gSINRNDLOGqCOS*SINWAIThPOKE ANDPOKE ";
- 8364 [153]"POKE n>mPOKE bINTPOKEWAIT ORd^POKE GETbPOKE OR>^POKE ";
- 8374 [153]"POKE bwuEXPNEW/iwbPOKE ABS<SQRWAIT-SGNPOKE ";
- 8384 [153]"POKE USRUSRUSRUSRbwj^NEWWAITORkwbUSRUSRUSRUSRPOKE /=EXPPOKE ";
- 8394 [153]"POKE bGETPOKE /fEXPPOKE INTWAITbPOKE USRPOKE ";
- 8404 [153]"POKE gSINWAITRNDLOGqCOS*SINhPOKE ";
- 8414 [153]"POKE lrf```frSQRPOKE ";
- 8424 [153]"POKE xPOKE SINPOKEWAIT }POKE SINPOKE ";
- 8434 [153]"POKE SINPOKEWAIT }POKE SINPOKE ";
- 8444 [153]"POKE SINPOKEWAIT u>iPOKE SINPOKE ";
- 8454 [153]"POKE SINPOKEWAIT gLOGWAIThPOKE SINPOKE ";
- 8464 [153]"POKE jfkPOKE ";
- 8474 [153]"POKE *POKE ";
- 8484 [153]"POKE .POKE ";
- 8494 [153]"POKE xPOKE ";
- 8504 [153]"POKE .POKE ";
- 8514 [153]"POKE PPRINT#MPOKE ";
- 8524 [141]5
- 8534 [151]53280,0:[151]53281,0:[153]"LOAD";
- 8544 [153]" ";
- 8554 [153]" ";
- 8564 [153]" PRINT#```````POKE` CLOSECLOSEPRINT#WAIT``````` ";
- 8574 [153]" PRINT#``````POKE` CLOSECLOSE PRINT#WAIT`````` ";
- 8584 [153]" PRINT#`````POKE` CLOSECLOSE CLOSECLOSEPRINT#WAIT````` ";
- 8594 [153]" PRINT#````POKE` POKEWAIT``` CLOSECLOSE PRINT#WAIT```` ";
- 8604 [153]" PRINT#````POKE` POKEWAIT`PRINT#```POKE`CLOSE CLOSEPRINT#WAIT```` ";
- 8614 [153]" PRINT#````POKE` CLOSEPOKEWAIT`PRINT#```POKE` CLOSECLOSEPRINT#WAIT```` ";
- 8624 [153]" PRINT#````POKE``````PRINT#```POKE` CLOSECLOSE PRINT#WAIT```` ";
- 8634 [153]" PRINT#`````````````POKE`CLOSECLOSE PRINT#WAIT```` ";
- 8644 [153]" PRINT#`````````````POKE`CLOSE CLOSEPRINT#WAIT```` ";
- 8654 [153]" PRINT#`````````````POKE` CLOSECLOSEPRINT#WAIT```` ";
- 8664 [153]" PRINT#`````````````POKE` CLOSECLOSE PRINT#WAIT```` ";
- 8674 [153]" PRINT#`````````````POKE`CLOSECLOSE PRINT#WAIT```` ";
- 8684 [153]" PRINT#`````````````POKE`CLOSE CLOSEPRINT#WAIT```` ";
- 8694 [153]" PRINT#`````````````POKE` CLOSECLOSEPRINT#WAIT```` ";
- 8704 [153]" PRINT#`````````````POKE` CLOSECLOSE PRINT#WAIT```` ";
- 8714 [153]" PRINT#`````````````POKE`CLOSECLOSE PRINT#WAIT```` ";
- 8724 [153]" PRINT#`````````````POKE`CLOSE CLOSEPRINT#WAIT```` ";
- 8734 [153]" PRINT#`````````````POKE` CLOSE PRINT#WAIT```` ";
- 8744 [153]" PRINT#`````````````POKE` CLOSE PRINT#WAIT```` ";
- 8754 [153]" PRINT#`````````````POKE` PRINT#WAIT````POKEP ";
- 8764 [153]" PRINT#`````````````POKE` PRINT#WAIT````POKEM ";
- 8774 [141]5
- 8784 [151]53280,1:[151]53281,1:[153]"LOAD";
- 8794 [153]" ";
- 8804 [153]" ABS WAIT ";
- 8814 [153]" INT WAIT ";
- 8824 [153]" INT WAIT ";
- 8834 [153]" GET WAIT ";
- 8844 [153]" GET WAIT ";
- 8854 [153]" GET WAIT ";
- 8864 [153]" WAIT ";
- 8874 [153]" ";
- 8884 [153]" DEFANDANDANDPOSPOSPOSPOSPOSPOSNEWPOSANDANDAND ";
- 8894 [153]" DEF `d` `d` WAIT ";
- 8904 [153]" DEF <w> <w> WAIT ";
- 8914 [153]" DEF CLOSE g WAIT DEFABSWAIT ";
- 8924 [153]" DEF FN WAIT DEF WAIT ";
- 8934 [153]" DEF TAB(USR WAIT ";
- 8944 [153]" DEF FREFREUSRUSRUSRUSRUSRUSRFREWAITNEWPOS ";
- 8954 [153]" DEF OR`````^ WAIT ";
- 8964 [153]" DEFABS jfffffkWAITGET ";
- 8974 [153]" TOANDTO DEFLOG WAITGET TOTOANDANDTO ";
- 8984 [153]" WAIT WAIT ";
- 8994 [153]" CLOSE WAIT WAIT ";
- 9004 [153]" WAIT WAIT ";
- 9014 [153]" WAIT CLOSE WAIT ";
- 9024 [153]" WAIT CONTWAITPM ";
- 9034 [141]5
- 9040 [141]5
- 9050 [151]53280,14:[151]53281,6:[153]"LOAD";
- 9060 [153]"CONT D.MCALEER1 ON GENIE WAIT ";
- 9070 [153]"CONT ";
- 9080 [153]"CONTTHANKS FOR CHECKING THIS OUT! ";
- 9090 [128]
-