Inizializza:
   DECLARE SUB Fading (Delay AS INTEGER)
   DECLARE SUB Absolute (Segment AS INTEGER, OffSet AS INTEGER, Address AS INTEGER)
   ON ERROR GOTO Check
   Fading 250
   SCREEN 12: SOUND 6000, 5: DIM BL%(38)
   File$ = "Session.Sav"
   OPEN File$ FOR INPUT AS #1: CLOSE
   DEF SEG = VARSEG(BL%(0))
   FOR I% = 0 TO 75
      READ Byte$
      POKE VARPTR(BL%(0)) + I%, VAL("&H" + Byte$)
   NEXT
   Absolute SSEG(File$), SADD(File$), VARPTR(BL%(0))
   DEF SEG

Back:
   Wait$ = INPUT$(1)
   Fading 250
   END

Check:
   LOCATE 15, 26: COLOR 10: PRINT "File SESSION.SAV non trovato!"
   RESUME Back

LoadImage:
   DATA 55, 8B, EC, 57, 56, 1E, B8, 00, A0, 8E, C0, 8B, 76, 06, 8B, 14
   DATA 8B, 76, 08, 8B, 04, 8E, D8, B4, 3D, B0, 00, CD, 21, 8B, F0, 06
   DATA 1F, BF, 03, 00, BA, C4, 03, 8B, CF, B4, 01, D2, E4, B0, 02, EF
   DATA B9, 00, 96, 8B, DE, BA, 00, 00, B4, 3F, CD, 21, 4F, 79, E5, B4
   DATA 3E, 8B, DE, CD, 21, 1F, 5E, 5F, 5D, CA, 02, 00

SUB Fading (Delay AS INTEGER)
   
   DIM Temp(1 TO 3) AS INTEGER
   FOR I% = 1 TO 64
      FOR J% = 0 TO 255
         FOR K% = 1 TO Delay%: NEXT
         OUT &H3C7, J%
         FOR K% = 1 TO 3
            Temp%(K%) = INP(&H3C9)
            IF Temp%(K%) > 0 THEN Temp%(K%) = Temp%(K%) - 1
         NEXT
         OUT &H3C8, J%
         FOR K% = 1 TO 3
            OUT &H3C9, Temp%(K%)
         NEXT
      NEXT
   NEXT

END SUB