home *** CD-ROM | disk | FTP | other *** search
/ Pulp 3 / Pulp_03_2000_POL_de.d64 / basicscroller! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  684b  |  21 lines
  1. 10 a=0:b=1:poke53280,11:poke53281,12:print"[147]"
  2. 15 ifc=0thenc=1:load"mu ",8,1
  3. 20 t$="tach leute ! hier ist nu' endlich die 3. ausgabe der pulp..."
  4. 30 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]":print"[194]";tab(37);"[194]"
  5. 35 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][145][145]"
  6. 40 for la=1to96:a=a+1:ifa>36thenb=b+1:a=a-1
  7. 60 print"[194]";:ifb>1then90
  8. 70 forzw=1to37-a:print" ";:next
  9. 90 forzs=1to5+la:next
  10. 100 printmid$(t$,b,a);:ifb>1thenprint" ";
  11. 110 ifla<61thenprint"[194]"
  12. 120 ifla>60thenprint" "
  13. 140 print"[145]";:next
  14. 180 print"":poke53280,0:poke53281,0:print" credz:":print"--------"
  15. 230 print"laufschriftprg by 'der fuchs'":print"text by 'nafcom'"
  16. 231 print"prg inproved by 'doc of desire/civi/sty'"
  17. 235 print"[194]             p u l p  # 3":poke211,0:poke214,18:sys58732
  18. 240 sys4099:forc=1to3:next
  19. 250 geta$:ifa$=""then240
  20. 260 poke54296,0
  21.