home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 December
/
1994-12b.d64
/
latin.boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
533b
|
15 lines
10 rem copyright 1994 - compute publications intl ltd - all rights reserved
20 poke 53281,6:poke53280,6:printchr$(14)"[147]
30 [153]"open (NULL)atin (NULL)tudy atnid "
40 [153]"str$o you want to practice
50 print" 1. [195]onjugations or
60 [153]" 2. str$eclensions ?
70 print"[208]ress a number ...
80 [161] a$:[139] a$[178]""[167] 80
90 [139] a$ [178]"1" [167] p$(c)[178]"conjugations"
95 [139] a$ [178]"2" [167] p$(c)[178]"declensions"
100 [139] a$[179][177]"1" [175] a$[179][177]"2" [167] 80
110 [153]"loadwaitlistloadwait";[199](34);p$(c);[199](34);",8":[153]"run"
120 [151]631,13:[151]632,13:[151]631,13:[151]198,2:[128]
130 [129]i[178]1[164][195](a$(c)):[151]i[170]f,[198]([202](a$(c),i,1)):[130]