home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh18b.d64 / demo1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.