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