第１回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ

3 ：大学生ＭＳＸユーザ：01/12/20 21:16.net

使用機種：ＭＳＸ（多分全機種ＯＫ）
タイトル：ＢＡＳＩＣで自己書き換え

10 DATA "0023800A00A0200F1C3A822049EF1220"
20 DATA "D9200F643A9122B5CFB4D3C52D20223B"
30 DATA "3A83000000"
40 AD=32767:FORI=1TO3:READ A$
50 FOR J=1 TO LEN(A$)/2
60 POKE AD+J,VAL("&H"+MID$(A$,J*2-1,2))
70 NEXT:AD=AD+16:NEXT:RUN