开发者用 Pascal 复刻 1980 年代 CompuServe 并搬上浏览器

初次访问本站？请使用下方的注册账号登录： 只是随便看看？请以访客身份登录浏览： 出于安全考虑，输入密码时屏幕上不会显示，CompuServe当年也是这样的行为。 你也可以用Telnet终端拨入，而不使用上方浏览器终端里的DIAL IN按钮： 新账号需要系统管理员（sysop）批准后才能登录，批准可能需要最多24小时。账号获批后，你会收到邮件通知。 这是对20世纪80年代CompuServe的可用重现，用Pascal编写，使用了散布在各网站上的历史资料（手册、CB Simulator的图片）。你通过网页浏览器拨号并连接到该服务。 我13岁那年，在Commodore VIC-20上开始使用CompuServe，当时配着Data 20 Z80 Video Pak运行CP/M，那是我用送报纸挣的钱买的。我在CB Simulator和论坛里花了很多时间，学习用Turbo Pascal写代码。我还用它和当时与Honeywell签约的姐夫通邮件。我花了很多时间在线学习。CompuServe就是我的图书馆，我热爱那种连接的感觉，直到账单越积越高。于是我换用了TAPCIS。这么多年过去，我仍然记得自己的User ID。 我开始重建这个项目，起因是我妻子想要一个像craigslist那样卖东西的网站，于是我搭建了后端数据库，并开始在控制台里编辑前端，然后意识到这和CompuServe很像，事情就这么开始了。我在业余时间断断续续地做这个项目，有家庭和全职工作，时间并不多，所以花了很多年。最近，我的代码在多会话线程方面出了问题，我用Claude-AI协助处理了其中一些部分，让这个项目跑了起来。 还有很多页面仍然是空的，因为它们需要的内容已经不存在了。许多CompuServe页面其实是其他公司的数据库、航班时刻表、股票行情和百科全书。那些公司及其数据源早已消失。目前可用的部分有CB、论坛、新闻、天气、EasyPlex、文件区，以及一些终端时代的基本策略游戏，大多来自CP/M Turbo Pascal。 我希望连接上来的用户能看到网络出现之前的样子，感受到当年的氛围。我总是对孩子们说，我成长的时候没有互联网，我们有CompuServe。那是什么，爸爸？ 文件管理 1 文件简要CATalog（目录） 2 文件详细DIRectory（目录） 3 CREATE或EDIt（创建或编辑）文件 4 TYPe（查看）文件内容 5 DELete（删除）文件 6 RENAme（重命名）文件 7 COPy（复制）文件 8 更改文件的PROTECtion（保护） 9 上传或下载文件 10 PRInt（打印）文件（$） 11 进入命令模式 文件！ 根据手册重建 所有手册都是通过翻查档案和许多网站找到的，然后下载并做了OCR。我找到了一份失落的宝藏，对这次构建帮助极大，那就是SYSOP手册。我尽量停留在那个时间段内，只移植那个时期的东西。我本可以加入不属于那个时期的其他内容，但那会让网站失去怀旧感，所以这是我尽量遵守的移植规则。我确实给一些游戏和安全功能加了颜色，CompuServe并没有实现这些，数据库里一切都是纯文本，所以用户数据和消息都是加密的。 忘记密码了？用你账号对应的邮箱地址给系统管理员发邮件申请重置。 通常在24小时内处理。请附上你的User ID。 如果你有手册、广告、截图、打印件，或任何能展示屏幕真实样子的东西，或者你用过CompuServe、记得各个板块是如何运作的，请联系我。请测试CB、邮件、论坛和其他区域，报告任何不准确之处。 访问是免费的，但维持服务器运行需要花钱，而且是我自掏腰包。如果可以，请支持一下。谢谢。 这是一个非商业性的历史保存项目，致力于让早期计算历史保持可访问。它与CompuServe名称的任何现在或以前的所有者均无关联、未获其背书，也无连接。“CompuServe”是其各自所有者的商标；页面代码、菜单措辞和屏幕仅为历史描述和教育保存目的而重现。访问免费，旨在展示该服务几十年前是如何运作的。 使用的字体：Roboto、Roboto Mono、Georgia和DECTERM。