home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 46 / 046.d81 / bridgebrain (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  851b  |  23 lines
  1. 0 rem*  bridgebrain  * george h bodnar,phd
  2. 1 poke53280,5:poke53281,0:poke808,225:print"[147]":if(fl=.)thenpoke56,160:clr
  3. 3 printchr$(142)"[159]     [211][211][211][211]  [211][211][211][211]  [211] [211][211][211][211]  [211][211][211][211] [211][211][211][211]
  4. 4 [153]"     (NULL)   (NULL) (NULL)   (NULL) (NULL) (NULL)   (NULL) (NULL)    (NULL)
  5. 5 print"     [211][211][211][211]  [211][211][211][211]  [211] [211]   [211] [211] [211][211] [211][211][211]
  6. 6 [153]"     (NULL)   (NULL) (NULL) (NULL)   (NULL) (NULL)   (NULL) (NULL)  (NULL) (NULL)
  7. 7 print"     [211][211][211][211]  [211]  [211]  [211] [211][211][211][211]  [211][211][211][211] [211][211][211][211]
  8. 8 [153]"cont       atnatnatnatn  atnatnatnatn   atnatnatn  atn atn   atn
  9. 9 print"       [193]   [193] [193]   [193] [193]   [193] [193] [193][193]  [193]
  10. 10 [153]"       atnatnatnatn  atnatnatnatn  atnatnatnatnatn atn atn atn atn
  11. 11 print"       [193]   [193] [193] [193]   [193]   [193][160][193] [193] [160][193][193]
  12. 12 [153]"       atnatnatnatn  atn  atn  atn   atn atn atn close atn
  13. 13 print"[158]         copyright 1983,1986"
  14. 14 print"         george h bodnar,phd"
  15. 15 a$="[153] mbrain ":print"[158]";:ifflagthena$="[154] mcard ":poke53280,6
  16. 17 print"    please wait while loading ";a$""
  17. 20 ifflag=1then70
  18. 60 flag=1:load"mbrain",8,1
  19. 70 print"[144]load ";chr$(34);"mcard";chr$(34);",8"
  20. 75 print"   [145][145][145][145][145][145][145][145]"
  21. 80 poke631,13:poke632,asc("r"):poke633,asc("u"):poke634,asc("n"):poke635,13
  22. 90 poke198,5:end
  23.