Fujiology Archive/fujiology_archive_v1_0.iso/!FALCON/CPU_LOVE/FUCKIPHZ.ZIP/FUCK/FUCKIPHZ.DAT/SOURCE/FUCKIPHZ.GFA

GFA-BASIC Atari | 1998-04-15 | 9KB | 720 lines

' *************************************
' * Fuck InterPHaZe! (C)1998 CPU LOVE *
' *************************************
' Made for your enjoyment
' Version 1.0 Beta
'
' BTW: This is the source (GFA 3.5 E)
'
' C Ya l8r!
'
'
'
CLS
FOR c#=7 TO 0 STEP -1
  SETCOLOR 0,c#,c#,c#
  PAUSE 2
NEXT c#
BLOAD "a:\fuckiphz.dat\intro.pi1",XBIOS(2)-34
VOID XBIOS(6,L:XBIOS(2)-32)
PAUSE 150
FOR p#=0 TO 15
  FOR c#=0 TO 7
    SETCOLOR p#,c#,c#,c#
    PAUSE 1
  NEXT c#
NEXT p#
CLS
FOR c#=7 TO 0 STEP -1
  SETCOLOR 0,c#,c#,c#
  PAUSE 1
NEXT c#
CLS
BLOAD "a:\fuckiphz.dat\presents.pi1",XBIOS(2)-34
VOID XBIOS(6,L:XBIOS(2)-32)
PAUSE 150
FOR p#=0 TO 15
  FOR c#=0 TO 7
    SETCOLOR p#,c#,c#,c#
    PAUSE 0.6
  NEXT c#
NEXT p#
CLS
FOR c#=7 TO 0 STEP -1
  SETCOLOR 0,c#,c#,c#
  PAUSE 1
NEXT c#
CLS
BLOAD "a:fuckiphz.dat\fuckiph6.pi1",XBIOS(2)-34
VOID XBIOS(6,L:XBIOS(2)-32)
PAUSE 150
FOR p#=0 TO 15
  FOR c#=0 TO 7
    SETCOLOR p#,c#,c#,c#
    PAUSE 0.6
  NEXT c#
NEXT p#
CLS
BLOAD "a:\fuckiphz.dat\picture.pi1",XBIOS(2)-34
VOID XBIOS(6,L:XBIOS(2)-32)
PAUSE 150
FOR p#=0 TO 15
  FOR c#=0 TO 7
    SETCOLOR p#,c#,c#,c#
    PAUSE 0.6
  NEXT c#
