home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.werbagnt (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  50 lines
  1. 10 co=7*4096:va=5*4096+6*256:print"[144]":a=1:dimpe(6):gosub10000:sysco,3
  2. 65 poke1024+21*40+10,29:poke1024+21*40+15,27:sysco,6,7:sysco,3
  3. 85 gosub4000:gosub1000:gosub2000:gosub3000:goto100
  4. 90 sysco,6,8:poke2,0
  5. 95 a=peek(2):ifa=0then95
  6. 98 poke2,0:ifa=99then50000
  7. 99 onagoto100,200,300,400,500,600,700
  8. 100 gosub1000:print"[210]adiowerbung[160][160]":en=a-1:goto90
  9. 200 gosub1000:print"[208]lakatwerbung[160]":en=a-1:goto90
  10. 300 gosub1000:print"[208]ressewerbung[160]":en=a-1:goto90
  11. 400 gosub1000:print"[205]agazinwerbung":en=a-1:goto90
  12. 500 gosub1000:print"[213]mweltkampagne":en=a-1:goto90
  13. 600 rem
  14. 610 bu=pe(en):su=0:pe(en)=pe(en)+5:fori=0to4:su=su+pe(i):nexti
  15. 660 ifsu>100thenpe(en)=bu:goto95
  16. 665 sysco,3:gosub4000:gosub2000:gosub3100:goto95
  17. 700 rem
  18. 710 bu=pe(en):pe(en)=pe(en)-5:ifpe(en)<0thenpe(en)=bu:goto95
  19. 765 sysco,3:gosub4000:gosub2000:gosub3100:goto95
  20. 1000 rem
  21. 1008 sysco,3:print"":print"[210]adiowerbung[160][160]":print"[208]lakatwerbung[160]"
  22. 1030 print"[208]ressewerbung[160]":print"[205]agazinwerbung"
  23. 1050 print"[213]mweltkampagne":print"[210]est[160][160][160][160][160][160][160][160][160][160]":sysco,6,7:sysco,3
  24. 1058 printtab(25);"image[160][160][160][160][160][160]%[157][157][157][157]";:sysco,6,5:sysco,3:printim:sysco,6,5:sysco,3:return
  25. 2000 rem
  26. 2020 print"":fori=0to5:print"":du=pe(i)
  27. 2040 print"";
  28. 2041 ifdu<10thenprint"[160]";du;"[157]%[157][157][157][160]":goto2050
  29. 2042 ifdu=100thenprint"100%":goto2050
  30. 2046 printdu;"[157]%[157][157][157][157][160]"
  31. 2050 nexti:sysco,6,7:sysco,3:return
  32. 3000 rem
  33. 3010 print"":fori=0to5:printtab(25);"[144][160][160][160][160][160][160][160][160][160][160]":nexti:sysco,6,7:sysco,3
  34. 3100 print"":restore:fori=0to5:readfc:printtab(25);"";:z1=(pe(i)):ifz1=0thengoto3163
  35. 3143 ifi=5thenz1=z1+5
  36. 3145 fori2=1toint(z1/10):printchr$(fc);"[160][144]";:nexti2
  37. 3163 ifz1<100thenprint" ";
  38. 3165 print:nexti:return
  39. 4000 pe(5)=100:fori=0to4:pe(5)=pe(5)-pe(i):nexti:return
  40. 10000 rem
  41. 10030 pe(0)=peek(va+7+50+((peek(va+1)-1)*67)):pe(1)=peek(va+7+51+((peek(va+1)-1)*67))
  42. 10050 pe(2)=peek(va+7+52+((peek(va+1)-1)*67)):pe(3)=peek(va+7+53+((peek(va+1)-1)*67))
  43. 10070 pe(4)=peek(va+7+54+((peek(va+1)-1)*67)):im=peek(va+7+55+((peek(va+1)-1)*67)):return
  44. 20000 rem
  45. 20030 poke(va+7+50+((peek(va+1)-1)*67)),pe(0):poke(va+7+51+((peek(va+1)-1)*67)),pe(1)
  46. 20050 poke(va+7+52+((peek(va+1)-1)*67)),pe(2):poke(va+7+53+((peek(va+1)-1)*67)),pe(3)
  47. 20070 poke(va+7+54+((peek(va+1)-1)*67)),pe(4):poke(va+7+55+((peek(va+1)-1)*67)),im:return
  48. 50000 gosub20000:z=peek(vars+2):a$="l.city"+str$(z):sysco,1,a$,8
  49. 60000 data 28,30,31,156,159,158
  50.