しょうもなプログラム – PC-8201で当時の広告を再現する!

2026/1/5 RetroPC NEWS編集部

実機を手に入れた後、雑誌広告に映っていたあの画面を自分のパソコンでも再現したいと思ったことはありませんか？笑

しょうもなプログラムコーナーでは、そんな非実用的なプログラムを大公開します!!

第一弾はPC-8201の広告です

(画像出典 工学社 I/O 1983/4)

画面を拡大したのがこちら。売上表です。PC-9801、PC-8801、PC-8201、PC-8201、PC-6001、PC-2001の売り上げがグラフになっています。商品名が我々の心をくすぐりますね！

(画像出典 工学社 I/O 1983/4)

再現しました

それっぽく再現できました!!

プログラムリスト

100 clear 256,50000
110 poke 50000,249
120 poke 50001,169
130 poke 50002,175
140 poke 50003,169
150 poke 50004,249
160 poke 50005,0

170 poke 50006,65
180 poke 50007,33
190 poke 50008,159
200 poke 50009,73
210 poke 50010,41
220 poke 50011,25

230 poke 50012,0
240 poke 50013,255
250 poke 50014,9
260 poke 50015,15
270 poke 50016,9
280 poke 50017,255

290 poke 65216,195
300 poke 65215,80

1000 cls
1010 screen 0,0
1020 print " ** ｳﾘｱｹ" ; chr$(222) ; "ﾋｮｳ **   0       5       10 ";CHR$(131);CHR$(132);CHR$(133);
1030 print "ﾋﾝﾒｲ       ﾀﾝｶ ｶｽ"; chr$(222)
1040 print "PC-9801    2980 21"
1050 print "PC-8801    2280 45"
1060 print "PC-8201    1380 62"
1070 print "PC-8001mk2 1230 36"
1080 print "PC-6001     898 19"
1090 print "PC-2001     598 15";
1100 for x=110 to 230
1110 pset(x,12)
1120 next
1130 for y=10 to 63
1140 pset(110,y)
1150 next
1160 for x=120 to 230 step 10
1170 pset(x,10)
1180 pset(x,11)
1190 next
1200 v=29.8*21/10+110 : y=16
1210 for x=110 to v
1220 pset(x,y): pset(x,y+1): pset(x,y+2): pset(x,y+3): pset(x,y+4): pset(x,y+6)
1230 next x
1240 pset(v+1,y+6): pset(v+2,y+6) 
1250 pset(v+2,y+2): pset(v+2,y+3): pset(v+2,y+4): pset(v+2,y+5)
1260 pset(v+1,y+1): pset(v+1,y+5)

1300 v=22.8*45/10+110 : y=24
1310 for x=110 to v
1320 pset(x,y): pset(x,y+1): pset(x,y+2): pset(x,y+3): pset(x,y+4): pset(x,y+6)
1330 next x
1340 pset(v+1,y+6): pset(v+2,y+6) 
1350 pset(v+2,y+2): pset(v+2,y+3): pset(v+2,y+4): pset(v+2,y+5)
1360 pset(v+1,y+1): pset(v+1,y+5)

1400 v=13.8*62/10+110 : y=32
1410 for x=110 to v
1420 pset(x,y): pset(x,y+1): pset(x,y+2): pset(x,y+3): pset(x,y+4): pset(x,y+6)
1430 next x
1440 pset(v+1,y+6): pset(v+2,y+6) 
1450 pset(v+2,y+2): pset(v+2,y+3): pset(v+2,y+4): pset(v+2,y+5)
1460 pset(v+1,y+1): pset(v+1,y+5)

1500 v=12.3*36/10+110 : y=40
1510 for x=110 to v
1520 pset(x,y): pset(x,y+1): pset(x,y+2): pset(x,y+3): pset(x,y+4): pset(x,y+6)
1530 next x
1540 pset(v+1,y+6): pset(v+2,y+6) 
1550 pset(v+2,y+2): pset(v+2,y+3): pset(v+2,y+4): pset(v+2,y+5)
1560 pset(v+1,y+1): pset(v+1,y+5)

1600 v=8.98*19/10+110 : y=48
1610 for x=110 to v
1620 pset(x,y): pset(x,y+1): pset(x,y+2): pset(x,y+3): pset(x,y+4): pset(x,y+6)
1630 next x
1640 pset(v+1,y+6): pset(v+2,y+6) 
1650 pset(v+2,y+2): pset(v+2,y+3): pset(v+2,y+4): pset(v+2,y+5)
1660 pset(v+1,y+1): pset(v+1,y+5)

1700 v=5.98*15/10+110 : y=56
1710 for x=110 to v
1720 pset(x,y): pset(x,y+1): pset(x,y+2): pset(x,y+3): pset(x,y+4): pset(x,y+6)
1730 next x
1740 pset(v+1,y+6): pset(v+2,y+6) 
1750 pset(v+2,y+2): pset(v+2,y+3): pset(v+2,y+4): pset(v+2,y+5)
1760 pset(v+1,y+1): pset(v+1,y+5)
2000 goto 2000

NEC PC-8201とは

NEC PC-8201は、1983年にNEC（日本電気）から発売された、モバイルコンピューティングの先駆けともいえる「ハンドヘルドコンピュータ」です。

当時のモバイルマシンとしては非常に完成度が高く、今でもレトロPCファンの間で根強い人気があります。

基本スペックと特徴

最大の特徴は、A4サイズほどのコンパクトなボディに、しっかりとしたフルキーボードを搭載している点です。

なぜ今でも語り継がれるのか？

• 「書く」ための究極の道具:電源を入れた瞬間にエディタ（TEXT）やBASICが立ち上がり、すぐに文字入力が可能です。乾電池で長時間動くため、当時のライターやジャーナリストが「外で原稿を書くためのマシン」として愛用しました。
• 優れたデザイン:当時のパソコンとしては珍しく、「アイボリーホワイト」のほかに「ワインレッド（赤）」「シルバー」のカラーバリエーションが存在しました。シルバーグレーが主流だった時代において、非常にスタイリッシュな存在でした。
• 共同開発の系譜:このマシンは、京セラが設計し、NEC、米Tandy（TRS-80 Model 100）、伊Olivetti（M10）などがそれぞれのブランドで販売した兄弟機が存在します。この設計には、当時マイクロソフトにいた西和彦氏も深く関わっており、内蔵のBASIC（N82-BASIC）もマイクロソフト製です。

3. 注意点

名前に「PC-8201」とありますが、当時の大ヒット機であるPC-8001やPC-8801シリーズとは互換性がほとんどありません。BASICの命令セットに共通点はありますが、グラフィック機能などが異なるため、ソフトをそのまま動かすことはできませんでした。