10 REM GreenCursor.com
    20 PRINT CHR$(7)
    30 HOME
    40 PRINT "GreenCursor.com"
    50 PRINT
    60 PRINT "1) About"
    70 PRINT "2) Contact"
    80 PRINT "3) Quit"
    90 PRINT
    100 INPUT "]"; OPTION
    110 IF OPTION = 1 THEN GOSUB 200
    120 IF OPTION = 2 THEN GOSUB 400
    130 IF OPTION = 3 THEN 500
    140 GOTO 30
    200 HOME : PRINT "GreenCursor.com" : PRINT "ABOUT"
    205 PRINT
    210 PRINT "Boutique software consulting agency"
    230 PRINT "with expertise in web, mobile, IoT,"
    240 PRINT "and crypto asset technologies."
    245 PRINT
    250 PRINT "SaaS strategist with experience"
    260 PRINT "deploying solutions to Europe, Japan"
    270 PRINT "and the United States."
    280 PRINT : PRINT "PRESS ANY KEY TO CONTINUE" : GET K$
    290 RETURN
    400 HOME : PRINT "GreenCursor.com" : PRINT "CONTACT"
    405 PRINT
    410 PRINT "Boston and Tokyo"
    415 PRINT
    420 PRINT "ping@greencursor.com"
    430 PRINT : PRINT "PRESS ANY KEY TO CONTINUE" : GET K$
    450 RETURN
    500 END