10 PROGRAM "Loritolt.bas"
   20 REM KEYSOFT - 1989.02.25
   30 ALLOCATE 73
   40 CODE TIPUS=HEX$("3e,6a,11,00,00,f7,01,3e,6a,01,0d,00,11,80,3e,f7,06,c9")
   50 CODE LOADER=HEX$("f3,db,b1,f5,db,b2,f5,db,b3,f5,fb,3e,78,06,03,f7,0b,f3,3e,ff,d3,b3,3d,d3,b2")
   60 CODE =HEX$("3d,d3,b1,fb,c5,d1,ed,4b,00,00,3e,6a,f7,06,3e,6a,f7,03")
   70 CODE =HEX$("f3,f1,d3,b3,f1,d3,b2,f1,d3,b1,fb,c9")
   80 NUMERIC ADATOK(12)
   90 POKE 0,5
  100 POKE 1,76
  110 POKE 2,79
  120 POKE 3,82
  130 POKE 4,73
  140 POKE 5,51
  150 CALL USR(TIPUS,0)
  160 LET TAR=16000
  170 FOR I=0TO12
  180   LET ADATOK(I)=PEEK(TAR)
  190   LET TAR=TAR+1
  200 NEXT 
  210 SET VIDEOMODEADATOK(0)
  220 SET VIDEOCOLORADATOK(1)
  230 SET VIDEOXADATOK(2)
  240 SET VIDEOYADATOK(3)
  250 OPEN #120:"video:"
  260 SET #120:PALETTEADATOK(4),ADATOK(5),ADATOK(6),ADATOK(7),ADATOK(8),ADATOK(9),ADATOK(10),ADATOK(11)
  270 SET #120:BIASADATOK(12)
  280 DISPLAY #120:FROM1AT1TOADATOK(3)
  290 LET RAM=ADATOK(2)*ADATOK(3)*18
  300 IF ADATOK(0)=4THENLET RAM=RAM/2
  310 LET HIGHB=INT(RAM/256)
  320 LET LOWB=RAM-256*INT(RAM/256)
  330 POKE 0,LOWB
  340 POKE 1,HIGHB
  350 CALL USR(LOADER,0)
  360 RUN "Program"