Χρήση γραμματοσειράς Roboto

 Με το παρακάτω πρόγραμμα φορτώνουμε ένα αρχείο zip από το Drive το οποίο έχει το αρχείο πειρ1.gsb. Αυτό το πρόγραμμα το φορτώνουμε και το εκτελούμε. Κατά την εκτέλεση αν δεν υπάρχει στον τρέχοντα φάκελο το αρχείο ttf για τη γραμματοσειρά Roboto θα σωθεί από το αρχείο που είναι περασμένο ήδη στο πειρ1.gsb (στο τμήμα β έχει 10 χιλιάδες γραμμές σε Base64, 487.768 bytes).

Το πρόγραμμα που δοκιμάζουμε φορτώνει την γραμματοσειρά πρόσκαιρα. Η roboto έχει διάφορες εκδοχές της γραμματοσειράς και μπορούμε να κάνουμε επιλογή. Μας δείχνει το πρόγραμμα το πώς φαίνεται στην οθόνη, και την ξεφορτώνει! Δεν χρειάζεται να βάλουμε τη γραμματοσειρά μόνιμα στο σύστημα των Windows.

Στη κονσόλα της Μ2000 γράφουμε Σ "roboto.gsb" και αντιγράφουμε το πρόγραμμα που ακολουθεί. Πατάμε Esc και δίνουμε αυτό: Φόρτωσε roboto   και μας ανοίγει ο επιλογέας γραμματοσειράς. Για να κάνουμε επιλογή πρέπει να κάνουμε επιλογή στο κάτω μέρος και το σέρνουμε δεξιά ή πατάμε enter! (είναι ένα πλαίσιο για να γράφουμε και να βλέπουμε τι γράμματα γράφει και όχι για να επιλέγουμε με όνομα τη γραμματοσειρά). Η φόρμα έχει τρια στοιχεία, την επιλογή γραμματοσειράς, την αλλαγή χαρακτηρισικών και το πεδίο δοκιμής. Αυτά αλλάζουν με Tab. Όταν βλέπει το σύστημα ότι μια γραμματοσειρά είναι ήδη Bold μας εμφανίζει το εντονη. Αν δεν είναι μπορούμε να δηλώσουμε να γίνει έντονη (φαρδιά γράμματα). Η αλλαγή γίνεται με το διάστημα. Πάμε με tab στο δεύτερο στοιχείο και σε αυτό με βελάκια επιλέγουμε πεδίο για αλλαγή. Στα Εντονη και Πλάγια πατάμε το διάστημα ή κάνουμε κλικ στο τετραγωνάκι στα αριστερά. 

Τμήμα ΦόρτωσηΑπόDrive {
	Συνάρτηση Γενική Κατέβασε(αρχείο$, κωδ_drive$){
		σταθερή BINDF_GETNEWESTVERSION = 0x10&
		σταθερή πρόθεμα$="http://drive.google.com/uc?export=download&id="
		αν διαδίκτυο τότε
			αν υπάρχει(αρχείο$) τότε δες {κονσόλα "del "+παράθεση$(κατ$+αρχείο$);} : αναμονή 200
			όρισε URLDownloadToFile από "urlmon.URLDownloadToFileW" {μακρύς pCaller, szUrl$, sxFilename$, μακρύς dwReserved, μακρύς callback}
			αν URLDownloadToFile(0,πρόθεμα$+κωδ_drive$, κατ$+αρχείο$,BINDF_GETNEWESTVERSION+0x20000&,0)==0 τότε
				= Εντάξει
			αλλιώς
				= ΔεςΞανά
			τέλος αν
		αλλιώς
			= ΧωρίςΣύνδεση
		τέλος αν
	}
	Γενική Απαρίθμηση Κατάσταση_Κατεβάσματος {
		Εντάξει="Εντάξει"
		ΔεςΞανά="Δομίμασε ξανά"
		ΧωρίςΣύνδεση="Δεν υπάρχει διαδίκτυο, Δοκίμασε ξανά"
	}
	Τμήμα ΚάνεΔοκιμή {
			αν δεν υπάρχει("πειρ1.gsb") τότε		
				ορισε zip συμπιεστης
				μεθοδος zip, "openzip", κατ$+"robotom2000.zip"
				μεθοδος zip, "extracttopath", κατ$
			τέλος αν
			φορτωσε πειρ1
			κάλεσε α
	}
	ΑρχείοΣτοDrive="1MSX7kMbb_TcwqFBGYqgwOtJjF5Q-HrPO"
	ΑρχείοΣτοΔίσκο="robotoM2000.zip"
	αν Υπάρχει(ΑρχείοΣτοΔίσκο) τότε
		ΚάνεΔοκιμή
	Αλλιώς
		απάντηση=Κατέβασε(ΑρχείοΣτοΔίσκο, ΑρχείοΣτοDrive)
		αν απάντηση=Εντάξει τότε
			ΚάνεΔοκιμή
		αλλιώς
			τύπωσε εκφρ$(απάντηση)
		τέλος αν
	τέλος αν
}
ΦόρτωσηΑπόDrive