home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64 / demo1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  39 lines
  1. 10 rem ********************************
  2. 11 rem ** demo zum interface mps 803 **
  3. 12 rem ** und kompatible (801,1525)  **
  4. 13 rem ********************************
  5. 14 rem alle rems weglassen !
  6. 15 rem
  7. 16 rem auswertung einer wahl
  8. 17 rem vorher interface laden & starten
  9. 18 rem --------------------------------
  10. 19 :
  11. 100 ifpeek(30001)<>72thenlist17-18
  12. 101 sys30000:rem drucker
  13. 102 poke53280,.:poke53281,.:poke650,128
  14. 110 print"[154][147]           [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  15. 112 [153]"           (NULL) s t a t i s t i k (NULL)
  16. 114 print" [142]          [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  17. 116 [133]"was wollen sie auswerten   wahl '86cmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";a$
  18. 118 [159]4,4
  19. 120 [152]4,"%":[152]4,"l"[199](5):[143] rand 5
  20. 122 [152]4,"a"[199](12)" dauswertung: "[199](.);:[143] . = 0 (schneller)
  21. 124 [152]4,"c0";:[143] doppelter commodoresatz,rvs off
  22. 126 [152]4,"d"a$[199](.)
  23. 128 [133]"anzahl der parteien   5cmdcmdcmd";aa:[139]aa[179]1[176]aa[177]10[167]128
  24. 130 [129]i[178]1[164]aa
  25. 132 [153]"partei #"i;:[133]"name ";na$(i)
  26. 134 [133]"   anz. stimmen ";s(i)
  27. 136 [139]s(i)[179].[167]134
  28. 138 gs[178]gs[170]s(i):[130]
  29. 140 [152]4:[129]i[178]1[164]aa
  30. 142 pr[178][181](.5[170](100[172]s(i))[173]gs)
  31. 144 [152]4,"r00m"na$(i)[199](0)"a"[199](20)" ";:[143] name in mini
  32. 146 [143] dann zu position 20 der zeile.
  33. 147 pa[178]pr:[139]pr[178]13[167]pa[178]14:[143] parameter = 13 ?
  34. 148 [152]4,"-"[199](pa)[199](127)[199](126)[199](124)[199](120)[199](113)[199](99);
  35. 150 [152]4,[199](71)[199](15)[199](31)[199](63)[199](0)"q"pr[199](0):[130]
  36. 160 [152]4:[152]4,"c0dgesamtzahl der stimmen:"gs[199](0)"l"[199](0)
  37. 161 [143] rand aus
  38. 162 [152]4,"n"[199](80)"to%":[160]4:[143] 80 zeichen linie
  39.