home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 248 / 248.d81 / b.grafmus (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  2.2 KB  |  88 lines
  1. 1 poke56, 128 :clr
  2. 5 d=peek(186):ifd<8thenstop
  3. 6 poke1023,d
  4. 7 ifpeek(44)=100thengosub41000:print"[144]"
  5. 10 gosub60008:f$=n$+".dbs"
  6. 11 ifn$="dotplus"then500
  7. 12 open1,d,15,"r0:"+f$+"="+f$
  8. 13 input#1,en:close1
  9. 14 ifen<>63then200
  10. 20 df$=n$+".dml"
  11. 21 open1,d,15,"r0:"+df$+"="+df$
  12. 22 input#1,en:close1
  13. 23 ifen<>63thengosub300
  14. 24 ifpeek(44)=100then30
  15. 25 poke44,100:poke256*100,0
  16. 26 a$="b."+n$:print"[147]l[207]a$,d":print"run"
  17. 27 poke198,2:poke631,13:poke632,13:end
  18. 30 sys57812"mouse2.1 7 1000",d,0:poke780,0:poke781,0:poke782,16:sys65493
  19. 31 sys57812"dba.sidg.ml",d,0:poke780,0:poke781,0:poke782,192:sys65493
  20. 32 sys57812"dba.unpg.ml",d,0:poke780,0:poke781,0:poke782,205:sys65493
  21. 46 gosub60008:df$=n$+".dml":f$=n$+".dbs"
  22. 47 sys57812df$,d,0:poke780,0:poke781,0:poke782,56:sys65493
  23. 48 l=peek(781):h=peek(782):open4,d,4,df$:get#4,a$,b$:close4
  24. 49 ifasc(b$)<>56thengosub600
  25. 50 q=h+1:poke44,q:pokeq*256,0:poke1020,1:poke1021,q
  26. 51 print"[147]l[207]f$,d":print"run"
  27. 52 poke198,2:poke631,13:poke632,13:end
  28. 200 stop:q$=chr$(34):a$="dot+.dbs"
  29. 202 print"[147]l[207]a$,d"
  30. 204 print"60008n$="q$n$q$
  31. 206 print"goto60000"
  32. 208 print"l[207]"q$"b."n$q$","d
  33. 210 print"run"
  34. 212 poke198,5:forx=1to5:poke630+x,13:next:end
  35. 299 end
  36. 300 stop: open1,d,15,"c0:"+df$+"=dd.ml"
  37. 306 close1:return
  38. 399 end
  39. 500 print"[213]se [194].[196][207][212][194][193][211][201][195] to create your [208]roject.":end
  40. 501 print"and press <return> twice"
  41. 502 print"goto60000[145][145][145]":list60008
  42. 600 poke53280,1:print"":poke198,0:stop
  43. 605 open1,d,15,"s0:"+df$:close1
  44. 610 sys57812df$,d:poke193,0:poke194,56:poke174,l:poke175,h:sys62954
  45. 620 sys57812df$,d,0:poke780,0:poke781,0:poke782,56:sys65493:h=peek(782)
  46. 630 return
  47. 41000 poke53280,0:poke53281,0:poke53272,22:print"[147]"
  48. 41002 poke214,13:print
  49. 41004 printtab(1)"[155]                                     "
  50. 41005 forx=1to8
  51. 41006 printtab(1)"[152]                                     "
  52. 41007 next
  53. 41013 printtab(1)"[151]                                     "
  54. 41014 gosub41075
  55. 41020 forx=2to6:reada$:poke214,14+x:print
  56. 41021 ifx=1theniflen(a$)<19thengosub41050
  57. 41022 printtab(19-len(a$)/2)"[152]"a$
  58. 41024 next
  59. 41030 t=ti+60
  60. 41031 ift>tithen41031
  61. 41032 print"":return
  62. 41050 b$=""
  63. 41051 fory=1tolen(a$):b$=b$+mid$(a$,y,1)+" ":next:a$=left$(b$,len(b$)-1):return
  64. 41075 gosub60008:aa$="":forx=1tolen(n$)
  65. 41076 a=asc(mid$(n$,x)):ifa>64thena=aor128
  66. 41078 aa$=aa$+chr$(a):next:n$=aa$
  67. 41080 iflen(n$)>18then41088
  68. 41082 aa$="":forx=1tolen(n$)-1
  69. 41084 aa$=aa$+mid$(n$,x,1)+" ":next
  70. 41086 n$=aa$+right$(n$,1)
  71. 41090 poke214,15:print:print"[152]" tab(19-len(n$)/2)n$:return
  72. 41101 rem author's name
  73. 41102 data"by [196]ave [205]oorman"
  74. 41103 rem extra line
  75. 41104 data""
  76. 41105 rem copyright
  77. 41106 data"(c)2007 [202] & [198] [208]ublishing, [201]nc.
  78. 41107 [143] extra line
  79. 41108 [131]""
  80. 41109 [143] loadstar tag
  81. 41110 [131]"http://c64.eloadstar.com"
  82. 59999 [128]
  83. 60000 [141]60008:n$[178]"b."[170]n$
  84. 60001 d[178][194](186)
  85. 60002 [159]1,d,15,"s0:"[170]n$:[160]1:[148]n$,d:[128]
  86. 60008 n$[178]"grafmus"
  87. 60009 [142]
  88.