home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 162
/
Tiger_Disk_162_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
lametro
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
76 lines
10 dimx$(15),l$(6),t$(6)
20 l$(1)="[176][174] [176][195][195][174] [176][195][195][195][195][174] [176][195][195][174]"
30 l$(2)="[194][194] [194][176][174][194] [194][176][174][176][174][194] [194][176][195][189]"
40 l$(3)="[194][194] [194][173][189][194] [194][194][194][194][194][194] [194][173][195][174]"
50 l$(4)="[194][194] [194][213][201][194] [194][194][194][194][194][194] [194][213][195][203]"
60 l$(5)="[194][173][195][174][194][194][194][194] [194][194][202][203][194][194] [194][173][195][174]"
70 l$(6)="[173][195][195][189][173][189][173][189] [173][189] [173][189] [173][195][195][189]"
80 t$(1)="[176][174][176][174][176][174] [176][195][195][174] [176][195][195][174] [176][195][195][174]"
90 t$(2)="[194][194][194][171][189][194] [173][174][176][189] [194] [194] [194][176][174][194]"
100 t$(3)="[194][194][194][194] [194] [194][194] [194] [176][189] [194][194][194][194]"
110 t$(4)="[194][194][194] [194][194] [194][194] [194] [173][174] [194][194][194][194]"
120 t$(5)="[194][194][194][176][179][194] [194][194] [194][176][174][194] [194][173][189][194]"
130 t$(6)="[173][189][173][189][173][189] [173][189] [173][189][173][189] [173][195][195][189]"
140 poke53280,0:poke53281,0:print"[147]"
150 x$(0)= "[213][195][195][201] [213][195][195][201] [213][195][195][201] [213][201] [213][195][201][213][201]"
160 x$(1)= "[194]. [194] [194]. [194] [194][213][201][194] [194][194] [194] [194][194][194]"
170 x$(2)= "[194] [213][203] [194] [213][203] [194][202][203][194] [194][194] [194][194][194][194][194]"
180 x$(3)= "[194] [202][201] [194] [202][201] [194][213][201][194] [194][194] [194][194][194][194][194]"
190 x$(4)= "[194] .[194] [194][213][201][194] [194][194][194][194][160][194][194] [194][194][194] [194]"
200 x$(5)= "[202][195][195][203] [202][203][202][203] [202][203][202][203] [202][203] [202][203][202][195][203]"
210 x$(7)= "[213][195][195][201] [213][195][195][201] [213][195][195][201] [213][195][195][201] [213][201][213][201]"
220 x$(8)= "[194][213][201][194][160][194][213][195][203] [194][213][201][194][160][202][201][213][203] [194][194][194][194]"
230 x$(9)= "[194][194][217][217] [194][202][195][201] [194][202][203][194] [194][194] [194][202][203][194]"
240 x$(10)="[194][194][217][217] [194][213][195][203] [194][213][201][194][160][160][194][194][160][160][194][213][201][194]"
250 x$(11)="[194][202][203][194][160][194][202][195][201] [194][194][194][194] [194][194] [194][194][194][194]"
260 x$(12)="[202][195][195][203] [202][195][195][203] [202][203][202][203] [202][203] [202][203][202][203]"
270 fori=0to14step2
280 poke214,i+3:poke211,9:sys58640
290 print"[129]"x$(i)
300 poke214,i+1+3:poke211,9:sys58640:ifi=14 then goto320
310 print"[149]"x$(i+1)
320 next
330 poke214,20:poke211,5:sys58640
340 print"[153]is really not proud to present"
350 fori=1to38
360 poke214,22:poke211,i:sys58640:poke646,int(rnd(1)*14)+1:print"[209]":forii=1to170:nextii
370 nexti
380 print"[147]":poke53281,0
390 fori=5to10:poke214,i:poke211,0:sys58640
400 print""l$(i-4)
410 next
420 fori=1to6:poke214,i+10:poke211,19:sys58640
430 print""t$(i)
440 next
450 print"or in short words..."
460 print"...lametro !!!"
470 forii=1to3:fori=1to240:poke53280,i:nexti,ii
480 print"?syntax error in 110":print"ready.":print
490 for ii=1to10
500 poke214,23:poke211,0:sys58640
510 print" [146]":fori=1to620:next
520 poke214,23:poke211,0:sys58640
530 print" ":fori=1to160:next
540 next ii
550 print"huuuuuu.... what was that..."
560 fori=1to2000:nexti
570 print"[147]"
580 fori=1to150
590 r1=int(rnd(1)*24)
600 r2=int(rnd(1)*17)
610 poke214,r1:poke211,r2:sys58640
620 poke646,int(rnd(1)*14)+1:print"lame, lamer, lametro!!!"
630 next
640 fori=1to6:poke214,i+7:poke211,10:sys58640:print""l$(i):next
650 fori=1to3000:next:print"[147]"
660 print"this was...[152]"
670 fori=2to7:poke214,i:poke211,15:sys58640:printt$(i-1):next
680 fori=2to7:poke214,i:poke211,1:sys58640:printl$(i-1):next
690 print"presented by braindeath/lame"
700 print"contact me trough braindeath(a)lamer.org[154]"
710 print"if you want to ask whats the sense of"
720 print"this production... i dont know :]"
730 print"... but one thing is clear..."
740 print"[151]lame, [152]lamer, lametro!!!"
750 data"20061980-15112000"