01 ? #1 "ATZ":A=0:WAIT 3:GOTO 3
02 WAIT 2:PRINT #1 "ATA":A=1:GOTO 4
03 SGET C:IF C>0 GOTO 2
04 IF A=0 GOTO 3
05 WAIT 200 'wait for connection
06 FOR B=0 TO 20:SPUT 10:NEXT
07 SPUT 32,32,32,32,32,32
08 ? #1 "*** PatraBBS ***"
09 SPUT 10,32,32,32,32,32,32,32
10 ? #1 "(C) KOS, 2019"
11 SPUT 32,32,32,32,32
12 ? #1 "Hellas, Patra city";
13 SPUT 10,32,32,32,32
14 ? #1 "Tel:0000-0000-000000"
15 SPUT 10,10:PRINT #1 "Menu: ";
16 ? #1 "(i) System info";
17 SPUT 10
18 ? #1 "      (v) View Messages";
19 SPUT 10
20 ? #1 "      (s) Send Message";
21 SPUT 10
22 '? #1 "     (d) Download Files"
23 SGET D:IF D=105 GOTO 29
24 IF D=115 GOTO 49
25 IF D=118 GOTO 60
26
27
28 IF D>0 GOTO 6
29 FOR B=0 TO 20:SPUT 10:NEXT
30 ? #1 "     System information"
31
32 ? #1 "Software: microBBS";
33 SPUT 10:PRINT #1 "Author  : KO";
34 ? #1 "S sv3ora@qrp.gr"
35 ? #1 "Hardware: ATMEGA644 ";
36 ? #1 "MCU,";:SPUT 10
37 ? #1 "          CB2 microc";
38 ? #1 "omputer"
39 ? #1 "Modem   : Supra Express ";
40 SPUT 10
41 ? #1 "          56e PRO";
42 SPUT 10:PRINT #1 "Speed   : ";
43 ? #1 "1200 Baud (set)"
44 ? #1 "Location: ";
45 ? #1 "Hellas, Patra city";
46 ? #1 "Since   : 2019"
47 ? #1 "      (any key) Back";
48 SGET D:IF D>0 GOTO 6
49 FOR E=0 TO 10:SPUT 10:NEXT
50 ? #1 "  Write short public MSG";
51 ? #1 "          (2 lines max!)"
52 ? #1 "       (#) Save MSG"
53 I=0:FOR F=0 TO 1999
54 G=EPEEK(F)
55 IF G=255 :I=F:GOTO 57
56 NEXT :? #1 "EOF":WAIT 20:GOTO 6
57 SGET H:IF H=35:EPOKE I,H:GOTO 6
58 IF H=8:I=I-1:EPOKE I,255:GOTO 57
59 EPOKE I,H:SPUT H:I=I+1:GOTO 57
60 FOR E=0 TO 20:SPUT 10:NEXT
61 J=100
62 ? #1 "       Read Messages"
63 ? #1 "  (any key) Next page";
64 SPUT 10:? #1 "        (x) Exit"
65 SPUT 10:FOR K=0 TO 1999
66 L=EPEEK(K)
67 IF L=35 :? #1 ""
68 IF L=255:? #1 "End of messages"
69 IF L=255:GOTO 72
70 SPUT L:IF K=J:GOTO 72
71 NEXT
72 J=J+100:SGET M:IF M=110:GOTO 74
73 IF M=120:GOTO 6
74 FOR E=0 TO 20:SPUT 10:NEXT
75 ? #1 "       Read Messages"
76 ? #1 "  (any key) Next page";
77 SPUT 10:? #1 "        (x) Exit"
78 NEXT