home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 March / 1989-03.d64 / multiview (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  74 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 20 ifml=.thenml=1:load"multiview.ml",8,1
  3. 30 poke52,68:poke56,68:clr
  4. 40 dimna$(12),s(12),p$(12),q$(12),l(12)
  5. 50 fori=1to10:readna$(i),s(i),l(i):next:fori=1to12:p$="":q$="":next
  6. 60 fori=1to10:na$(i)=" "+na$(i)+" ":next:na$(11)=" lores pictures "
  7. 70 na$(12)=" main menu ":f=49717:la=49720:rv$=chr$(18)+"[158]":h$=""
  8. 80 print"[147]";:gosub690:print"   copyright 1989 compute! pub., inc."
  9. 90 printtab(11)"all rights reserved"
  10. 100 print""spc(15)"[159]multiview":printspc(15)"[150][163][163][163][163][163][163][163][163][163][163]"
  11. 110 print"[158]1)  load & view picture":print"[158]2)  directory"
  12. 120 print"[158]3)  quit"
  13. 140 sys49302:e=peek(2):ife<49ore>51then140
  14. 150 one-48goto320,210,160
  15. 160 print"[147]"spc(10)"are you sure?  (y/n)"
  16. 170 geta$:ifa$="y"thenend
  17. 180 ifa$="n"then80
  18. 190 goto170
  19. 200 end
  20. 210 print"[147]"spc(7)"insert disk, press <return>"
  21. 220 print""spc(6)"shift pauses, 'c=' key to end"
  22. 230 geta$:ifa$=chr$(13)then260
  23. 240 ifa$=""then230
  24. 250 goto80
  25. 260 gosub680:ifss=0then280
  26. 270 print"[147]"spc(10)"disk drive is not on":forb=1to2500:next:goto80
  27. 280 sys49323
  28. 290 forb=1to2000:next:print""spc(7)"[154]press any key for main menu"
  29. 300 geta$:ifa$=""then300
  30. 310 goto80
  31. 320 gosub690:p$(a-6anda<>0)="":print"[147]"spc(9)"[154]which picture format?"
  32. 330 a=7:p$(1)=rv$
  33. 340 forb=1to12:print""p$(b)na$(b):next
  34. 350 print"cursor up/down chooses, <return> selects"
  35. 360 geta$:ifa$=""then360
  36. 370 ifa$<>""anda$<>"[145]"then400
  37. 380 p$(a-6)="":gosub660:a=a-(a$="")+(a$="[145]")
  38. 390 a=a+12*(a>18)-12*(a<7):p$(a-6)=rv$:gosub660:goto360
  39. 400 ifa$=chr$(13)thenc=a-6:goto420
  40. 410 goto360
  41. 420 ifc=12then80
  42. 430 f$="":input"[147]filename";f$
  43. 440 iff$=""orlen(f$)>16then320
  44. 450 print""spc(7)"insert disk, press <return>"
  45. 460 geta$:ifa$=chr$(13)then490
  46. 470 ifa$=""then460
  47. 480 goto320
  48. 490 gosub680:ifss=0then500
  49. 495 print"[147]"spc(10)"disk drive is not on":forb=1to2500:next:goto320
  50. 500 ifc=11thenf$=f$+",s,r":goto570
  51. 510 print"'f1' changes background, any other quits"
  52. 520 pokela,l(c):sys49152,f$,8
  53. 530 open15,8,15:input#15,e:close15:ife=.then550
  54. 540 print"[147]disk error"e"has occurred":forb=1to2500:next:goto320
  55. 550 ifc=4orc=5thengosub620
  56. 560 print"[147]":syss(c):goto80
  57. 570 print"[147]";:open8,8,2,f$:open15,8,15:input#15,e
  58. 580 ifethenclose15:close8:goto610
  59. 590 get#8,a$:printa$;:ifst=0then590
  60. 600 print"":close15:close8:sys49261:goto80
  61. 610 print"[147]disk error"e"has occurred":forb=1to2500:next:goto320
  62. 620 d(1)=1:input"[147]foreground color  (0-15)";d(1):ifd(1)<0ord(1)>15then320
  63. 630 d(2)=.:input"[147]background color  (0-15)";d(2):ifd(2)<0ord(2)>15then320
  64. 640 d(3)=d(2)+(16*d(1)):pokef,d(3):return
  65. 650 end
  66. 660 printh$:ifa=7thenprint""p$(1)na$(1):return
  67. 670 forb=1toa-7:print:next:print""p$(b)na$(b):return
  68. 680 open15,8,15:close15:ss=st:return
  69. 690 poke53280,.:poke53281,.:return
  70. 700 datadoodle,49433,92,koala,49444,96,create with garfield,49485,96
  71. 710 dataprint shop,49493,96,paint now!,49493,96,art studio,49521,96
  72. 720 dataadvanced art studio,49533,96,rainbow painter,49580,92
  73. 730 datapaintbrush,49594,88,blazing paddles,49655,96
  74.