Sillabe – Commodore 64 Basic V2

Commodore Computer Club – Anno 3 Numero 9 – Marzo 1983 – Basic V2

Proseguono i contributi di Francesco Sblendorio, che ringraziamo nuovamente per la collaborazione e per la volontá di preservare i listati BASIC per Commodore 64 pubblicati sulla prestigiosa rivista Commodore Computer Club.

Dopo il gioco Canestro, uno dei primi contributi di RetroLiPS, é la volta di un piccolo programma didattico per la suddivisione in sillabe!

Titolo: Divisione in sillabe
Piattaforma: Commodore 64
Linguaggio: Basic
Versione originale: Franco Musso
PubblicazioneCommodore Computer Club 09
Anno: 1983
Trascrizione: Francesco Sblendorio
Anno: 2021
Download: sillabe
Note: Il codice presentato puó essere testato sul sito di Francesco Sblendorio: sillabe

Scopo del programma
Questa volta ci troviamo di fronte ad un programma didattico. La divisone in sillabe é un concetto che quasi tutti abbiamo imparato alle scuole elementari, ma al giorno d’oggi, con i prgrammi di scrittura super evoluti, probabilmente non la utilizziamo piú…

Qui di seguito trovate il codice da copiare sul vostro Commodore 64.
Il codice originale é modificato per essere copiato su CBM prg Studio. Gli Screen Codes presenti nel listato originale, sono stati manualmente sostituiti da quelli standard utilizzati da CBM prg Studio.

Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘&gt’ e ‘&lt’. Nel caso, sostituite questi valori direttamente su CBM prg Studio.

Listato: Sillabe – Commodore 64 – Basic V2


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
100 rem ***********************
110 rem  divisione in sillabe.
120 rem per qualsiasi computer
130 rem
140 rem    di franco musso
150 rem     via torino 27
160 rem  orio  canavese (to)
170 rem    tel 011/9838044
180 rem ***********************
200 print"{clear}"
210 s=1:print"{down}"
220 input"{reverse on}vocabolo{reverse off}";a$:print
230 ifa$="0"thenend
240 ifs>len(a$)thenprint"{left} ":goto210
250 x$=mid$(a$,s,1):gosub460
260 ifa=0then430
270 x$=mid$(a$,s+1,1):gosub460
280 ifa=0then360
290 ifx$="i"then320
300 ifmid$(a$,s,1)="i"ormid$(a$,s,1)="u"then430
310 goto440
320 x$=mid$(a$,s+2,1):gosub460
330 ifs>1thenifmid$(a$,s-1,2)="qu"anda=-1thenprintmid$(a$,s,2);:s=s+2:goto240
340 ifa=-1then440
350 goto430
360 ifs+2>len(a$)then450
370 x$=mid$(a$,s+2,1):gosub460
380 ifa=-1then440
390 ifmid$(a$,s+1,1)=mid$(a$,s+2,1)then450
400 a1$=mid$(a$,s+1,1):ifa1$="s"ora1$="g"then440
410 rem a2$=mid$(a$,s+2,1):ifa2$="r"ora2$="l"ora2$="h"then440
420 goto450
430 printmid$(a$,s,1);:s=s+1:goto240
440 printmid$(a$,s,1);"-";:s=s+1:goto240
450 printmid$(a$,s,2);"-";:s=s+2:goto240
460 a=x$="a"orx$="e"orx$="i"orx$="o"orx$="u":return
Share

Lascia un commento

Il tuo indirizzo email non sarà pubblicato.

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.