0 REM*  BRIDGEBRAIN  * GEORGE H BODNAR,PHD
1 POKE53280,5:POKE53281,0:POKE808,225:PRINT"[147]":IF(FL=.)THENPOKE56,160:CLR
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 [153]"     (null)   (null) (null)   (null) (null) (null)   (null) (null)    (null)
5 PRINT"     [211][211][211][211]  [211][211][211][211]  [211] [211]   [211] [211] [211][211] [211][211][211]
6 [153]"     (null)   (null) (null) (null)   (null) (null)   (null) (null)  (null) (null)
7 PRINT"     [211][211][211][211]  [211]  [211]  [211] [211][211][211][211]  [211][211][211][211] [211][211][211][211]
8 [153]"CONT       ATNATNATNATN  ATNATNATNATN   ATNATNATN  ATN ATN   ATN
9 PRINT"       [193]   [193] [193]   [193] [193]   [193] [193] [193][193]  [193]
10 [153]"       ATNATNATNATN  ATNATNATNATN  ATNATNATNATNATN ATN ATN ATN ATN
11 PRINT"       [193]   [193] [193] [193]   [193]   [193][160][193] [193] [160][193][193]
12 [153]"       ATNATNATNATN  ATN  ATN  ATN   ATN ATN ATN CLOSE ATN
13 PRINT"[158]         COPYRIGHT 1983,1986"
14 PRINT"         GEORGE H BODNAR,PHD":IFFL=0THENGOSUB100
15 A$="[153] MBRAIN ":PRINT"[158]";:IFFLAGTHENA$="[154] MCARD ":POKE53280,6
17 PRINT"    PLEASE WAIT WHILE LOADING ";A$""
20 IFFLAG=1THEN70
60 FLAG=1:LOAD"MBRAIN",8,1
70 PRINT"[144]LOAD ";CHR$(34);"MCARD";CHR$(34);",8"
75 PRINT"   [145][145][145][145][145][145][145][145]"
80 POKE631,13:POKE632,ASC("R"):POKE633,ASC("U"):POKE634,ASC("N"):POKE635,13
90 POKE198,5:END
100 PRINT:PRINT: PRINTTAB(08)"THIS PROGRAM DOES NOT
101 [153][163]10)"RETURN TO LOADSTAR
102 PRINTTAB(06)"PRESS ANY KEY TO CONTINUE
103 [153][163]12)"OR <Q> TO QUIT"
104 [151]198,0:[146]198,1:[161]Z$
105 [139]Z$[178]"Q"[167]40000
106 [142]
10000 D[178][194](186):N$[178]"B.BRIDGEBRAIN":[159]5,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
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]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
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
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]