home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 December / 64er_Magazin_88-12_1988_Markt__Technik_de_Side_A.d64 / dia-show (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  54 lines
  1. 2 a=a+1:ifa=1thenload"mpgetsprit",8,8
  2. 3 ifa=2thenload"viewdia",8,8
  3. 5 si=54272:fort=0to24:pokesi+t,0:next
  4. 8 gosub500:restore
  5. 10 print"[147]":poke53280,0:poke53281,0
  6. 15 dimfa(40),te$(3)
  7. 20 fort=1to33:read fa(t):next
  8. 50 fort=1to03:read te$(t):next
  9. 100 fort=1to3:fore=1to33:poke646,fa(e)
  10. 120 poke214,11:printtab(20-len(te$(t))/2)te$(t):fori=0to30:nexti,e,t
  11. 125 te$="[155]wait a little"
  12. 130 poke214,11:printtab(20-len(te$)/2)te$
  13. 140 goto600
  14. 200 data0,11,12,15,1,1,1,1,1,1,1,1,1,1,1,1,1,1,15,12,11,0,0,0,0,0,0,0,0,0,0,0,0
  15. 210 data "es folgt eine spitzen dia-show"
  16. 220 data "aus dem hause lion-soft"
  17. 230 data "von helmut burgemeister"
  18. 300 data girl,pauli,superman,taar,cry,*
  19. 500 poke65,peek(122):poke66,peek(123)
  20. 510 fort=0to24:reade:pokesi+t,e:next
  21. 520 data1,4,0,2,00,240,251,0,4,0,2,00,240,253,20,26,0,0,00,10,0,0,21,243,31
  22. 525 pokesi+4,65:pokesi+11,65
  23. 530 return
  24. 600 readl$:ifl$="*"then700
  25. 610 m=0:ad=23841:ifright$(l$,1)="?"or right$(l$,1)="/"thengosub1000
  26. 615 sys32768,l$,ad
  27. 620 ifm=0thengosub800:goto630
  28. 625 gosub900
  29. 630 sys4096*12
  30. 640 goto600
  31. 700 poke53265,27:poke53272,21:poke53281,0:poke53280,0:poke56576,3
  32. 710 print"[147]    das war's ...[154]
  33. 720 [151]198,0
  34. 730 [153]"list  nochmal (j/n)":[146]198,1:[161]a$:[139]a$[178]"n" [167] [158]64738
  35. 740 [138]
  36. 800 [151]49249,[194](24017)
  37. 820 [151]49254,[194](24022)
  38. 830 [151]49253,[194](24021)
  39. 840 [129]t[178]0[164]7:[151]49255[170]t,[194](24023[170]t):[130]
  40. 850 [151]49244,[194](24012)
  41. 890 [142]
  42. 900 [151]49249,12
  43. 920 [151]49254,0
  44. 930 [151]49253,11
  45. 940 [129]t[178]0[164]7:[151]49255[170]t,1:[130]
  46. 950 [151]49244,0
  47. 960 [139]m[178]1[167][151]49244,255
  48. 990 [142]
  49. 1000 ad[178]24576
  50. 1010 [139][201](l$,1)[178]"?"[167]m[178]1
  51. 1020 [139][201](l$,1)[178]"/"[167]m[178]2
  52. 1030 l$[178][200](l$,[195](l$)[171]1)
  53. 1090 [142]
  54.