home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 235 / 235.d81 / b.comphist2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  46 lines
  1. 10 d=peek(186):ifd<8thenpoke186,8:goto10
  2. 15 poke829,1:readt$
  3. 16 gosub41000:open15,d,15,"r0:b."+t$+"=b."+t$:input#15,en:close15
  4. 17 ifen=62then2000
  5. 18 q=831:t$="m."+t$:t$=chr$(len(t$))+t$
  6. 19 forx=1tolen(t$):pokeq+x,asc(mid$(t$,x)):next
  7. 20 a$="mediameister":b$="l[207]a$,d"+chr$(13)+"r[213]"+chr$(13):print"[144]";
  8. 30 forx=1to10:poke630+x,asc(mid$(b$,x)):next:poke198,10
  9. 40 ifpeek(44)<>8thenpoke44,8:poke8*256,0
  10. 1000 end
  11. 2000 save"b."+t$,d:open4,8,4,"m."+t$+",p,w"
  12. 2001 print#4,"  <e>":close4
  13. 2010 print"[217]our [208]roduction [194]oot,"
  14. 2011 print"b."t$" and script, m."t$
  15. 2012 print"are ready.
  16. 9999 [128]
  17. 10000 [140]:[135]n$:n$[178]"b."[170]n$
  18. 10001 d[178][194](186):[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  19. 21013 [128]
  20. 41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
  21. 41002 [151]214,13:[153]
  22. 41004 [153][163]1)"list                                     "
  23. 41005 [129]x[178]1[164]8
  24. 41006 [153][163]1)"print#                                     "
  25. 41007 [130]
  26. 41013 [153][163]1)"poke                                     "
  27. 41020 [129]x[178]1[164]6:[135]a$:[151]214,14[170]x:[153]
  28. 41021 [139]x[178]1[167][139][195](a$)[179]19[167][141]41050
  29. 41022 [153][163]19[171][195](a$)[173]2)"print#"a$
  30. 41024 [130]
  31. 41030 t[178]ti[170]60
  32. 41031 [139]t[177]ti[167]41031
  33. 41032 [153]"":[142]
  34. 41050 b$[178]""
  35. 41051 [129]y[178]1[164][195](a$):b$[178]b$[170][202](a$,y,1)[170]" ":[130]:a$[178][200](b$,[195](b$)[171]1):[142]
  36. 60000 [143]  filename (no prefix/extension)
  37. 60001 [131]"comphist2
  38. 60002 rem  production name
  39. 60003 data"[200][201][211][212][207][210][217] [207][198][160][195][207][205][208][213][212][201][206][199] [201][201]
  40. 60004 [143]  credit
  41. 60005 [131]"by str$ave (NULL)oorman
  42. 60006 data""
  43. 60007 data"[213]sing [205][197][196][201][193][205][197][201][211][212][197][210] by [196]. [205]oorman"
  44. 60008 data"(c) 2004 by [202] & [198] [208]ublishing, [201]nc.
  45. 60009 [131]"www.eloadstar.com
  46.