ssg

10 CALL &BBFF:CALL &BB4E:INK 1,26:INK 0,0:BORDER 0:MODE 2:ZONE 5:DIM ed$(500):PRINT"ASED The ASCII File Editor by Sedat Kapanoglu in
 1991"
30 LINE INPUT"ENTER filename to edit : ";filename$:IF filename$="" THEN 30 ELSE    FInd=INSTR(filename$,"."):IF find<1 THEN 30 ELSE 
IF LEN(MID$(filename$,1,find-1))>8 THEN PRINT"Too long filename...":GOTO 30
50 IF LEN(MID$(filename$,find+1))>3 THEN PRINT"Too long extension...":GOTO 30
60 PRINT"Do you edit a new file? (Y/N) "CHR$(143):keypressed$="":WHILE keypressed$<>"Y" AND keypressed$<>"N":keypressed$=UPPER$(INKE
Y$):WEND:readkey$=keypressed$
70 c=0:IF readkey$="N" THEN PRINT"Hit any key to load ...":CALL &BB18:OPENIN filename$:WHILE NOT EOF:INPUT #9,ed$(c):PRINT c,ed$(c):
c=c+1:WEND:CLOSEIN
80 PRINT C,:LINE INPUT ED$(C):IF ED$(C)<>"" THEN C=C+1:GOTO 80

ssg

10 CALL &BBFF:CALL &BB4E:INK 1,26:INK 0,0:BORDER 0:MODE 2:ZONE 5:DIM ed$(500):PRINT"ASED The ASCII File Editor by Sedat Kapanoglu in
 1991"
30 LINE INPUT"ENTER filename to edit : ";filename$:IF filename$="" THEN 30 ELSE    FInd=INSTR(filename$,"."):IF find<1 THEN 30 ELSE 
IF LEN(MID$(filename$,1,find-1))>8 THEN PRINT"Too long filename...":GOTO 30
50 IF LEN(MID$(filename$,find+1))>3 THEN PRINT"Too long extension...":GOTO 30
60 PRINT"Do you edit a new file? (Y/N) "CHR$(143):keypressed$="":WHILE keypressed$<>"Y" AND keypressed$<>"N":keypressed$=UPPER$(INKE
Y$):WEND:readkey$=keypressed$
70 c=0:IF readkey$="N" THEN PRINT"Hit any key to load ...":CALL &BB18:OPENIN filename$:WHILE NOT EOF:INPUT #9,ed$(c):PRINT c,ed$(c):
c=c+1:WEND:CLOSEIN
80 PRINT C,:LINE INPUT ED$(C):IF ED$(C)<>"" THEN C=C+1:GOTO 80

ssg

10 'Advanced System 1.0 - (c) Sedat K.
20 CALL &BC71:SPEED WRITE 1:TROFF:POKE &BDEE,201:A$=">,!h?@"+CHR$(0)+"M!<XF}2?I":C=1:FOR a%=350 TO 367:POKE a%,ASC(MID$(A$,C,1)):C=
C+1:NEXT:CALL &BBFF:CALL &BB4E:SYMBOL AFTER 256
30 BORDER 0
40 INK 0,0:INK 1,26:MODE 2
60 IF HIMEM=42619 THEN DISC=1
70 CALH=&15E:ex$="Exit    ":DEF FNCEN=10-LEN(BD$)/2:MEMORY &A3FF
80 RDST=&BF68:mot=0:npr$="/2E.I"
90 FOR N=44667 TO 44670 STEP 2:POKE N,&FF:POKE N+1,171:NEXT
100 DEF FNSYNTX(X)=PEEK(X)+256*PEEK(X+1):DEF FNSTART=FNSYNTX(49021)

ssg

1 TROFF:POKE &BDEE,201:INK 0,0:INK 1,0:BORDER 0:PAPER 0:PEN 1:MODE 1:LOCATE 14,12:PRINT"1991 Loading":SYMBOL AFTER 33:MEMORY &A507:I
NK 1,26:LOAD"!1991.bin":RUN"!"

ssg

1 '95350
10 BORDER 13:levelcount=0:MODE 1:x=320:y=ey:pt=0:TAG:FOR n=1 TO INT(RND*10)+5:rx=RND*640:ry=RND*400:IF pt=1 THEN DRAW rx,ry,3
11 PLOTR -4,4,2:PRINT"*";:pt=1:NEXT:TAGOFF
20 inx=RND*3:iny=RND*3:score=0:IF inx>=2 THEN inx=-1
25 IF iny>=2 THEN iny=-1
30 IF INKEY(0)=0 THEN iny=iny+levelcount ELSE IF INKEY(2)=0 THEN iny=iny-levelcount ELSE IF INKEY(8)=0 THEN inx=inx-levelcount ELSE 
IF INKEY(1)=0 THEN inx=inx+levelcount
70 PLOT x,y,t:x=x+inx:y=y+iny:t=TEST(x,y):IF T=0 THEN score=score+10 ELSE IF t=2 THEN 90 ELSE IF t=3 THEN score=score+100
75 IF x>640 OR x<0 OR y>400 OR y<0 THEN 90
80 PLOT EX,EY,1:PLOT x,y,1:levelcount=levelcount+0.001:GOTO 30

ssg

; "memories" by HellMood/DESiRE
; the tiny megademo, 256 byte msdos intro
; shown in April 2020 @ REVISION
;
;   (= WILL BE COMMENTED IN DETAIL LATER =)
;
; create : nasm.exe memories.asm -fbin -o memories.com
; CHOOSE YOUR TARGET PLATFORM (compo version is dosbox)
; be sure to use the dosbox.conf from this archive!
; only ONE of the defines should be active!

ssg

{ off-line reader & replier }

uses

AXEServ,Drivers,XStr,GView,Dos,Strings,TBlue,GDrivers,XTypes,XBuf,XStream,
XColl,Graph,XScroll,Objects,Exec,XIO,Tools;

type

  PArea = ^TArea;

ssg

# gondol.tcl - particularly quiz bot
# idea by teo - code by ssg

set users ""
set question ""
set qowner ""
set answers {}
set qtime 0
set stopping 0
set phase 0

ssg

uses XIO,Objects,XBuf;
const
  VOCHeader : string[8] = 'Creative';
  PCMHeader : string[8] = 'Compact ';
  bufsize = 65000;

  mdVOC = 0;
  mdPCM = 1;

  MaxMode = 1;

ssg

{ SSG/Mixer v1.00a - (c) 1995 SSG }

{$M $800,0,0}
uses Dos;

const

  sign = $4B53;

function Installed:boolean;assembler;