RosettaCodeData/Task/Halt-and-catch-fire/Applesoft-BASIC/halt-and-catch-fire.basic
2023-07-01 13:44:08 -04:00

1 line
141 B
Text

HCF$ = CHR$ (184) + "P" + CHR$ (254): CALL PEEK ( PEEK (131) + PEEK (132) * 256 + 1) + PEEK ( PEEK (131) + PEEK (132) * 256 + 2) * 256