home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Querbyte_02_19xx_Civitas.d64 / bejahfisch...... (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  692b  |  31 lines
  1. 1 print"der zwinkernde, bejahende fisch von jtr.":print"[145](taste)"
  2. 2 geta$:ifa$=""then2
  3. 5 dima$(18)
  4. 10 gosub100
  5. 20 fori=1to23
  6. 30 print"[147]"
  7. 40 forj=1to8:printspc(i);a$(j-10*(i/2=int(i/2))):next
  8. 50 print"[147]"
  9. 60 forj=1to7:printspc(i);b$:next
  10. 70 nexti
  11. 95 end
  12. 100 a$(1)="      ]      "
  13. 110 a$(2)="     ]]]       ja"
  14. 120 a$(3)="]  ]]]]]]]   "
  15. 130 a$(4)=" ]]]]]]]]o]] ja"
  16. 140 a$(5)=" ]]]]]]]]]]  "
  17. 150 a$(6)="] ]]]]]]]    "
  18. 160 a$(7)="     ]]      "
  19. 170 a$(8)="     ]       "
  20. 180 b$="              "
  21. 190 print"[147]";
  22. 200 a$(11)="      ]         ja"
  23. 210 a$(12)="     ]]]     "
  24. 220 a$(13)="]  ]]]]]]]    ja"
  25. 230 a$(14)=" ]]]]]]]]-]] "
  26. 240 a$(15)=" ]]]]]]]]]]  "
  27. 250 a$(16)="] ]]]]]]]    "
  28. 260 a$(17)="     ]]      "
  29. 270 a$(18)="     ]       "
  30. 280 return
  31.