10 REM ===================================================
20 REM SCREEN 3: RETROBBS NETWORK / NODE DIRECTORY
30 REM 40X25 COMMODORE PETSCII BROWSER
40 REM ===================================================
50 CLS : COLOR 5, 0
60 LOCATE 1, 2  : PRINT "● RETROBBS ONLINE NODE DIRECTORY ●"
70 COLOR 13, 0
80 LOCATE 2, 2  : PRINT "══════════════════════════════════════"
90 COLOR 7, 0
100 LOCATE 4, 1  : PRINT "NODE BBS NAME            PLATFORM  BAUD"
110 COLOR 11, 0
120 LOCATE 5, 1  : PRINT "──── ─────────────────── ────────  ────"
130 REM --- NODE LISTINGS ---
140 COLOR 1, 0
150 LOCATE 7, 1  : PRINT "#000 SYSOP PRIME (ROOT)  C64/PET   2400"
160 COLOR 14, 0
170 LOCATE 9, 1  : PRINT "#001 AMIGA HAVEN         A500/AMI  9600"
180 COLOR 7, 0
190 LOCATE 11, 1 : PRINT "#002 ATARI 8-BIT SANCTUM 800XL/AT  1200"
200 COLOR 3, 0
210 LOCATE 13, 1 : PRINT "#003 DOS RUNNERS IBM     PC/XT-437 2400"
220 COLOR 13, 0
230 LOCATE 15, 1 : PRINT "#004 CYBERPUNK COMMODORE C128/PET  1200"
240 COLOR 10, 0
250 LOCATE 17, 1 : PRINT "#005 CRACKERS RETREAT    C64/PET   300 "
260 COLOR 11, 0
270 LOCATE 19, 1 : PRINT "───────────────────────────────────────"
280 COLOR 12, 0
290 LOCATE 21, 1 : PRINT "◀ [P]REV PAGE       ▲ [TOP]      [N]EXT ▶"
300 LOCATE 22, 1 : PRINT "  [#] HOP TO NODE   [Q] QUIT TO MAIN"
310 COLOR 7, 0
320 LOCATE 24, 2 : PRINT "NODE COMMAND OR NUMBER > ";
330 REM --- GET INPUT ---
340 GET#2, K$ : IF K$ = "" THEN 340
350 IF K$ = "Q" OR K$ = "q" THEN 390
360 IF K$ = "0" THEN 400
370 IF K$ = "1" THEN 410
380 GOTO 340
390 CLS : PRINT "RETURNING TO MAIN MENU..." : GOTO 10
400 CLS : COLOR 1, 0 : PRINT "CONNECTING TO NODE #000..." : END
410 CLS : COLOR 1, 0 : PRINT "SWITCHING DIALER TO NODE #001..." : END