ACAB.BASIC

2 REM "DADES ENTRADES A MA"
10 PRINT "Humanitat:"
20 DIM A$(4,6)
100 A$(0,0)="ESSER_HUMA"
110 A$(0,1)="Adam"
120 A$(0,2)=""
130 A$(0,3)=""
140 A$(0,4)=""
150 A$(0,5)=""

200 A$(1,0)="ESSER_HUMA"
210 A$(1,1)="Eva"
220 A$(1,2)=""
230 A$(1,3)=""
240 A$(1,4)=""
250 A$(1,5)=""

300 A$(2,0)="CIUTADA"
310 A$(2,1)="Abel"
320 A$(2,2)="Adam"
330 A$(2,3)="Eva"
340 A$(2,4)="Escola del Paradis"
350 A$(2,5)=""

400 A$(3,0)="POLI"
410 A$(3,1)="Caim"
420 A$(3,2)=""
430 A$(3,3)="Eva"
440 A$(3,4)="Escola del Paradis"
450 A$(3,5)="1"

460 REM " Bucle que no existeix a OOP:"

480 V=0
500 FOR N=0 TO 3 STEP 1
505 V=N
510 IF A$(N,0)="ESSER_HUMA" THEN GOSUB 1990
520 IF A$(N,0)="CIUTADA" THEN GOSUB 2990
530 IF A$(N,0)="POLI" THEN GOSUB 3990
540 NEXT
1000 END

1990 REM "Print EsserHuma"
2000 PRINT USING " "; A$(V,1);"  "; A$(V,2);"  "; A$(V,3)
2010 RETURN

2990 REM "Print Ciutada"
3000 PRINT USING " "; A$(V,1);"  "; A$(V,2);"  "; A$(V,3);"  "; A$(V,4)
3010 RETURN

3990 REM "Print Poli"
4000 PRINT USING " "; A$(V,2);"  ";  A$(V,5)
4010 RETURN

5000 REM "//////////////////MÓN REAL/////////////////////////////////"
5500 REM "///////Primera referència al Twitter sobre aquest arxiu:"
5501 REM "//////https://twitter.com/macajo/status/1170044137510461441?s=20" 
6000 REM "///////////////////////////////////////////////////////////"