NEXT p#
CLS
SETCOLOR 15,0,0,0
DEFLINE 5,0,0,0
i#=1
x#=1
REPEAT
  x#=x#+1
  ADD i#,0.05
  x%=160+140*SIN(i#/3)
  y%=100+80*COS(i#/5)
  LINE 0,0,x%,y%
  LINE 319,0,x%,y%
  LINE 319,199,x%,y%
  LINE 0,199,x%,y%
UNTIL x#=1000
PAUSE 25
FOR c#=7 TO 0 STEP -1
  SETCOLOR 0,c#,c#,c#
  PAUSE 1
NEXT c#
CLS
PRINT
PRINT "                  ?;) Unlimited bobs ?;)"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "?;) Unlimited bobs ?;)"
SETCOLOR 15,7,0,7
SETCOLOR 14,0,7,7
i#=1
x#=1
REPEAT
  x#=x#+1
  ADD i#,0.25
  x%=160+140*SIN(i#/3)
  y%=100+80*COS(i#/5)
  COLOR 15
  CIRCLE x%,y%,4.5
  ADD i#,0.25
  x%=160+140*SIN(i#/3)
  y%=100+80*COS(i#/5)
  COLOR 14
  CIRCLE x%,y%,4.5
UNTIL x#=400
PAUSE 25
FOR p#=1 TO 15
  FOR c#=7 TO 0 STEP -1
    SETCOLOR p#,c#,c#,c#
    PAUSE 1
  NEXT c#
NEXT p#
CLS
FOR p#=0 TO 15
  FOR c#=7 TO 0 STEP -1
    SETCOLOR p#,c#,c#,c#
    PAUSE 1
  NEXT c#
NEXT p#
CLS
SETCOLOR 15,7,7,7
x#=1
REPEAT
  x#=x#+1
  ADD i#,0.25
  x%=160+140*SIN(i#/3)
  y%=100+80*COS(i#/5)
  COLOR 14
  PCIRCLE x%,y%,4.5
  ADD i#,0.25
  x%=160+140*SIN(i#/3)
  y%=100+80*COS(i#/5)
  COLOR 13
  PCIRCLE x%,y%,4.5
UNTIL x#=250
FOR x#=7 TO 0 STEP -1
  SETCOLOR 15,x#,x#,x#
  PAUSE 1
NEXT x#
CLS
SETCOLOR 14,7,0,7
COLOR 14
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "         o   O    .       O"
PRINT "                      o       ."
PRINT "   O                     "
PRINT "      .      o           "
PRINT " o               O     . "
COLOR 15
PRINT
PRINT "    ------------------------------- "
PRINT "  < Wait while loading RAVE part!!! >"
PRINT "    ------------------------------- "
FOR c#=0 TO 7
  SETCOLOR 15,c#,c#,c#
  PAUSE 1
NEXT c#
PAUSE 150
FOR c#=7 TO 0 STEP -1
  SETCOLOR 15,c#,c#,c#
  SETCOLOR 14,c#,0,c#
  PAUSE 1
NEXT c#
CLS
BLOAD "a:\fuckiphz.dat\modplayr.pi1",XBIOS(2)-34
VOID XBIOS(6,L:XBIOS(2)-32)
DIM replay_buff%(36000),module_buff%(108000)
replay_pet%=VARPTR(replay_buff%(0))
module_pet%=VARPTR(module_buff%(0))
BLOAD "a:\fuckiphz.dat\trackere.rot",replay_pet%
BLOAD "a:\fuckiphz.dat\fuck.mod",module_pet%
replay_pet%=replay_pet%+&H1C
LPOKE replay_pet%,module_pet%
replay_pet%=replay_pet%+12
CALL replay_pet%
SETCOLOR 15,1,3,5
SETCOLOR 0,0,0,0
DEFTEXT 2
CLS
i#=1
g#=0
k#=0
REPEAT
  ADD i#,0.5
  x#=160+140*COS(i#/5)
  y#=100+80*SIN(i#/3)
  PCIRCLE x#,y#,4
  k#=k#+1
  g#=g#+1
  IF k#=7
    CLS
    text
    k
  ENDIF
UNTIL g#=900
CLS
SETCOLOR 0,0,0,0
SETCOLOR 15,0,7,7
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "e"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "Ze"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "aZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "HaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "PHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "rPHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "erPHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "terPHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "nterPHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "InterPHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT " InterPHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "k InterPHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "ck InterPHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "uck InterPHaZe"
PAUSE 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "Fuck InterPHaZe"
PAUSE 1
CLS
FOR t#=0 TO 24
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT TAB(t#);"Fuck InterPHaZe"
  PAUSE 1
  CLS
NEXT t#
FOR t#=24 TO 0 STEP -1
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT TAB(t#);"Fuck InterPHaZe"
  PAUSE 1
  CLS
NEXT t#
FOR t#=0 TO 24
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT TAB(t#);"Fuck InterPHaZe"
  PAUSE 1
  CLS
NEXT t#
FOR t#=24 TO 0 STEP -1
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT TAB(t#);"Fuck InterPHaZe"
  PAUSE 1
  CLS
NEXT t#
FOR t#=0 TO 24
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT TAB(t#);"Fuck InterPHaZe"
  PAUSE 1
  CLS
NEXT t#
FOR t#=24 TO 0 STEP -1
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT TAB(t#);"Fuck InterPHaZe"
  PAUSE 1
  CLS
NEXT t#
FOR t#=0 TO 11
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT TAB(t#);"Fuck InterPHaZe"
  PAUSE 1
  CLS
NEXT t#
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB(12);"Fuck InterPHaZe"
i#=1
k#=0
g#=0
REPEAT
  g#=g#+1
  k#=k#+1
  ADD i#,0.05
  x#=160+140*SIN(i#)
  y#=100+80*COS(i#)
  PCIRCLE x#,y#,3
  ADD i#,0.05
  a#=160+120*SIN(-i#+5)
  b#=100+60*COS(-i#+3)
  PCIRCLE a#,b#,3
  IF k#=5
    CLS
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT TAB(12);"Fuck InterPHaZe"
    k#=0
  ENDIF
UNTIL g#=512
FOR c#=7 TO 0 STEP -1
  SETCOLOR 15,0,c#,c#
  PAUSE 1
NEXT c#
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT ;TAB(15);"CPU love™"
PRINT
PRINT TAB(10);"Was Proud to Present"
PAUSE 50
FOR c#=0 TO 7
  SETCOLOR 15,c#,c#,c#
  PAUSE 1
NEXT c#
PAUSE 100
FOR c#=7 TO 0 STEP -1
  SETCOLOR 15,c#,c#,c#
  PAUSE 1
NEXT c#
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB(6);"The Fuck InterPHaZe Demo..."
PAUSE 50
FOR c#=0 TO 7
  SETCOLOR 15,c#,c#,c#
  PAUSE 1
NEXT c#
PAUSE 100
FOR c#=7 TO 0 STEP -1
  SETCOLOR 15,c#,c#,c#
  PAUSE 1
NEXT c#
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB(12);"But now it is..."
PAUSE 50
FOR c#=0 TO 7
  SETCOLOR 15,c#,c#,c#
  PAUSE 1
NEXT c#
PAUSE 100
FOR c#=7 TO 0 STEP -1
  SETCOLOR 15,c#,c#,c#
  PAUSE 1
NEXT c#
CLS
BLOAD "a:\fuckiphz.dat\theend.pi1",XBIOS(2)-34
VOID XBIOS(6,L:XBIOS(2)-32)
VOID INP(2)
FOR p#=0 TO 15
  FOR c#=0 TO 7
    SETCOLOR p#,c#,c#,c#
    PAUSE 1
  NEXT c#
NEXT p#
PROCEDURE k
  k#=0
RETURN
PROCEDURE text
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT
  PRINT "    REAL bobs... Well, Almost ....."
RETURN