symbol letter_h = %00010011 symbol letter_a = %00010001 symbol letter_l = %10001111 symbol letter_o = %10000001 symbol letter_j = %11100011 symbol letter_s = %00100101 symbol letter_t = %00001111 symbol letter_u = %10000011 symbol letter_r = %10011001 symbol letter_e = %00001101 symbol letter_n = %10010001 symbol letter_b = %00000111 symbol letter_i = %10011111 symbol letter_p = %00011001 symbol getal_1 = %11110011 symbol getal_2 = %01001001 symbol getal_3 = %01100001 symbol getal_4 = %00110011 symbol getal_5 = %00100101 symbol getal_6 = %00000111 symbol display_uit = %11111111 symbol dobbelgetal = w1 symbol letterpauze = 500 symbol uitpauze = 150 symbol puntje = 0 symbol aantal = w2 symbol teller = w0 basis: let dobbelgetal = 30000 gosub hallo pause 1000 gosub joost pause 1000 gosub jurjen pause 1000 gosub bart pause 1000 gosub rian pause 1000 gosub pieter getalkiezen: goto getal_kiezen terug: goto getalkiezen ;=============================== joost: let pins = letter_j gosub letter_aan_uit let pins = letter_o gosub letter_aan_uit let pins = letter_o gosub letter_aan_uit let pins = letter_s gosub letter_aan_uit let pins = letter_t gosub letter_aan_uit let pins = %11111111 return hallo: let pins = letter_h gosub letter_aan_uit let pins = letter_a gosub letter_aan_uit let pins = letter_l gosub letter_aan_uit let pins = letter_l gosub letter_aan_uit let pins = letter_o gosub letter_aan_uit return jurjen: let pins = letter_j gosub letter_aan_uit let pins = letter_u gosub letter_aan_uit let pins = letter_r gosub letter_aan_uit let pins = letter_j gosub letter_aan_uit let pins = letter_e gosub letter_aan_uit let pins = letter_n gosub letter_aan_uit let pins = %11111111 return bart: let pins = letter_b gosub letter_aan_uit let pins = letter_a gosub letter_aan_uit let pins = letter_r gosub letter_aan_uit let pins = letter_t gosub letter_aan_uit let pins = %11111111 return pieter: let pins = letter_p gosub letter_aan_uit let pins = letter_i gosub letter_aan_uit let pins = letter_e gosub letter_aan_uit let pins = letter_t gosub letter_aan_uit let pins = letter_e gosub letter_aan_uit let pins = letter_r gosub letter_aan_uit let pins = %11111111 return rian: let pins = letter_r gosub letter_aan_uit let pins = letter_i gosub letter_aan_uit let pins = letter_a gosub letter_aan_uit let pins = letter_n gosub letter_aan_uit let pins = %11111111 return ;------------------------------- getal_kiezen: let aantal = 1 random dobbelgetal if dobbelgetal < 10000 then een if dobbelgetal < 20000 then twee if dobbelgetal < 30000 then drie if dobbelgetal < 40000 then vier if dobbelgetal < 50000 then vijf if dobbelgetal < 60000 then zes goto getal_kiezen puntje_aan_uit: let teller = 0 puntje_aan: high puntje pause 250 low puntje pause 250 pintest: if pin7 = 1 then terug if teller = 10 then slaap let teller = teller + 1 goto puntje_aan slaap: let pins = display_uit nap 3 goto pintest een: let pins = getal_1 if aantal > 600 then puntje_aan_uit pause aantal let pins = getal_5 pause aantal let pins = getal_3 pause aantal gosub pauze_anders goto een twee: let pins = getal_2 if aantal > 600 then puntje_aan_uit pause aantal let pins = getal_6 pause aantal let pins = getal_4 pause aantal gosub pauze_anders goto twee drie: let pins = getal_3 if aantal > 600 then puntje_aan_uit pause aantal let pins = getal_1 pause aantal let pins = getal_5 pause aantal gosub pauze_anders goto drie vier: let pins = getal_4 if aantal > 600 then puntje_aan_uit pause aantal let pins = getal_2 pause aantal let pins = getal_6 pause aantal gosub pauze_anders goto vier vijf: let pins = getal_5 if aantal > 600 then puntje_aan_uit pause aantal let pins = getal_3 pause aantal let pins = getal_1 pause aantal gosub pauze_anders goto vijf zes: let pins = getal_6 if aantal > 600 then puntje_aan_uit pause aantal let pins = getal_4 pause aantal let pins = getal_2 pause aantal gosub pauze_anders goto zes pauze_anders: let aantal = aantal * 2 return letter_aan_uit: pause letterpauze let pins = display_uit pause uitpauze return