Commodore 64 > Programmazione, Grafica e Musica

Trivia game

<< < (2/2)

Denz:
sono riuscito a caricare gli array giusti cambiano il codice da così

9026 IF MENU$ = "Classico" THEN Q$ = C$
9027 IF MENU$ = "Classico" THEN R$ = D$
9028 IF MENU$ = "Storia" THEN Q$ = E$
9029 IF MENU$ = "Storia" THEN R$ = F$
9030 IF MENU$ = "Calcio" THEN Q$ = G$
9031 IF MENU$ = "Calcio" THEN R$ = H$
9032 IF MENU$ = "Musica" THEN Q$ = M$
9033 IF MENU$ = "Musica" THEN R$ = N$
9034 IF MENU$ = "Videogame" THEN Q$ = O$
9035 IF MENU$ = "Videogame" THEN R$ = P$

a così

9028 IF MENU$ = "Classico" THEN FOR I = 1 TO 30: FOR J = 1 TO 5: Q$(I, J) = C$(I, J): NEXT J, I: FOR I = 1 TO 30: R$(I) = D$(I): NEXT I
9029 IF MENU$ = "Storia" THEN FOR I = 1 TO 30: FOR J = 1 TO 5: Q$(I, J) = E$(I, J): NEXT J, I: FOR I = 1 TO 30: R$(I) = F$(I): NEXT I
9030 IF MENU$ = "Calcio" THEN FOR I = 1 TO 30: FOR J = 1 TO 5: Q$(I, J) = G$(I, J): NEXT J, I: FOR I = 1 TO 30: R$(I) = H$(I): NEXT I
9031 IF MENU$ = "Musica" THEN FOR I = 1 TO 30: FOR J = 1 TO 5: Q$(I, J) = M$(I, J): NEXT J, I: FOR I = 1 TO 30: R$(I) = N$(I): NEXT I
9032 IF MENU$ = "Videogame" THEN FOR I = 1 TO 30: FOR J = 1 TO 5: Q$(I, J) = O$(I, J): NEXT J, I: FOR I = 1 TO 30: R$(I) = P$(I): NEXT I.

ora devo capire perchè I non cambia dopo la risposta

Denz:
signori ce l'ho fatta! il mio primo software in Basic per C64!

in allegato il listato

Navigazione

[0] Indice dei post

[*] Pagina precedente