home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / dba / dba_05b.arj / dba_05b.msa / OMIKRON / OKIKRON0.LST next >
File List  |  1985-11-20  |  2KB  |  94 lines
  1.  CLEAR 400000,10240
  2.  POKE $FF820A,2
  3.  IPL 7
  4.  A= MEMORY(339455)
  5.  A=A+255
  6.  A=A AND $FFFF00
  7.  B=A
  8.  A=A+32000
  9.  PRINT "f"
  10.  CLS
  11.  PALETTE 7,$660,$700,$701,$702,$703,$704,$705,$706,$707,$710,$720,$730,$740,$750,0
  12.  XBIOS (,5,L B,L -1,0)
  13.  TEXT COLOR =2
  14.  TEXT HEIGHT =4
  15.  TEXT STYLE =O
  16.  FOR D=1 TO 25
  17.   FOR C=0 TO 19
  18.     TEXT C*16+4,D*8-2,""
  19.   NEXT C
  20.  NEXT D
  21.  MODE =2
  22.  TEXT HEIGHT =31
  23.  FOR D=1 TO 6
  24.   FOR C=0 TO 19
  25.     TEXT STYLE =1
  26.     TEXT COLOR =1
  27.     TEXT C*16,D*32-5, CHR$(C+20*D+12)
  28.     TEXT STYLE =0
  29.     TEXT COLOR = RND(13)+3
  30.     TEXT C*16,D*32-5, CHR$(C+20*D+12)
  31.   NEXT C
  32.  NEXT D
  33.  DIM E(16)
  34.  DIM F(16)
  35.  FOR C=0 TO 16
  36.   F(C)=A+C*19200
  37.   E(C)=F(C)+13758
  38.  NEXT C
  39.  A=F(15)+32000
  40.  G=A+10240
  41.  SWAP F(16),F(0)
  42.  XBIOS (,5,L A,L -1,-1)
  43.  TEXT COLOR =2
  44.  TEXT HEIGHT =6
  45.  TEXT 0,6,"TOS"
  46.  BITBLT 0,0,24,8 TO G
  47.  PRINT @(0,0);" ";
  48.  H$="Hi everybody. This is a little fucky scroll-message, I don't want"
  49.  H$=H$+" to type any more. CU, Mr Ni! says Bye. Now here's the font: "
  50.  FOR C=32 TO 152
  51.   H$=H$+ CHR$(C)
  52.  NEXT C
  53.  DIM I( LEN(H$)+1)
  54.  FOR C=1 TO LEN(H$)
  55.   I(C)= ASC( MID$(H$,C,1))-32
  56.  NEXT C
  57.  FOR C=1 TO LEN(H$)
  58.   D=I(C)
  59.   Z=D\20
  60.   D=(D MOD 20)*8+Z*5120
  61.   I(C)=D+B
  62.  NEXT C
  63.  J%=148
  64.  K%=72
  65.  L!=0
  66.  M!=0
  67.  REPEAT
  68.   L%= LEN(H$)-1
  69.   FOR X%=1 TO L%
  70.     FOR O%=0 TO 4800 STEP 160
  71.       MEMORY_MOVE I(X%)+O%+160,8 TO A+8+O%
  72.     NEXT O%
  73.     FOR P%=0 TO 15
  74.       WVBL
  75.       XBIOS (,5,L A,L F(P%+1),-1)
  76.       MEMORY_MOVE E(P%)+8,4800 TO E(P%)
  77.       FOR O%=160 TO 4800 STEP 160
  78.         MEMORY_MOVE A+O%,8 TO E(P%)-6+O%
  79.       NEXT O%
  80.       BITBLT 1,1,31,32 TO 0,1,31,32
  81.       XBIOS (,5,L F(P%),L -1,-1)
  82.       L!=L!+.01
  83.       M!=M!+.02212323
  84.       BITBLT G TO 148+148* SIN(L!),36+36* COS(M!),24,8
  85.       IF P%=1 THEN
  86.         XBIOS (,5,L F(16),L -1,-1)
  87.         BITBLT G TO 148+148* SIN(L!-.01),36+36* COS(M!-.02),24,8
  88.       ENDIF
  89.     NEXT P%
  90.   NEXT X%
  91.  UNTIL 0
  92.  END
  93.  
  94.