home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 209 / 209.d81 / b.bridgebrain (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  41 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":iffl=0thengosub100
  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. 100 print:print: printtab(08)"this program does not
  24. 101 [153][163]10)"return to loadstar
  25. 102 printtab(06)"press any key to continue
  26. 103 [153][163]12)"or <q> to quit"
  27. 104 [151]198,0:[146]198,1:[161]z$
  28. 105 [139]z$[178]"q"[167]40000
  29. 106 [142]
  30. 10000 d[178][194](186):n$[178]"b.bridgebrain":[159]5,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  31. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  32. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  33. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  34. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  35. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  36. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  37. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  38. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  39. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  40. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  41.