epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler

File name: /tmp/phprgocGM (1504 bytes)
Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phprgocGM.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 C0 05 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)

Program: 0x0, size: 0x5c0 bytes.
  100 TEXT 40
  110 PRINT "     ■■■■■    ■■■   ■■  ■   ■ ■  ■■"
  120 PRINT "     ■■■■■    ■■■   ■■  ■   ■ ■  ■■"
  130 PRINT "       ■      ■  ■ ■  ■  ■■■    ■  "
  140 PRINT "       ■      ■  ■ ■  ■  ■■■    ■  "
  150 PRINT "       ■  ■■■ ■■■  ■  ■   ■      ■■"
  160 PRINT "       ■  ■■■ ■■■  ■  ■   ■      ■■"
  170 PRINT "       ■      ■  ■ ■  ■   ■        ■"
  180 PRINT "       ■      ■  ■ ■  ■   ■        ■"
  190 PRINT "       ■      ■■■■  ■■    ■     ■■■"
  200 PRINT 
  210 PRINT "         THE INTERRUPT RUTIN ON"
  220 PRINT :PRINT "        WRITE BY: K.System'S 1991 "
  230 OPEN #106:"dat.10"
  240 POKE 56,201
  250 POKE 49134,0:POKE 49133,0:CLEAR FONT
  260 FOR I=10240TO49000
  270   GET #106:A$
  280   IF A$=""THENEXIT FOR
  290   POKE I,ORD(A$)
  300 NEXT 
  310 CLOSE #106
  320 POKE 56,245
  330 SET 26,0
  340 POKE 49134,40
  350 SET CHARACTER32,128,64,32,16,8,4,2,1,1
  360 PRINT AT20,14:"PAPPER SCROLL!"
  370 GOSUB  390
  380 GOTO  500
  390 PRINT AT18,18:"RIGHT!"
  400 FOR I=0TO500
  410   IF INKEY$=" "THENRUN "COM.END"
  420 NEXT 
  430 PRINT AT18,18:"LEFT! "
  440 POKE 10840,7
  450 FOR I=0TO500
  460   IF INKEY$=" "THENRUN "COM.END"
  470 NEXT 
  480 POKE 10840,15
  490 RETURN 
  500 SET CHARACTER32,1,1,2,4,8,16,32,64,128
  510 GOSUB  390
  520 SET CHARACTER32,1,1,1,1,1,1,1,1,1
  530 GOSUB  390
  540 SET CHARACTER32,0,0,0,0,48
  550 GOSUB  390
  560 SET CHARACTER32,RND(255),RND(255),RND(255),RND(255),RND(255),RND(255),RND(255),RND(255),RND(255)
  570 GOSUB  390
  580 SET CHARACTER32,255,1,1,1,1,1,1,1,1
  590 GOSUB  390
  600 PRINT AT23,8:"PRESS SPACE TO CONTINUE!"
  610 GOTO  350

EXOS header pos/serial: #1 at 0x5d0
EXOS type/header: 0xa [00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: End of module


End of FILE parsing, because: End-of-module header got (type=10)