home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / graphics / viewers / Doodle-4.1.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-13  |  2.7 KB  |  137 lines
  1. 2 iflgoto156
  2. 4 printchr$(8)chr$(142)
  3. 6 poke808,234
  4. 8 poke55,0:poke56,92:clr
  5. 10 dimp$(18)
  6. 12 c$="                                      "
  7. 14 poke53280,6:poke53281,6
  8. 16 print"[147][158]"
  9. 18 print"[178][192][201][178][213][192][201][178][192][201][178]  [213][192][201][178] [178]   [178][192][201][213][192][201][213][192][201][178][192][201][178]  [178][192][174]";
  10. 20 print"[221] [221][221][202][192][201][171][192][203][221]  [171][192][179][202][178][203] 6 [221] [221][221] [221][221] [221][221] [221][221]  [171][179]"
  11. 22 print"[177][192][203][177][202][192][203][177]  [177][192][189][177] [177] [177]  4 [177][192][203][202][192][203][202][192][203][177][192][203][177][192][189][177][192][189]";
  12. 24 ifzgoto102
  13. 26 ifhgoto42
  14. 28 h=1
  15. 30 printspc(24)"[154][174]  [176]  [178] [178]"
  16. 32 printspc(24)"[171][201][174][221]  [171][192][179][213][192][201]"
  17. 34 printspc(24)"[173][203][202][179]  [177] [177][221] [221][175][175]"
  18. 36 printspc(25)"[202][192][203]     [202][192][203] [206]"
  19. 38 printspc(36)"[206]"
  20. 40 printspc(36)"[183][183]"
  21. 42 print"":x=12:gosub210
  22. 44 printspc(11)"[159]insert graphic disk"
  23. 46 print
  24. 48 printspc(19)"and"
  25. 50 printspc(19)"[164][164][164][164][164][164][164][164]"
  26. 52 printspc(13)"press  return "
  27. 54 printspc(18)"[164][164]"
  28. 55 printspc(12)"press f6[146] for geos"
  29. 56 printspc(18)"[164][164]"
  30. 59 printspc(12)"press f8[146] to quit"
  31. 60 getg$:ifg$=chr$(140)thenv=2:goto260
  32. 61 ifg$=chr$(139)thenv=1:goto260
  33. 62 ifg$<>chr$(13)goto60
  34. 64 print"":x=12:gosub210
  35. 66 x=5:gosub212
  36. 68 print"":x=14:gosub210
  37. 70 printspc(10)"reading directory..."
  38. 72 n=0
  39. 74 open1,8,0,"$"
  40. 76 get#1,b$:ifst<>0goto180
  41. 78 getg$:ifg$=chr$(140)thenv=2:goto260
  42. 79 ifg$=chr$(139)thenv=1:goto260
  43. 80 p$=""
  44. 82 get#1,b$:ifst<>0goto98
  45. 84 ifb$<>chr$(34)goto82
  46. 86 get#1,b$:ifb$<>chr$(34)thenp$=p$+b$:goto86
  47. 88 ifleft$(p$,2)<>"dd"goto94
  48. 90 n=n+1
  49. 92 p$(n)=" "+chr$(64+n)+">[159] "+mid$(p$,3)
  50. 94 get#1,b$:ifb$<>""goto94
  51. 96 goto78
  52. 98 close1
  53. 100 ifn<1goto196
  54. 102 print"":x=5:gosub210
  55. 104 x=10:gosub212
  56. 106 print"":x=6:gosub210
  57. 107 p=.5:ifn/2=int(n/2)thenp=0
  58. 108 forj=1ton/2+p:printp$(j):next
  59. 110 ifn<2goto116
  60. 112 print"":x=6:gosub210
  61. 114 forj=n/2+p+1ton:printspc(20)p$(j):next
  62. 116 print"":x=17:gosub210
  63. 118 printspc(10)"       [164][164]                    "
  64. 120 printspc(11)"press f1[146] to restart"
  65. 122 print"":x=19:gosub210
  66. 123 printspc(18)"[164][164]"
  67. 124 printspc(12)"press f6[146] for geos"
  68. 125 printspc(18)"[164][164]"
  69. 126 printspc(12)"press f8[146] to quit"
  70. 128 getg$:ifg$=chr$(140)thenv=2:goto260
  71. 129 ifg$=chr$(139)thenv=1:goto260
  72. 130 ifg$=chr$(133)thenz=0:goto16
  73. 132 ifg$<"a"org$>chr$(64+n)goto128
  74. 134 t$=mid$(p$(asc(g$)-64),7)
  75. 136 print"":x=6:gosub210
  76. 138 x=15:gosub212
  77. 140 print"":x=4:gosub210:x=7:gosub212
  78. 142 printspc(17-(len(t$)/2))"loading "t$
  79. 144 x=4:gosub210
  80. 146 printspc(10)"after viewing graphic"
  81. 148 printspc(20)"[164][164][164][164][164][164][164]"
  82. 150 printspc(14)"press  space "
  83. 152 l=1
  84. 154 load"dd"+t$,8,1
  85. 156 a=peek(24564)
  86. 158 if peek(24565)<>72then a=12
  87. 160 poke53280,a
  88. 162 poke53265,59
  89. 164 poke53272,120
  90. 166 poke56576,peek(56576)and254
  91. 168 getg$
  92. 170 ifg$<>" "goto168
  93. 172 poke53265,27
  94. 174 poke53272,21
  95. 176 poke56576,peek(56576)or1
  96. 178 z=1:goto14
  97. 180 close1
  98. 182 print"":x=14:gosub210
  99. 184 printspc(10)"  disk drive error  "
  100. 186 printspc(17)"[164][164]"
  101. 188 printspc(11)"press f1[146] to restart"
  102. 190 getg$:ifg$=chr$(140)thenv=2:goto260
  103. 191 ifg$=chr$(139)thenv=1:goto260
  104. 192 ifg$=chr$(133)thenz=0:goto16
  105. 194 goto190
  106. 196 print"":x=14:gosub210
  107. 198 printspc(8)"no graphic files on disk"
  108. 200 printspc(17)"[164][164]"
  109. 202 printspc(11)"press f1[146] to restart"
  110. 204 getg$:ifg$=chr$(140)thenv=2:goto260
  111. 205 ifg$=chr$(139)thenv=1:goto260
  112. 206 ifg$=chr$(133)thenz=0:goto16
  113. 208 goto204
  114. 210 forj=1tox:print:next:return
  115. 212 forj=1tox:printc$:next:return
  116. 214 close1
  117. 216 print"[147][154]";:poke53280,14:poke808,237:end
  118. 220 print"[147]":x=11:gosub210
  119. 225 printspc(9)"insert geos boot disk":print
  120. 230 printspc(11)"then press return"
  121. 235 getg$:ifg$=chr$(13)goto245
  122. 240 ifg$<>chr$(13)goto235
  123. 245 load":*",8,1
  124. 250 end
  125. 260 print"[147]":x=11:gosub210
  126. 265 printspc(11)"are you sure? y/n"
  127. 270 getg$:ifg$=chr$(89)goto275
  128. 271 ifg$=chr$(78)goto350
  129. 273 goto270
  130. 275 ifv=1goto220
  131. 280 ifv=2goto214
  132. 350 l=0:z=0:goto16
  133. 355 end
  134. 63000 :
  135. 63001 :     display doodle
  136. 63002 :                    v4.1
  137.