home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / instant art (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  85 lines
  1. 10 data160,32,132,251,132,253,160,1,132,252,136,132,250,162,199,134,166,162,39
  2. 20 data134,167,132,169,177,250,133,168,165,167,240,4,160,8,177,250,10,38,168,42
  3. 30 data38,168,42,41,3,133,170,160,4,169,0,38,168,42,38,168,42,72,101,170,101
  4. 40 data169,170,165,170,133,169,104,133,170,189,0,23,6,254,6,254,5,254,133,254
  5. 50 data136,208,221,145,252,24,198,167,16,40,162,2,181,250,41,7,201,7,240,15,56
  6. 60 data181,250,233,55,149,250,181,251,233,1,149,251,208,6,246,250,208,2,246,251
  7. 70 data202,202,240,223,198,166,208,144,96,162,2,181,250,105,8,149,250,144,3,246
  8. 80 data251,24,202,202,240,241,76,172,23,27,65,8,13,10,27,75,64,1,0,165,197,201
  9. 90 data64,208,219,76,35,23,160,32,132,251,160,0,132,250,160,25,132,252,160,0
  10. 100 data185,162,23,32,210,255,200,192,9,208,245,160,40,132,253,160,7,177,250
  11. 110 data162,7,42,118,166,202,16,250,136,16,243,169,7,170,56,101,250,133,250,144
  12. 120 data2,230,251,181,166,32,210,255,202,16,248,198,253,208,217,198,252,208,196
  13. 130 data96,173,58,3,160,0,153,0,4,153,251,4,153,245,5,153,239,6,200,192,251,208
  14. 140 data239,96,173,59,3,160,0,153,0,216,153,251,216,153,245,217,153,239,218,200
  15. 150 data192,251,208,239,96,169,8,13,24,208,141,24,208,169,32,13,17,208,141,17
  16. 160 data208,169,63,133,216,169,0,133,215,168,145,215,160,63,162,32,145,215,136
  17. 170 data208,251,198,216,202,208,246,169,4,133,232,169,0,133,231,168,173,52,3
  18. 180 data162,4,145,231,200,208,251,230,232,202,208,246,96
  19. 190 ch=int(154*rnd(1))+1:co=int(16*rnd(1))+0:g=int(16*rnd(1))+0:w=8192:x=8504
  20. 200 v=53265:gosub600:r=rnd(-ti):fe=255
  21. 210 s=5900:fori=stos+241:reada:pokei,a:next
  22. 220 t=828:fori=ttot+45:reada:pokei,a:next
  23. 230 getc$:ifc$=""then230
  24. 240 i=abs(asc(c$)-132):ifi<5thenonigosub410,410,440,460:goto230
  25. 250 ifc$=chr$(13)thengosub340:goto230
  26. 260 ifc$="a"thengosub580:gosub760:goto230
  27. 270 ifc$="l"thengosub480:gosub520:goto230
  28. 280 ifc$="p"thengosub790:goto230
  29. 290 ifc$="q"thenclose4:sys832
  30. 300 ifc$="s"thengosub480:gosub490:goto230
  31. 310 ifc$="v"thengosub580:gosub360:goto230
  32. 320 ifc$="^"thengosub580:goto230
  33. 330 gosub480:gosub600:goto230
  34. 340 gosub580:q$="":z$="":forl=1to10:z$=right$(str$(int(rnd(1)*4)),1)
  35. 350 q$=q$+z$:next
  36. 360 gosub550:q=4*rnd(1)+1:onqgoto370,380,390,400
  37. 370 y=fe*rnd(1)+1:fori=wtoxstep8:pokei,y:next:syss:return
  38. 380 q=rnd(1)*5:fori=1toq:poke8184+8*(int(rnd(1)*40)),rnd(1)*fe:next:syss:return
  39. 390 fori=wtoxstep8:pokei,fe*rnd(1):next:syss:return
  40. 400 fori=wtoxstep8:pokei,0:next:poke8352,fe*rnd(1):syss:return
  41. 410 ifi=1thenc1=c1+1:ifc1=16thenc1=0
  42. 420 ifi=2thenc2=c2+1:ifc2=16thenc2=0
  43. 430 ch=c1*16+c2:gosub580:return
  44. 440 co=co+1:ifco=16thenco=0
  45. 450 gosub580:return
  46. 460 g=g+1:ifg=16theng=0
  47. 470 gosub580:return
  48. 480 pokev,27:pokev+5,200:pokev+7,21:pokev+15,15:pokev+16,1:poke646,6:return
  49. 490 f$="":print"[147]":input"  pattern to save";f$:iff$=""then560
  50. 500 open3,8,1,f$:fori=wtoxstep8:print#3,peek(i):next:print#3,ch:print#3,co
  51. 510 print#3,g:print#3,q$:close3:print"[147]":gosub580:return
  52. 520 f$="":print"[147]":input"  pattern to load";f$:iff$=""then560
  53. 530 open3,8,0,f$:fori=wtoxstep8:input#3,j:pokei,j:next:input#3,ch:input#3,co
  54. 540 input#3,g:input#3,q$:gosub550:goto560
  55. 550 a=5887:fori=1to10:pokea+i,val(mid$(q$,i,1)):next:return
  56. 560 close3:gosub580:iff$=""thenreturn
  57. 570 syss:return
  58. 580 poke826,ch:syst:poke827,co:sys851:pokev+15,g:pokev+16,g:pokev,59
  59. 590 pokev+5,216:pokev+7,24:return
  60. 600 pokev+15,15:pokev+16,1:printchr$(142)"[147][159]"tab(7)"instant art instructions
  61. 610 [153]"stop"[163]7)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  62. 620 print""tab(7)"f1 - cycle color 1
  63. 630 [153][163]7)"f3 - cycle color 2
  64. 640 printtab(7)"f5 - cycle color 3
  65. 650 [153][163]7)"f7 - cycle color 4 & border
  66. 660 print""tab(7)"^ - hi-res screen
  67. 670 [153][163]7)"v - variant
  68. 680 printtab(7)"a - automatic
  69. 690 [153][163]7)"p - print
  70. 700 printtab(7)"s - save
  71. 710 [153][163]7)"l - load
  72. 720 printtab(7)"q - quit
  73. 730 [153]""[163]7)"return - new screen
  74. 740 print"[159]"tab(7)"other keys return to menu
  75. 750 [153]"stop"[163]7)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[142]
  76. 760 [145][187](1)[172]3[170]1[141]410,440,460:[141]340
  77. 770 [139][194](198)[167][142]
  78. 780 [137]760
  79. 790 [141]480:[153]"load"[163]7)"make sure printer is ready
  80. 800 print""tab(9)"and press any key. . .
  81. 810 [161]r$:[139]r$[178]""[167]810
  82. 820 [153]""[163]13)"printing. . .":a$[178][199](10):[159]4,4,5:[157]4:[158]6069
  83. 830 [153]:[153]:[153]:[160]4:[141]580:[142]
  84. 840 c[178][181](16[172][187](1))[170]0:[153]c:[137]840
  85.