scene.org File Archive

<root>­/­parties­/­2025­/­outline25­/­demo_oldskool/zetters-2.zip

Preview

file_id.diz

10  DEFINT A-Z
14 BLOAD"basic.bin",R
15 CALL MBMLOAD("burp.mbm")
20  KEY1,"SCREEN0"+CHR$(13)
30 SCREEN 1:WIDTH 3:CLS:KEYOFF:COLOR 15,0,0
50 BLOAD"DEMOM.sc1",R:A=USR(1)
97 CALL MBPLAY
98 BASE(14)=BASE(7)
99 POKE &HF3B1,25
100 A$="GREETINGS.PPL.OF.OVTLINE.. ZETT.DARKSTONE.HERE.. PURE.BASIC.CODE.INTRO. MADE.ON.A.REAL.MSX. THANKS.TO.TSJAKOE..  GREETINGS.TO.OVTERHEAVEN.DISCORD.DVDES.AND.. NO.MORE.OTHER.TXT.. . ..FART..       "
110 C=LEN(A$)
111 A=USR(2)
115 TIME=0
120 FOR W=1TOC
130  B$=MID$(A$,W,1)
140 D=ASC(B$)
150 IF D=32 THEN GOSUB 300:GOTO 240
155 IF D=58 THEN D=36:GOTO 170
157 IF D=46 THEN D=37:GOTO 170
160 IF D>64 THEN D=D-65 ELSE IF D>48 THEN D=D-23 ELSE D=35
170 DX=(D\10)*3*32 + (D MOD 10)*3
190 FOR Y=0TO2:FOR X=0TO2
200 VPOKE 6927+X, PEEK(&HBC00+DX+X)
210 NEXT X
215 DX=DX+32
220 GOSUB 300
222 Z=RND(1)*255:V=RND(1)*191:PUT SPRITE 0,(Z,V),15,0
230 NEXT Y
240 NEXT W
250 GOTO 100
300 LOCATE 0,0:PRINTCHR$(27)+CHR$(77)
305 IF TIME<5 THEN GOTO 305 ELSE TIME=0
310 RETURN