mirror of
https://github.com/historicalsource/journey
synced 2024-04-24 13:09:36 +03:00
40 lines
575 B
Plaintext
40 lines
575 B
Plaintext
|
|
.SEGMENT "0"
|
|
|
|
|
|
.FUNCT TELL-GAME-ID:ANY:0:0,CNT
|
|
SET 'CNT,17
|
|
PICINF 0,PICINF-TBL /?BOGUS1
|
|
?BOGUS1: PRINTI "Release "
|
|
GET 0,1
|
|
BAND STACK,2047
|
|
PRINTN STACK
|
|
PRINTI " / Graphics "
|
|
GET PICINF-TBL,1
|
|
PRINTN STACK
|
|
PRINTI " / Serial number "
|
|
?PRG2: IGRTR? 'CNT,23 /?REP3
|
|
GETB 0,CNT
|
|
PRINTC STACK
|
|
JUMP ?PRG2
|
|
?REP3: PRINTI " / "
|
|
GETB 0,30
|
|
GET MACHINES,STACK
|
|
PRINT STACK
|
|
PRINTI " Interpreter version "
|
|
GETB 0,0
|
|
PRINTN STACK
|
|
PRINTC 46
|
|
GETB 0,31
|
|
PRINTN STACK
|
|
RTRUE
|
|
|
|
|
|
.FUNCT APPLE2?:ANY:0:0
|
|
EQUAL? INTERPRETER,INT-2E,INT-2C,INT-2GS /TRUE
|
|
RFALSE
|
|
|
|
.ENDSEG
|
|
|
|
.ENDI
|