10 rem RESETBID reset bidon
20 ink 0,1:ink 1,24:border 1: mode 1
30 for w=1 to 1000:next
40 locate 6,12:pen 2:print "Chargement en cours. Patience":pen 1
50 for w=1 to 3000:next
60 A$=" Amstrad 128K Microcomputer   (V3)"
70 B$=" "+chr$(164)+"1985 Amstrad Consumer Electronics plc            and Locomotive Software Ltd."
80 C$=" BASIC 1.1"
90 cls:print:print A$:print:print B$:print:print C$:print:print "Ready"
100 for w=1 to 2000:next
110 pen 2: locate 7,12: print chr$(7);"T'as eu les jetons, hein?...":pen 1:print
120 end