home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh47b.d64
/
demo1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
39 lines
10 REM ********************************
11 REM ** DEMO ZUM INTERFACE MPS 803 **
12 REM ** UND KOMPATIBLE (801,1525) **
13 REM ********************************
14 REM ALLE REMS WEGLASSEN !
15 REM
16 REM AUSWERTUNG EINER WAHL
17 REM VORHER INTERFACE LADEN & STARTEN
18 REM --------------------------------
19 :
100 IFPEEK(30001)<>72THENLIST17-18
101 SYS30000:REM DRUCKER
102 POKE53280,.:POKE53281,.:POKE650,128
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]
112 [153]" (null) S T A T I S T I K (null)
114 PRINT" [142] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
116 [133]"WAS WOLLEN SIE AUSWERTEN WAHL '86CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";A$
118 [159]4,4
120 [152]4,"%":[152]4,"L"[199](5):[143] RAND 5
122 [152]4,"A"[199](12)" DAUSWERTUNG: "[199](.);:[143] . = 0 (SCHNELLER)
124 [152]4,"C0";:[143] DOPPELTER COMMODORESATZ,RVS OFF
126 [152]4,"D"A$[199](.)
128 [133]"ANZAHL DER PARTEIEN 5CMDCMDCMD";AA:[139]AA[179]1[176]AA[177]10[167]128
130 [129]I[178]1[164]AA
132 [153]"PARTEI #"I;:[133]"NAME ";NA$(I)
134 [133]" ANZ. STIMMEN ";S(I)
136 [139]S(I)[179].[167]134
138 GS[178]GS[170]S(I):[130]
140 [152]4:[129]I[178]1[164]AA
142 PR[178][181](.5[170](100[172]S(I))[173]GS)
144 [152]4,"R00M"NA$(I)[199](0)"A"[199](20)" ";:[143] NAME IN MINI
146 [143] DANN ZU POSITION 20 DER ZEILE.
147 PA[178]PR:[139]PR[178]13[167]PA[178]14:[143] PARAMETER = 13 ?
148 [152]4,"-"[199](PA)[199](127)[199](126)[199](124)[199](120)[199](113)[199](99);
150 [152]4,[199](71)[199](15)[199](31)[199](63)[199](0)"Q"PR[199](0):[130]
160 [152]4:[152]4,"C0DGESAMTZAHL DER STIMMEN:"GS[199](0)"L"[199](0)
161 [143] RAND AUS
162 [152]4,"N"[199](80)"TO%":[160]4:[143] 80 ZEICHEN LINIE