start tok64 d64-bCvq5F
0 REM"nichomachus":,8:"{141*4}
1 POKE53280,.:POKE53281,.
2 PRINT"{light blue}{clear}{right}{142}{ct h}{cm @}{cm p}{cm d}{cm i*4}{cm d}{cm p}{cm @}{space*10}{cm @*2}{cm p*2}{cm d*2}{cm i*6}{cm d*2}{cm p*2}{cm @*2}
3 PRINT"{right}{reverse on}nicomachus{right}{yellow}{reverse off}gjort av{light blue}{right}{reverse on}creative computing
4 PRINT"{light blue}{space*2}{cm t}{cm y}{cm u*4}{cm y}{cm t}{space*13}{cm t*2}{cm y*2}{cm u*6}{cm y*2}{cm t*2}
5 PRINT"{white} konverterat till c-64 av mr.p.{space*9}{yellow} (c){sh space}softwolves 1991
10 PRINT"{down}{cyan} bumerangspel fra{up}{left}.{down}n arithmetica av{space*8}nicomachus {sh asterisk*3} 90 f kr !
30 PRINT"{down*2}{yellow} ta{up}{left}R{down}nk pa{up}{left}.{down} ett tal mellan 1 och 100 !
40 a=.:INPUT"{green} ditt tal delat med 3 har resten";a
50 b=.:INPUT"{green} ditt tal delat med 5 har resten";b
60 c=.:INPUT"{green} ditt tal delat med 7 har resten";c
100 d=70*a+21*b+15*c
110 IFd>105THENd=d-105:GOTO110
120 IFd>100THENPRINT"{down}{green} ditt tal var sto{up}{left}R{down}rre a{up}{left}R{down}n 100":GOTO160
130 IFd<0THENPRINT"{down}{green} ditt tal var mindre a{up}{left}R{down}n 0":GOTO160
140 a$=STR$(d)+" ":b$=LEFT$("{cm @*5}",LEN(a$)):PRINTTAB(15)"{yellow}"b$
150 PRINT"{green} ditt tal var: {reverse on}{yellow}"a$
160 INPUT"{light blue} eller hur ? ja{left*4}";a$
170 ONABS(a$="ja")GOTO220:ONABS(a$="nej")GOTO240:PRINT"{white} ja / nej ?":GOTO160
220 PRINT"{down}{cyan} det visste jag va{up}{left}R{down}l !":GOTO1000
240 PRINT"{down}{cyan} jag har en ka{up}{left}R{down}nsla av att du ra{up}{left}R{down}knar lite {down}da{up}{left}.{down}ligt
250 INPUT"{green} ditt tal ";x
255 IFx<0ORx>100THENPRINT"{down}"x"det a{up}{left}R{down}r inte mellan 0 och 100!":GOTO1000
260 s=INT(x/3):r=x-s*3:PRINTx"{left}/3="s"rest"r"(du sa"a"{left})
270 s=INT(x/5):r=x-s*5:PRINTx"{left}/5="s"rest"r"(du sa"b"{left})
280 s=INT(x/7):r=x-s*7:PRINTx"{left}/7="s"rest"r"(du sa"c"{left})
1000 PRINT"{green}{down} la{up}{left}.{down}t oss ta ett nytt tal :":GOTO30
stop tok64
(bastext 1.0)