10 'This is MOVE.BA which demonstrates the impressive graphics capabilities
15 'of the NEC 8201A. Copyright 1984-1988 by William Naoki Kumai
20 'From TRULY PORTABLE, January 1985 issue
30 'GEnie's Laptops RoundTable, 6-12-88
40 CLEAR256,61584!:DEFINTA-Z:CA!=30903:GA!=61585!
50 READA$:A$=" "+A$+" ":N=LEN(A$)-1
60 FORI=0TON:IFI<NTHEND$=D$+CHR$(131+I)
70 A=ASC(MID$(A$,I+1))
80 FOR J=0TO4:B=PEEK(CA!+(A-32)*5+J)
90 POKEGA!+I*6+J,B:NEXT:POKEGA!+I*6+5,0
110 NEXT
120 POKE65216!,240:SCREEN,0:CLS:BEEP
130 FORI=0TO40-N:FORJ=150TO145STEP-1
140 POKE65215!,J:LOCATEI,3:PRINTD$
150 NEXT:NEXT
160 END
170 DATA Truly Portable
       