APPLE II アイデンティティ危機

投稿者:  APPLE 日付:  2024年3月19日いい ね5件 閲覧 1041 件

Lee Fastenau によるこの 2 行のプログラムは、Apple II コンピュータに少々の複雑さと、彼の言うところのアイデンティティ クライシスをもたらすことは間違いありません。

0A$="2D40D030F0602@209010@0109010@0109010@010B0103020203010B0103020203010<010707010<010707010<0106170109010@010?01040305010<0105360109010@0109010@010602@2030F030F030F030F09011952030F030F030F030F01F40D040D040D01F":P=1:HGR2

1HCOLOR=6:HPLOT0,0:CALL-3082:FORY=31TO62:C=4:I=ASC(MID$(A$,P,1))-48:J=INT(I/3):X=114+(I-J*3)*2:FORM=PTOP+J*2:HCOLOR=C:C=11-C:S=2*(ASC(MID$(A$,M+1,1))-47):HPLOTX,Y*2TOX+S-1,Y*2:HPLOTX,Y*2+1TOX+S-1,Y*2+1:X=X+S:P=P+1:NEXT:P=P+1:NEXT