home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / bootcomal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  47 lines
  1. 10 print "[147]"; : rem clear screen
  2. 20 poke 53281,0 : rem background black
  3. 30 poke 53280,12: rem border med. gray
  4. 40 print "[152]";   : rem pencolor md gray
  5. 51 print "loading commodore 64 comal version 0.14 [146]";
  6. 60 print "[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  7. 70 print "comal has most of basic plus structures"
  8. 80 print "of pascal and the logo turtle graphics."
  9. 120 print
  10. 130 print "tutorial: captain comal gets organized
  11. 145 [153] "documentation: comal handbook
  12. 150 print "newsletter: comal today
  13. 155 [153]
  14. 160 [153] "        available in canada from:  "
  15. 165 [153] "sys"; : [143] pencolor yellow
  16. 170 [153]
  17. 180 [153] "       commodore business machines  "
  18. 185 [153] "print#
  19. 190 print
  20. 200 print
  21. 215 print ""; : rem pencolor yellow
  22. 220 print "you are allowed to use this version only";
  23. 230 print "on the commodore 64 unchanged. you may"
  24. 240 print "make copies for your school and friends."
  25. 245 print "[152]"; : rem pencolor md gray
  26. 250 print "comal programs on this disk are loaded:"
  27. 260 print
  28. 270 print "   load "chr$(34)"name"chr$(34)
  29. 272 print "   run"
  30. 275 print "[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  31. 280 print "   make a backup of your master copy   ";
  32. 281 poke 2023,160:poke 56295,12
  33. 899 rem
  34. 900 rem
  35. 910 rem chain"hi + chr$(13)
  36. 920 [151] 198,9
  37. 930 [151] 631,[198]("c")
  38. 940 [151] 632,[198]("h")
  39. 950 [151] 633,[198]("a")
  40. 960 [151] 634,[198]("i")
  41. 970 [151] 635,[198]("n")
  42. 980 [151] 636,34
  43. 990 [151] 637,[198]("h")
  44. 1000 [151] 638,[198]("i")
  45. 1010 [151] 639,13
  46. 1020 [147] "comal80.can",8
  47.