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 >
Commodore BASIC  |  2023-02-26  |  2KB  |  76 lines
  1. 10 dimx$(15),l$(6),t$(6)
  2. 20 l$(1)="[176][174]  [176][195][195][174] [176][195][195][195][195][174] [176][195][195][174]"
  3. 30 l$(2)="[194][194]  [194][176][174][194] [194][176][174][176][174][194] [194][176][195][189]"
  4. 40 l$(3)="[194][194]  [194][173][189][194] [194][194][194][194][194][194] [194][173][195][174]"
  5. 50 l$(4)="[194][194]  [194][213][201][194] [194][194][194][194][194][194] [194][213][195][203]"
  6. 60 l$(5)="[194][173][195][174][194][194][194][194] [194][194][202][203][194][194] [194][173][195][174]"
  7. 70 l$(6)="[173][195][195][189][173][189][173][189] [173][189]  [173][189] [173][195][195][189]"
  8. 80 t$(1)="[176][174][176][174][176][174] [176][195][195][174] [176][195][195][174] [176][195][195][174]"
  9. 90 t$(2)="[194][194][194][171][189][194] [173][174][176][189] [194]  [194] [194][176][174][194]"
  10. 100 t$(3)="[194][194][194][194] [194]  [194][194]  [194] [176][189] [194][194][194][194]"
  11. 110 t$(4)="[194][194][194] [194][194]  [194][194]  [194] [173][174] [194][194][194][194]"
  12. 120 t$(5)="[194][194][194][176][179][194]  [194][194]  [194][176][174][194] [194][173][189][194]"
  13. 130 t$(6)="[173][189][173][189][173][189]  [173][189]  [173][189][173][189] [173][195][195][189]"
  14. 140 poke53280,0:poke53281,0:print"[147]"
  15. 150 x$(0)= "[213][195][195][201] [213][195][195][201] [213][195][195][201] [213][201] [213][195][201][213][201]"
  16. 160 x$(1)= "[194]. [194] [194]. [194] [194][213][201][194] [194][194] [194] [194][194][194]"
  17. 170 x$(2)= "[194] [213][203] [194] [213][203] [194][202][203][194] [194][194] [194][194][194][194][194]"
  18. 180 x$(3)= "[194] [202][201] [194] [202][201] [194][213][201][194] [194][194] [194][194][194][194][194]"
  19. 190 x$(4)= "[194] .[194] [194][213][201][194] [194][194][194][194][160][194][194] [194][194][194] [194]"
  20. 200 x$(5)= "[202][195][195][203] [202][203][202][203] [202][203][202][203] [202][203] [202][203][202][195][203]"
  21. 210 x$(7)= "[213][195][195][201] [213][195][195][201] [213][195][195][201] [213][195][195][201] [213][201][213][201]"
  22. 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]"
  23. 230 x$(9)= "[194][194][217][217] [194][202][195][201] [194][202][203][194]  [194][194]  [194][202][203][194]"
  24. 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]"
  25. 250 x$(11)="[194][202][203][194][160][194][202][195][201] [194][194][194][194]  [194][194]  [194][194][194][194]"
  26. 260 x$(12)="[202][195][195][203] [202][195][195][203] [202][203][202][203]  [202][203]  [202][203][202][203]"
  27. 270 fori=0to14step2
  28. 280 poke214,i+3:poke211,9:sys58640
  29. 290 print"[129]"x$(i)
  30. 300 poke214,i+1+3:poke211,9:sys58640:ifi=14 then goto320
  31. 310 print"[149]"x$(i+1)
  32. 320 next
  33. 330 poke214,20:poke211,5:sys58640
  34. 340 print"[153]is really not proud to present"
  35. 350 fori=1to38
  36. 360 poke214,22:poke211,i:sys58640:poke646,int(rnd(1)*14)+1:print"[209]":forii=1to170:nextii
  37. 370 nexti
  38. 380 print"[147]":poke53281,0
  39. 390 fori=5to10:poke214,i:poke211,0:sys58640
  40. 400 print""l$(i-4)
  41. 410 next
  42. 420 fori=1to6:poke214,i+10:poke211,19:sys58640
  43. 430 print""t$(i)
  44. 440 next
  45. 450 print"or in short words..."
  46. 460 print"...lametro !!!"
  47. 470 forii=1to3:fori=1to240:poke53280,i:nexti,ii
  48. 480 print"?syntax error in 110":print"ready.":print
  49. 490 for ii=1to10
  50. 500 poke214,23:poke211,0:sys58640
  51. 510 print" [146]":fori=1to620:next
  52. 520 poke214,23:poke211,0:sys58640
  53. 530 print" ":fori=1to160:next
  54. 540 next ii
  55. 550 print"huuuuuu.... what was that..."
  56. 560 fori=1to2000:nexti
  57. 570 print"[147]"
  58. 580 fori=1to150
  59. 590 r1=int(rnd(1)*24)
  60. 600 r2=int(rnd(1)*17)
  61. 610 poke214,r1:poke211,r2:sys58640
  62. 620 poke646,int(rnd(1)*14)+1:print"lame, lamer, lametro!!!"
  63. 630 next
  64. 640 fori=1to6:poke214,i+7:poke211,10:sys58640:print""l$(i):next
  65. 650 fori=1to3000:next:print"[147]"
  66. 660 print"this was...[152]"
  67. 670 fori=2to7:poke214,i:poke211,15:sys58640:printt$(i-1):next
  68. 680 fori=2to7:poke214,i:poke211,1:sys58640:printl$(i-1):next
  69. 690 print"presented by braindeath/lame"
  70. 700 print"contact me trough braindeath(a)lamer.org[154]"
  71. 710 print"if you want to ask whats the sense of"
  72. 720 print"this production... i dont know :]"
  73. 730 print"... but one thing is clear..."
  74. 740 print"[151]lame, [152]lamer, lametro!!!"
  75. 750 data"20061980-15112000"
  76.